[ViewVC] Diff of: cvs/vt102/vt102

Comparing vt102/vt102 (file contents):
Revision 1.32 by root, Wed Dec 17 03:06:21 2014 UTC vs.
Revision 1.33 by root, Wed Nov 11 16:32:21 2015 UTC

    <DATA>
 };
 0x6801 == length $ROMS or die "corrupted rom image";
-my @M = (0xff) x 65536; # main memory, = (0xff) x 65536;
+my @M = (0xff) x 65536; # main memory
 # populate mem with rom contents
 if ($VT102) {
    @M[0x0000 .. 0x1fff] = unpack "C*", substr $ROMS, 0x2000, 0x2000;
    @M[0x8000 .. 0x9fff] = unpack "C*", substr $ROMS, 0x4000, 0x2000;
 sub display {
    # this is for the powersave mode - check whether the cursor is on here,
    # and only allow powersave later when it was on the last display time
    $CURSOR_IS_ON = $M[$VT102 ? 0x207b : 0x21ba];
+   my $leds = join " ", map $KSTATUS & 2**$_ ? "\e[7m$LED[$_]\e[m" : "$LED[$_]", reverse 0 .. $#LED;
+   my $scr = sprintf "\e[H--- LED [ %s ] CLK %d\e[K\n", $leds, $CLK;
+   $scr .= "\e[?5" . ($DC11_REVERSE ? "h" : "l");
    my $i = 0x2000;
-   my $leds = join " ", map $KSTATUS & 2**$_ ? "\e[7m$LED[$_]\e[m" : "$LED[$_]", reverse 0  .. $#LED;
-   my $scr = sprintf "\e[H--- LED [ %s ] CLK %d\e[K\n", $leds, $CLK;
-   $scr .= "\e[?5" . ($DC11_REVERSE ? "h" : "l");
    line:
    for my $y (0 .. 25) { # ntsc, two vblank delay lines, up to 24 text lines
       my $prev_attr;
       my ($c, $attr); # declare here for speedup
             s/\bOUT\b/sprintf "out_%02x \$A ", $M[$pc++]/xge; # out likewise
          }
          $insn .= "$op;\n";
       }
       $insn .= $pc;
       $insn =~ s/\x00.*$//s;
       eval "sub { $insn }" or die "$insn: $@"

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines