… | |
… | |
98 | |
98 | |
99 | ############################################################################# |
99 | ############################################################################# |
100 | # 8085 CPU registers and I/O support |
100 | # 8085 CPU registers and I/O support |
101 | |
101 | |
102 | # 8080/8085 registers |
102 | # 8080/8085 registers |
103 | # b, c, d, e, h, l, a |
|
|
104 | my ($A, $B, $C, $D, $E, $H, $L, $A); |
103 | my ($A, $B, $C, $D, $E, $H, $L); |
105 | my ($PC, $SP, $IFF, $FA, $FZ, $FS, $FP, $FC); |
104 | my ($PC, $SP, $IFF, $FA, $FZ, $FS, $FP, $FC); |
106 | |
105 | |
107 | my $RST = 0; # 8080 pending interrupts |
106 | my $RST = 0; # 8080 pending interrupts |
108 | my $INTMASK = 7; # 8085 half interrupts |
107 | my $INTMASK = 7; # 8085 half interrupts |
109 | my $INTPEND = 0; # 8085 half interrupts |
108 | my $INTPEND = 0; # 8085 half interrupts |