ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/vt102/vt102
(Generate patch)

Comparing vt102/vt102 (file contents):
Revision 1.4 by root, Mon Dec 1 18:31:02 2014 UTC vs.
Revision 1.5 by root, Mon Dec 1 18:41:36 2014 UTC

… …
32my $VT102 = 1; 32my $VT102 = 1;
33my $AVO = $VT102 || 1; 33my $AVO = $VT102 || 1;
34my $KBD = 1; 34my $KBD = 1;
35 35
36############################################################################# 36#############################################################################
37 37# rom initialising
38my $PTY; # the pty we allocated, if any
39 38
40my $ROM = do { 39my $ROM = do {
41 binmode DATA; 40 binmode DATA;
42 local $/; 41 local $/;
43 <DATA> 42 <DATA>
… …
56} else { 55} else {
57 @M[0x0000 .. 0x1fff] = unpack "C*", substr $ROM, 0x0000, 0x2000; 56 @M[0x0000 .. 0x1fff] = unpack "C*", substr $ROM, 0x0000, 0x2000;
58} 57}
59 58
60############################################################################# 59#############################################################################
60# cpu registers and I/O support
61 61
62my $PTY; # the pty we allocated, if any
62my $PRSTATUS = 0; 63my $PRSTATUS = 0;
63 64
64# 8080/8085 registers 65# 8080/8085 registers
65# b, c, d, e, h, l, a 66# b, c, d, e, h, l, a
66my ($A, $B, $C, $D, $E, $H, $L, $A); 67my ($A, $B, $C, $D, $E, $H, $L, $A);
… …
73my $x; # dummy temp for instructions 74my $x; # dummy temp for instructions
74 75
75my $CLK; # rather inexact clock 76my $CLK; # rather inexact clock
76 77
77############################################################################# 78#############################################################################
79# the dreaded nvr1400 chip. not needed to get it going, but provided for reference
78 80
79# nvram 81# nvram
80my @NVR = (0x3fff) x 100; # vt102: 214e accum, 214f only lower 8 bit used, first 44 bytes 82my @NVR = (0x3fff) x 100; # vt102: 214e accum, 214f only lower 8 bit used, first 44 bytes
81my $NVRADDR; 83my $NVRADDR;
82my $NVRDATA; 84my $NVRDATA;
83my $NVRLATCH; 85my $NVRLATCH;
84 86
85#$NVR[$_] = $_ for 0..99;#d#
86
87my @NVRCMD = ( 87my @NVRCMD = (
88 sub { # accept data
89 $NVRDATA = ($NVRDATA << 1) + $_[1]; 88 sub { $NVRDATA = ($NVRDATA << 1) + $_[1]; }, # 0 accept data
90 }, 89 sub { $NVRADDR = ($NVRADDR << 1) + $_[1]; }, # 1 accept addr
91 sub { # accept addr 90 sub { ($NVRDATA <<= 1) & 0x4000 }, # 2 shift out
92 $NVRADDR = ($NVRADDR << 1)+ $_[1]; 91 undef, # 3 not used, will barf
93 },
94 sub { # shift out
95 my $bit = $NVRDATA & 0x02000;
96 $NVRDATA *= 2;
97 $bit
98 },
99 undef,
100 sub { # write
101 print "NVR WRITE $_[0]\n";#d#
102 $NVR[$_[0]] = $NVRDATA & 0x3fff; 92 sub { $NVR[$_[0]] = $NVRDATA & 0x3fff; }, # 4 write
103 }, 93 sub { $NVR[$_[0]] = 0x3fff; }, # 5 erase
104 sub { # erase 94 sub { $NVRDATA = $NVR[$_[0]]; }, # 6 read
105 print "NVR ERASE $_[0]\n";#d# 95 sub { }, # 7 standby
106 $NVR[$_[0]] = 0x3fff;
107 },
108 sub { # read
109# print "NVR READ $_[0] = $NVR[$_[0]]\n";#d#
110 $NVRDATA = $NVR[$_[0]];
111 },
112 sub { # standby
113 },
114); 96);
115 97
116my @bitidx; 98my @bitidx;
117$bitidx[1 << $_] = 9 - $_ for 0..9; 99$bitidx[1 << $_] = 9 - $_ for 0..9;
118 100
… …
453} 435}
454 436
455############################################################################# 437#############################################################################
456 438
457my @chr = ( 439my @chr = (
458 " ", 440 " " , "\x{29eb}", "\x{2592}", "\x{2409}",
459 "\x{29eb}", 441 "\x{240c}", "\x{240d}", "\x{240a}", "\x{00b0}",
460 "\x{2592}", 442 "\x{00b1}", "\x{2424}", "\x{240b}", "\x{2518}",
461 "\x{2409}", 443 "\x{2510}", "\x{250c}", "\x{2514}", "\x{253c}",
462 "\x{240c}", 444 "\x{23ba}", "\x{23bb}", "\x{2500}", "\x{23bc}",
463 "\x{240d}", 445 "\x{23bd}", "\x{251c}", "\x{2524}", "\x{2534}",
464 "\x{240a}", 446 "\x{252c}", "\x{2502}", "\x{2264}", "\x{2265}",
465 "\x{00b0}", 447 "\x{03c0}", "\x{2260}", "\x{00a3}", "\x{00b7}",
466 "\x{00b1}",
467 "\x{2424}",
468 "\x{240b}",
469 "\x{2518}",
470 "\x{2510}",
471 "\x{250c}",
472 "\x{2514}",
473 "\x{253c}",
474 "\x{23ba}",
475 "\x{23bb}",
476 "\x{2500}",
477 "\x{23bc}",
478 "\x{23bd}",
479 "\x{251c}",
480 "\x{2524}",
481 "\x{2534}",
482 "\x{252c}",
483 "\x{2502}",
484 "\x{2264}",
485 "\x{2265}",
486 "\x{03c0}",
487 "\x{2260}",
488 "\x{00a3}",
489 "\x{00b7}",
490 (map chr, 0x020 .. 0x7e), 448 (map chr, 0x020 .. 0x7e),
491 "?",
492); 449);
493 450
494utf8::encode $_ for @chr; 451utf8::encode $_ for @chr;
495 452
496sub prscr { 453sub prscr {
497 my $i = 0x2000; 454 my $i = 0x2000;
498 455
499 my $scr = sprintf "\x1b[H--- KBD %08b CLK %d PC %04x RST %03b IFF %01b PUS %02x IM %03b\x1b[K\n", $KSTATUS, $CLK, $PC, $RST, $IFF, $PUSARTCMD, $INTMASK; 456 my $scr = sprintf "\x1b[H--- KBD %08b CLK %d PC %04x RST %03b IFF %01b PUS %02x IM %03b\x1b[K\n", $KSTATUS, $CLK, $PC, $RST, $IFF, $PUSARTCMD, $INTMASK;
500 457
501 line: 458 line:
502 for my $y (0 .. 25) { 459 for my $y (0 .. 25) {
503 $scr .= sprintf "%2d |", ++$y; 460 $scr .= sprintf "%2d |", ++$y;
504 461
505 for (0..140) { 462 for (0..140) {
… …
760 717
761 $RST |= 2 if @PUSARTRECV && $XON; # VT100, but works on vt102, too (probably not used on real hardware though) 718 $RST |= 2 if @PUSARTRECV && $XON; # VT100, but works on vt102, too (probably not used on real hardware though)
762 #$INTPEND |= 2 if @PUSARTRECV && $XON; # VT102, 6.5 rxrdy 719 #$INTPEND |= 2 if @PUSARTRECV && $XON; # VT102, 6.5 rxrdy
763 720
764 # kick off vertical retrace form time to time 721 # kick off vertical retrace form time to time
765 unless ($CLK & 0x3ff) { 722 unless ($CLK & 0x1ff) {
766 $RST |= 4; # vertical retrace 723 $RST |= 4; # vertical retrace
767 } 724 }
768 725
769 # handle video hardware 726 # handle video hardware
770 727

Diff Legend

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