URL
https://opencores.org/ocsvn/am9080_cpu_based_on_microcoded_am29xx_bit-slices/am9080_cpu_based_on_microcoded_am29xx_bit-slices/trunk
Subversion Repositories am9080_cpu_based_on_microcoded_am29xx_bit-slices
[/] [am9080_cpu_based_on_microcoded_am29xx_bit-slices/] [trunk/] [prog/] [zout/] [cpudiag.bds] - Rev 3
Compare with Previous | Blame | View Log
binary-debuggable-source0000 0000 f cpudiag.asm0000 0000 s ;***********************************************************************0000 0000 s ; MICROCOSM ASSOCIATES 8080/8085 CPU DIAGNOSTIC VERSION 1.0 (C) 19800000 0000 s ;***********************************************************************0000 0000 s ;0000 0000 s ;DONATED TO THE "SIG/M" CP/M USER'S GROUP BY:0000 0000 s ;KELLY SMITH, MICROCOSM ASSOCIATES0000 0000 s ;3055 WACO AVENUE0000 0000 s ;SIMI VALLEY, CALIFORNIA, 930650000 0000 s ;(805) 527-9321 (MODEM, CP/M-NET (TM))0000 0000 s ;(805) 527-0518 (VERBAL)0000 0000 s ;0000 0000 s BDOS EQU 00005H ;BDOS ENTRY TO CP/M0000 0000 s WBOOT EQU 00000H ;RE-ENTRY TO CP/M WARM BOOT0000 0000 s ;0000 0000 s ;0000 0000 s ORG WBOOT; -- CPU starts here after reset0000 0000 d f30000 0000 s DI0001 0001 d c328000001 0001 s JMP INIT0004 0004 s ;0004 0004 s ; -- Fake "BDOS", only implement functions 2 and 9 (https://www.seasip.info/Cpm/bdos.html)0004 0004 s ;0005 0005 s ORG BDOS;0005 0005 d f50005 0005 s PUSH PSW0006 0006 d 790006 0006 s MOV A, C0007 0007 s0007 0007 d fe020007 0007 s CPI 20009 0009 d ca14000009 0009 s JZ C_WRITE000c 000c d fe09000c 000c s CPI 9000e 000e d ca1a00000e 000e s JZ C_WRITESTR0011 0011 d c326000011 0011 s JMP DONE0014 0014 s0014 0014 d 7b0014 0014 s C_WRITE: MOV A, E0015 0015 d d3000015 0015 s OUT 00H0017 0017 d c326000017 0017 s JMP DONE001a 001a s001a 001a d 1a001a 001a s C_WRITESTR: LDAX D001b 001b d fe24001b 001b s CPI '$'001d 001d d ca2600001d 001d s JZ DONE0020 0020 d d3000020 0020 s OUT 00H0022 0022 d 130022 0022 s INX D0023 0023 d c31a000023 0023 s JMP C_WRITESTR0026 0026 s0026 0026 d f10026 0026 s DONE: POP PSW0027 0027 d c90027 0027 s RET0028 0028 s0028 0028 d 2100000028 0028 s INIT: LXI H, 0000H002b 002b d 2b002b 002b s DCX H002c 002c d f9002c 002c s SPHL002d 002d d fb002d 002d s EI002e 002e d c3af01002e 002e s JMP CPU0031 0031 s ;0031 0031 s ;0031 0031 s0100 0100 s ORG 00100H0100 0100 s ;0100 0100 s ;0100 0100 s ;0100 0100 d c3af010100 0100 s JMP CPU ;JUMP TO 8080 CPU DIAGNOSTIC0103 0103 s ;0103 0103 s ;0103 0103 s ;0103 0103 d 4d4943524f434f534d204153534f43494154455320383038302f383038352043505520444941474e4f535449430103 0103 s DB 'MICROCOSM ASSOCIATES 8080/8085 CPU DIAGNOSTIC'0130 0130 d 2056455253494f4e20312e30202028432920313938300130 0130 s DB ' VERSION 1.0 (C) 1980'0146 0146 s ;0146 0146 s ;0146 0146 s ;0146 0146 s0146 0146 s ;0146 0146 s ;0146 0146 s ;0146 0146 s ;MESSAGE OUTPUT ROUTINE0146 0146 s ;0146 0146 d d50146 0146 s MSG: PUSH D ;EXILE D REG.0147 0147 d eb0147 0147 s XCHG ;SWAP H&L REGS. TO D&E REGS.0148 0148 d 0e090148 0148 s MVI C,9 ;LET BDOS KNOW WE WANT TO SEND A MESSAGE014a 014a d cd0500014a 014a s CALL BDOS014d 014d d d1014d 014d s POP D ;BACK FROM EXILE014e 014e d c9014e 014e s RET014f 014f s ;014f 014f s ;014f 014f s ;014f 014f s ;CHARACTER OUTPUT ROUTINE014f 014f s ;014f 014f d 0e02014f 014f s PCHAR: MVI C,20151 0151 d cd05000151 0151 s CALL BDOS0154 0154 d c90154 0154 s RET0155 0155 s ;0155 0155 s ;0155 0155 s ;0155 0155 d f50155 0155 s BYTEO: PUSH PSW0156 0156 d cd65010156 0156 s CALL BYTO10159 0159 d 5f0159 0159 s MOV E,A015a 015a d cd4f01015a 015a s CALL PCHAR015d 015d d f1015d 015d s POP PSW015e 015e d cd6901015e 015e s CALL BYTO20161 0161 d 5f0161 0161 s MOV E,A0162 0162 d c34f010162 0162 s JMP PCHAR0165 0165 d 0f0165 0165 s BYTO1: RRC0166 0166 d 0f0166 0166 s RRC0167 0167 d 0f0167 0167 s RRC0168 0168 d 0f0168 0168 s RRC0169 0169 d e60f0169 0169 s BYTO2: ANI 0FH016b 016b d fe0a016b 016b s CPI 0AH016d 016d d fa7201016d 016d s JM BYTO30170 0170 d c6070170 0170 s ADI 70172 0172 d c6300172 0172 s BYTO3: ADI 30H0174 0174 d c90174 0174 s RET0175 0175 s ;0175 0175 s ;0175 0175 s ;0175 0175 s ;************************************************************0175 0175 s ; MESSAGE TABLE FOR OPERATIONAL CPU TEST0175 0175 s ;************************************************************0175 0175 s ;0175 0175 d 0c0d0a20435055204953204f5045524154494f4e414c240175 0175 s OKCPU: DB 0CH,0DH,0AH,' CPU IS OPERATIONAL$'018c 018c s ;018c 018c d 0c0d0a2043505520484153204641494c454421202020204552524f5220455849543d24018c 018c s NGCPU: DB 0CH,0DH,0AH,' CPU HAS FAILED! ERROR EXIT=$'01af 01af s ;01af 01af s ;01af 01af s ;01af 01af s ;************************************************************01af 01af s ; 8080/8085 CPU TEST/DIAGNOSTIC01af 01af s ;************************************************************01af 01af s ;01af 01af s ;NOTE: (1) PROGRAM ASSUMES "CALL",AND "LXI SP" INSTRUCTIONS WORK!01af 01af s ;01af 01af s ; (2) INSTRUCTIONS NOT TESTED ARE "HLT","DI","EI","RIM","SIM",01af 01af s ; AND "RST 0" THRU "RST 7"01af 01af s ;01af 01af s ;01af 01af s ;01af 01af s ;TEST JUMP INSTRUCTIONS AND FLAGS01af 01af s ;01af 01af d 3180ff01af 01af s CPU: LXI SP,STACK ;SET THE STACK POINTER01b2 01b2 d e60001b2 01b2 s ANI 0 ;INITIALIZE A REG. AND CLEAR ALL FLAGS01b4 01b4 d caba0101b4 01b4 s JZ J010 ;TEST "JZ"01b7 01b7 d cd8d0601b7 01b7 s CALL CPUER01ba 01ba d d2c00101ba 01ba s J010: JNC J020 ;TEST "JNC"01bd 01bd d cd8d0601bd 01bd s CALL CPUER01c0 01c0 d eac60101c0 01c0 s J020: JPE J030 ;TEST "JPE"01c3 01c3 d cd8d0601c3 01c3 s CALL CPUER01c6 01c6 d f2cc0101c6 01c6 s J030: JP J040 ;TEST "JP"01c9 01c9 d cd8d0601c9 01c9 s CALL CPUER01cc 01cc d c2db0101cc 01cc s J040: JNZ J050 ;TEST "JNZ"01cf 01cf d dadb0101cf 01cf s JC J050 ;TEST "JC"01d2 01d2 d e2db0101d2 01d2 s JPO J050 ;TEST "JPO"01d5 01d5 d fadb0101d5 01d5 s JM J050 ;TEST "JM"01d8 01d8 d c3de0101d8 01d8 s JMP J060 ;TEST "JMP" (IT'S A LITTLE LATE,BUT WHAT THE HELL!01db 01db d cd8d0601db 01db s J050: CALL CPUER01de 01de d c60601de 01de s J060: ADI 6 ;A=6,C=0,P=1,S=0,Z=001e0 01e0 d c2e60101e0 01e0 s JNZ J070 ;TEST "JNZ"01e3 01e3 d cd8d0601e3 01e3 s CALL CPUER01e6 01e6 d daef0101e6 01e6 s J070: JC J080 ;TEST "JC"01e9 01e9 d e2ef0101e9 01e9 s JPO J080 ;TEST "JPO"01ec 01ec d f2f20101ec 01ec s JP J090 ;TEST "JP"01ef 01ef d cd8d0601ef 01ef s J080: CALL CPUER01f2 01f2 d c67001f2 01f2 s J090: ADI 070H ;A=76H,C=0,P=0,S=0,Z=001f4 01f4 d e2fa0101f4 01f4 s JPO J100 ;TEST "JPO"01f7 01f7 d cd8d0601f7 01f7 s CALL CPUER01fa 01fa d fa030201fa 01fa s J100: JM J110 ;TEST "JM"01fd 01fd d ca030201fd 01fd s JZ J110 ;TEST "JZ"0200 0200 d d206020200 0200 s JNC J120 ;TEST "JNC"0203 0203 d cd8d060203 0203 s J110: CALL CPUER0206 0206 d c6810206 0206 s J120: ADI 081H ;A=F7H,C=0,P=0,S=1,Z=00208 0208 d fa0e020208 0208 s JM J130 ;TEST "JM"020b 020b d cd8d06020b 020b s CALL CPUER020e 020e d ca1702020e 020e s J130: JZ J140 ;TEST "JZ"0211 0211 d da17020211 0211 s JC J140 ;TEST "JC"0214 0214 d e21a020214 0214 s JPO J150 ;TEST "JPO"0217 0217 d cd8d060217 0217 s J140: CALL CPUER021a 021a d c6fe021a 021a s J150: ADI 0FEH ;A=F5H,C=1,P=1,S=1,Z=0021c 021c d da2202021c 021c s JC J160 ;TEST "JC"021f 021f d cd8d06021f 021f s CALL CPUER0222 0222 d ca2b020222 0222 s J160: JZ J170 ;TEST "JZ"0225 0225 d e22b020225 0225 s JPO J170 ;TEST "JPO"0228 0228 d fa2e020228 0228 s JM AIMM ;TEST "JM"022b 022b d cd8d06022b 022b s J170: CALL CPUER022e 022e s ;022e 022e s ;022e 022e s ;022e 022e s ;TEST ACCUMULATOR IMMEDIATE INSTRUCTIONS022e 022e s ;022e 022e d fe00022e 022e s AIMM: CPI 0 ;A=F5H,C=0,Z=00230 0230 d da46020230 0230 s JC CPIE ;TEST "CPI" FOR RE-SET CARRY0233 0233 d ca46020233 0233 s JZ CPIE ;TEST "CPI" FOR RE-SET ZERO0236 0236 d fef50236 0236 s CPI 0F5H ;A=F5H,C=0,Z=10238 0238 d da46020238 0238 s JC CPIE ;TEST "CPI" FOR RE-SET CARRY ("ADI")023b 023b d c24602023b 023b s JNZ CPIE ;TEST "CPI" FOR RE-SET ZERO023e 023e d feff023e 023e s CPI 0FFH ;A=F5H,C=1,Z=00240 0240 d ca46020240 0240 s JZ CPIE ;TEST "CPI" FOR RE-SET ZERO0243 0243 d da49020243 0243 s JC ACII ;TEST "CPI" FOR SET CARRY0246 0246 d cd8d060246 0246 s CPIE: CALL CPUER0249 0249 d ce0a0249 0249 s ACII: ACI 00AH ;A=F5H+0AH+CARRY(1)=0,C=1024b 024b d ce0a024b 024b s ACI 00AH ;A=0+0AH+CARRY(0)=0BH,C=0024d 024d d fe0b024d 024d s CPI 00BH024f 024f d ca5502024f 024f s JZ SUII ;TEST "ACI"0252 0252 d cd8d060252 0252 s CALL CPUER0255 0255 d d60c0255 0255 s SUII: SUI 00CH ;A=FFH,C=00257 0257 d d60f0257 0257 s SUI 00FH ;A=F0H,C=10259 0259 d fef00259 0259 s CPI 0F0H025b 025b d ca6102025b 025b s JZ SBII ;TEST "SUI"025e 025e d cd8d06025e 025e s CALL CPUER0261 0261 d def10261 0261 s SBII: SBI 0F1H ;A=F0H-0F1H-CARRY(0)=FFH,C=10263 0263 d de0e0263 0263 s SBI 00EH ;A=FFH-OEH-CARRY(1)=F0H,C=00265 0265 d fef00265 0265 s CPI 0F0H0267 0267 d ca6d020267 0267 s JZ ANII ;TEST "SBI"026a 026a d cd8d06026a 026a s CALL CPUER026d 026d d e655026d 026d s ANII: ANI 055H ;A=F0H<AND>55H=50H,C=0,P=1,S=0,Z=0026f 026f d fe50026f 026f s CPI 050H0271 0271 d ca77020271 0271 s JZ ORII ;TEST "ANI"0274 0274 d cd8d060274 0274 s CALL CPUER0277 0277 d f63a0277 0277 s ORII: ORI 03AH ;A=50H<OR>3AH=7AH,C=0,P=0,S=0,Z=00279 0279 d fe7a0279 0279 s CPI 07AH027b 027b d ca8102027b 027b s JZ XRII ;TEST "ORI"027e 027e d cd8d06027e 027e s CALL CPUER0281 0281 d ee0f0281 0281 s XRII: XRI 00FH ;A=7AH<XOR>0FH=75H,C=0,P=0,S=0,Z=00283 0283 d fe750283 0283 s CPI 075H0285 0285 d ca8b020285 0285 s JZ C010 ;TEST "XRI"0288 0288 d cd8d060288 0288 s CALL CPUER028b 028b s ;028b 028b s ;028b 028b s ;028b 028b s ;TEST CALLS AND RETURNS028b 028b s ;028b 028b d e600028b 028b s C010: ANI 000H ;A=0,C=0,P=1,S=0,Z=1028d 028d d dc8d06028d 028d s CC CPUER ;TEST "CC"0290 0290 d e48d060290 0290 s CPO CPUER ;TEST "CPO"0293 0293 d fc8d060293 0293 s CM CPUER ;TEST "CM"0296 0296 d c48d060296 0296 s CNZ CPUER ;TEST "CNZ"0299 0299 d fe000299 0299 s CPI 000H029b 029b d caa102029b 029b s JZ C020 ;A=0,C=0,P=0,S=0,Z=1029e 029e d cd8d06029e 029e s CALL CPUER02a1 02a1 d d67702a1 02a1 s C020: SUI 077H ;A=89H,C=1,P=0,S=1,Z=002a3 02a3 d d48d0602a3 02a3 s CNC CPUER ;TEST "CNC"02a6 02a6 d ec8d0602a6 02a6 s CPE CPUER ;TEST "CPE"02a9 02a9 d f48d0602a9 02a9 s CP CPUER ;TEST "CP"02ac 02ac d cc8d0602ac 02ac s CZ CPUER ;TEST "CZ"02af 02af d fe8902af 02af s CPI 089H02b1 02b1 d cab70202b1 02b1 s JZ C030 ;TEST FOR "CALLS" TAKING BRANCH02b4 02b4 d cd8d0602b4 02b4 s CALL CPUER02b7 02b7 d e6ff02b7 02b7 s C030: ANI 0FFH ;SET FLAGS BACK!02b9 02b9 d e4c40202b9 02b9 s CPO CPOI ;TEST "CPO"02bc 02bc d fed902bc 02bc s CPI 0D9H02be 02be d ca210302be 02be s JZ MOVI ;TEST "CALL" SEQUENCE SUCCESS02c1 02c1 d cd8d0602c1 02c1 s CALL CPUER02c4 02c4 d e802c4 02c4 s CPOI: RPE ;TEST "RPE"02c5 02c5 d c61002c5 02c5 s ADI 010H ;A=99H,C=0,P=0,S=1,Z=002c7 02c7 d ecd00202c7 02c7 s CPE CPEI ;TEST "CPE"02ca 02ca d c60202ca 02ca s ADI 002H ;A=D9H,C=0,P=0,S=1,Z=002cc 02cc d e002cc 02cc s RPO ;TEST "RPO"02cd 02cd d cd8d0602cd 02cd s CALL CPUER02d0 02d0 d e002d0 02d0 s CPEI: RPO ;TEST "RPO"02d1 02d1 d c62002d1 02d1 s ADI 020H ;A=B9H,C=0,P=0,S=1,Z=002d3 02d3 d fcdc0202d3 02d3 s CM CMI ;TEST "CM"02d6 02d6 d c60402d6 02d6 s ADI 004H ;A=D7H,C=0,P=1,S=1,Z=002d8 02d8 d e802d8 02d8 s RPE ;TEST "RPE"02d9 02d9 d cd8d0602d9 02d9 s CALL CPUER02dc 02dc d f002dc 02dc s CMI: RP ;TEST "RP"02dd 02dd d c68002dd 02dd s ADI 080H ;A=39H,C=1,P=1,S=0,Z=002df 02df d f4e80202df 02df s CP TCPI ;TEST "CP"02e2 02e2 d c68002e2 02e2 s ADI 080H ;A=D3H,C=0,P=0,S=1,Z=002e4 02e4 d f802e4 02e4 s RM ;TEST "RM"02e5 02e5 d cd8d0602e5 02e5 s CALL CPUER02e8 02e8 d f802e8 02e8 s TCPI: RM ;TEST "RM"02e9 02e9 d c64002e9 02e9 s ADI 040H ;A=79H,C=0,P=0,S=0,Z=002eb 02eb d d4f40202eb 02eb s CNC CNCI ;TEST "CNC"02ee 02ee d c64002ee 02ee s ADI 040H ;A=53H,C=0,P=1,S=0,Z=002f0 02f0 d f002f0 02f0 s RP ;TEST "RP"02f1 02f1 d cd8d0602f1 02f1 s CALL CPUER02f4 02f4 d d802f4 02f4 s CNCI: RC ;TEST "RC"02f5 02f5 d c68f02f5 02f5 s ADI 08FH ;A=08H,C=1,P=0,S=0,Z=002f7 02f7 d dc000302f7 02f7 s CC CCI ;TEST "CC"02fa 02fa d d60202fa 02fa s SUI 002H ;A=13H,C=0,P=0,S=0,Z=002fc 02fc d d002fc 02fc s RNC ;TEST "RNC"02fd 02fd d cd8d0602fd 02fd s CALL CPUER0300 0300 d d00300 0300 s CCI: RNC ;TEST "RNC"0301 0301 d c6f70301 0301 s ADI 0F7H ;A=FFH,C=0,P=1,S=1,Z=00303 0303 d c40c030303 0303 s CNZ CNZI ;TEST "CNZ"0306 0306 d c6fe0306 0306 s ADI 0FEH ;A=15H,C=1,P=0,S=0,Z=00308 0308 d d80308 0308 s RC ;TEST "RC"0309 0309 d cd8d060309 0309 s CALL CPUER030c 030c d c8030c 030c s CNZI: RZ ;TEST "RZ"030d 030d d c601030d 030d s ADI 001H ;A=00H,C=1,P=1,S=0,Z=1030f 030f d cc1803030f 030f s CZ CZI ;TEST "CZ"0312 0312 d c6d00312 0312 s ADI 0D0H ;A=17H,C=1,P=1,S=0,Z=00314 0314 d c00314 0314 s RNZ ;TEST "RNZ"0315 0315 d cd8d060315 0315 s CALL CPUER0318 0318 d c00318 0318 s CZI: RNZ ;TEST "RNZ"0319 0319 d c6470319 0319 s ADI 047H ;A=47H,C=0,P=1,S=0,Z=0031b 031b d fe47031b 031b s CPI 047H ;A=47H,C=0,P=1,S=0,Z=1031d 031d d c8031d 031d s RZ ;TEST "RZ"031e 031e d cd8d06031e 031e s CALL CPUER0321 0321 s ;0321 0321 s ;0321 0321 s ;0321 0321 s ;TEST "MOV","INR",AND "DCR" INSTRUCTIONS0321 0321 s ;0321 0321 d 3e770321 0321 s MOVI: MVI A,077H0323 0323 d 3c0323 0323 s INR A0324 0324 d 470324 0324 s MOV B,A0325 0325 d 040325 0325 s INR B0326 0326 d 480326 0326 s MOV C,B0327 0327 d 0d0327 0327 s DCR C0328 0328 d 510328 0328 s MOV D,C0329 0329 d 5a0329 0329 s MOV E,D032a 032a d 63032a 032a s MOV H,E032b 032b d 6c032b 032b s MOV L,H032c 032c d 7d032c 032c s MOV A,L ;TEST "MOV" A,L,H,E,D,C,B,A032d 032d d 3d032d 032d s DCR A032e 032e d 4f032e 032e s MOV C,A032f 032f d 59032f 032f s MOV E,C0330 0330 d 6b0330 0330 s MOV L,E0331 0331 d 450331 0331 s MOV B,L0332 0332 d 500332 0332 s MOV D,B0333 0333 d 620333 0333 s MOV H,D0334 0334 d 7c0334 0334 s MOV A,H ;TEST "MOV" A,H,D,B,L,E,C,A0335 0335 d 570335 0335 s MOV D,A0336 0336 d 140336 0336 s INR D0337 0337 d 6a0337 0337 s MOV L,D0338 0338 d 4d0338 0338 s MOV C,L0339 0339 d 0c0339 0339 s INR C033a 033a d 61033a 033a s MOV H,C033b 033b d 44033b 033b s MOV B,H033c 033c d 05033c 033c s DCR B033d 033d d 58033d 033d s MOV E,B033e 033e d 7b033e 033e s MOV A,E ;TEST "MOV" A,E,B,H,C,L,D,A033f 033f d 5f033f 033f s MOV E,A0340 0340 d 1c0340 0340 s INR E0341 0341 d 430341 0341 s MOV B,E0342 0342 d 600342 0342 s MOV H,B0343 0343 d 240343 0343 s INR H0344 0344 d 4c0344 0344 s MOV C,H0345 0345 d 690345 0345 s MOV L,C0346 0346 d 550346 0346 s MOV D,L0347 0347 d 150347 0347 s DCR D0348 0348 d 7a0348 0348 s MOV A,D ;TEST "MOV" A,D,L,C,H,B,E,A0349 0349 d 670349 0349 s MOV H,A034a 034a d 25034a 034a s DCR H034b 034b d 54034b 034b s MOV D,H034c 034c d 42034c 034c s MOV B,D034d 034d d 68034d 034d s MOV L,B034e 034e d 2c034e 034e s INR L034f 034f d 5d034f 034f s MOV E,L0350 0350 d 1d0350 0350 s DCR E0351 0351 d 4b0351 0351 s MOV C,E0352 0352 d 790352 0352 s MOV A,C ;TEST "MOV" A,C,E,L,B,D,H,A0353 0353 d 6f0353 0353 s MOV L,A0354 0354 d 2d0354 0354 s DCR L0355 0355 d 650355 0355 s MOV H,L0356 0356 d 5c0356 0356 s MOV E,H0357 0357 d 530357 0357 s MOV D,E0358 0358 d 4a0358 0358 s MOV C,D0359 0359 d 410359 0359 s MOV B,C035a 035a d 78035a 035a s MOV A,B035b 035b d fe77035b 035b s CPI 077H035d 035d d c48d06035d 035d s CNZ CPUER ;TEST "MOV" A,B,C,D,E,H,L,A0360 0360 s ;0360 0360 s ;0360 0360 s ;0360 0360 s ;TEST ARITHMETIC AND LOGIC INSTRUCTIONS0360 0360 s ;0360 0360 d af0360 0360 s XRA A0361 0361 d 06010361 0361 s MVI B,001H0363 0363 d 0e030363 0363 s MVI C,003H0365 0365 d 16070365 0365 s MVI D,007H0367 0367 d 1e0f0367 0367 s MVI E,00FH0369 0369 d 261f0369 0369 s MVI H,01FH036b 036b d 2e3f036b 036b s MVI L,03FH036d 036d d 80036d 036d s ADD B036e 036e d 81036e 036e s ADD C036f 036f d 82036f 036f s ADD D0370 0370 d 830370 0370 s ADD E0371 0371 d 840371 0371 s ADD H0372 0372 d 850372 0372 s ADD L0373 0373 d 870373 0373 s ADD A0374 0374 d fef00374 0374 s CPI 0F0H0376 0376 d c48d060376 0376 s CNZ CPUER ;TEST "ADD" B,C,D,E,H,L,A0379 0379 d 900379 0379 s SUB B037a 037a d 91037a 037a s SUB C037b 037b d 92037b 037b s SUB D037c 037c d 93037c 037c s SUB E037d 037d d 94037d 037d s SUB H037e 037e d 95037e 037e s SUB L037f 037f d fe78037f 037f s CPI 078H0381 0381 d c48d060381 0381 s CNZ CPUER ;TEST "SUB" B,C,D,E,H,L0384 0384 d 970384 0384 s SUB A0385 0385 d c48d060385 0385 s CNZ CPUER ;TEST "SUB" A0388 0388 d 3e800388 0388 s MVI A,080H038a 038a d 87038a 038a s ADD A038b 038b d 0601038b 038b s MVI B,001H038d 038d d 0e02038d 038d s MVI C,002H038f 038f d 1603038f 038f s MVI D,003H0391 0391 d 1e040391 0391 s MVI E,004H0393 0393 d 26050393 0393 s MVI H,005H0395 0395 d 2e060395 0395 s MVI L,006H0397 0397 d 880397 0397 s ADC B0398 0398 d 06800398 0398 s MVI B,080H039a 039a d 80039a 039a s ADD B039b 039b d 80039b 039b s ADD B039c 039c d 89039c 039c s ADC C039d 039d d 80039d 039d s ADD B039e 039e d 80039e 039e s ADD B039f 039f d 8a039f 039f s ADC D03a0 03a0 d 8003a0 03a0 s ADD B03a1 03a1 d 8003a1 03a1 s ADD B03a2 03a2 d 8b03a2 03a2 s ADC E03a3 03a3 d 8003a3 03a3 s ADD B03a4 03a4 d 8003a4 03a4 s ADD B03a5 03a5 d 8c03a5 03a5 s ADC H03a6 03a6 d 8003a6 03a6 s ADD B03a7 03a7 d 8003a7 03a7 s ADD B03a8 03a8 d 8d03a8 03a8 s ADC L03a9 03a9 d 8003a9 03a9 s ADD B03aa 03aa d 8003aa 03aa s ADD B03ab 03ab d 8f03ab 03ab s ADC A03ac 03ac d fe3703ac 03ac s CPI 037H03ae 03ae d c48d0603ae 03ae s CNZ CPUER ;TEST "ADC" B,C,D,E,H,L,A03b1 03b1 d 3e8003b1 03b1 s MVI A,080H03b3 03b3 d 8703b3 03b3 s ADD A03b4 03b4 d 060103b4 03b4 s MVI B,001H03b6 03b6 d 9803b6 03b6 s SBB B03b7 03b7 d 06ff03b7 03b7 s MVI B,0FFH03b9 03b9 d 8003b9 03b9 s ADD B03ba 03ba d 9903ba 03ba s SBB C03bb 03bb d 8003bb 03bb s ADD B03bc 03bc d 9a03bc 03bc s SBB D03bd 03bd d 8003bd 03bd s ADD B03be 03be d 9b03be 03be s SBB E03bf 03bf d 8003bf 03bf s ADD B03c0 03c0 d 9c03c0 03c0 s SBB H03c1 03c1 d 8003c1 03c1 s ADD B03c2 03c2 d 9d03c2 03c2 s SBB L03c3 03c3 d fee003c3 03c3 s CPI 0E0H03c5 03c5 d c48d0603c5 03c5 s CNZ CPUER ;TEST "SBB" B,C,D,E,H,L03c8 03c8 d 3e8003c8 03c8 s MVI A,080H03ca 03ca d 8703ca 03ca s ADD A03cb 03cb d 9f03cb 03cb s SBB A03cc 03cc d feff03cc 03cc s CPI 0FFH03ce 03ce d c48d0603ce 03ce s CNZ CPUER ;TEST "SBB" A03d1 03d1 d 3eff03d1 03d1 s MVI A,0FFH03d3 03d3 d 06fe03d3 03d3 s MVI B,0FEH03d5 03d5 d 0efc03d5 03d5 s MVI C,0FCH03d7 03d7 d 16ef03d7 03d7 s MVI D,0EFH03d9 03d9 d 1e7f03d9 03d9 s MVI E,07FH03db 03db d 26f403db 03db s MVI H,0F4H03dd 03dd d 2ebf03dd 03dd s MVI L,0BFH03df 03df d a703df 03df s ANA A03e0 03e0 d a103e0 03e0 s ANA C03e1 03e1 d a203e1 03e1 s ANA D03e2 03e2 d a303e2 03e2 s ANA E03e3 03e3 d a403e3 03e3 s ANA H03e4 03e4 d a503e4 03e4 s ANA L03e5 03e5 d a703e5 03e5 s ANA A03e6 03e6 d fe2403e6 03e6 s CPI 024H03e8 03e8 d c48d0603e8 03e8 s CNZ CPUER ;TEST "ANA" B,C,D,E,H,L,A03eb 03eb d af03eb 03eb s XRA A03ec 03ec d 060103ec 03ec s MVI B,001H03ee 03ee d 0e0203ee 03ee s MVI C,002H03f0 03f0 d 160403f0 03f0 s MVI D,004H03f2 03f2 d 1e0803f2 03f2 s MVI E,008H03f4 03f4 d 261003f4 03f4 s MVI H,010H03f6 03f6 d 2e2003f6 03f6 s MVI L,020H03f8 03f8 d b003f8 03f8 s ORA B03f9 03f9 d b103f9 03f9 s ORA C03fa 03fa d b203fa 03fa s ORA D03fb 03fb d b303fb 03fb s ORA E03fc 03fc d b403fc 03fc s ORA H03fd 03fd d b503fd 03fd s ORA L03fe 03fe d b703fe 03fe s ORA A03ff 03ff d fe3f03ff 03ff s CPI 03FH0401 0401 d c48d060401 0401 s CNZ CPUER ;TEST "ORA" B,C,D,E,H,L,A0404 0404 d 3e000404 0404 s MVI A,000H0406 0406 d 268f0406 0406 s MVI H,08FH0408 0408 d 2e4f0408 0408 s MVI L,04FH040a 040a d a8040a 040a s XRA B040b 040b d a9040b 040b s XRA C040c 040c d aa040c 040c s XRA D040d 040d d ab040d 040d s XRA E040e 040e d ac040e 040e s XRA H040f 040f d ad040f 040f s XRA L0410 0410 d fecf0410 0410 s CPI 0CFH0412 0412 d c48d060412 0412 s CNZ CPUER ;TEST "XRA" B,C,D,E,H,L0415 0415 d af0415 0415 s XRA A0416 0416 d c48d060416 0416 s CNZ CPUER ;TEST "XRA" A0419 0419 d 06440419 0419 s MVI B,044H041b 041b d 0e45041b 041b s MVI C,045H041d 041d d 1646041d 041d s MVI D,046H041f 041f d 1e47041f 041f s MVI E,047H0421 0421 s ;MVI H,(TEMP0 / 0FFH) ;HIGH BYTE OF TEST MEMORY LOCATION0421 0421 d 26ff0421 0421 s MVI H,(TEMP0 >> 8) ;HIGH BYTE OF TEST MEMORY LOCATION0423 0423 d 2e020423 0423 s MVI L,(TEMP0 AND 0FFH) ;LOW BYTE OF TEST MEMORY LOCATION0425 0425 d 700425 0425 s MOV M,B0426 0426 d 06000426 0426 s MVI B,000H0428 0428 d 460428 0428 s MOV B,M0429 0429 d 3e440429 0429 s MVI A,044H042b 042b d b8042b 042b s CMP B042c 042c d c48d06042c 042c s CNZ CPUER ;TEST "MOV" M,B AND B,M042f 042f d 72042f 042f s MOV M,D0430 0430 d 16000430 0430 s MVI D,000H0432 0432 d 560432 0432 s MOV D,M0433 0433 d 3e460433 0433 s MVI A,046H0435 0435 d ba0435 0435 s CMP D0436 0436 d c48d060436 0436 s CNZ CPUER ;TEST "MOV" M,D AND D,M0439 0439 d 730439 0439 s MOV M,E043a 043a d 1e00043a 043a s MVI E,000H043c 043c d 5e043c 043c s MOV E,M043d 043d d 3e47043d 043d s MVI A,047H043f 043f d bb043f 043f s CMP E0440 0440 d c48d060440 0440 s CNZ CPUER ;TEST "MOV" M,E AND E,M0443 0443 d 740443 0443 s MOV M,H0444 0444 s ;MVI H,(TEMP0 / 0FFH)0444 0444 d 26ff0444 0444 s MVI H,(TEMP0 >> 8)0446 0446 d 2e020446 0446 s MVI L,(TEMP0 AND 0FFH)0448 0448 d 660448 0448 s MOV H,M0449 0449 s ;MVI A,(TEMP0 / 0FFH)0449 0449 d 3eff0449 0449 s MVI A,(TEMP0 >> 8)044b 044b d bc044b 044b s CMP H044c 044c d c48d06044c 044c s CNZ CPUER ;TEST "MOV" M,H AND H,M044f 044f d 75044f 044f s MOV M,L0450 0450 s ;MVI H,(TEMP0 / 0FFH)0450 0450 d 26ff0450 0450 s MVI H,(TEMP0 >> 8)0452 0452 d 2e020452 0452 s MVI L,(TEMP0 AND 0FFH)0454 0454 d 6e0454 0454 s MOV L,M0455 0455 d 3e020455 0455 s MVI A,(TEMP0 AND 0FFH)0457 0457 d bd0457 0457 s CMP L0458 0458 d c48d060458 0458 s CNZ CPUER ;TEST "MOV" M,L AND L,M045b 045b s ;MVI H,(TEMP0 / 0FFH)045b 045b d 26ff045b 045b s MVI H,(TEMP0 >> 8)045d 045d d 2e02045d 045d s MVI L,(TEMP0 AND 0FFH)045f 045f d 3e32045f 045f s MVI A,032H0461 0461 d 770461 0461 s MOV M,A0462 0462 d be0462 0462 s CMP M0463 0463 d c48d060463 0463 s CNZ CPUER ;TEST "MOV" M,A0466 0466 d 860466 0466 s ADD M0467 0467 d fe640467 0467 s CPI 064H0469 0469 d c48d060469 0469 s CNZ CPUER ;TEST "ADD" M046c 046c d af046c 046c s XRA A046d 046d d 7e046d 046d s MOV A,M046e 046e d fe32046e 046e s CPI 032H0470 0470 d c48d060470 0470 s CNZ CPUER ;TEST "MOV" A,M0473 0473 s ;MVI H,(TEMP0 / 0FFH)0473 0473 d 26ff0473 0473 s MVI H,(TEMP0 >> 8)0475 0475 d 2e020475 0475 s MVI L,(TEMP0 AND 0FFH)0477 0477 d 7e0477 0477 s MOV A,M0478 0478 d 960478 0478 s SUB M0479 0479 d c48d060479 0479 s CNZ CPUER ;TEST "SUB" M047c 047c d 3e80047c 047c s MVI A,080H047e 047e d 87047e 047e s ADD A047f 047f d 8e047f 047f s ADC M0480 0480 d fe330480 0480 s CPI 033H0482 0482 d c48d060482 0482 s CNZ CPUER ;TEST "ADC" M0485 0485 d 3e800485 0485 s MVI A,080H0487 0487 d 870487 0487 s ADD A0488 0488 d 9e0488 0488 s SBB M0489 0489 d fecd0489 0489 s CPI 0CDH048b 048b d c48d06048b 048b s CNZ CPUER ;TEST "SBB" M048e 048e d a6048e 048e s ANA M048f 048f d c48d06048f 048f s CNZ CPUER ;TEST "ANA" M0492 0492 d 3e250492 0492 s MVI A,025H0494 0494 d b60494 0494 s ORA M0495 0495 d fe370495 0495 s CPI 037H0497 0497 d c48d060497 0497 s CNZ CPUER ;TEST "ORA" M049a 049a d ae049a 049a s XRA M049b 049b d fe05049b 049b s CPI 005H049d 049d d c48d06049d 049d s CNZ CPUER ;TEST "XRA" M04a0 04a0 d 365504a0 04a0 s MVI M,055H04a2 04a2 d 3404a2 04a2 s INR M04a3 04a3 d 3504a3 04a3 s DCR M04a4 04a4 d 8604a4 04a4 s ADD M04a5 04a5 d fe5a04a5 04a5 s CPI 05AH04a7 04a7 d c48d0604a7 04a7 s CNZ CPUER ;TEST "INR","DCR",AND "MVI" M04aa 04aa d 01ff1204aa 04aa s LXI B,12FFH04ad 04ad d 11ff1204ad 04ad s LXI D,12FFH04b0 04b0 d 21ff1204b0 04b0 s LXI H,12FFH04b3 04b3 d 0304b3 04b3 s INX B04b4 04b4 d 1304b4 04b4 s INX D04b5 04b5 d 2304b5 04b5 s INX H04b6 04b6 d 3e1304b6 04b6 s MVI A,013H04b8 04b8 d b804b8 04b8 s CMP B04b9 04b9 d c48d0604b9 04b9 s CNZ CPUER ;TEST "LXI" AND "INX" B04bc 04bc d ba04bc 04bc s CMP D04bd 04bd d c48d0604bd 04bd s CNZ CPUER ;TEST "LXI" AND "INX" D04c0 04c0 d bc04c0 04c0 s CMP H04c1 04c1 d c48d0604c1 04c1 s CNZ CPUER ;TEST "LXI" AND "INX" H04c4 04c4 d 3e0004c4 04c4 s MVI A,000H04c6 04c6 d b904c6 04c6 s CMP C04c7 04c7 d c48d0604c7 04c7 s CNZ CPUER ;TEST "LXI" AND "INX" B04ca 04ca d bb04ca 04ca s CMP E04cb 04cb d c48d0604cb 04cb s CNZ CPUER ;TEST "LXI" AND "INX" D04ce 04ce d bd04ce 04ce s CMP L04cf 04cf d c48d0604cf 04cf s CNZ CPUER ;TEST "LXI" AND "INX" H04d2 04d2 d 0b04d2 04d2 s DCX B04d3 04d3 d 1b04d3 04d3 s DCX D04d4 04d4 d 2b04d4 04d4 s DCX H04d5 04d5 d 3e1204d5 04d5 s MVI A,012H04d7 04d7 d b804d7 04d7 s CMP B04d8 04d8 d c48d0604d8 04d8 s CNZ CPUER ;TEST "DCX" B04db 04db d ba04db 04db s CMP D04dc 04dc d c48d0604dc 04dc s CNZ CPUER ;TEST "DCX" D04df 04df d bc04df 04df s CMP H04e0 04e0 d c48d0604e0 04e0 s CNZ CPUER ;TEST "DCX" H04e3 04e3 d 3eff04e3 04e3 s MVI A,0FFH04e5 04e5 d b904e5 04e5 s CMP C04e6 04e6 d c48d0604e6 04e6 s CNZ CPUER ;TEST "DCX" B04e9 04e9 d bb04e9 04e9 s CMP E04ea 04ea d c48d0604ea 04ea s CNZ CPUER ;TEST "DCX" D04ed 04ed d bd04ed 04ed s CMP L04ee 04ee d c48d0604ee 04ee s CNZ CPUER ;TEST "DCX" H04f1 04f1 d 3202ff04f1 04f1 s STA TEMP004f4 04f4 d af04f4 04f4 s XRA A04f5 04f5 d 3a02ff04f5 04f5 s LDA TEMP004f8 04f8 d feff04f8 04f8 s CPI 0FFH04fa 04fa d c48d0604fa 04fa s CNZ CPUER ;TEST "LDA" AND "STA"04fd 04fd d 2a00ff04fd 04fd s LHLD TEMPP0500 0500 d 2202ff0500 0500 s SHLD TEMP00503 0503 d 3a00ff0503 0503 s LDA TEMPP0506 0506 d 470506 0506 s MOV B,A0507 0507 d 3a02ff0507 0507 s LDA TEMP0050a 050a d b8050a 050a s CMP B050b 050b d c48d06050b 050b s CNZ CPUER ;TEST "LHLD" AND "SHLD"050e 050e d 3a01ff050e 050e s LDA TEMPP+10511 0511 d 470511 0511 s MOV B,A0512 0512 d 3a03ff0512 0512 s LDA TEMP0+10515 0515 d b80515 0515 s CMP B0516 0516 d c48d060516 0516 s CNZ CPUER ;TEST "LHLD" AND "SHLD"0519 0519 d 3eaa0519 0519 s MVI A,0AAH051b 051b d 3202ff051b 051b s STA TEMP0051e 051e d 44051e 051e s MOV B,H051f 051f d 4d051f 051f s MOV C,L0520 0520 d af0520 0520 s XRA A0521 0521 d 0a0521 0521 s LDAX B0522 0522 d feaa0522 0522 s CPI 0AAH0524 0524 d c48d060524 0524 s CNZ CPUER ;TEST "LDAX" B0527 0527 d 3c0527 0527 s INR A0528 0528 d 020528 0528 s STAX B0529 0529 d 3a02ff0529 0529 s LDA TEMP0052c 052c d feab052c 052c s CPI 0ABH052e 052e d c48d06052e 052e s CNZ CPUER ;TEST "STAX" B0531 0531 d 3e770531 0531 s MVI A,077H0533 0533 d 3202ff0533 0533 s STA TEMP00536 0536 d 2a00ff0536 0536 s LHLD TEMPP0539 0539 d 1100000539 0539 s LXI D,00000H053c 053c d eb053c 053c s XCHG053d 053d d af053d 053d s XRA A053e 053e d 1a053e 053e s LDAX D053f 053f d fe77053f 053f s CPI 077H0541 0541 d c48d060541 0541 s CNZ CPUER ;TEST "LDAX" D AND "XCHG"0544 0544 d af0544 0544 s XRA A0545 0545 d 840545 0545 s ADD H0546 0546 d 850546 0546 s ADD L0547 0547 d c48d060547 0547 s CNZ CPUER ;TEST "XCHG"054a 054a d 3ecc054a 054a s MVI A,0CCH054c 054c d 12054c 054c s STAX D054d 054d d 3a02ff054d 054d s LDA TEMP00550 0550 d fecc0550 0550 s CPI 0CCH0552 0552 d 120552 0552 s STAX D0553 0553 d 3a02ff0553 0553 s LDA TEMP00556 0556 d fecc0556 0556 s CPI 0CCH0558 0558 d c48d060558 0558 s CNZ CPUER ;TEST "STAX" D055b 055b d 217777055b 055b s LXI H,07777H055e 055e d 29055e 055e s DAD H055f 055f d 3eee055f 055f s MVI A,0EEH0561 0561 d bc0561 0561 s CMP H0562 0562 d c48d060562 0562 s CNZ CPUER ;TEST "DAD" H0565 0565 d bd0565 0565 s CMP L0566 0566 d c48d060566 0566 s CNZ CPUER ;TEST "DAD" H0569 0569 d 2155550569 0569 s LXI H,05555H056c 056c d 01ffff056c 056c s LXI B,0FFFFH056f 056f d 09056f 056f s DAD B0570 0570 d 3e550570 0570 s MVI A,055H0572 0572 d d48d060572 0572 s CNC CPUER ;TEST "DAD" B0575 0575 d bc0575 0575 s CMP H0576 0576 d c48d060576 0576 s CNZ CPUER ;TEST "DAD" B0579 0579 d 3e540579 0579 s MVI A,054H057b 057b d bd057b 057b s CMP L057c 057c d c48d06057c 057c s CNZ CPUER ;TEST "DAD" B057f 057f d 21aaaa057f 057f s LXI H,0AAAAH0582 0582 d 1133330582 0582 s LXI D,03333H0585 0585 d 190585 0585 s DAD D0586 0586 d 3edd0586 0586 s MVI A,0DDH0588 0588 d bc0588 0588 s CMP H0589 0589 d c48d060589 0589 s CNZ CPUER ;TEST "DAD" D058c 058c d bd058c 058c s CMP L058d 058d d c48d06058d 058d s CNZ CPUER ;TEST "DAD" B0590 0590 d 370590 0590 s STC0591 0591 d d48d060591 0591 s CNC CPUER ;TEST "STC"0594 0594 d 3f0594 0594 s CMC0595 0595 d dc8d060595 0595 s CC CPUER ;TEST "CMC0598 0598 d 3eaa0598 0598 s MVI A,0AAH059a 059a d 2f059a 059a s CMA059b 059b d fe55059b 059b s CPI 055H059d 059d d c48d06059d 059d s CNZ CPUER ;TEST "CMA"05a0 05a0 d b705a0 05a0 s ORA A ;RE-SET AUXILIARY CARRY05a1 05a1 d 2705a1 05a1 s DAA05a2 05a2 d fe5505a2 05a2 s CPI 055H05a4 05a4 d c48d0605a4 05a4 s CNZ CPUER ;TEST "DAA"05a7 05a7 d 3e8805a7 05a7 s MVI A,088H05a9 05a9 d 8705a9 05a9 s ADD A05aa 05aa d 2705aa 05aa s DAA05ab 05ab d fe7605ab 05ab s CPI 076H05ad 05ad d c48d0605ad 05ad s CNZ CPUER ;TEST "DAA"05b0 05b0 d af05b0 05b0 s XRA A05b1 05b1 d 3eaa05b1 05b1 s MVI A,0AAH05b3 05b3 d 2705b3 05b3 s DAA05b4 05b4 d d48d0605b4 05b4 s CNC CPUER ;TEST "DAA"05b7 05b7 d fe1005b7 05b7 s CPI 010H05b9 05b9 d c48d0605b9 05b9 s CNZ CPUER ;TEST "DAA"05bc 05bc d af05bc 05bc s XRA A05bd 05bd d 3e9a05bd 05bd s MVI A,09AH05bf 05bf d 2705bf 05bf s DAA05c0 05c0 d d48d0605c0 05c0 s CNC CPUER ;TEST "DAA"05c3 05c3 d c48d0605c3 05c3 s CNZ CPUER ;TEST "DAA"05c6 05c6 d 3705c6 05c6 s STC05c7 05c7 d 3e4205c7 05c7 s MVI A,042H05c9 05c9 d 0705c9 05c9 s RLC05ca 05ca d dc8d0605ca 05ca s CC CPUER ;TEST "RLC" FOR RE-SET CARRY05cd 05cd d 0705cd 05cd s RLC05ce 05ce d d48d0605ce 05ce s CNC CPUER ;TEST "RLC" FOR SET CARRY05d1 05d1 d fe0905d1 05d1 s CPI 009H05d3 05d3 d c48d0605d3 05d3 s CNZ CPUER ;TEST "RLC" FOR ROTATION05d6 05d6 d 0f05d6 05d6 s RRC05d7 05d7 d d48d0605d7 05d7 s CNC CPUER ;TEST "RRC" FOR SET CARRY05da 05da d 0f05da 05da s RRC05db 05db d fe4205db 05db s CPI 042H05dd 05dd d c48d0605dd 05dd s CNZ CPUER ;TEST "RRC" FOR ROTATION05e0 05e0 d 1705e0 05e0 s RAL05e1 05e1 d 1705e1 05e1 s RAL05e2 05e2 d d48d0605e2 05e2 s CNC CPUER ;TEST "RAL" FOR SET CARRY05e5 05e5 d fe0805e5 05e5 s CPI 008H05e7 05e7 d c48d0605e7 05e7 s CNZ CPUER ;TEST "RAL" FOR ROTATION05ea 05ea d 1f05ea 05ea s RAR05eb 05eb d 1f05eb 05eb s RAR05ec 05ec d dc8d0605ec 05ec s CC CPUER ;TEST "RAR" FOR RE-SET CARRY05ef 05ef d fe0205ef 05ef s CPI 002H05f1 05f1 d c48d0605f1 05f1 s CNZ CPUER ;TEST "RAR" FOR ROTATION05f4 05f4 d 01341205f4 05f4 s LXI B,01234H05f7 05f7 d 11aaaa05f7 05f7 s LXI D,0AAAAH05fa 05fa d 21555505fa 05fa s LXI H,05555H05fd 05fd d af05fd 05fd s XRA A05fe 05fe d c505fe 05fe s PUSH B05ff 05ff d d505ff 05ff s PUSH D0600 0600 d e50600 0600 s PUSH H0601 0601 d f50601 0601 s PUSH PSW0602 0602 d 0100000602 0602 s LXI B,00000H0605 0605 d 1100000605 0605 s LXI D,00000H0608 0608 d 2100000608 0608 s LXI H,00000H060b 060b d 3ec0060b 060b s MVI A,0C0H060d 060d d c6f0060d 060d s ADI 0F0H060f 060f d f1060f 060f s POP PSW0610 0610 d e10610 0610 s POP H0611 0611 d d10611 0611 s POP D0612 0612 d c10612 0612 s POP B0613 0613 d dc8d060613 0613 s CC CPUER ;TEST "PUSH PSW" AND "POP PSW"0616 0616 d c48d060616 0616 s CNZ CPUER ;TEST "PUSH PSW" AND "POP PSW"0619 0619 d e48d060619 0619 s CPO CPUER ;TEST "PUSH PSW" AND "POP PSW"061c 061c d fc8d06061c 061c s CM CPUER ;TEST "PUSH PSW" AND "POP PSW"061f 061f d 3e12061f 061f s MVI A,012H0621 0621 d b80621 0621 s CMP B0622 0622 d c48d060622 0622 s CNZ CPUER ;TEST "PUSH B" AND "POP B"0625 0625 d 3e340625 0625 s MVI A,034H0627 0627 d b90627 0627 s CMP C0628 0628 d c48d060628 0628 s CNZ CPUER ;TEST "PUSH B" AND "POP B"062b 062b d 3eaa062b 062b s MVI A,0AAH062d 062d d ba062d 062d s CMP D062e 062e d c48d06062e 062e s CNZ CPUER ;TEST "PUSH D" AND "POP D"0631 0631 d bb0631 0631 s CMP E0632 0632 d c48d060632 0632 s CNZ CPUER ;TEST "PUSH D" AND "POP D"0635 0635 d 3e550635 0635 s MVI A,055H0637 0637 d bc0637 0637 s CMP H0638 0638 d c48d060638 0638 s CNZ CPUER ;TEST "PUSH H" AND "POP H"063b 063b d bd063b 063b s CMP L063c 063c d c48d06063c 063c s CNZ CPUER ;TEST "PUSH H" AND "POP H"063f 063f d 210000063f 063f s LXI H,00000H0642 0642 d 390642 0642 s DAD SP0643 0643 d 2207ff0643 0643 s SHLD SAVSTK ;SAVE THE "OLD" STACK-POINTER!0646 0646 d 3106ff0646 0646 s LXI SP,TEMP40649 0649 d 3b0649 0649 s DCX SP064a 064a d 3b064a 064a s DCX SP064b 064b d 33064b 064b s INX SP064c 064c d 3b064c 064c s DCX SP064d 064d d 3e55064d 064d s MVI A,055H064f 064f d 3204ff064f 064f s STA TEMP20652 0652 d 2f0652 0652 s CMA0653 0653 d 3205ff0653 0653 s STA TEMP30656 0656 d c10656 0656 s POP B0657 0657 d b80657 0657 s CMP B0658 0658 d c48d060658 0658 s CNZ CPUER ;TEST "LXI","DAD","INX",AND "DCX" SP065b 065b d 2f065b 065b s CMA065c 065c d b9065c 065c s CMP C065d 065d d c48d06065d 065d s CNZ CPUER ;TEST "LXI","DAD","INX", AND "DCX" SP0660 0660 d 2106ff0660 0660 s LXI H,TEMP40663 0663 d f90663 0663 s SPHL0664 0664 d 2133770664 0664 s LXI H,07733H0667 0667 d 3b0667 0667 s DCX SP0668 0668 d 3b0668 0668 s DCX SP0669 0669 d e30669 0669 s XTHL066a 066a d 3a05ff066a 066a s LDA TEMP3066d 066d d fe77066d 066d s CPI 077H066f 066f d c48d06066f 066f s CNZ CPUER ;TEST "SPHL" AND "XTHL"0672 0672 d 3a04ff0672 0672 s LDA TEMP20675 0675 d fe330675 0675 s CPI 033H0677 0677 d c48d060677 0677 s CNZ CPUER ;TEST "SPHL" AND "XTHL"067a 067a d 3e55067a 067a s MVI A,055H067c 067c d bd067c 067c s CMP L067d 067d d c48d06067d 067d s CNZ CPUER ;TEST "SPHL" AND "XTHL"0680 0680 d 2f0680 0680 s CMA0681 0681 d bc0681 0681 s CMP H0682 0682 d c48d060682 0682 s CNZ CPUER ;TEST "SPHL" AND "XTHL"0685 0685 d 2a07ff0685 0685 s LHLD SAVSTK ;RESTORE THE "OLD" STACK-POINTER0688 0688 d f90688 0688 s SPHL0689 0689 d 219f060689 0689 s LXI H,CPUOK068c 068c d e9068c 068c s PCHL ;TEST "PCHL"068d 068d s ;068d 068d s ;068d 068d s ;068d 068d d 218c01068d 068d s CPUER: LXI H,NGCPU ;OUTPUT "CPU HAS FAILED ERROR EXIT=" TO CONSOLE0690 0690 d cd46010690 0690 s CALL MSG0693 0693 d e30693 0693 s XTHL0694 0694 d 7c0694 0694 s MOV A,H0695 0695 d cd55010695 0695 s CALL BYTEO ;SHOW ERROR EXIT ADDRESS HIGH BYTE0698 0698 d 7d0698 0698 s MOV A,L0699 0699 d cd55010699 0699 s CALL BYTEO ;SHOW ERROR EXIT ADDRESS LOW BYTE069c 069c d c30000069c 069c s JMP WBOOT ;EXIT TO CP/M WARM BOOT069f 069f s ;069f 069f s ;069f 069f s ;069f 069f d 217501069f 069f s CPUOK: LXI H,OKCPU ;OUTPUT "CPU IS OPERATIONAL" TO CONSOLE06a2 06a2 d cd460106a2 06a2 s CALL MSG06a5 06a5 d c3000006a5 06a5 s JMP WBOOT ;EXIT TO CP/M WARM BOOT06a8 06a8 s ;06a8 06a8 s ; -------- RAM is implemented in top 256 bytes of the address space -------ff00 ff00 s ORG 0FF00Hff00 ff00 s ;ff00 ff00 d 02ffff00 ff00 s TEMPP: DW TEMP0 ;POINTER USED TO TEST "LHLD","SHLD",ff02 ff02 s ; AND "LDAX" INSTRUCTIONSff02 ff02 s ;ff02 ff02 s TEMP0: DS 1 ;TEMPORARY STORAGE FOR CPU TEST MEMORY LOCATIONSff03 ff03 s TEMP1: DS 1 ;TEMPORARY STORAGE FOR CPU TEST MEMORY LOCATIONSff04 ff04 s TEMP2 DS 1 ;TEMPORARY STORAGE FOR CPU TEST MEMORY LOCATIONSff05 ff05 s TEMP3: DS 1 ;TEMPORARY STORAGE FOR CPU TEST MEMORY LOCATIONSff06 ff06 s TEMP4: DS 1 ;TEMPORARY STORAGE FOR CPU TEST MEMORY LOCATIONSff07 ff07 s SAVSTK: DS 2 ;TEMPORARY STACK-POINTER STORAGE LOCATIONff09 ff09 s ;ff09 ff09 s ;ff09 ff09 s ;ff09 ff09 s STACK EQU TEMPP+128 ;DE-BUG STACK POINTER STORAGE AREAff09 ff09 s ;ff09 ff09 s ;ff09 ff09 s ;ff09 ff09 s END028b a c01002a1 a c02002b7 a c03001ba a j01001c0 a j02001c6 a j03001cc a j04001db a j05001de a j06001e6 a j07001ef a j08001f2 a j09001fa a j1000203 a j1100206 a j120020e a j1300217 a j140021a a j1500222 a j160022b a j1700300 a cci02dc a cmi0318 a czi0146 a msg01af a cpu0249 a acii02f4 a cnci0246 a cpie026d a anii02d0 a cpei022e a aimm0026 a done0261 a sbii0005 v bdos02c4 a cpoi02e8 a tcpi0277 a orii0028 a init030c a cnzi0255 a suii0321 a movi0281 a xriiff02 a temp0ff03 a temp1ff04 a temp2ff05 a temp3ff06 a temp40165 a byto10169 a byto20172 a byto3014f a pcharff80 v stack018c a ngcpu068d a cpuer0175 a okcpu0155 a byteo069f a cpuokff00 a tempp0000 v wbootff07 a savstk0014 a c_write001a a c_writestr