2020
2121EOT
2222
23- # $Id: simz80.pl,v 1.2 2004/01/11 16:11:17 fdc Exp $
23+ # $Id: simz80.pl,v 1.3 2004/04/23 09:50:15 fdc Exp $
2424
2525
2626# This perl script generates the z80 instruction set simulator simz80().
@@ -1084,7 +1084,7 @@ sub ed_switch {
10841084 2 | (temp != 0 );
10851085EOT
10861086 & case (0x45 , " RETN" ); print " \t\t\t IFF |= IFF >> 1;\n\t\t\t POP(PC);\n " ;
1087- & case (0x46 , " IM 0" ); print " \t\t\t /* interrupt mode 0 */ \n " ;
1087+ & case (0x46 , " IM 0" ); print " \t\t\t IM = 0; \n " ;
10881088 & case (0x47 , " LD I,A" ); print " \t\t\t ir = (ir & 255) | (AF & ~255);\n " ;
10891089 & case (0x48 , " IN C,(C)" ); & INP (BC, " l" );
10901090 & case (0x49 , " OUT (C),C" ); & OUTP (BC, " l" );
@@ -1096,15 +1096,15 @@ sub ed_switch {
10961096 & case (0x51 , " OUT (C),D" ); & OUTP (DE, " h" );
10971097 & case (0x52 , " SBC HL,DE" ); & SBCdd (HL, DE);
10981098 & case (0x53 , " LD (nnnn),DE" ); & LDmemdd (DE);
1099- & case (0x56 , " IM 1" ); print " \t\t\t /* interrupt mode 1 */ \n " ;
1099+ & case (0x56 , " IM 1" ); print " \t\t\t IM = 1; \n " ;
11001100 & case (0x57 , " LD A,I" ); print " \t\t\t AF = (AF & 0x29) | (ir & ~255) | " ,
11011101 " ((ir >> 8) & 0x80) | (((ir & ~255) == 0) << 6)" ,
11021102 " | ((IFF & 2) << 1);\n " ;
11031103 & case (0x58 , " IN E,(C)" ); & INP (DE, " l" );
11041104 & case (0x59 , " OUT (C),E" ); & OUTP (DE, " l" );
11051105 & case (0x5A , " ADC HL,DE" ); & ADCdd (HL, DE);
11061106 & case (0x5B , " LD DE,(nnnn)" ); & LDddmem (DE);
1107- & case (0x5E , " IM 2" ); print " \t\t\t /* interrupt mode 2 */ \n " ;
1107+ & case (0x5E , " IM 2" ); print " \t\t\t IM = 2; \n " ;
11081108 & case (0x5F , " LD A,R" ); print " \t\t\t AF = (AF & 0x29) | ((ir & 255) << 8) | " ,
11091109 " (ir & 0x80) | (((ir & 255) == 0) << 6)" ,
11101110 " | ((IFF & 2) << 1);\n " ;
0 commit comments