| Line 3... |
Line 3... |
test Page 1
|
test Page 1
|
|
|
|
|
Program Variable Code C Line Source
|
Program Variable Code C Line Source
|
-----------------------------------------------------------------------------------------------------------------------------------
|
-----------------------------------------------------------------------------------------------------------------------------------
|
00000000 00000000 1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
00000000 00000000 1 !***********************************************************************
|
00000000 00000000 2 !
|
00000000 00000000 2 ! MICROCOSM ASSOCIATES 8080/8085 CPU DIAGNOSTIC VERSION 1.0 (C) 1980
|
00000000 00000000 3 ! Code for the test bench. This gets dumped and placed into testbench.v as byte
|
00000000 00000000 3 !***********************************************************************
|
00000000 00000000 4 ! definitions.
|
00000000 00000000 4 !
|
00000000 00000000 5 !
|
00000000 00000000 5 !DONATED TO THE "SIG/M" CP/M USER'S GROUP BY:
|
00000000 00000000 6
|
00000000 00000000 6 !KELLY SMITH, MICROCOSM ASSOCIATES
|
00000000 00000000 7 !
|
00000000 00000000 7 !3055 WACO AVENUE
|
00000000 00000000 8 ! Select controller defines
|
00000000 00000000 8 !SIMI VALLEY, CALIFORNIA, 93065
|
00000000 00000000 9 !
|
00000000 00000000 9 !(805) 527-9321 (MODEM, CP/M-NET (TM))
|
00000000 00000000 10 selmain: equ $00 ! offset of main control register
|
00000000 00000000 10 !(805) 527-0518 (VERBAL)
|
00000000 00000000 11 sel1msk: equ $02 ! offset of select 1 mask
|
00000000 00000000 11 !
|
00000000 00000000 12 sel1cmp: equ $03 ! offset of select 1 compare
|
00000000 00000000 12 !***********************************************************************
|
00000000 00000000 13 sel2msk: equ $04 ! offset of select 1 mask
|
00000000 00000000 13 ! Modified 2001/02/28 by Richard Cini for use in the Altair32 Emulator
|
00000000 00000000 14 sel2cmp: equ $05 ! offset of select 1 compare
|
00000000 00000000 14 ! Project
|
00000000 00000000 15 sel3msk: equ $06 ! offset of select 1 mask
|
00000000 00000000 15 !
|
00000000 00000000 16 sel3cmp: equ $07 ! offset of select 1 compare
|
00000000 00000000 16 ! Need to somehow connect this code to Windows so that failure messages
|
00000000 00000000 17 sel4msk: equ $08 ! offset of select 1 mask
|
00000000 00000000 17 ! can be posted to Windows. Maybe just store error code in
|
00000000 00000000 18 sel4cmp: equ $09 ! offset of select 1 compare
|
00000000 00000000 18 ! Mem[0xffff]. Maybe trap NOP in the emulator code?
|
00000000 00000000 19 !
|
00000000 00000000 19 !
|
00000000 00000000 20 ! bits
|
00000000 00000000 20 !***********************************************************************
|
00000000 00000000 21 !
|
00000000 00000000 21 ! Modified 2006/11/16 by Scott Moore to work on CPU8080 FPGA core
|
00000000 00000000 22 selenb: equ $01 ! enable select
|
00000000 00000000 22 !
|
00000000 00000000 23 selio: equ $02 ! I/O address or memory
|
00000000 00000000 23 !***********************************************************************
|
00000000 00000000 24
|
00000000 00000000 24
|
00000000 00000000 25 !
|
00000000 00000000 25 !
|
00000000 00000000 26 ! Note: select 1 is ROM, 2, is RAM, 3 is interrupt controller, 4 is serial I/O.
|
00000000 00000000 26 ! Select controller defines
|
00000000 00000000 27 !
|
00000000 00000000 27 !
|
00000000 00000000 28
|
00000000 00000000 28 selmain: equ $00 ! offset of main control register
|
00000000 00000000 29 !
|
00000000 00000000 29 sel1msk: equ $02 ! offset of select 1 mask
|
00000000 00000000 30 ! Where to place ROM and RAM for this test
|
00000000 00000000 30 sel1cmp: equ $03 ! offset of select 1 compare
|
00000000 00000000 31 !
|
00000000 00000000 31 sel2msk: equ $04 ! offset of select 1 mask
|
00000000 00000000 32 rombas: equ $0000
|
00000000 00000000 32 sel2cmp: equ $05 ! offset of select 1 compare
|
00000000 00000000 33 rambas: equ rombas+1024
|
00000000 00000000 33 sel3msk: equ $06 ! offset of select 1 mask
|
00000000 00000000 34 !
|
00000000 00000000 34 sel3cmp: equ $07 ! offset of select 1 compare
|
00000000 00000000 35 ! Interrupt controller defines
|
00000000 00000000 35 sel4msk: equ $08 ! offset of select 1 mask
|
00000000 00000000 36 !
|
00000000 00000000 36 sel4cmp: equ $09 ! offset of select 1 compare
|
00000000 00000000 37 intbas: equ $10
|
00000000 00000000 37 !
|
00000000 00000000 38 intmsk: equ intbas+$00 ! mask
|
00000000 00000000 38 ! bits
|
00000000 00000000 39 intsts: equ intbas+$01 ! status
|
00000000 00000000 39 !
|
00000000 00000000 40 intact: equ intbas+$02 ! active interrupt
|
00000000 00000000 40 selenb: equ $01 ! enable select
|
00000000 00000000 41 intpol: equ intbas+$03 ! polarity select
|
00000000 00000000 41 selio: equ $02 ! I/O address or memory
|
00000000 00000000 42 intedg: equ intbas+$04 ! edge/level select
|
00000000 00000000 42
|
00000000 00000000 43 intvec: equ intbas+$05 ! vector base page
|
00000000 00000000 43 !
|
00000000 00000000 44 !
|
00000000 00000000 44 ! Note: select 1 is ROM, 2, is RAM, 3 is interrupt controller, 4 is serial I/O.
|
00000000 00000000 45 ! Mits Serial I/O card
|
00000000 00000000 45 !
|
00000000 00000000 46 !
|
00000000 00000000 46
|
00000000 00000000 47 siobas: equ $20
|
00000000 00000000 47 !
|
00000000 00000000 48 sioctl: equ siobas+$00 ! control register
|
00000000 00000000 48 ! Where to place ROM and RAM for this test
|
00000000 00000000 49 siodat: equ siobas+$01 ! data
|
00000000 00000000 49 !
|
00000000 00000000 50
|
00000000 00000000 50 rombas: equ $0000
|
00000000 00000000 51 !
|
00000000 00000000 51 rambas: equ rombas+2*1024
|
00000000 00000000 52 ! Set up selectors
|
00000000 00000000 52 !
|
00000000 00000000 53 !
|
00000000 00000000 53 ! Interrupt controller defines
|
00000000 00000000 54
|
00000000 00000000 54 !
|
00000000 00000000 55 !
|
00000000 00000000 55 intbas: equ $10
|
00000000 00000000 56 ! ROM
|
00000000 00000000 56 intmsk: equ intbas+$00 ! mask
|
00000000 00000000 57 !
|
00000000 00000000 57 intsts: equ intbas+$01 ! status
|
00000000 00000000 3E 00 58 mvi a,rombas shr 8 ! enable select 1 to 1kb at base
|
00000000 00000000 58 intact: equ intbas+$02 ! active interrupt
|
00000002 00000000 D3 03 59 out sel1cmp
|
00000000 00000000 59 intpol: equ intbas+$03 ! polarity select
|
00000004 00000000 3E FD 60 mvi a,($fc00 shr 8) or selenb
|
00000000 00000000 60 intedg: equ intbas+$04 ! edge/level select
|
00000006 00000000 D3 02 61 out sel1msk
|
00000000 00000000 61 intvec: equ intbas+$05 ! vector base page
|
00000008 00000000 62 !
|
00000000 00000000 62 !
|
00000008 00000000 63 ! RAM
|
00000000 00000000 63 ! Mits Serial I/O card
|
00000008 00000000 64 !
|
00000000 00000000 64 !
|
00000008 00000000 3E 04 65 mvi a,rambas shr 8 ! enable select 2 to 1kb at base
|
00000000 00000000 65 siobas: equ $20
|
0000000A 00000000 D3 05 66 out sel2cmp
|
00000000 00000000 66 sioctl: equ siobas+$00 ! control register
|
0000000C 00000000 3E FD 67 mvi a,($fc00 shr 8) or selenb
|
00000000 00000000 67 siodat: equ siobas+$01 ! data
|
0000000E 00000000 D3 04 68 out sel2msk
|
00000000 00000000 68
|
00000010 00000000 69 !
|
00000000 00000000 69 !
|
00000010 00000000 70 ! ROM and RAM set up, exit bootstrap mode
|
00000000 00000000 70 ! Set up selectors
|
00000010 00000000 71 !
|
00000000 00000000 71 !
|
00000010 00000000 3E 00 72 mvi a,$00 ! exit bootstrap mode
|
00000000 00000000 72
|
00000012 00000000 D3 00 73 out selmain
|
00000000 00000000 73 !
|
00000014 00000000 74 !
|
00000000 00000000 74 ! ROM
|
00000014 00000000 31 00 08 75 lxi sp,rambas+1024 ! set stack to top of ram
|
00000000 00000000 75 !
|
00000017 00000000 76 !
|
00000000 00000000 3E 00 76 mvi a,rombas shr 8 ! enable select 1 to 1kb at base
|
00000017 00000000 77 ! Serial I/O
|
00000002 00000000 D3 03 77 out sel1cmp
|
00000017 00000000 78 !
|
00000004 00000000 3E FD 78 mvi a,($fc00 shr 8) or selenb
|
00000017 00000000 3E 20 79 mvi a,siobas ! enable interrupt controller for 4 addresses
|
00000006 00000000 D3 02 79 out sel1msk
|
00000019 00000000 D3 09 80 out sel4cmp
|
00000008 00000000 80 !
|
0000001B 00000000 3E FF 81 mvi a,$fc or selio or selenb
|
00000008 00000000 81 ! RAM
|
0000001D 00000000 D3 08 82 out sel4msk
|
00000008 00000000 82 !
|
0000001F 00000000 83 !
|
00000008 00000000 3E 08 83 mvi a,rambas shr 8 ! enable select 2 to 1kb at base
|
0000001F 00000000 84 ! Print "hello, world" and stop
|
0000000A 00000000 D3 05 84 out sel2cmp
|
0000001F 00000000 85 !
|
0000000C 00000000 3E FD 85 mvi a,($fc00 shr 8) or selenb
|
0000001F 00000000 21 00 00 86 lxi h,helstr ! index string
|
0000000E 00000000 D3 04 86 out sel2msk
|
|
|
|
|
test Page 2
|
test Page 2
|
|
|
|
|
Program Variable Code C Line Source
|
Program Variable Code C Line Source
|
-----------------------------------------------------------------------------------------------------------------------------------
|
-----------------------------------------------------------------------------------------------------------------------------------
|
00000022 00000000 87 loop:
|
00000010 00000000 87 !
|
00000022 00000000 7E 88 mov a,m ! get character
|
00000010 00000000 88 ! ROM and RAM set up, exit bootstrap mode
|
00000023 00000000 23 89 inx h ! next character
|
00000010 00000000 89 !
|
00000024 00000000 B7 90 ora a ! check end of string
|
00000010 00000000 3E 00 90 mvi a,$00 ! exit bootstrap mode
|
00000025 00000000 CA 00 00 91 jz endstr ! yes, skip
|
00000012 00000000 D3 00 91 out selmain
|
00000028 00000000 CD 00 00 92 call wrtout ! output character
|
00000014 00000000 92 !
|
0000002B 00000000 C3 22 00 93 jmp loop ! loop next character
|
00000014 00000000 93 ! Serial I/O
|
0000002E 00000000 94 endstr:
|
00000014 00000000 94 !
|
0000002E 00000000 95 !
|
00000014 00000000 3E 20 95 mvi a,siobas ! enable serial controller for 4 addresses
|
0000002E 00000000 96 ! Copy characters from input to output
|
00000016 00000000 D3 09 96 out sel4cmp
|
0000002E 00000000 97 !
|
00000018 00000000 3E FF 97 mvi a,$fc or selio or selenb
|
0000002E 00000000 98 echo:
|
0000001A 00000000 D3 08 98 out sel4msk
|
0000002E 00000000 DB 20 99 in sioctl ! check character waiting
|
0000001C 00000000 99
|
00000030 00000000 E6 20 100 ani $20
|
0000001C 00000000 100 !************************************************************
|
00000032 00000000 CA 2E 00 101 jz echo ! no, wait
|
0000001C 00000000 101 ! 8080/8085 CPU TEST/DIAGNOSTIC
|
00000035 00000000 DB 21 102 in siodat ! yes, get character
|
0000001C 00000000 102 !************************************************************
|
00000037 00000000 CD 00 00 103 call wrtout ! output
|
0000001C 00000000 103 !
|
0000003A 00000000 C3 2E 00 104 jmp echo ! loop forever
|
0000001C 00000000 104 !note: (1) program assumes "call",and "lxi sp" instructions work!
|
0000003D 00000000 105
|
0000001C 00000000 105 !
|
0000003D 00000000 106 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
0000001C 00000000 106 ! (2) instructions not tested are "hlt","di","ei",
|
0000003D 00000000 107 !
|
0000001C 00000000 107 ! and "rst 0" thru "rst 7"
|
0000003D 00000000 108 ! Serial output routine
|
0000001C 00000000 108 !
|
0000003D 00000000 109 !
|
0000001C 00000000 109 !
|
0000003D 00000000 110 ! Outputs the character in a.
|
0000001C 00000000 110 !
|
0000003D 00000000 111 !
|
0000001C 00000000 111 !test jump instructions and flags
|
0000003D 00000000 112 wrtout:
|
0000001C 00000000 112 !
|
0000003D 00000000 F5 113 push psw ! save character to output
|
0000001C 00000000 31 00 00 113 cpu: lxi sp,stack !set the stack pointer
|
0000003E 00000000 114 wrtout01:
|
0000001F 00000000 E6 00 114 ani 0 !initialize a reg. and clear all flags
|
0000003E 00000000 DB 20 115 in sioctl ! get output ready status /n
|
00000021 00000000 CA 00 00 115 jz j010 !test "jz"
|
00000040 00000000 E6 80 116 ani $80 ! mask
|
00000024 00000000 CD 00 00 116 call cpuer
|
00000042 00000000 C2 3E 00 117 jnz wrtout01 ! no, loop
|
00000027 00000000 D2 00 00 117 j010: jnc j020 !test "jnc"
|
00000045 00000000 F1 118 pop psw ! restore character
|
0000002A 00000000 CD 00 00 118 call cpuer
|
00000046 00000000 D3 21 119 out siodat ! output
|
0000002D 00000000 EA 00 00 119 j020: jpe j030 !test "jpe"
|
00000048 00000000 C9 120 ret ! return to caller
|
00000030 00000000 CD 00 00 120 call cpuer
|
00000049 00000000 121 !
|
00000033 00000000 F2 00 00 121 j030: jp j040 !test "jp"
|
00000049 00000000 122 ! String to print
|
00000036 00000000 CD 00 00 122 call cpuer
|
00000049 00000000 123 !
|
00000039 00000000 C2 00 00 123 j040: jnz j050 !test "jnz"
|
00000049 00000000 124 helstr:
|
0000003C 00000000 DA 00 00 124 jc j050 !test "jc"
|
00000049 00000000 48 45 4C 4C 4F 2C + 125 defb 'HELLO, FPGA WORLD\cr\lf', 0
|
0000003F 00000000 E2 00 00 125 jpo j050 !test "jpo"
|
0000005D 00000000 + 126
|
00000042 00000000 FA 00 00 126 jm j050 !test "jm"
|
0000005D 00000000 + 127
|
00000045 00000000 C3 00 00 127 jmp j060 !test "jmp" (it's a little late,but what the hell!
|
|
00000048 00000000 CD 00 00 128 j050: call cpuer
|
|
0000004B 00000000 C6 06 129 j060: adi 6 !a=6,c=0,p=1,s=0,z=0
|
|
0000004D 00000000 C2 00 00 130 jnz j070 !test "jnz"
|
|
00000050 00000000 CD 00 00 131 call cpuer
|
|
00000053 00000000 DA 00 00 132 j070: jc j080 !test "jc"
|
|
00000056 00000000 E2 00 00 133 jpo j080 !test "jpo"
|
|
00000059 00000000 F2 00 00 134 jp j090 !test "jp"
|
|
0000005C 00000000 CD 00 00 135 j080: call cpuer
|
|
0000005F 00000000 C6 70 136 j090: adi $070 !a=76h,c=0,p=0,s=0,z=0
|
|
00000061 00000000 E2 00 00 137 jpo j100 !test "jpo"
|
|
00000064 00000000 CD 00 00 138 call cpuer
|
|
00000067 00000000 FA 00 00 139 j100: jm j110 !test "jm"
|
|
0000006A 00000000 CA 00 00 140 jz j110 !test "jz"
|
|
0000006D 00000000 D2 00 00 141 jnc j120 !test "jnc"
|
|
00000070 00000000 CD 00 00 142 j110: call cpuer
|
|
00000073 00000000 C6 81 143 j120: adi $081 !a=f7h,c=0,p=0,s=1,z=0
|
|
00000075 00000000 FA 00 00 144 jm j130 !test "jm"
|
|
00000078 00000000 CD 00 00 145 call cpuer
|
|
0000007B 00000000 CA 00 00 146 j130: jz j140 !test "jz"
|
|
0000007E 00000000 DA 00 00 147 jc j140 !test "jc"
|
|
00000081 00000000 E2 00 00 148 jpo j150 !test "jpo"
|
|
00000084 00000000 CD 00 00 149 j140: call cpuer
|
|
00000087 00000000 C6 FE 150 j150: adi $0fe !a=f5h,c=1,p=1,s=1,z=0
|
|
00000089 00000000 DA 00 00 151 jc j160 !test "jc"
|
|
0000008C 00000000 CD 00 00 152 call cpuer
|
|
0000008F 00000000 CA 00 00 153 j160: jz j170 !test "jz"
|
|
00000092 00000000 E2 00 00 154 jpo j170 !test "jpo"
|
|
00000095 00000000 FA 00 00 155 jm aimm !test "jm"
|
|
00000098 00000000 CD 00 00 156 j170: call cpuer
|
|
0000009B 00000000 157 !
|
|
0000009B 00000000 158 !
|
|
0000009B 00000000 159 !
|
|
0000009B 00000000 160 !test accumulator immediate instructions
|
|
0000009B 00000000 161 !
|
|
0000009B 00000000 FE 00 162 aimm: cpi 0 !a=f5h,c=0,z=0
|
|
0000009D 00000000 DA 00 00 163 jc cpie !test "cpi" for re-set carry
|
|
000000A0 00000000 CA 00 00 164 jz cpie !test "cpi" for re-set zero
|
|
000000A3 00000000 FE F5 165 cpi $0f5 !a=f5h,c=0,z=1
|
|
000000A5 00000000 DA 00 00 166 jc cpie !test "cpi" for re-set carry ("adi")
|
|
000000A8 00000000 C2 00 00 167 jnz cpie !test "cpi" for re-set zero
|
|
000000AB 00000000 FE FF 168 cpi $0ff !a=f5h,c=1,z=0
|
|
000000AD 00000000 CA 00 00 169 jz cpie !test "cpi" for re-set zero
|
|
000000B0 00000000 DA 00 00 170 jc acii !test "cpi" for set carry
|
|
000000B3 00000000 CD 00 00 171 cpie: call cpuer
|
|
000000B6 00000000 CE 0A 172 acii: aci $00a !a=f5h+0ah+carry(1)=0,c=1
|
|
|
|
|
|
test Page 3
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
000000B8 00000000 CE 0A 173 aci $00a !a=0+0ah+carry(0)=0bh,c=0
|
|
000000BA 00000000 FE 0B 174 cpi $00b
|
|
000000BC 00000000 CA 00 00 175 jz suii !test "aci"
|
|
000000BF 00000000 CD 00 00 176 call cpuer
|
|
000000C2 00000000 D6 0C 177 suii: sui $00c !a=ffh,c=0
|
|
000000C4 00000000 D6 0F 178 sui $00f !a=f0h,c=1
|
|
000000C6 00000000 FE F0 179 cpi $0f0
|
|
000000C8 00000000 CA 00 00 180 jz sbii !test "sui"
|
|
000000CB 00000000 CD 00 00 181 call cpuer
|
|
000000CE 00000000 DE F1 182 sbii: sbi $0f1 !a=f0h-0f1h-carry(0)=ffh,c=1
|
|
000000D0 00000000 DE 0E 183 sbi $00e !a=ffh-oeh-carry(1)=f0h,c=0
|
|
000000D2 00000000 FE F0 184 cpi $0f0
|
|
000000D4 00000000 CA 00 00 185 jz anii !test "sbi"
|
|
000000D7 00000000 CD 00 00 186 call cpuer
|
|
000000DA 00000000 E6 55 187 anii: ani $055 !a=f0h55h=50h,c=0,p=1,s=0,z=0
|
|
000000DC 00000000 FE 50 188 cpi $050
|
|
000000DE 00000000 CA 00 00 189 jz orii !test "ani"
|
|
000000E1 00000000 CD 00 00 190 call cpuer
|
|
000000E4 00000000 F6 3A 191 orii: ori $03a !a=50h3ah=7ah,c=0,p=0,s=0,z=0
|
|
000000E6 00000000 FE 7A 192 cpi $07a
|
|
000000E8 00000000 CA 00 00 193 jz xrii !test "ori"
|
|
000000EB 00000000 CD 00 00 194 call cpuer
|
|
000000EE 00000000 EE 0F 195 xrii: xri $00f !a=7ah0fh=75h,c=0,p=0,s=0,z=0
|
|
000000F0 00000000 FE 75 196 cpi $075
|
|
000000F2 00000000 CA 00 00 197 jz c010 !test "xri"
|
|
000000F5 00000000 CD 00 00 198 call cpuer
|
|
000000F8 00000000 199 !
|
|
000000F8 00000000 200 !
|
|
000000F8 00000000 201 !
|
|
000000F8 00000000 202 !test calls and returns
|
|
000000F8 00000000 203 !
|
|
000000F8 00000000 E6 00 204 c010: ani $0 !a=0,c=0,p=1,s=0,z=1
|
|
000000FA 00000000 DC 00 00 205 cc cpuer !test "cc"
|
|
000000FD 00000000 E4 00 00 206 cpo cpuer !test "cpo"
|
|
00000100 00000000 FC 00 00 207 cm cpuer !test "cm"
|
|
00000103 00000000 C4 00 00 208 cnz cpuer !test "cnz"
|
|
00000106 00000000 FE 00 209 cpi $0
|
|
00000108 00000000 CA 00 00 210 jz c020 !a=0,c=0,p=0,s=0,z=1
|
|
0000010B 00000000 CD 00 00 211 call cpuer
|
|
0000010E 00000000 D6 77 212 c020: sui $077 !a=89h,c=1,p=0,s=1,z=0
|
|
00000110 00000000 D4 00 00 213 cnc cpuer !test "cnc"
|
|
00000113 00000000 EC 00 00 214 cpe cpuer !test "cpe"
|
|
00000116 00000000 F4 00 00 215 cp cpuer !test "cp"
|
|
00000119 00000000 CC 00 00 216 cz cpuer !test "cz"
|
|
0000011C 00000000 FE 89 217 cpi $089
|
|
0000011E 00000000 CA 00 00 218 jz c030 !test for "calls" taking branch
|
|
00000121 00000000 CD 00 00 219 call cpuer
|
|
00000124 00000000 E6 FF 220 c030: ani $0ff !set flags back!
|
|
00000126 00000000 E4 00 00 221 cpo cpoi !test "cpo"
|
|
00000129 00000000 FE D9 222 cpi $0d9
|
|
0000012B 00000000 CA 00 00 223 jz movi !test "call" sequence success
|
|
0000012E 00000000 CD 00 00 224 call cpuer
|
|
00000131 00000000 E8 225 cpoi: rpe !test "rpe"
|
|
00000132 00000000 C6 10 226 adi $010 !a=99h,c=0,p=0,s=1,z=0
|
|
00000134 00000000 EC 00 00 227 cpe cpei !test "cpe"
|
|
00000137 00000000 C6 02 228 adi $002 !a=d9h,c=0,p=0,s=1,z=0
|
|
00000139 00000000 E0 229 rpo !test "rpo"
|
|
0000013A 00000000 CD 00 00 230 call cpuer
|
|
0000013D 00000000 E0 231 cpei: rpo !test "rpo"
|
|
0000013E 00000000 C6 20 232 adi $020 !a=b9h,c=0,p=0,s=1,z=0
|
|
00000140 00000000 FC 00 00 233 cm cmi !test "cm"
|
|
00000143 00000000 C6 04 234 adi $004 !a=d7h,c=0,p=1,s=1,z=0
|
|
00000145 00000000 E8 235 rpe !test "rpe"
|
|
00000146 00000000 CD 00 00 236 call cpuer
|
|
00000149 00000000 F0 237 cmi: rp !test "rp"
|
|
0000014A 00000000 C6 80 238 adi $080 !a=39h,c=1,p=1,s=0,z=0
|
|
0000014C 00000000 F4 00 00 239 cp tcpi !test "cp"
|
|
0000014F 00000000 C6 80 240 adi $080 !a=d3h,c=0,p=0,s=1,z=0
|
|
00000151 00000000 F8 241 rm !test "rm"
|
|
00000152 00000000 CD 00 00 242 call cpuer
|
|
00000155 00000000 F8 243 tcpi: rm !test "rm"
|
|
00000156 00000000 C6 40 244 adi $040 !a=79h,c=0,p=0,s=0,z=0
|
|
00000158 00000000 D4 00 00 245 cnc cnci !test "cnc"
|
|
0000015B 00000000 C6 40 246 adi $040 !a=53h,c=0,p=1,s=0,z=0
|
|
0000015D 00000000 F0 247 rp !test "rp"
|
|
0000015E 00000000 CD 00 00 248 call cpuer
|
|
00000161 00000000 D8 249 cnci: rc !test "rc"
|
|
00000162 00000000 C6 8F 250 adi $08f !a=08h,c=1,p=0,s=0,z=0
|
|
00000164 00000000 DC 00 00 251 cc cci !test "cc"
|
|
00000167 00000000 D6 02 252 sui $002 !a=13h,c=0,p=0,s=0,z=0
|
|
00000169 00000000 D0 253 rnc !test "rnc"
|
|
0000016A 00000000 CD 00 00 254 call cpuer
|
|
0000016D 00000000 D0 255 cci: rnc !test "rnc"
|
|
0000016E 00000000 C6 F7 256 adi $0f7 !a=ffh,c=0,p=1,s=1,z=0
|
|
00000170 00000000 C4 00 00 257 cnz cnzi !test "cnz"
|
|
00000173 00000000 C6 FE 258 adi $0fe !a=15h,c=1,p=0,s=0,z=0
|
|
|
|
|
|
test Page 4
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
00000175 00000000 D8 259 rc !test "rc"
|
|
00000176 00000000 CD 00 00 260 call cpuer
|
|
00000179 00000000 C8 261 cnzi: rz !test "rz"
|
|
0000017A 00000000 C6 01 262 adi $001 !a=00h,c=1,p=1,s=0,z=1
|
|
0000017C 00000000 CC 00 00 263 cz czi !test "cz"
|
|
0000017F 00000000 C6 D0 264 adi $0d0 !a=17h,c=1,p=1,s=0,z=0
|
|
00000181 00000000 C0 265 rnz !test "rnz"
|
|
00000182 00000000 CD 00 00 266 call cpuer
|
|
00000185 00000000 C0 267 czi: rnz !test "rnz"
|
|
00000186 00000000 C6 47 268 adi $047 !a=47h,c=0,p=1,s=0,z=0
|
|
00000188 00000000 FE 47 269 cpi $047 !a=47h,c=0,p=1,s=0,z=1
|
|
0000018A 00000000 C8 270 rz !test "rz"
|
|
0000018B 00000000 CD 00 00 271 call cpuer
|
|
0000018E 00000000 272 !
|
|
0000018E 00000000 273 !
|
|
0000018E 00000000 274 !
|
|
0000018E 00000000 275 !test "mov","inr",and "dcr" instructions
|
|
0000018E 00000000 276 !
|
|
0000018E 00000000 3E 77 277 movi: mvi a,$077
|
|
00000190 00000000 3C 278 inr a
|
|
00000191 00000000 47 279 mov b,a
|
|
00000192 00000000 04 280 inr b
|
|
00000193 00000000 48 281 mov c,b
|
|
00000194 00000000 0D 282 dcr c
|
|
00000195 00000000 51 283 mov d,c
|
|
00000196 00000000 5A 284 mov e,d
|
|
00000197 00000000 63 285 mov h,e
|
|
00000198 00000000 6C 286 mov l,h
|
|
00000199 00000000 7D 287 mov a,l !test "mov" a,l,h,e,d,c,b,a
|
|
0000019A 00000000 3D 288 dcr a
|
|
0000019B 00000000 4F 289 mov c,a
|
|
0000019C 00000000 59 290 mov e,c
|
|
0000019D 00000000 6B 291 mov l,e
|
|
0000019E 00000000 45 292 mov b,l
|
|
0000019F 00000000 50 293 mov d,b
|
|
000001A0 00000000 62 294 mov h,d
|
|
000001A1 00000000 7C 295 mov a,h !test "mov" a,h,d,b,l,e,c,a
|
|
000001A2 00000000 57 296 mov d,a
|
|
000001A3 00000000 14 297 inr d
|
|
000001A4 00000000 6A 298 mov l,d
|
|
000001A5 00000000 4D 299 mov c,l
|
|
000001A6 00000000 0C 300 inr c
|
|
000001A7 00000000 61 301 mov h,c
|
|
000001A8 00000000 44 302 mov b,h
|
|
000001A9 00000000 05 303 dcr b
|
|
000001AA 00000000 58 304 mov e,b
|
|
000001AB 00000000 7B 305 mov a,e !test "mov" a,e,b,h,c,l,d,a
|
|
000001AC 00000000 5F 306 mov e,a
|
|
000001AD 00000000 1C 307 inr e
|
|
000001AE 00000000 43 308 mov b,e
|
|
000001AF 00000000 60 309 mov h,b
|
|
000001B0 00000000 24 310 inr h
|
|
000001B1 00000000 4C 311 mov c,h
|
|
000001B2 00000000 69 312 mov l,c
|
|
000001B3 00000000 55 313 mov d,l
|
|
000001B4 00000000 15 314 dcr d
|
|
000001B5 00000000 7A 315 mov a,d !test "mov" a,d,l,c,h,b,e,a
|
|
000001B6 00000000 67 316 mov h,a
|
|
000001B7 00000000 25 317 dcr h
|
|
000001B8 00000000 54 318 mov d,h
|
|
000001B9 00000000 42 319 mov b,d
|
|
000001BA 00000000 68 320 mov l,b
|
|
000001BB 00000000 2C 321 inr l
|
|
000001BC 00000000 5D 322 mov e,l
|
|
000001BD 00000000 1D 323 dcr e
|
|
000001BE 00000000 4B 324 mov c,e
|
|
000001BF 00000000 79 325 mov a,c !test "mov" a,c,e,l,b,d,h,a
|
|
000001C0 00000000 6F 326 mov l,a
|
|
000001C1 00000000 2D 327 dcr l
|
|
000001C2 00000000 65 328 mov h,l
|
|
000001C3 00000000 5C 329 mov e,h
|
|
000001C4 00000000 53 330 mov d,e
|
|
000001C5 00000000 4A 331 mov c,d
|
|
000001C6 00000000 41 332 mov b,c
|
|
000001C7 00000000 78 333 mov a,b
|
|
000001C8 00000000 FE 77 334 cpi $077
|
|
000001CA 00000000 C4 00 00 335 cnz cpuer !test "mov" a,b,c,d,e,h,l,a
|
|
000001CD 00000000 336 !
|
|
000001CD 00000000 337 !
|
|
000001CD 00000000 338 !
|
|
000001CD 00000000 339 !test arithmetic and logic instructions
|
|
000001CD 00000000 340 !
|
|
000001CD 00000000 AF 341 xra a
|
|
000001CE 00000000 06 01 342 mvi b,$001
|
|
000001D0 00000000 0E 03 343 mvi c,$003
|
|
000001D2 00000000 16 07 344 mvi d,$007
|
|
|
|
|
|
test Page 5
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
000001D4 00000000 1E 0F 345 mvi e,$00f
|
|
000001D6 00000000 26 1F 346 mvi h,$01f
|
|
000001D8 00000000 2E 3F 347 mvi l,$03f
|
|
000001DA 00000000 80 348 add b
|
|
000001DB 00000000 81 349 add c
|
|
000001DC 00000000 82 350 add d
|
|
000001DD 00000000 83 351 add e
|
|
000001DE 00000000 84 352 add h
|
|
000001DF 00000000 85 353 add l
|
|
000001E0 00000000 87 354 add a
|
|
000001E1 00000000 FE F0 355 cpi $0f0
|
|
000001E3 00000000 C4 00 00 356 cnz cpuer !test "add" b,c,d,e,h,l,a
|
|
000001E6 00000000 90 357 sub b
|
|
000001E7 00000000 91 358 sub c
|
|
000001E8 00000000 92 359 sub d
|
|
000001E9 00000000 93 360 sub e
|
|
000001EA 00000000 94 361 sub h
|
|
000001EB 00000000 95 362 sub l
|
|
000001EC 00000000 FE 78 363 cpi $078
|
|
000001EE 00000000 C4 00 00 364 cnz cpuer !test "sub" b,c,d,e,h,l
|
|
000001F1 00000000 97 365 sub a
|
|
000001F2 00000000 C4 00 00 366 cnz cpuer !test "sub" a
|
|
000001F5 00000000 3E 80 367 mvi a,$080
|
|
000001F7 00000000 87 368 add a
|
|
000001F8 00000000 06 01 369 mvi b,$001
|
|
000001FA 00000000 0E 02 370 mvi c,$002
|
|
000001FC 00000000 16 03 371 mvi d,$003
|
|
000001FE 00000000 1E 04 372 mvi e,$004
|
|
00000200 00000000 26 05 373 mvi h,$005
|
|
00000202 00000000 2E 06 374 mvi l,$006
|
|
00000204 00000000 88 375 adc b
|
|
00000205 00000000 06 80 376 mvi b,$080
|
|
00000207 00000000 80 377 add b
|
|
00000208 00000000 80 378 add b
|
|
00000209 00000000 89 379 adc c
|
|
0000020A 00000000 80 380 add b
|
|
0000020B 00000000 80 381 add b
|
|
0000020C 00000000 8A 382 adc d
|
|
0000020D 00000000 80 383 add b
|
|
0000020E 00000000 80 384 add b
|
|
0000020F 00000000 8B 385 adc e
|
|
00000210 00000000 80 386 add b
|
|
00000211 00000000 80 387 add b
|
|
00000212 00000000 8C 388 adc h
|
|
00000213 00000000 80 389 add b
|
|
00000214 00000000 80 390 add b
|
|
00000215 00000000 8D 391 adc l
|
|
00000216 00000000 80 392 add b
|
|
00000217 00000000 80 393 add b
|
|
00000218 00000000 8F 394 adc a
|
|
00000219 00000000 FE 37 395 cpi $037
|
|
0000021B 00000000 C4 00 00 396 cnz cpuer !test "adc" b,c,d,e,h,l,a
|
|
0000021E 00000000 3E 80 397 mvi a,$080
|
|
00000220 00000000 87 398 add a
|
|
00000221 00000000 06 01 399 mvi b,$001
|
|
00000223 00000000 98 400 sbb b
|
|
00000224 00000000 06 FF 401 mvi b,$0ff
|
|
00000226 00000000 80 402 add b
|
|
00000227 00000000 99 403 sbb c
|
|
00000228 00000000 80 404 add b
|
|
00000229 00000000 9A 405 sbb d
|
|
0000022A 00000000 80 406 add b
|
|
0000022B 00000000 9B 407 sbb e
|
|
0000022C 00000000 80 408 add b
|
|
0000022D 00000000 9C 409 sbb h
|
|
0000022E 00000000 80 410 add b
|
|
0000022F 00000000 9D 411 sbb l
|
|
00000230 00000000 FE E0 412 cpi $0e0
|
|
00000232 00000000 C4 00 00 413 cnz cpuer !test "sbb" b,c,d,e,h,l
|
|
00000235 00000000 3E 80 414 mvi a,$080
|
|
00000237 00000000 87 415 add a
|
|
00000238 00000000 9F 416 sbb a
|
|
00000239 00000000 FE FF 417 cpi $0ff
|
|
0000023B 00000000 C4 00 00 418 cnz cpuer !test "sbb" a
|
|
0000023E 00000000 3E FF 419 mvi a,$0ff
|
|
00000240 00000000 06 FE 420 mvi b,$0fe
|
|
00000242 00000000 0E FC 421 mvi c,$0fc
|
|
00000244 00000000 16 EF 422 mvi d,$0ef
|
|
00000246 00000000 1E 7F 423 mvi e,$07f
|
|
00000248 00000000 26 F4 424 mvi h,$0f4
|
|
0000024A 00000000 2E BF 425 mvi l,$0bf
|
|
0000024C 00000000 A7 426 ana a
|
|
0000024D 00000000 A1 427 ana c
|
|
0000024E 00000000 A2 428 ana d
|
|
0000024F 00000000 A3 429 ana e
|
|
00000250 00000000 A4 430 ana h
|
|
|
|
|
|
test Page 6
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
00000251 00000000 A5 431 ana l
|
|
00000252 00000000 A7 432 ana a
|
|
00000253 00000000 FE 24 433 cpi $024
|
|
00000255 00000000 C4 00 00 434 cnz cpuer !test "ana" b,c,d,e,h,l,a
|
|
00000258 00000000 AF 435 xra a
|
|
00000259 00000000 06 01 436 mvi b,$001
|
|
0000025B 00000000 0E 02 437 mvi c,$002
|
|
0000025D 00000000 16 04 438 mvi d,$004
|
|
0000025F 00000000 1E 08 439 mvi e,$008
|
|
00000261 00000000 26 10 440 mvi h,$010
|
|
00000263 00000000 2E 20 441 mvi l,$020
|
|
00000265 00000000 B0 442 ora b
|
|
00000266 00000000 B1 443 ora c
|
|
00000267 00000000 B2 444 ora d
|
|
00000268 00000000 B3 445 ora e
|
|
00000269 00000000 B4 446 ora h
|
|
0000026A 00000000 B5 447 ora l
|
|
0000026B 00000000 B7 448 ora a
|
|
0000026C 00000000 FE 3F 449 cpi $03f
|
|
0000026E 00000000 C4 00 00 450 cnz cpuer !test "ora" b,c,d,e,h,l,a
|
|
00000271 00000000 3E 00 451 mvi a,$0
|
|
00000273 00000000 26 8F 452 mvi h,$08f
|
|
00000275 00000000 2E 4F 453 mvi l,$04f
|
|
00000277 00000000 A8 454 xra b
|
|
00000278 00000000 A9 455 xra c
|
|
00000279 00000000 AA 456 xra d
|
|
0000027A 00000000 AB 457 xra e
|
|
0000027B 00000000 AC 458 xra h
|
|
0000027C 00000000 AD 459 xra l
|
|
0000027D 00000000 FE CF 460 cpi $0cf
|
|
0000027F 00000000 C4 00 00 461 cnz cpuer !test "xra" b,c,d,e,h,l
|
|
00000282 00000000 AF 462 xra a
|
|
00000283 00000000 C4 00 00 463 cnz cpuer !test "xra" a
|
|
00000286 00000000 06 44 464 mvi b,$044
|
|
00000288 00000000 0E 45 465 mvi c,$045
|
|
0000028A 00000000 16 46 466 mvi d,$046
|
|
0000028C 00000000 1E 47 467 mvi e,$047
|
|
0000028E 00000000 26 00 468 mvi h,(temp0 / $0ff) !high byte of test memory location
|
|
00000290 00000000 2E 00 469 mvi l,(temp0 and $0ff) !low byte of test memory location
|
|
00000292 00000000 70 470 mov m,b
|
|
00000293 00000000 06 00 471 mvi b,$0
|
|
00000295 00000000 46 472 mov b,m
|
|
00000296 00000000 3E 44 473 mvi a,$044
|
|
00000298 00000000 B8 474 cmp b
|
|
00000299 00000000 C4 00 00 475 cnz cpuer !test "mov" m,b and b,m
|
|
0000029C 00000000 72 476 mov m,d
|
|
0000029D 00000000 16 00 477 mvi d,$0
|
|
0000029F 00000000 56 478 mov d,m
|
|
000002A0 00000000 3E 46 479 mvi a,$046
|
|
000002A2 00000000 BA 480 cmp d
|
|
000002A3 00000000 C4 00 00 481 cnz cpuer !test "mov" m,d and d,m
|
|
000002A6 00000000 73 482 mov m,e
|
|
000002A7 00000000 1E 00 483 mvi e,$0
|
|
000002A9 00000000 5E 484 mov e,m
|
|
000002AA 00000000 3E 47 485 mvi a,$047
|
|
000002AC 00000000 BB 486 cmp e
|
|
000002AD 00000000 C4 00 00 487 cnz cpuer !test "mov" m,e and e,m
|
|
000002B0 00000000 74 488 mov m,h
|
|
000002B1 00000000 26 00 489 mvi h,(temp0 / $0ff)
|
|
000002B3 00000000 2E 00 490 mvi l,(temp0 and $0ff)
|
|
000002B5 00000000 66 491 mov h,m
|
|
000002B6 00000000 3E 00 492 mvi a,(temp0 / $0ff)
|
|
000002B8 00000000 BC 493 cmp h
|
|
000002B9 00000000 C4 00 00 494 cnz cpuer !test "mov" m,h and h,m
|
|
000002BC 00000000 75 495 mov m,l
|
|
000002BD 00000000 26 00 496 mvi h,(temp0 / $0ff)
|
|
000002BF 00000000 2E 00 497 mvi l,(temp0 and $0ff)
|
|
000002C1 00000000 6E 498 mov l,m
|
|
000002C2 00000000 3E 00 499 mvi a,(temp0 and $0ff)
|
|
000002C4 00000000 BD 500 cmp l
|
|
000002C5 00000000 C4 00 00 501 cnz cpuer !test "mov" m,l and l,m
|
|
000002C8 00000000 26 00 502 mvi h,(temp0 / $0ff)
|
|
000002CA 00000000 2E 00 503 mvi l,(temp0 and $0ff)
|
|
000002CC 00000000 3E 32 504 mvi a,$032
|
|
000002CE 00000000 77 505 mov m,a
|
|
000002CF 00000000 BE 506 cmp m
|
|
000002D0 00000000 C4 00 00 507 cnz cpuer !test "mov" m,a
|
|
000002D3 00000000 86 508 add m
|
|
000002D4 00000000 FE 64 509 cpi $064
|
|
000002D6 00000000 C4 00 00 510 cnz cpuer !test "add" m
|
|
000002D9 00000000 AF 511 xra a
|
|
000002DA 00000000 7E 512 mov a,m
|
|
000002DB 00000000 FE 32 513 cpi $032
|
|
000002DD 00000000 C4 00 00 514 cnz cpuer !test "mov" a,m
|
|
000002E0 00000000 26 00 515 mvi h,(temp0 / $0ff)
|
|
000002E2 00000000 2E 00 516 mvi l,(temp0 and $0ff)
|
|
|
|
|
|
test Page 7
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
000002E4 00000000 7E 517 mov a,m
|
|
000002E5 00000000 96 518 sub m
|
|
000002E6 00000000 C4 00 00 519 cnz cpuer !test "sub" m
|
|
000002E9 00000000 3E 80 520 mvi a,$080
|
|
000002EB 00000000 87 521 add a
|
|
000002EC 00000000 8E 522 adc m
|
|
000002ED 00000000 FE 33 523 cpi $033
|
|
000002EF 00000000 C4 00 00 524 cnz cpuer !test "adc" m
|
|
000002F2 00000000 3E 80 525 mvi a,$080
|
|
000002F4 00000000 87 526 add a
|
|
000002F5 00000000 9E 527 sbb m
|
|
000002F6 00000000 FE CD 528 cpi $0cd
|
|
000002F8 00000000 C4 00 00 529 cnz cpuer !test "sbb" m
|
|
000002FB 00000000 A6 530 ana m
|
|
000002FC 00000000 C4 00 00 531 cnz cpuer !test "ana" m
|
|
000002FF 00000000 3E 25 532 mvi a,$025
|
|
00000301 00000000 B6 533 ora m
|
|
00000302 00000000 FE 37 534 cpi $37
|
|
00000304 00000000 C4 00 00 535 cnz cpuer !test "ora" m
|
|
00000307 00000000 AE 536 xra m
|
|
00000308 00000000 FE 05 537 cpi $005
|
|
0000030A 00000000 C4 00 00 538 cnz cpuer !test "xra" m
|
|
0000030D 00000000 36 55 539 mvi m,$055
|
|
0000030F 00000000 34 540 inr m
|
|
00000310 00000000 35 541 dcr m
|
|
00000311 00000000 86 542 add m
|
|
00000312 00000000 FE 5A 543 cpi $05a
|
|
00000314 00000000 C4 00 00 544 cnz cpuer !test "inr","dcr",and "mvi" m
|
|
00000317 00000000 01 FF 12 545 lxi b,$12ff
|
|
0000031A 00000000 11 FF 12 546 lxi d,$12ff
|
|
0000031D 00000000 21 FF 12 547 lxi h,$12ff
|
|
00000320 00000000 03 548 inx b
|
|
00000321 00000000 13 549 inx d
|
|
00000322 00000000 23 550 inx h
|
|
00000323 00000000 3E 13 551 mvi a,$013
|
|
00000325 00000000 B8 552 cmp b
|
|
00000326 00000000 C4 00 00 553 cnz cpuer !test "lxi" and "inx" b
|
|
00000329 00000000 BA 554 cmp d
|
|
0000032A 00000000 C4 00 00 555 cnz cpuer !test "lxi" and "inx" d
|
|
0000032D 00000000 BC 556 cmp h
|
|
0000032E 00000000 C4 00 00 557 cnz cpuer !test "lxi" and "inx" h
|
|
00000331 00000000 3E 00 558 mvi a,$0
|
|
00000333 00000000 B9 559 cmp c
|
|
00000334 00000000 C4 00 00 560 cnz cpuer !test "lxi" and "inx" b
|
|
00000337 00000000 BB 561 cmp e
|
|
00000338 00000000 C4 00 00 562 cnz cpuer !test "lxi" and "inx" d
|
|
0000033B 00000000 BD 563 cmp l
|
|
0000033C 00000000 C4 00 00 564 cnz cpuer !test "lxi" and "inx" h
|
|
0000033F 00000000 0B 565 dcx b
|
|
00000340 00000000 1B 566 dcx d
|
|
00000341 00000000 2B 567 dcx h
|
|
00000342 00000000 3E 12 568 mvi a,$012
|
|
00000344 00000000 B8 569 cmp b
|
|
00000345 00000000 C4 00 00 570 cnz cpuer !test "dcx" b
|
|
00000348 00000000 BA 571 cmp d
|
|
00000349 00000000 C4 00 00 572 cnz cpuer !test "dcx" d
|
|
0000034C 00000000 BC 573 cmp h
|
|
0000034D 00000000 C4 00 00 574 cnz cpuer !test "dcx" h
|
|
00000350 00000000 3E FF 575 mvi a,$0ff
|
|
00000352 00000000 B9 576 cmp c
|
|
00000353 00000000 C4 00 00 577 cnz cpuer !test "dcx" b
|
|
00000356 00000000 BB 578 cmp e
|
|
00000357 00000000 C4 00 00 579 cnz cpuer !test "dcx" d
|
|
0000035A 00000000 BD 580 cmp l
|
|
0000035B 00000000 C4 00 00 581 cnz cpuer !test "dcx" h
|
|
0000035E 00000000 32 00 00 582 sta temp0
|
|
00000361 00000000 AF 583 xra a
|
|
00000362 00000000 3A 00 00 584 lda temp0
|
|
00000365 00000000 FE FF 585 cpi $0ff
|
|
00000367 00000000 C4 00 00 586 cnz cpuer !test "lda" and "sta"
|
|
0000036A 00000000 2A 00 00 587 lhld tempp
|
|
0000036D 00000000 22 00 00 588 shld temp0
|
|
00000370 00000000 3A 00 00 589 lda tempp
|
|
00000373 00000000 47 590 mov b,a
|
|
00000374 00000000 3A 00 00 591 lda temp0
|
|
00000377 00000000 B8 592 cmp b
|
|
00000378 00000000 C4 00 00 593 cnz cpuer !test "lhld" and "shld"
|
|
0000037B 00000000 3A 00 00 594 lda tempp+1
|
|
0000037E 00000000 47 595 mov b,a
|
|
0000037F 00000000 3A 00 00 596 lda temp0+1
|
|
00000382 00000000 B8 597 cmp b
|
|
00000383 00000000 C4 00 00 598 cnz cpuer !test "lhld" and "shld"
|
|
00000386 00000000 3E AA 599 mvi a,$0aa
|
|
00000388 00000000 32 00 00 600 sta temp0
|
|
0000038B 00000000 44 601 mov b,h
|
|
0000038C 00000000 4D 602 mov c,l
|
|
|
|
|
|
test Page 8
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
0000038D 00000000 AF 603 xra a
|
|
0000038E 00000000 0A 604 ldax b
|
|
0000038F 00000000 FE AA 605 cpi $0aa
|
|
00000391 00000000 C4 00 00 606 cnz cpuer !test "ldax" b
|
|
00000394 00000000 3C 607 inr a
|
|
00000395 00000000 02 608 stax b
|
|
00000396 00000000 3A 00 00 609 lda temp0
|
|
00000399 00000000 FE AB 610 cpi $0ab
|
|
0000039B 00000000 C4 00 00 611 cnz cpuer !test "stax" b
|
|
0000039E 00000000 3E 77 612 mvi a,$077
|
|
000003A0 00000000 32 00 00 613 sta temp0
|
|
000003A3 00000000 2A 00 00 614 lhld tempp
|
|
000003A6 00000000 11 00 00 615 lxi d,$00000
|
|
000003A9 00000000 EB 616 xchg
|
|
000003AA 00000000 AF 617 xra a
|
|
000003AB 00000000 1A 618 ldax d
|
|
000003AC 00000000 FE 77 619 cpi $077
|
|
000003AE 00000000 C4 00 00 620 cnz cpuer !test "ldax" d and "xchg"
|
|
000003B1 00000000 AF 621 xra a
|
|
000003B2 00000000 84 622 add h
|
|
000003B3 00000000 85 623 add l
|
|
000003B4 00000000 C4 00 00 624 cnz cpuer !test "xchg"
|
|
000003B7 00000000 3E CC 625 mvi a,$0cc
|
|
000003B9 00000000 12 626 stax d
|
|
000003BA 00000000 3A 00 00 627 lda temp0
|
|
000003BD 00000000 FE CC 628 cpi $0cc
|
|
000003BF 00000000 12 629 stax d
|
|
000003C0 00000000 3A 00 00 630 lda temp0
|
|
000003C3 00000000 FE CC 631 cpi $0cc
|
|
000003C5 00000000 C4 00 00 632 cnz cpuer !test "stax" d
|
|
000003C8 00000000 21 77 77 633 lxi h,$07777
|
|
000003CB 00000000 29 634 dad h
|
|
000003CC 00000000 3E EE 635 mvi a,$0ee
|
|
000003CE 00000000 BC 636 cmp h
|
|
000003CF 00000000 C4 00 00 637 cnz cpuer !test "dad" h
|
|
000003D2 00000000 BD 638 cmp l
|
|
000003D3 00000000 C4 00 00 639 cnz cpuer !test "dad" h
|
|
000003D6 00000000 21 55 55 640 lxi h,$05555
|
|
000003D9 00000000 01 FF FF 641 lxi b,$0ffff
|
|
000003DC 00000000 09 642 dad b
|
|
000003DD 00000000 3E 55 643 mvi a,$055
|
|
000003DF 00000000 D4 00 00 644 cnc cpuer !test "dad" b
|
|
000003E2 00000000 BC 645 cmp h
|
|
000003E3 00000000 C4 00 00 646 cnz cpuer !test "dad" b
|
|
000003E6 00000000 3E 54 647 mvi a,$054
|
|
000003E8 00000000 BD 648 cmp l
|
|
000003E9 00000000 C4 00 00 649 cnz cpuer !test "dad" b
|
|
000003EC 00000000 21 AA AA 650 lxi h,$0aaaa
|
|
000003EF 00000000 11 33 33 651 lxi d,$03333
|
|
000003F2 00000000 19 652 dad d
|
|
000003F3 00000000 3E DD 653 mvi a,$0dd
|
|
000003F5 00000000 BC 654 cmp h
|
|
000003F6 00000000 C4 00 00 655 cnz cpuer !test "dad" d
|
|
000003F9 00000000 BD 656 cmp l
|
|
000003FA 00000000 C4 00 00 657 cnz cpuer !test "dad" b
|
|
000003FD 00000000 37 658 stc
|
|
000003FE 00000000 D4 00 00 659 cnc cpuer !test "stc"
|
|
00000401 00000000 3F 660 cmc
|
|
00000402 00000000 DC 00 00 661 cc cpuer !test "cmc
|
|
00000405 00000000 3E AA 662 mvi a,$0aa
|
|
00000407 00000000 2F 663 cma
|
|
00000408 00000000 FE 55 664 cpi $055
|
|
0000040A 00000000 C4 00 00 665 cnz cpuer !test "cma"
|
|
0000040D 00000000 B7 666 ora a !re-set auxiliary carry
|
|
0000040E 00000000 27 667 daa
|
|
0000040F 00000000 FE 55 668 cpi $055
|
|
00000411 00000000 C4 00 00 669 cnz cpuer !test "daa"
|
|
00000414 00000000 3E 88 670 mvi a,$088
|
|
00000416 00000000 87 671 add a
|
|
00000417 00000000 27 672 daa
|
|
00000418 00000000 FE 76 673 cpi $076
|
|
0000041A 00000000 C4 00 00 674 cnz cpuer !test "daa"
|
|
0000041D 00000000 AF 675 xra a
|
|
0000041E 00000000 3E AA 676 mvi a,$0aa
|
|
00000420 00000000 27 677 daa
|
|
00000421 00000000 D4 00 00 678 cnc cpuer !test "daa"
|
|
00000424 00000000 FE 10 679 cpi $010
|
|
00000426 00000000 C4 00 00 680 cnz cpuer !test "daa"
|
|
00000429 00000000 AF 681 xra a
|
|
0000042A 00000000 3E 9A 682 mvi a,$09a
|
|
0000042C 00000000 27 683 daa
|
|
0000042D 00000000 D4 00 00 684 cnc cpuer !test "daa"
|
|
00000430 00000000 C4 00 00 685 cnz cpuer !test "daa"
|
|
00000433 00000000 37 686 stc
|
|
00000434 00000000 3E 42 687 mvi a,$042
|
|
00000436 00000000 07 688 rlc
|
|
|
|
|
|
test Page 9
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
00000437 00000000 DC 00 00 689 cc cpuer !test "rlc" for re-set carry
|
|
0000043A 00000000 07 690 rlc
|
|
0000043B 00000000 D4 00 00 691 cnc cpuer !test "rlc" for set carry
|
|
0000043E 00000000 FE 09 692 cpi $009
|
|
00000440 00000000 C4 00 00 693 cnz cpuer !test "rlc" for rotation
|
|
00000443 00000000 0F 694 rrc
|
|
00000444 00000000 D4 00 00 695 cnc cpuer !test "rrc" for set carry
|
|
00000447 00000000 0F 696 rrc
|
|
00000448 00000000 FE 42 697 cpi $042
|
|
0000044A 00000000 C4 00 00 698 cnz cpuer !test "rrc" for rotation
|
|
0000044D 00000000 17 699 ral
|
|
0000044E 00000000 17 700 ral
|
|
0000044F 00000000 D4 00 00 701 cnc cpuer !test "ral" for set carry
|
|
00000452 00000000 FE 08 702 cpi $008
|
|
00000454 00000000 C4 00 00 703 cnz cpuer !test "ral" for rotation
|
|
00000457 00000000 1F 704 rar
|
|
00000458 00000000 1F 705 rar
|
|
00000459 00000000 DC 00 00 706 cc cpuer !test "rar" for re-set carry
|
|
0000045C 00000000 FE 02 707 cpi $002
|
|
0000045E 00000000 C4 00 00 708 cnz cpuer !test "rar" for rotation
|
|
00000461 00000000 01 34 12 709 lxi b,$01234
|
|
00000464 00000000 11 AA AA 710 lxi d,$0aaaa
|
|
00000467 00000000 21 55 55 711 lxi h,$05555
|
|
0000046A 00000000 AF 712 xra a
|
|
0000046B 00000000 C5 713 push b
|
|
0000046C 00000000 D5 714 push d
|
|
0000046D 00000000 E5 715 push h
|
|
0000046E 00000000 F5 716 push psw
|
|
0000046F 00000000 01 00 00 717 lxi b,$00000
|
|
00000472 00000000 11 00 00 718 lxi d,$00000
|
|
00000475 00000000 21 00 00 719 lxi h,$00000
|
|
00000478 00000000 3E C0 720 mvi a,$0c0
|
|
0000047A 00000000 C6 F0 721 adi $0f0
|
|
0000047C 00000000 F1 722 pop psw
|
|
0000047D 00000000 E1 723 pop h
|
|
0000047E 00000000 D1 724 pop d
|
|
0000047F 00000000 C1 725 pop b
|
|
00000480 00000000 DC 00 00 726 cc cpuer !test "push psw" and "pop psw"
|
|
00000483 00000000 C4 00 00 727 cnz cpuer !test "push psw" and "pop psw"
|
|
00000486 00000000 E4 00 00 728 cpo cpuer !test "push psw" and "pop psw"
|
|
00000489 00000000 FC 00 00 729 cm cpuer !test "push psw" and "pop psw"
|
|
0000048C 00000000 3E 12 730 mvi a,$012
|
|
0000048E 00000000 B8 731 cmp b
|
|
0000048F 00000000 C4 00 00 732 cnz cpuer !test "push b" and "pop b"
|
|
00000492 00000000 3E 34 733 mvi a,$034
|
|
00000494 00000000 B9 734 cmp c
|
|
00000495 00000000 C4 00 00 735 cnz cpuer !test "push b" and "pop b"
|
|
00000498 00000000 3E AA 736 mvi a,$0aa
|
|
0000049A 00000000 BA 737 cmp d
|
|
0000049B 00000000 C4 00 00 738 cnz cpuer !test "push d" and "pop d"
|
|
0000049E 00000000 BB 739 cmp e
|
|
0000049F 00000000 C4 00 00 740 cnz cpuer !test "push d" and "pop d"
|
|
000004A2 00000000 3E 55 741 mvi a,$055
|
|
000004A4 00000000 BC 742 cmp h
|
|
000004A5 00000000 C4 00 00 743 cnz cpuer !test "push h" and "pop h"
|
|
000004A8 00000000 BD 744 cmp l
|
|
000004A9 00000000 C4 00 00 745 cnz cpuer !test "push h" and "pop h"
|
|
000004AC 00000000 21 00 00 746 lxi h,$00000
|
|
000004AF 00000000 39 747 dad sp
|
|
000004B0 00000000 22 00 00 748 shld savstk !save the "old" stack-pointer!
|
|
000004B3 00000000 31 00 00 749 lxi sp,temp4
|
|
000004B6 00000000 3B 750 dcx sp
|
|
000004B7 00000000 3B 751 dcx sp
|
|
000004B8 00000000 33 752 inx sp
|
|
000004B9 00000000 3B 753 dcx sp
|
|
000004BA 00000000 3E 55 754 mvi a,$055
|
|
000004BC 00000000 32 00 00 755 sta temp2
|
|
000004BF 00000000 2F 756 cma
|
|
000004C0 00000000 32 00 00 757 sta temp3
|
|
000004C3 00000000 C1 758 pop b
|
|
000004C4 00000000 B8 759 cmp b
|
|
000004C5 00000000 C4 00 00 760 cnz cpuer !test "lxi","dad","inx",and "dcx" sp
|
|
000004C8 00000000 2F 761 cma
|
|
000004C9 00000000 B9 762 cmp c
|
|
000004CA 00000000 C4 00 00 763 cnz cpuer !test "lxi","dad","inx", and "dcx" sp
|
|
000004CD 00000000 21 00 00 764 lxi h,temp4
|
|
000004D0 00000000 F9 765 sphl
|
|
000004D1 00000000 21 33 77 766 lxi h,$07733
|
|
000004D4 00000000 3B 767 dcx sp
|
|
000004D5 00000000 3B 768 dcx sp
|
|
000004D6 00000000 E3 769 xthl
|
|
000004D7 00000000 3A 00 00 770 lda temp3
|
|
000004DA 00000000 FE 77 771 cpi $077
|
|
000004DC 00000000 C4 00 00 772 cnz cpuer !test "sphl" and "xthl"
|
|
000004DF 00000000 3A 00 00 773 lda temp2
|
|
000004E2 00000000 FE 33 774 cpi $033
|
|
|
|
|
|
test Page 10
|
|
|
|
|
|
Program Variable Code C Line Source
|
|
-----------------------------------------------------------------------------------------------------------------------------------
|
|
000004E4 00000000 C4 00 00 775 cnz cpuer !test "sphl" and "xthl"
|
|
000004E7 00000000 3E 55 776 mvi a,$055
|
|
000004E9 00000000 BD 777 cmp l
|
|
000004EA 00000000 C4 00 00 778 cnz cpuer !test "sphl" and "xthl"
|
|
000004ED 00000000 2F 779 cma
|
|
000004EE 00000000 BC 780 cmp h
|
|
000004EF 00000000 C4 00 00 781 cnz cpuer !test "sphl" and "xthl"
|
|
000004F2 00000000 2A 00 00 782 lhld savstk !restore the "old" stack-pointer
|
|
000004F5 00000000 F9 783 sphl
|
|
000004F6 00000000 21 00 00 784 lxi h,cpuok
|
|
000004F9 00000000 E9 785 pchl !test "pchl"
|
|
000004FA 00000000 786
|
|
000004FA 00000000 3E AA 787 cpuer: mvi a, $aa ! set exit code (failure)
|
|
000004FC 00000000 76 788 hlt ! stop here
|
|
000004FD 00000000 789
|
|
000004FD 00000000 3E 55 790 cpuok: mvi a, $55 !
|
|
000004FF 00000000 76 791 hlt ! stop here - no trap
|
|
00000500 00000000 792
|
|
00000500 00000000 793
|
|
00000500 00000000 794 !
|
|
00000500 00000000 795 ! Data area in program space
|
|
00000500 00000000 796 !
|
|
00000500 00000000 00 00 797 tempp: defw temp0 !pointer used to test "lhld","shld",
|
|
00000502 00000000 798 ! and "ldax" instructions
|
|
00000502 00000000 799 !
|
|
00000502 00000000 800 ! Data area in variable space
|
|
00000502 00000000 801 !
|
|
00000502 00000000 802 temp0: defvs 1 !temporary storage for cpu test memory locations
|
|
00000502 00000001 803 temp1: defvs 1 !temporary storage for cpu test memory locations
|
|
00000502 00000002 804 temp2: defvs 1 !temporary storage for cpu test memory locations
|
|
00000502 00000003 805 temp3: defvs 1 !temporary storage for cpu test memory locations
|
|
00000502 00000004 806 temp4: defvs 1 !temporary storage for cpu test memory locations
|
|
00000502 00000005 807 savstk: defvs 2 !temporary stack-pointer storage location
|
|
00000502 00000007 808
|
|
00000502 00000007 809 defvs 256 !de-bug stack pointer storage area
|
|
00000502 00000107 + 810 stack: defvs
|
|
00000502 00000107 + 811
|
