1 files changed, 140 insertions, 0 deletions
diff --git a/hp54520a_reversing/fun_00a73940.pl b/hp54520a_reversing/fun_00a73940.pl
new file mode 100755
index 0000000..083cbf8
--- /dev/null
+++ b/hp54520a_reversing/fun_00a73940.pl
@@ -0,0 +1,140 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+#FUN_00a7380a
+
+
+my $style='style="stroke:red;stroke-width:2"';
+
+
+sub atos($)
+{
+my $a=shift;
+my $c="black";
+$a=int($a) & 0xff;
+if ($a==0xfe) {
+	$c="white";
+} elsif ($a==0x01) {
+	$c="white";
+} elsif ($a==0x02) {
+	$c="yellow";
+} elsif ($a==0x04) {
+	$c="blue";
+} elsif ($a==0x08) {
+	$c="green";
+} elsif ($a==0x10) {
+	$c="orange";
+} elsif ($a==0x20) {
+	$c="cyan";
+} elsif ($a==0x40) {
+	$c="red";
+} elsif ($a==0x80) {
+	$c="magenta";
+}
+
+return 'style="stroke:'.$c.';stroke-width:2;fill:'.$c.'"';
+
+}
+
+
+sub draw_horiz_line
+{
+my ($a,$y,$x1,$x2,$b,$c)=@_;
+
+
+print '<line x1="',int($x1),'" y1="',int($y),'" x2="',int($x2),'" y2="',int($y),'" ',atos($a),'/>';
+print "\n";
+}
+
+
+sub draw_vert_line
+{
+my ($a,$x,$y1,$y2,$b,$c)=@_;
+
+print '<line x1="',int($x),'" y1="',int($y1),'" x2="',int($x),'" y2="',int($y2),'" ',atos($a),'/>';
+print "\n";
+}
+
+sub draw_box
+{
+my ($a,$y2,$x2,$y1,$x1,$b,$c)=@_;
+print '<rect x="',int($x1),'" y="',int($y1),'" width="',int($x2-$x1),'" height="',int($y2-$y1),'" ',atos($a),'/>';
+print "\n";
+}
+
+sub write_text
+{
+}
+
+sub meh
+{
+my($a,$x,$y,$b,$c)=@_;
+
+print '<circle cx="',int($x),'" cy="',int($y),'" r="1" style="fill:red"/>';
+print "\n";
+
+}
+
+
+
+print '<svg height="384" width="641" style="background:black" xmlns="http://www.w3.org/2000/svg">';
+
+my $p1=50;
+my $p2=40;
+
+  draw_horiz_line(0xfe,$p1-3,0x1fb,0x203,$p2,0);
+  draw_horiz_line(0xfe,$p1-3,0x276,0x27c,$p2,0);
+  draw_horiz_line(0xfe,$p1+32,0x1fb,0x203,$p2,0);
+  draw_horiz_line(0xfe,$p1+32,0x276,0x27c,$p2,0);
+
+meh(0xfe,0x1fa,$p1-2,$p2,0);
+meh(0xfe,0x27f,$p1-2,$p2,0);
+meh(0xfe,0x280,$p1-1,$p2,0);
+meh(0xfe,0x1f9,$p1-1,$p2,0);
+
+meh(0xfe,0x1fa,$p1+0x1f,$p2,0);
+meh(0xfe,0x27f,$p1+0x1f,$p2,0);
+meh(0xfe,0x280,$p1+0x1e,$p2,0);
+meh(0xfe,0x1f9,$p1+0x1e,$p2,0);
+
+draw_vert_line(0xfe,0x1f8,$p1,$p1+0x1d,$p2,0);
+draw_vert_line(0xfe,0x281,$p1,$p1+0x1d,$p2,0);
+
+
+
+#  draw_horiz_line(0xfe,0x17f,0,0x27f,0x11,0);
+#  draw_vert_line(0xfe,0,0,0x17f,0x11,0);
+#  draw_vert_line(0xfe,0x27f,0,0x17f,0x11,0);
+#  draw_vert_line(0xfe,0x57,0,0x50,0x11,0);
+#  draw_vert_line(0xfe,0x22c,0,0x50,0x11,0);
+#  draw_vert_line(0xfe,0x57,0x12f,0x17f,0x11,0);
+#  draw_vert_line(0xfe,0x22c,0x12f,0x17f,0x11,0);
+#  draw_horiz_line(0xfe,0x50,0,0x57,0x11,0);
+#  draw_horiz_line(0xfe,0x12f,0,0x57,0x11,0);
+#  draw_horiz_line(0xfe,0x50,0x22c,0x27f,0x11,0);
+#  draw_horiz_line(0xfe,0x12f,0x22c,0x27f,0x11,0);
+#  draw_box(0xff01,0xfe,0x128,0x82,0x92);
+#  draw_box(0xff02,0xfe,0x1f1,0x82,0x15b);
+#  draw_box(0xff01,0x122,0xc0,0x10e,0xac);
+#  draw_box(0xff02,0x122,0xe8,0x10e,0xd4);
+#  draw_box(0xff04,0x122,0x110,0x10e,0xfc);
+#  draw_box(0xff08,0x122,0x138,0x10e,0x124);
+#  draw_box(0xff10,0x122,0x160,0x10e,0x14c);
+#  draw_box(0xff20,0x122,0x188,0x10e,0x174);
+#  draw_box(0xff40,0x122,0x1b0,0x10e,0x19c);
+#  draw_box(0xff80,0x122,0x1d8,0x10e,0x1c4);
+#  draw_box(0xff01,0x71,0xc0,0x5d,0xac);
+#  draw_box(0xff02,0x71,0xe8,0x5d,0xd4);
+#  draw_box(0xff04,0x71,0x110,0x5d,0xfc);
+#  draw_box(0xff08,0x71,0x138,0x5d,0x124);
+#  draw_box(0xff10,0x71,0x160,0x5d,0x14c);
+#  draw_box(0xff20,0x71,0x188,0x5d,0x174);
+#  draw_box(0xff40,0x71,0x1b0,0x5d,0x19c);
+#  draw_box(0xff80,0x71,0x1d8,0x5d,0x1c4);
+#  write_text(0xfe,0xed,0x1e,"gys358aenrmxzcoftkh#%",1,1,0);
+#  write_text(0xfe,0xed,0x32,"gys358aenrmxzcoftkh#%",0,1,0);
+#  write_text(0xfe,0xed,0x140,"gys358aenrmxzcoftkh#%",1,1,0);
+#  write_text(0xfe,0xed,0x154,"gys358aenrmxzcoftkh#%",0,1,0);
+#  write_text(0xfe,0x1f2,0x5f,"any softkey exits",1,0,0);
+print '</svg>';