* * TEST FOR XLATE -- 8080-TO-Z80 TRANSLATOR * ; ; DEFINE SOME USEFUL CONSTANTS ; V16 EQU 6789H V8 EQU 45H ; ; LET'S DO IT -- ; ORG 100H ; ; JMPS ; JMP V16 JNZ V16 JZ V16 JNC V16 JC V16 JPO V16 JPE V16 JP V16 JM V16 pchl ;this checks for proper case conversion ; ; CALLS 'AND a proper case conversion' test ; CALL V16 CNZ V16 CZ V16 CNC V16 CC V16 CPO V16 CPE V16 CP V16 CM V16 ; ; RETS ; RET RNZ RZ RNC RC RPO RPE RP RM ; ; RESTARTS ; RST 0 RST 1 RST 2 RST 3 RST 4 RST 5 RST 6 RST 7 ; ; ROTATES ; RLC RRC RAL RAR ; ; CONTROLS ; NOP HLT DI EI ; ; MVI ; MVI B,V8 MVI C,V8 MVI D,V8 MVI E,V8 MVI H,V8 MVI L,V8 MVI M,V8 MVI A,V8 ; ; ACC IMMEDIATE ; ADI V8 ACI V8 SUI V8 SBI V8 ANI V8 XRI V8 ORI V8 CPI V8 ; ; LOAD IMMEDIATE ; LXI B,V16 LXI D,V16 LXI H,V16 LXI SP,V16 ; ; STACK OPS ; PUSH B PUSH D PUSH H PUSH PSW ; POP B POP D POP H POP PSW ; XTHL SPHL ; ; DOUBLE ADD ; DAD B DAD D DAD H DAD SP ; ; INCREMENT ; INR B INR C INR D INR E INR H INR L INR M INR A ; INX B INX D INX H INX SP ; ; DECREMENT ; DCR B DCR C DCR D DCR E DCR H DCR L DCR M DCR A ; DCX B DCX D DCX H DCX SP ; ; LOAD/STORE ; LDAX B LDAX D LHLD V16 LDA V16 ; STAX B STAX D SHLD V16 STA V16 ; ; INPUT/OUTPUT ; OUT V8 IN V8 ; ; SPECIALS ; XCHG DAA CMA STC CMC ; ; MOVE ; MOV B,B MOV B,C MOV B,D MOV B,E MOV B,H MOV B,L MOV B,M MOV B,A ; MOV C,B MOV C,C MOV C,D MOV C,E MOV C,H MOV C,L MOV C,M MOV C,A ; MOV D,B MOV D,C MOV D,D MOV D,E MOV D,H MOV D,L MOV D,M MOV D,A ; MOV E,B MOV E,C MOV E,D MOV E,E MOV E,H MOV E,L MOV E,M MOV E,A ; MOV H,B MOV H,C MOV H,D MOV H,E MOV H,H MOV H,L MOV H,M MOV H,A ; MOV L,B MOV L,C MOV L,D MOV L,E MOV L,H MOV L,L MOV L,M MOV L,A ; MOV M,B MOV M,C MOV M,D MOV M,E MOV M,H MOV M,L ;NOTE -- MOVE M,M OMITTED MOV M,A ; MOV A,B MOV A,C MOV A,D MOV A,E MOV A,H MOV A,L MOV A,M MOV A,A ; ; ACCUMULATOR ; ADD B ADD C ADD D ADD E ADD H ADD L ADD M ADD A ; ADC B ADC C ADC D ADC E ADC H ADC L ADC M ADC A ; SUB B SUB C SUB D SUB E SUB H SUB L SUB M SUB A ; SBB B SBB C SBB D SBB E SBB H SBB L SBB M SBB A ; ANA B ANA C ANA D ANA E ANA H ANA L ANA M ANA A ; XRA B XRA C XRA D XRA E XRA H XRA L XRA M XRA A ; ORA B ORA C ORA D ORA E ORA H ORA L ORA M ORA A ; CMP B CMP C CMP D CMP E CMP H CMP L CMP M CMP A ; ; PSEUDOS ; DS V8 DB V8 db 'This is another Case-Conversion Test' ;and Let's See ;if this works DW V16 ; END