| … | |
… | |
| 109 | # 8080/8085 registers |
109 | # 8080/8085 registers |
| 110 | my ($A, $B, $C, $D, $E, $H, $L); # 8 bit general purpose |
110 | my ($A, $B, $C, $D, $E, $H, $L); # 8 bit general purpose |
| 111 | my ($PC, $SP, $IFF); # program counter, stack pointer, interrupt flag |
111 | my ($PC, $SP, $IFF); # program counter, stack pointer, interrupt flag |
| 112 | my ($FA, $FZ, $FS, $FP, $FC); # condition codes (psw) |
112 | my ($FA, $FZ, $FS, $FP, $FC); # condition codes (psw) |
| 113 | |
113 | |
| 114 | my $RST = 0; # pending interrupts (8259 interrupt controller) |
114 | my $RST = 0; # pending interrupts (external interrupt logic) |
| 115 | my $INTMASK = 7; # 8085 half interrupt mask |
115 | my $INTMASK = 7; # 8085 half interrupt mask |
| 116 | my $INTPEND = 0; # 8085 half interrupts pending |
116 | my $INTPEND = 0; # 8085 half interrupts pending |
| 117 | |
117 | |
| 118 | my $CLK; # rather inexact clock, counts extended basic blocks |
118 | my $CLK; # rather inexact clock, counts extended basic blocks |
| 119 | |
119 | |
