URL
https://opencores.org/ocsvn/light8080/light8080/trunk
Subversion Repositories light8080
[/] [light8080/] [trunk/] [sw/] [tb/] [tb0/] [tb0.lst] - Rev 74
Compare with Previous | Blame | View Log
0001 0000 ;***********************************************************************0002 0000 ; MICROCOSM ASSOCIATES 8080/8085 CPU DIAGNOSTIC VERSION 1.0 (C) 19800003 0000 ;***********************************************************************0004 0000 ;0005 0000 ;DONATED TO THE "SIG/M" CP/M USER'S GROUP BY:0006 0000 ;KELLY SMITH, MICROCOSM ASSOCIATES0007 0000 ;3055 WACO AVENUE0008 0000 ;SIMI VALLEY, CALIFORNIA, 930650009 0000 ;(805) 527-9321 (MODEM, CP/M-NET (TM))0010 0000 ;(805) 527-0518 (VERBAL)0011 0000 ;0012 0000 ;***********************************************************************0013 0000 ; Modified 2001/02/28 by Richard Cini for use in the Altair32 Emulator0014 0000 ; Project0015 0000 ;0016 0000 ; Need to somehow connect this code to Windows so that failure messages0017 0000 ; can be posted to Windows. Maybe just store error code in0018 0000 ; Mem[0xffff]. Maybe trap NOP in the emulator code?0019 0000 ;0020 0000 ;***********************************************************************0021 0000 ; Modified 2006/11/16 by Scott Moore to work on CPU8080 FPGA core0022 0000 ;0023 0000 ;***********************************************************************0024 0000 ; Modified 2007/09/24 by Jose Ruiz for use in light8080 FPGA core0025 0000 ;0026 0000 ; 1.- Changed formatting for compatibility to CP/M's ASM0027 0000 ; 2.- Commented out all Altair / MITS hardware related stuff0028 0000 ; 3.- Set origin at 0H0029 0000 ;0030 0000 ; Modified again in 2008 to make it compatible with TASM assembler.0031 0000 ;0032 0000 ; Modified 2012/02/12 to add a few CY checks.0033 0000 ; Flags go almost completely unchecked in this test.0034 0000 ;***********************************************************************0035 00000036 0000 ; DS pseudo-directive; reserve space in bytes, without initializing it0037 0000 ; (TASM does not have a DS directive)0038 0000 #define ds(n) \.org $+n0039 00000040 0000 ;0041 0000 ; Select controller defines0042 0000 ;0043 0000 ;selmain: equ 00H ; offset of main control register0044 0000 ;sel1msk: equ 02H ; offset of select 1 mask0045 0000 ;sel1cmp: equ 03H ; offset of select 1 compare0046 0000 ;sel2msk: equ 04H ; offset of select 1 mask0047 0000 ;sel2cmp: equ 05H ; offset of select 1 compare0048 0000 ;sel3msk: equ 06H ; offset of select 1 mask0049 0000 ;sel3cmp: equ 07H ; offset of select 1 compare0050 0000 ;sel4msk: equ 08H ; offset of select 1 mask0051 0000 ;sel4cmp: equ 09H ; offset of select 1 compare0052 0000 ;0053 0000 ; bits0054 0000 ;0055 0000 ;selenb: equ 01H ; enable select0056 0000 ;selio: equ 02H ; I/O address or memory0057 00000058 0000 ;0059 0000 ; Note: select 1 is ROM, 2, is RAM, 3 is interrupt controller, 4 is serial I/O.0060 0000 ;0061 00000062 0000 ;0063 0000 ; Where to place ROM and RAM for this test0064 0000 ;0065 0000 ;rombas: equ 0000H0066 0000 ;rambas: equ rombas+4*10240067 0000 ;0068 0000 ; Interrupt controller defines0069 0000 ;0070 0000 ;intbas: equ 10H0071 0000 ;intmsk: equ intbas+00H ; mask0072 0000 ;intsts: equ intbas+01H ; status0073 0000 ;intact: equ intbas+02H ; active interrupt0074 0000 ;intpol: equ intbas+03H ; polarity select0075 0000 ;intedg: equ intbas+04H ; edge/level select0076 0000 ;intvec: equ intbas+05H ; vector base page0077 0000 ;0078 0000 ; Mits Serial I/O card0079 0000 ;0080 0000 ;siobas: equ 20H0081 0000 ;sioctl: equ siobas+00H ; control register0082 0000 ;siodat: equ siobas+01H ; data0083 00000084 0000 ;0085 0000 ; Set up selectors0086 0000 ;0087 00000088 0000 ;0089 0000 ; ROM0090 0000 ;0091 0000 ; mvi a,rombas shr 8 ; enable select 1 to 4kb at base0092 0000 ; out sel1cmp0093 0000 ; mvi a,(0f000H shr 8) or selenb0094 0000 ; out sel1msk0095 0000 ;0096 0000 ; RAM0097 0000 ;0098 0000 ; mvi a,rambas shr 8 ; enable select 2 to 1kb at base0099 0000 ; out sel2cmp0100 0000 ; mvi a,(0fc00H shr 8) or selenb0101 0000 ; out sel2msk0102 0000 ;0103 0000 ; ROM and RAM set up, exit bootstrap mode0104 0000 ;0105 0000 ; mvi a,00H ; exit bootstrap mode0106 0000 ; out selmain0107 0000 ;0108 0000 ; Serial I/O0109 0000 ;0110 0000 ; mvi a,siobas ; enable serial controller for 4 addresses0111 0000 ; out sel4cmp0112 0000 ; mvi a,0fcH or selio or selenb0113 0000 ; out sel4msk0114 00000115 0000 ;************************************************************0116 0000 ; 8080/8085 CPU TEST/DIAGNOSTIC0117 0000 ;************************************************************0118 0000 ;0119 0000 ;note: (1) program assumes "call",and "lxi sp" instructions work;0120 0000 ;0121 0000 ; (2) instructions not tested are "hlt","di","ei",0122 0000 ; and "rst 0" thru "rst 7"0123 0000 ;0124 0000 ;0125 0000 ;0126 0000 ;test jump instructions and flags0127 0000 ;0128 0000 .org 0H0129 00000130 0000 31 1D 06 cpu: lxi sp,stack ;set the stack pointer0131 0003 3E 77 mvi a,077H ;@ initialize A to remove X values from simulation0132 0005 E6 00 ani 0 ;initialize a reg. and clear all flags0133 0007 CA 0D 00 jz j010 ;test "jz"0134 000A CD 0A 05 call cpuer0135 000D D2 13 00 j010: jnc j020 ;test "jnc"0136 0010 CD 0A 05 call cpuer0137 0013 EA 19 00 j020: jpe j030 ;test "jpe"0138 0016 CD 0A 05 call cpuer0139 0019 F2 1F 00 j030: jp j040 ;test "jp"0140 001C CD 0A 05 call cpuer0141 001F C2 2E 00 j040: jnz j050 ;test "jnz"0142 0022 DA 2E 00 jc j050 ;test "jc"0143 0025 E2 2E 00 jpo j050 ;test "jpo"0144 0028 FA 2E 00 jm j050 ;test "jm"0145 002B C3 31 00 jmp j060 ;test "jmp" (it's a little late,but what the hell;0146 002E CD 0A 05 j050: call cpuer0147 0031 C6 06 j060: adi 6 ;a=6,c=0,p=1,s=0,z=00148 0033 C2 39 00 jnz j070 ;test "jnz"0149 0036 CD 0A 05 call cpuer0150 0039 DA 42 00 j070: jc j080 ;test "jc"0151 003C E2 42 00 jpo j080 ;test "jpo"0152 003F F2 45 00 jp j090 ;test "jp"0153 0042 CD 0A 05 j080: call cpuer0154 0045 C6 70 j090: adi 70H ;a=76h,c=0,p=0,s=0,z=00155 0047 E2 4D 00 jpo j100 ;test "jpo"0156 004A CD 0A 05 call cpuer0157 004D FA 56 00 j100: jm j110 ;test "jm"0158 0050 CA 56 00 jz j110 ;test "jz"0159 0053 D2 59 00 jnc j120 ;test "jnc"0160 0056 CD 0A 05 j110: call cpuer0161 0059 C6 81 j120: adi 81H ;a=f7h,c=0,p=0,s=1,z=00162 005B FA 61 00 jm j130 ;test "jm"0163 005E CD 0A 05 call cpuer0164 0061 CA 6A 00 j130: jz j140 ;test "jz"0165 0064 DA 6A 00 jc j140 ;test "jc"0166 0067 E2 6D 00 jpo j150 ;test "jpo"0167 006A CD 0A 05 j140: call cpuer0168 006D C6 FE j150: adi 0feH ;a=f5h,c=1,p=1,s=1,z=00169 006F DA 75 00 jc j160 ;test "jc"0170 0072 CD 0A 05 call cpuer0171 0075 CA 7E 00 j160: jz j170 ;test "jz"0172 0078 E2 7E 00 jpo j170 ;test "jpo"0173 007B FA 81 00 jm aimm ;test "jm"0174 007E CD 0A 05 j170: call cpuer0175 0081 ;0176 0081 ;0177 0081 ;0178 0081 ;test accumulator immediate instructions0179 0081 ;0180 0081 FE 00 aimm: cpi 0 ;a=f5h,c=0,z=00181 0083 DA 99 00 jc cpie ;test "cpi" for re-set carry0182 0086 CA 99 00 jz cpie ;test "cpi" for re-set zero0183 0089 FE F5 cpi 0f5H ;a=f5h,c=0,z=10184 008B DA 99 00 jc cpie ;test "cpi" for re-set carry ("adi")0185 008E C2 99 00 jnz cpie ;test "cpi" for re-set zero0186 0091 FE FF cpi 0ffH ;a=f5h,c=1,z=00187 0093 CA 99 00 jz cpie ;test "cpi" for re-set zero0188 0096 DA 9C 00 jc acii ;test "cpi" for set carry0189 0099 CD 0A 05 cpie: call cpuer0190 009C CE 0A acii: aci 00aH ;a=f5h+0ah+carry(1)=0,c=10191 009E CE 0A aci 00aH ;a=0+0ah+carry(0)=0bh,c=00192 00A0 FE 0B cpi 00bH0193 00A2 CA A8 00 jz suii ;test "aci"0194 00A5 CD 0A 05 call cpuer0195 00A8 D6 0C suii: sui 00cH ;a=ffh,c=00196 00AA D6 0F sui 00fH ;a=f0h,c=10197 00AC FE F0 cpi 0f0H0198 00AE CA B4 00 jz sbii ;test "sui"0199 00B1 CD 0A 05 call cpuer0200 00B4 DE F1 sbii: sbi 0f1H ;a=f0h-0f1h-carry(0)=ffh,c=10201 00B6 DE 0E sbi 0eH ;a=ffh-oeh-carry(1)=f0h,c=00202 00B8 FE F0 cpi 0f0H0203 00BA CA C0 00 jz anii ;test "sbi"0204 00BD CD 0A 05 call cpuer0205 00C0 E6 55 anii: ani 055H ;a=f0h<and>55h=50h,c=0,p=1,s=0,z=00206 00C2 DC 0A 05 cc cpuer0207 00C5 CC 0A 05 cz cpuer0208 00C8 FE 50 cpi 050H0209 00CA CA D0 00 jz orii ;test "ani"0210 00CD CD 0A 05 call cpuer0211 00D0 F6 3A orii: ori 03aH ;a=50h<or>3ah=7ah,c=0,p=0,s=0,z=00212 00D2 DC 0A 05 cc cpuer0213 00D5 CC 0A 05 cz cpuer0214 00D8 FE 7A cpi 07aH0215 00DA CA E0 00 jz xrii ;test "ori"0216 00DD CD 0A 05 call cpuer0217 00E0 EE 0F xrii: xri 00fH ;a=7ah<xor>0fh=75h,c=0,p=0,s=0,z=00218 00E2 DC 0A 05 cc cpuer0219 00E5 CC 0A 05 cz cpuer0220 00E8 FE 75 cpi 075H0221 00EA CA F0 00 jz c010 ;test "xri"0222 00ED CD 0A 05 call cpuer0223 00F0 ;0224 00F0 ;0225 00F0 ;0226 00F0 ;test calls and returns0227 00F0 ;0228 00F0 E6 00 c010: ani 0H ;a=0,c=0,p=1,s=0,z=10229 00F2 DC 0A 05 cc cpuer ;test "cc"0230 00F5 E4 0A 05 cpo cpuer ;test "cpo"0231 00F8 FC 0A 05 cm cpuer ;test "cm"0232 00FB C4 0A 05 cnz cpuer ;test "cnz"0233 00FE FE 00 cpi 0H0234 0100 CA 06 01 jz c020 ;a=0,c=0,p=0,s=0,z=10235 0103 CD 0A 05 call cpuer0236 0106 D6 77 c020: sui 077H ;a=89h,c=1,p=0,s=1,z=00237 0108 D4 0A 05 cnc cpuer ;test "cnc"0238 010B EC 0A 05 cpe cpuer ;test "cpe"0239 010E F4 0A 05 cp cpuer ;test "cp"0240 0111 CC 0A 05 cz cpuer ;test "cz"0241 0114 FE 89 cpi 089H0242 0116 CA 1C 01 jz c030 ;test for "calls" taking branch0243 0119 CD 0A 05 call cpuer0244 011C E6 FF c030: ani 0ffH ;set flags back;0245 011E E4 29 01 cpo cpoi ;test "cpo"0246 0121 FE D9 cpi 0d9H0247 0123 CA 86 01 jz movi ;test "call" sequence success0248 0126 CD 0A 05 call cpuer0249 0129 E8 cpoi: rpe ;test "rpe"0250 012A C6 10 adi 010H ;a=99h,c=0,p=0,s=1,z=00251 012C EC 35 01 cpe cpei ;test "cpe"0252 012F C6 02 adi 002H ;a=d9h,c=0,p=0,s=1,z=00253 0131 E0 rpo ;test "rpo"0254 0132 CD 0A 05 call cpuer0255 0135 E0 cpei: rpo ;test "rpo"0256 0136 C6 20 adi 020H ;a=b9h,c=0,p=0,s=1,z=00257 0138 FC 41 01 cm cmi ;test "cm"0258 013B C6 04 adi 004H ;a=d7h,c=0,p=1,s=1,z=00259 013D E8 rpe ;test "rpe"0260 013E CD 0A 05 call cpuer0261 0141 F0 cmi: rp ;test "rp"0262 0142 C6 80 adi 080H ;a=39h,c=1,p=1,s=0,z=00263 0144 F4 4D 01 cp tcpi ;test "cp"0264 0147 C6 80 adi 080H ;a=d3h,c=0,p=0,s=1,z=00265 0149 F8 rm ;test "rm"0266 014A CD 0A 05 call cpuer0267 014D F8 tcpi: rm ;test "rm"0268 014E C6 40 adi 040H ;a=79h,c=0,p=0,s=0,z=00269 0150 D4 59 01 cnc cnci ;test "cnc"0270 0153 C6 40 adi 040H ;a=53h,c=0,p=1,s=0,z=00271 0155 F0 rp ;test "rp"0272 0156 CD 0A 05 call cpuer0273 0159 D8 cnci: rc ;test "rc"0274 015A C6 8F adi 08fH ;a=08h,c=1,p=0,s=0,z=00275 015C DC 65 01 cc cci ;test "cc"0276 015F D6 02 sui 002H ;a=13h,c=0,p=0,s=0,z=00277 0161 D0 rnc ;test "rnc"0278 0162 CD 0A 05 call cpuer0279 0165 D0 cci: rnc ;test "rnc"0280 0166 C6 F7 adi 0f7H ;a=ffh,c=0,p=1,s=1,z=00281 0168 C4 71 01 cnz cnzi ;test "cnz"0282 016B C6 FE adi 0feH ;a=15h,c=1,p=0,s=0,z=00283 016D D8 rc ;test "rc"0284 016E CD 0A 05 call cpuer0285 0171 C8 cnzi: rz ;test "rz"0286 0172 C6 01 adi 001H ;a=00h,c=1,p=1,s=0,z=10287 0174 CC 7D 01 cz czi ;test "cz"0288 0177 C6 D0 adi 0d0H ;a=17h,c=1,p=1,s=0,z=00289 0179 C0 rnz ;test "rnz"0290 017A CD 0A 05 call cpuer0291 017D C0 czi: rnz ;test "rnz"0292 017E C6 47 adi 047H ;a=47h,c=0,p=1,s=0,z=00293 0180 FE 47 cpi 047H ;a=47h,c=0,p=1,s=0,z=10294 0182 C8 rz ;test "rz"0295 0183 CD 0A 05 call cpuer0296 0186 ;0297 0186 ;0298 0186 ;0299 0186 ;test "mov","inr",and "dcr" instructions0300 0186 ;0301 0186 3E 77 movi: mvi a,077H0302 0188 3C inr a0303 0189 47 mov b,a0304 018A 04 inr b0305 018B 48 mov c,b0306 018C 0D dcr c0307 018D 51 mov d,c0308 018E 5A mov e,d0309 018F 63 mov h,e0310 0190 6C mov l,h0311 0191 7D mov a,l ;test "mov" a,l,h,e,d,c,b,a0312 0192 3D dcr a0313 0193 4F mov c,a0314 0194 59 mov e,c0315 0195 6B mov l,e0316 0196 45 mov b,l0317 0197 50 mov d,b0318 0198 62 mov h,d0319 0199 7C mov a,h ;test "mov" a,h,d,b,l,e,c,a0320 019A 57 mov d,a0321 019B 14 inr d0322 019C 6A mov l,d0323 019D 4D mov c,l0324 019E 0C inr c0325 019F 61 mov h,c0326 01A0 44 mov b,h0327 01A1 05 dcr b0328 01A2 58 mov e,b0329 01A3 7B mov a,e ;test "mov" a,e,b,h,c,l,d,a0330 01A4 5F mov e,a0331 01A5 1C inr e0332 01A6 43 mov b,e0333 01A7 60 mov h,b0334 01A8 24 inr h0335 01A9 4C mov c,h0336 01AA 69 mov l,c0337 01AB 55 mov d,l0338 01AC 15 dcr d0339 01AD 7A mov a,d ;test "mov" a,d,l,c,h,b,e,a0340 01AE 67 mov h,a0341 01AF 25 dcr h0342 01B0 54 mov d,h0343 01B1 42 mov b,d0344 01B2 68 mov l,b0345 01B3 2C inr l0346 01B4 5D mov e,l0347 01B5 1D dcr e0348 01B6 4B mov c,e0349 01B7 79 mov a,c ;test "mov" a,c,e,l,b,d,h,a0350 01B8 6F mov l,a0351 01B9 2D dcr l0352 01BA 65 mov h,l0353 01BB 5C mov e,h0354 01BC 53 mov d,e0355 01BD 4A mov c,d0356 01BE 41 mov b,c0357 01BF 78 mov a,b0358 01C0 FE 77 cpi 077H0359 01C2 C4 0A 05 cnz cpuer ;test "mov" a,b,c,d,e,h,l,a0360 01C5 ;0361 01C5 ;0362 01C5 ;0363 01C5 ;test arithmetic and logic instructions0364 01C5 ;0365 01C5 AF xra a0366 01C6 06 01 mvi b,001H0367 01C8 0E 03 mvi c,003H0368 01CA 16 07 mvi d,007H0369 01CC 1E 0F mvi e,00fH0370 01CE 26 1F mvi h,01fH0371 01D0 2E 3F mvi l,03fH0372 01D2 80 add b0373 01D3 81 add c0374 01D4 82 add d0375 01D5 83 add e0376 01D6 84 add h0377 01D7 85 add l0378 01D8 87 add a0379 01D9 FE F0 cpi 0f0H0380 01DB C4 0A 05 cnz cpuer ;test "add" b,c,d,e,h,l,a0381 01DE 90 sub b0382 01DF 91 sub c0383 01E0 92 sub d0384 01E1 93 sub e0385 01E2 94 sub h0386 01E3 95 sub l0387 01E4 FE 78 cpi 078H0388 01E6 C4 0A 05 cnz cpuer ;test "sub" b,c,d,e,h,l0389 01E9 97 sub a0390 01EA C4 0A 05 cnz cpuer ;test "sub" a0391 01ED 3E 80 mvi a,080H0392 01EF 87 add a0393 01F0 06 01 mvi b,001H0394 01F2 0E 02 mvi c,002H0395 01F4 16 03 mvi d,003H0396 01F6 1E 04 mvi e,004H0397 01F8 26 05 mvi h,005H0398 01FA 2E 06 mvi l,006H0399 01FC 88 adc b0400 01FD 06 80 mvi b,080H0401 01FF 80 add b0402 0200 80 add b0403 0201 89 adc c0404 0202 80 add b0405 0203 80 add b0406 0204 8A adc d0407 0205 80 add b0408 0206 80 add b0409 0207 8B adc e0410 0208 80 add b0411 0209 80 add b0412 020A 8C adc h0413 020B 80 add b0414 020C 80 add b0415 020D 8D adc l0416 020E 80 add b0417 020F 80 add b0418 0210 8F adc a0419 0211 FE 37 cpi 037H0420 0213 C4 0A 05 cnz cpuer ;test "adc" b,c,d,e,h,l,a0421 0216 3E 80 mvi a,080H0422 0218 87 add a0423 0219 06 01 mvi b,001H0424 021B 98 sbb b0425 021C 06 FF mvi b,0ffH0426 021E 80 add b0427 021F 99 sbb c0428 0220 80 add b0429 0221 9A sbb d0430 0222 80 add b0431 0223 9B sbb e0432 0224 80 add b0433 0225 9C sbb h0434 0226 80 add b0435 0227 9D sbb l0436 0228 FE E0 cpi 0e0H0437 022A C4 0A 05 cnz cpuer ;test "sbb" b,c,d,e,h,l0438 022D 3E 80 mvi a,080H0439 022F 87 add a0440 0230 9F sbb a0441 0231 FE FF cpi 0ffH0442 0233 C4 0A 05 cnz cpuer ;test "sbb" a0443 0236 3E FF mvi a,0ffH0444 0238 06 FE mvi b,0feH0445 023A 0E FC mvi c,0fcH0446 023C 16 EF mvi d,0efH0447 023E 1E 7F mvi e,07fH0448 0240 26 F4 mvi h,0f4H0449 0242 2E BF mvi l,0bfH0450 0244 37 stc0451 0245 A7 ana a0452 0246 DC 0A 05 cc cpuer0453 0249 A1 ana c0454 024A A2 ana d0455 024B A3 ana e0456 024C A4 ana h0457 024D A5 ana l0458 024E A7 ana a0459 024F FE 24 cpi 024H0460 0251 C4 0A 05 cnz cpuer ;test "ana" b,c,d,e,h,l,a0461 0254 AF xra a0462 0255 06 01 mvi b,001H0463 0257 0E 02 mvi c,002H0464 0259 16 04 mvi d,004H0465 025B 1E 08 mvi e,008H0466 025D 26 10 mvi h,010H0467 025F 2E 20 mvi l,020H0468 0261 37 stc0469 0262 B0 ora b0470 0263 DC 0A 05 cc cpuer0471 0266 B1 ora c0472 0267 B2 ora d0473 0268 B3 ora e0474 0269 B4 ora h0475 026A B5 ora l0476 026B B7 ora a0477 026C FE 3F cpi 03fH0478 026E C4 0A 05 cnz cpuer ;test "ora" b,c,d,e,h,l,a0479 0271 3E 00 mvi a,0H0480 0273 26 8F mvi h,08fH0481 0275 2E 4F mvi l,04fH0482 0277 37 stc0483 0278 A8 xra b0484 0279 DC 0A 05 cc cpuer0485 027C A9 xra c0486 027D AA xra d0487 027E AB xra e0488 027F AC xra h0489 0280 AD xra l0490 0281 FE CF cpi 0cfH0491 0283 C4 0A 05 cnz cpuer ;test "xra" b,c,d,e,h,l0492 0286 AF xra a0493 0287 C4 0A 05 cnz cpuer ;test "xra" a0494 028A 06 44 mvi b,044H0495 028C 0E 45 mvi c,045H0496 028E 16 46 mvi d,046H0497 0290 1E 47 mvi e,047H0498 0292 26 05 mvi h,temp0 / 0ffH ;high byte of test memory location0499 0294 2E 16 mvi l,temp0 & 0ffH ;low byte of test memory location0500 0296 70 mov m,b0501 0297 06 00 mvi b,0H0502 0299 46 mov b,m0503 029A 3E 44 mvi a,044H0504 029C B8 cmp b0505 029D C4 0A 05 cnz cpuer ;test "mov" m,b and b,m0506 02A0 72 mov m,d0507 02A1 16 00 mvi d,0H0508 02A3 56 mov d,m0509 02A4 3E 46 mvi a,046H0510 02A6 BA cmp d0511 02A7 C4 0A 05 cnz cpuer ;test "mov" m,d and d,m0512 02AA 73 mov m,e0513 02AB 1E 00 mvi e,0H0514 02AD 5E mov e,m0515 02AE 3E 47 mvi a,047H0516 02B0 BB cmp e0517 02B1 C4 0A 05 cnz cpuer ;test "mov" m,e and e,m0518 02B4 74 mov m,h0519 02B5 26 05 mvi h,temp0 / 0ffH0520 02B7 2E 16 mvi l,temp0 & 0ffH0521 02B9 66 mov h,m0522 02BA 3E 05 mvi a,temp0 / 0ffH0523 02BC BC cmp h0524 02BD C4 0A 05 cnz cpuer ;test "mov" m,h and h,m0525 02C0 75 mov m,l0526 02C1 26 05 mvi h,temp0 / 0ffH0527 02C3 2E 16 mvi l,temp0 & 0ffH0528 02C5 6E mov l,m0529 02C6 3E 16 mvi a,temp0 & 0ffH0530 02C8 BD cmp l0531 02C9 C4 0A 05 cnz cpuer ;test "mov" m,l and l,m0532 02CC 26 05 mvi h,temp0 / 0ffH0533 02CE 2E 16 mvi l,temp0 & 0ffH0534 02D0 3E 32 mvi a,032H0535 02D2 77 mov m,a0536 02D3 BE cmp m0537 02D4 C4 0A 05 cnz cpuer ;test "mov" m,a0538 02D7 86 add m0539 02D8 FE 64 cpi 064H0540 02DA C4 0A 05 cnz cpuer ;test "add" m0541 02DD AF xra a0542 02DE 7E mov a,m0543 02DF FE 32 cpi 032H0544 02E1 C4 0A 05 cnz cpuer ;test "mov" a,m0545 02E4 26 05 mvi h,temp0 / 0ffH0546 02E6 2E 16 mvi l,temp0 & 0ffH0547 02E8 7E mov a,m0548 02E9 96 sub m0549 02EA C4 0A 05 cnz cpuer ;test "sub" m0550 02ED 3E 80 mvi a,080H0551 02EF 87 add a0552 02F0 8E adc m0553 02F1 FE 33 cpi 033H0554 02F3 C4 0A 05 cnz cpuer ;test "adc" m0555 02F6 3E 80 mvi a,080H0556 02F8 87 add a0557 02F9 9E sbb m0558 02FA FE CD cpi 0cdH0559 02FC C4 0A 05 cnz cpuer ;test "sbb" m0560 02FF 37 stc0561 0300 A6 ana m0562 0301 DC 0A 05 cc cpuer0563 0304 C4 0A 05 cnz cpuer ;test "ana" m0564 0307 3E 25 mvi a,025H0565 0309 37 stc0566 030A B6 ora m0567 030B DC 0A 05 cc cpuer0568 030E FE 37 cpi 37H0569 0310 C4 0A 05 cnz cpuer ;test "ora" m0570 0313 37 stc0571 0314 AE xra m0572 0315 DC 0A 05 cc cpuer0573 0318 FE 05 cpi 005H0574 031A C4 0A 05 cnz cpuer ;test "xra" m0575 031D 36 55 mvi m,055H0576 031F 34 inr m0577 0320 35 dcr m0578 0321 86 add m0579 0322 FE 5A cpi 05aH0580 0324 C4 0A 05 cnz cpuer ;test "inr","dcr",and "mvi" m0581 0327 01 FF 12 lxi b,12ffH0582 032A 11 FF 12 lxi d,12ffH0583 032D 21 FF 12 lxi h,12ffH0584 0330 03 inx b0585 0331 13 inx d0586 0332 23 inx h0587 0333 3E 13 mvi a,013H0588 0335 B8 cmp b0589 0336 C4 0A 05 cnz cpuer ;test "lxi" and "inx" b0590 0339 BA cmp d0591 033A C4 0A 05 cnz cpuer ;test "lxi" and "inx" d0592 033D BC cmp h0593 033E C4 0A 05 cnz cpuer ;test "lxi" and "inx" h0594 0341 3E 00 mvi a,0H0595 0343 B9 cmp c0596 0344 C4 0A 05 cnz cpuer ;test "lxi" and "inx" b0597 0347 BB cmp e0598 0348 C4 0A 05 cnz cpuer ;test "lxi" and "inx" d0599 034B BD cmp l0600 034C C4 0A 05 cnz cpuer ;test "lxi" and "inx" h0601 034F 0B dcx b0602 0350 1B dcx d0603 0351 2B dcx h0604 0352 3E 12 mvi a,012H0605 0354 B8 cmp b0606 0355 C4 0A 05 cnz cpuer ;test "dcx" b0607 0358 BA cmp d0608 0359 C4 0A 05 cnz cpuer ;test "dcx" d0609 035C BC cmp h0610 035D C4 0A 05 cnz cpuer ;test "dcx" h0611 0360 3E FF mvi a,0ffH0612 0362 B9 cmp c0613 0363 C4 0A 05 cnz cpuer ;test "dcx" b0614 0366 BB cmp e0615 0367 C4 0A 05 cnz cpuer ;test "dcx" d0616 036A BD cmp l0617 036B C4 0A 05 cnz cpuer ;test "dcx" h0618 036E 32 16 05 sta temp00619 0371 AF xra a0620 0372 3A 16 05 lda temp00621 0375 FE FF cpi 0ffH0622 0377 C4 0A 05 cnz cpuer ;test "lda" and "sta"0623 037A 2A 14 05 lhld tempp0624 037D 22 16 05 shld temp00625 0380 3A 14 05 lda tempp0626 0383 47 mov b,a0627 0384 3A 16 05 lda temp00628 0387 B8 cmp b0629 0388 C4 0A 05 cnz cpuer ;test "lhld" and "shld"0630 038B 3A 15 05 lda tempp+10631 038E 47 mov b,a0632 038F 3A 17 05 lda temp0+10633 0392 B8 cmp b0634 0393 C4 0A 05 cnz cpuer ;test "lhld" and "shld"0635 0396 3E AA mvi a,0aaH0636 0398 32 16 05 sta temp00637 039B 44 mov b,h0638 039C 4D mov c,l0639 039D AF xra a0640 039E 0A ldax b0641 039F FE AA cpi 0aaH0642 03A1 C4 0A 05 cnz cpuer ;test "ldax" b0643 03A4 3C inr a0644 03A5 02 stax b0645 03A6 3A 16 05 lda temp00646 03A9 FE AB cpi 0abH0647 03AB C4 0A 05 cnz cpuer ;test "stax" b0648 03AE 3E 77 mvi a,077H0649 03B0 32 16 05 sta temp00650 03B3 2A 14 05 lhld tempp0651 03B6 11 00 00 lxi d,00000H0652 03B9 EB xchg0653 03BA AF xra a0654 03BB 1A ldax d0655 03BC FE 77 cpi 077H0656 03BE C4 0A 05 cnz cpuer ;test "ldax" d and "xchg"0657 03C1 AF xra a0658 03C2 84 add h0659 03C3 85 add l0660 03C4 C4 0A 05 cnz cpuer ;test "xchg"0661 03C7 3E CC mvi a,0ccH0662 03C9 12 stax d0663 03CA 3A 16 05 lda temp00664 03CD FE CC cpi 0ccH0665 03CF 12 stax d0666 03D0 3A 16 05 lda temp00667 03D3 FE CC cpi 0ccH0668 03D5 C4 0A 05 cnz cpuer ;test "stax" d0669 03D8 21 77 77 lxi h,07777H0670 03DB 29 dad h0671 03DC 3E EE mvi a,0eeH0672 03DE BC cmp h0673 03DF C4 0A 05 cnz cpuer ;test "dad" h0674 03E2 BD cmp l0675 03E3 C4 0A 05 cnz cpuer ;test "dad" h0676 03E6 21 55 55 lxi h,05555H0677 03E9 01 FF FF lxi b,0ffffH0678 03EC 09 dad b0679 03ED 3E 55 mvi a,055H0680 03EF D4 0A 05 cnc cpuer ;test "dad" b0681 03F2 BC cmp h0682 03F3 C4 0A 05 cnz cpuer ;test "dad" b0683 03F6 3E 54 mvi a,054H0684 03F8 BD cmp l0685 03F9 C4 0A 05 cnz cpuer ;test "dad" b0686 03FC 21 AA AA lxi h,0aaaaH0687 03FF 11 33 33 lxi d,03333H0688 0402 19 dad d0689 0403 3E DD mvi a,0ddH0690 0405 BC cmp h0691 0406 C4 0A 05 cnz cpuer ;test "dad" d0692 0409 BD cmp l0693 040A C4 0A 05 cnz cpuer ;test "dad" b0694 040D 37 stc0695 040E D4 0A 05 cnc cpuer ;test "stc"0696 0411 3F cmc0697 0412 DC 0A 05 cc cpuer ;test "cmc0698 0415 3E AA mvi a,0aaH0699 0417 2F cma0700 0418 FE 55 cpi 055H0701 041A C4 0A 05 cnz cpuer ;test "cma"0702 041D B7 ora a ;re-set auxiliary carry0703 041E 27 daa0704 041F FE 55 cpi 055H0705 0421 C4 0A 05 cnz cpuer ;test "daa"0706 0424 3E 88 mvi a,088H0707 0426 87 add a0708 0427 27 daa0709 0428 FE 76 cpi 076H0710 042A C4 0A 05 cnz cpuer ;test "daa"0711 042D AF xra a0712 042E 3E AA mvi a,0aaH0713 0430 27 daa0714 0431 D4 0A 05 cnc cpuer ;test "daa"0715 0434 FE 10 cpi 010H0716 0436 C4 0A 05 cnz cpuer ;test "daa"0717 0439 AF xra a0718 043A 3E 9A mvi a,09aH0719 043C 27 daa0720 043D D4 0A 05 cnc cpuer ;test "daa"0721 0440 C4 0A 05 cnz cpuer ;test "daa"0722 0443 37 stc0723 0444 3E 42 mvi a,042H0724 0446 07 rlc0725 0447 DC 0A 05 cc cpuer ;test "rlc" for re-set carry0726 044A 07 rlc0727 044B D4 0A 05 cnc cpuer ;test "rlc" for set carry0728 044E FE 09 cpi 009H0729 0450 C4 0A 05 cnz cpuer ;test "rlc" for rotation0730 0453 0F rrc0731 0454 D4 0A 05 cnc cpuer ;test "rrc" for set carry0732 0457 0F rrc0733 0458 FE 42 cpi 042H0734 045A C4 0A 05 cnz cpuer ;test "rrc" for rotation0735 045D 17 ral0736 045E 17 ral0737 045F D4 0A 05 cnc cpuer ;test "ral" for set carry0738 0462 FE 08 cpi 008H0739 0464 C4 0A 05 cnz cpuer ;test "ral" for rotation0740 0467 1F rar0741 0468 1F rar0742 0469 DC 0A 05 cc cpuer ;test "rar" for re-set carry0743 046C FE 02 cpi 002H0744 046E C4 0A 05 cnz cpuer ;test "rar" for rotation0745 0471 01 34 12 lxi b,01234H0746 0474 11 AA AA lxi d,0aaaaH0747 0477 21 55 55 lxi h,05555H0748 047A AF xra a0749 047B C5 push b0750 047C D5 push d0751 047D E5 push h0752 047E F5 push psw0753 047F 01 00 00 lxi b,00000H0754 0482 11 00 00 lxi d,00000H0755 0485 21 00 00 lxi h,00000H0756 0488 3E C0 mvi a,0c0H0757 048A C6 F0 adi 0f0H0758 048C F1 pop psw0759 048D E1 pop h0760 048E D1 pop d0761 048F C1 pop b0762 0490 DC 0A 05 cc cpuer ;test "push psw" and "pop psw"0763 0493 C4 0A 05 cnz cpuer ;test "push psw" and "pop psw"0764 0496 E4 0A 05 cpo cpuer ;test "push psw" and "pop psw"0765 0499 FC 0A 05 cm cpuer ;test "push psw" and "pop psw"0766 049C 3E 12 mvi a,012H0767 049E B8 cmp b0768 049F C4 0A 05 cnz cpuer ;test "push b" and "pop b"0769 04A2 3E 34 mvi a,034H0770 04A4 B9 cmp c0771 04A5 C4 0A 05 cnz cpuer ;test "push b" and "pop b"0772 04A8 3E AA mvi a,0aaH0773 04AA BA cmp d0774 04AB C4 0A 05 cnz cpuer ;test "push d" and "pop d"0775 04AE BB cmp e0776 04AF C4 0A 05 cnz cpuer ;test "push d" and "pop d"0777 04B2 3E 55 mvi a,055H0778 04B4 BC cmp h0779 04B5 C4 0A 05 cnz cpuer ;test "push h" and "pop h"0780 04B8 BD cmp l0781 04B9 C4 0A 05 cnz cpuer ;test "push h" and "pop h"0782 04BC 21 00 00 lxi h,00000H0783 04BF 39 dad sp0784 04C0 22 1B 05 shld savstk ;save the "old" stack-pointer;0785 04C3 31 1A 05 lxi sp,temp40786 04C6 3B dcx sp0787 04C7 3B dcx sp0788 04C8 33 inx sp0789 04C9 3B dcx sp0790 04CA 3E 55 mvi a,055H0791 04CC 32 18 05 sta temp20792 04CF 2F cma0793 04D0 32 19 05 sta temp30794 04D3 C1 pop b0795 04D4 B8 cmp b0796 04D5 C4 0A 05 cnz cpuer ;test "lxi","dad","inx",and "dcx" sp0797 04D8 2F cma0798 04D9 B9 cmp c0799 04DA C4 0A 05 cnz cpuer ;test "lxi","dad","inx", and "dcx" sp0800 04DD 21 1A 05 lxi h,temp40801 04E0 F9 sphl0802 04E1 21 33 77 lxi h,07733H0803 04E4 3B dcx sp0804 04E5 3B dcx sp0805 04E6 E3 xthl0806 04E7 3A 19 05 lda temp30807 04EA FE 77 cpi 077H0808 04EC C4 0A 05 cnz cpuer ;test "sphl" and "xthl"0809 04EF 3A 18 05 lda temp20810 04F2 FE 33 cpi 033H0811 04F4 C4 0A 05 cnz cpuer ;test "sphl" and "xthl"0812 04F7 3E 55 mvi a,055H0813 04F9 BD cmp l0814 04FA C4 0A 05 cnz cpuer ;test "sphl" and "xthl"0815 04FD 2F cma0816 04FE BC cmp h0817 04FF C4 0A 05 cnz cpuer ;test "sphl" and "xthl"0818 0502 2A 1B 05 lhld savstk ;restore the "old" stack-pointer0819 0505 F9 sphl0820 0506 21 0F 05 lxi h,cpuok0821 0509 E9 pchl ;test "pchl"0822 050A0823 050A 3E AA cpuer: mvi a, 0aaH ; set exit code (failure)0824 050C D3 20 out 20h0825 050E 76 hlt ; stop here0826 050F0827 050F 3E 55 cpuok: mvi a, 55H ;0828 0511 D3 20 out 20h0829 0513 76 hlt ; stop here - no trap0830 05140831 05140832 0514 ;0833 0514 ; Data area in program space0834 0514 ;0835 0514 16 05 tempp: .dw temp0 ;pointer used to test "lhld","shld",0836 0516 ; and "ldax" instructions0837 0516 ;0838 0516 ; Data area in variable space0839 0516 ;0840 0516 temp0: ds(1) ;temporary storage for cpu test memory locations0840 05170841 0517 temp1: ds(1) ;temporary storage for cpu test memory locations0841 05180842 0518 temp2: ds(1) ;temporary storage for cpu test memory locations0842 05190843 0519 temp3: ds(1) ;temporary storage for cpu test memory locations0843 051A0844 051A temp4: ds(1) ;temporary storage for cpu test memory locations0844 051B0845 051B savstk: ds(2) ;temporary stack-pointer storage location0845 051D0846 051D0847 051D ds(256) ;de-bug stack pointer storage area0847 061D0848 061D 00 00 stack: .dw 00849 061F0850 061F .end0851 061Ftasm: Number of errors = 0