6502/CLK
1
0
Fork 0
mirror of https://github.com/TomHarte/CLK.git synced 2024-12-11 15:49:38 +00:00
Code Issues Projects Releases Wiki Activity
f821b60430
CLK/OSBindings/Mac/Clock SignalTests/Klaus Dormann/65C02_no_Rockwell_test.lst

5539 lines
285 KiB
Plaintext
Raw Normal View History

Adds the .lst; otherwise I'll probably just lose it.
2020-10-20 00:58:24 +00:00
AS65 Assembler for R6502 [1.40]. Copyright 1994-2005, Frank A. Kingswood Page 1
---------------------------------------------------------- 65C02_~1.A65 ----------------------------------------------------------
2882 lines read, no errors in pass 1.
;
; 6 5 C 0 2 E X T E N D E D O P C O D E S T E S T
;
; Copyright (C) 2013-2017 Klaus Dormann
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
; This program is designed to test all additional 65C02 opcodes, addressing
; modes and functionality not available in the NMOS version of the 6502.
; The 6502_functional_test is a prerequisite to this test.
; NMI, IRQ, STP & WAI are covered in the 6502_interrupt_test.
;
; version 04-dec-2017
; contact info at http://2m5.de or email K@2m5.de
;
; assembled with AS65 from http://www.kingswood-consulting.co.uk/assemblers/
; command line switches: -l -m -s2 -w -x -h0
; | | | | | no page headers in listing
; | | | | 65C02 extensions
; | | | wide listing (133 char/col)
; | | write intel hex file instead of binary
; | expand macros in listing
; generate pass2 listing
;
; No IO - should be run from a monitor with access to registers.
; To run load intel hex image with a load command, than alter PC to 400 hex
; (code_segment) and enter a go command.
; Loop on program counter determines error or successful completion of test.
; Check listing for relevant traps (jump/branch *).
; Please note that in early tests some instructions will have to be used before
; they are actually tested!
;
; RESET, NMI or IRQ should not occur and will be trapped if vectors are enabled.
; Tests documented behavior of the original 65C02 only!
; Decimal ops will only be tested with valid BCD operands and the V flag will
; be ignored as it is absolutely useless in decimal mode.
;
; Debugging hints:
; Most of the code is written sequentially. if you hit a trap, check the
; immediately preceeding code for the instruction to be tested. Results are
; tested first, flags are checked second by pushing them onto the stack and
; pulling them to the accumulator after the result was checked. The "real"
; flags are no longer valid for the tested instruction at this time!
; If the tested instruction was indexed, the relevant index (X or Y) must
; also be checked. Opposed to the flags, X and Y registers are still valid.
;
; versions:
; 19-jul-2013 1st version distributed for testing
; 23-jul-2013 fixed BRA out of range due to larger trap macros
; added RAM integrity check
; 16-aug-2013 added error report to standard output option
; 23-aug-2015 change revoked
; 24-aug-2015 all self modifying immediate opcodes now execute in data RAM
; 28-aug-2015 fixed decimal adc/sbc immediate only testing carry
; 09-feb-2017 fixed RMB/SMB tested when they shouldn't be tested
; 04-dec-2017 fixed BRK not tested for actually going through the IRQ vector
; added option to skip the remainder of a failing test
; in report.i65
; added skip override to undefined opcode as NOP test
; C O N F I G U R A T I O N
;ROM_vectors writable (0=no, 1=yes)
;if ROM vectors can not be used interrupts will not be trapped
;as a consequence BRK can not be tested but will be emulated to test RTI
0001 = ROM_vectors = 1
;load_data_direct (0=move from code segment, 1=load directly)
;loading directly is preferred but may not be supported by your platform
;0 produces only consecutive object code, 1 is not suitable for a binary image
0001 = load_data_direct = 1
;I_flag behavior (0=force enabled, 1=force disabled, 2=prohibit change, 3=allow
;change) 2 requires extra code and is not recommended.
0003 = I_flag = 3
;configure memory - try to stay away from memory used by the system
;zero_page memory start address, $4e (78) consecutive Bytes required
; add 2 if I_flag = 2
000a = zero_page = $a
;data_segment memory start address, $63 (99) consecutive Bytes required
; + 12 Bytes at data_segment + $f9 (JMP indirect page cross test)
0200 = data_segment = $200
if (data_segment & $ff) != 0
ERROR ERROR ERROR low byte of data_segment MUST be $00 !!
endif
;code_segment memory start address, 10kB of consecutive space required
; add 1 kB if I_flag = 2
0400 = code_segment = $400
;added WDC only opcodes WAI & STP (0=test as NOPs, >0=no test)
0001 = wdc_op = 1
;added Rockwell & WDC opcodes BBR, BBS, RMB & SMB
;(0=test as NOPs, 1=full test, >1=no test)
0002 = rkwl_wdc_op = 2
;skip testing all undefined opcodes override
;0=test as NOP, >0=skip
0001 = skip_nop = 1
;report errors through I/O channel (0=use standard self trap loops, 1=include
;report.i65 as I/O channel, add 3 kB)
0000 = report = 0
;RAM integrity test option. Checks for undesired RAM writes.
;set lowest non RAM or RAM mirror address page (-1=disable, 0=64k, $40=16k)
;leave disabled if a monitor, OS or background interrupt is allowed to alter RAM
ffff = ram_top = -1
noopt ;do not take shortcuts
;macros for error & success traps to allow user modification
;example:
;trap macro
; jsr my_error_handler
; endm
;trap_eq macro
; bne skip\?
; trap ;failed equal (zero)
;skip\?
; endm
;
; my_error_handler should pop the calling address from the stack and report it.
; putting larger portions of code (more than 3 bytes) inside the trap macro
; may lead to branch range problems for some tests.
if report = 0
trap macro
jmp * ;failed anyway
endm
trap_eq macro
beq * ;failed equal (zero)
endm
trap_ne macro
bne * ;failed not equal (non zero)
endm
trap_cs macro
bcs * ;failed carry set
endm
trap_cc macro
bcc * ;failed carry clear
endm
trap_mi macro
bmi * ;failed minus (bit 7 set)
endm
trap_pl macro
bpl * ;failed plus (bit 7 clear)
endm
trap_vs macro
bvs * ;failed overflow set
endm
trap_vc macro
bvc * ;failed overflow clear
endm
; please observe that during the test the stack gets invalidated
; therefore a RTS inside the success macro is not possible
success macro
jmp * ;test passed, no errors
endm
endif
if report = 1
trap macro
jsr report_error
endm
trap_eq macro
bne skip\?
trap ;failed equal (zero)
skip\?
endm
trap_ne macro
beq skip\?
trap ;failed not equal (non zero)
skip\?
endm
trap_cs macro
bcc skip\?
trap ;failed carry set
skip\?
endm
trap_cc macro
bcs skip\?
trap ;failed carry clear
skip\?
endm
trap_mi macro
bpl skip\?
trap ;failed minus (bit 7 set)
skip\?
endm
trap_pl macro
bmi skip\?
trap ;failed plus (bit 7 clear)
skip\?
endm
trap_vs macro
bvc skip\?
trap ;failed overflow set
skip\?
endm
trap_vc macro
bvs skip\?
trap ;failed overflow clear
skip\?
endm
; please observe that during the test the stack gets invalidated
; therefore a RTS inside the success macro is not possible
success macro
jsr report_success
endm
endif
0001 = carry equ %00000001 ;flag bits in status
0002 = zero equ %00000010
0004 = intdis equ %00000100
0008 = decmode equ %00001000
0010 = break equ %00010000
0020 = reserv equ %00100000
0040 = overfl equ %01000000
0080 = minus equ %10000000
0001 = fc equ carry
0002 = fz equ zero
0003 = fzc equ carry+zero
0040 = fv equ overfl
0042 = fvz equ overfl+zero
0080 = fn equ minus
0081 = fnc equ minus+carry
0082 = fnz equ minus+zero
0083 = fnzc equ minus+zero+carry
00c0 = fnv equ minus+overfl
0030 = fao equ break+reserv ;bits always on after PHP, BRK
0034 = fai equ fao+intdis ;+ forced interrupt disable
00ff = m8 equ $ff ;8 bit mask
00fb = m8i equ $ff&~intdis ;8 bit mask - interrupt disable
;macros to allow masking of status bits.
;masking of interrupt enable/disable on load and compare
;masking of always on bits after PHP or BRK (unused & break) on compare
if I_flag = 0
load_flag macro
lda #\1&m8i ;force enable interrupts (mask I)
endm
cmp_flag macro
cmp #(\1|fao)&m8i ;I_flag is always enabled + always on bits
endm
eor_flag macro
eor #(\1&m8i|fao) ;mask I, invert expected flags + always on bits
endm
endif
if I_flag = 1
load_flag macro
lda #\1|intdis ;force disable interrupts
endm
cmp_flag macro
cmp #(\1|fai)&m8 ;I_flag is always disabled + always on bits
endm
eor_flag macro
eor #(\1|fai) ;invert expected flags + always on bits + I
endm
endif
if I_flag = 2
load_flag macro
lda #\1
ora flag_I_on ;restore I-flag
and flag_I_off
endm
cmp_flag macro
eor flag_I_on ;I_flag is never changed
cmp #(\1|fao)&m8i ;expected flags + always on bits, mask I
endm
eor_flag macro
eor flag_I_on ;I_flag is never changed
eor #(\1&m8i|fao) ;mask I, invert expected flags + always on bits
endm
endif
if I_flag = 3
load_flag macro
lda #\1 ;allow test to change I-flag (no mask)
endm
cmp_flag macro
cmp #(\1|fao)&m8 ;expected flags + always on bits
endm
eor_flag macro
eor #\1|fao ;invert expected flags + always on bits
endm
endif
;macros to set (register|memory|zeropage) & status
set_stat macro ;setting flags in the processor status register
load_flag \1
pha ;use stack to load status
plp
endm
set_a macro ;precharging accu & status
load_flag \2
pha ;use stack to load status
lda #\1 ;precharge accu
plp
endm
set_x macro ;precharging index & status
load_flag \2
pha ;use stack to load status
ldx #\1 ;precharge index x
plp
endm
set_y macro ;precharging index & status
load_flag \2
pha ;use stack to load status
ldy #\1 ;precharge index y
plp
endm
set_ax macro ;precharging indexed accu & immediate status
load_flag \2
pha ;use stack to load status
lda \1,x ;precharge accu
plp
endm
set_ay macro ;precharging indexed accu & immediate status
load_flag \2
pha ;use stack to load status
lda \1,y ;precharge accu
plp
endm
set_z macro ;precharging indexed zp & immediate status
load_flag \2
pha ;use stack to load status
lda \1,x ;load to zeropage
sta zpt
plp
endm
set_zx macro ;precharging zp,x & immediate status
load_flag \2
pha ;use stack to load status
lda \1,x ;load to indexed zeropage
sta zpt,x
plp
endm
set_abs macro ;precharging indexed memory & immediate status
load_flag \2
pha ;use stack to load status
lda \1,x ;load to memory
sta abst
plp
endm
set_absx macro ;precharging abs,x & immediate status
load_flag \2
pha ;use stack to load status
lda \1,x ;load to indexed memory
sta abst,x
plp
endm
;macros to test (register|memory|zeropage) & status & (mask)
tst_stat macro ;testing flags in the processor status register
php ;save status
pla ;use stack to retrieve status
pha
cmp_flag \1
trap_ne
plp ;restore status
endm
tst_a macro ;testing result in accu & flags
php ;save flags
cmp #\1 ;test result
trap_ne
pla ;load status
pha
cmp_flag \2
trap_ne
plp ;restore status
endm
tst_as macro ;testing result in accu & flags, save accu
pha
php ;save flags
cmp #\1 ;test result
trap_ne
pla ;load status
pha
cmp_flag \2
trap_ne
plp ;restore status
pla
endm
tst_x macro ;testing result in x index & flags
php ;save flags
cpx #\1 ;test result
trap_ne
pla ;load status
pha
cmp_flag \2
trap_ne
plp ;restore status
endm
tst_y macro ;testing result in y index & flags
php ;save flags
cpy #\1 ;test result
trap_ne
pla ;load status
pha
cmp_flag \2
trap_ne
plp ;restore status
endm
tst_ax macro ;indexed testing result in accu & flags
php ;save flags
cmp \1,x ;test result
trap_ne
pla ;load status
eor_flag \3
cmp \2,x ;test flags
trap_ne ;
endm
tst_ay macro ;indexed testing result in accu & flags
php ;save flags
cmp \1,y ;test result
trap_ne ;
pla ;load status
eor_flag \3
cmp \2,y ;test flags
trap_ne
endm
tst_z macro ;indexed testing result in zp & flags
php ;save flags
lda zpt
cmp \1,x ;test result
trap_ne
pla ;load status
eor_flag \3
cmp \2,x ;test flags
trap_ne
endm
tst_zx macro ;testing result in zp,x & flags
php ;save flags
lda zpt,x
cmp \1,x ;test result
trap_ne
pla ;load status
eor_flag \3
cmp \2,x ;test flags
trap_ne
endm
tst_abs macro ;indexed testing result in memory & flags
php ;save flags
lda abst
cmp \1,x ;test result
trap_ne
pla ;load status
eor_flag \3
cmp \2,x ;test flags
trap_ne
endm
tst_absx macro ;testing result in abs,x & flags
php ;save flags
lda abst,x
cmp \1,x ;test result
trap_ne
pla ;load status
eor_flag \3
cmp \2,x ;test flags
trap_ne
endm
; RAM integrity test
; verifies that none of the previous tests has altered RAM outside of the
; designated write areas.
; uses zpt word as indirect pointer, zpt+2 word as checksum
if ram_top > -1
check_ram macro
cld
lda #0
sta zpt ;set low byte of indirect pointer
sta zpt+3 ;checksum high byte
ldx #11 ;reset modifiable RAM
ccs1\? sta jxi_tab,x ;JMP indirect page cross area
dex
bpl ccs1\?
clc
ldx #zp_bss-zero_page ;zeropage - write test area
ccs3\? adc zero_page,x
bcc ccs2\?
inc zpt+3 ;carry to high byte
clc
ccs2\? inx
bne ccs3\?
ldx #hi(abs1) ;set high byte of indirect pointer
stx zpt+1
ldy #lo(abs1) ;data after write & execute test area
ccs5\? adc (zpt),y
bcc ccs4\?
inc zpt+3 ;carry to high byte
clc
ccs4\? iny
bne ccs5\?
inx ;advance RAM high address
stx zpt+1
cpx #ram_top
bne ccs5\?
sta zpt+2 ;checksum low is
cmp ram_chksm ;checksum low expected
trap_ne ;checksum mismatch
lda zpt+3 ;checksum high is
cmp ram_chksm+1 ;checksum high expected
trap_ne ;checksum mismatch
endm
else
check_ram macro
;RAM check disabled - RAM size not set
endm
endif
next_test macro ;make sure, tests don't jump the fence
lda test_case ;previous test
cmp #test_num
trap_ne ;test is out of sequence
test_num = test_num + 1
lda #test_num ;*** next tests' number
sta test_case
;check_ram ;uncomment to find altered RAM after each test
endm
if load_data_direct = 1
data
else
bss ;uninitialized segment, copy of data at end of code!
endif
000a = org zero_page
;break test interrupt save
000a : 00 irq_a ds 1 ;a register
000b : 00 irq_x ds 1 ;x register
if I_flag = 2
;masking for I bit in status
flag_I_on ds 1 ;or mask to load flags
flag_I_off ds 1 ;and mask to load flags
endif
000c : zpt ;5 bytes store/modify test area
;add/subtract operand generation and result/flag prediction
000c : 00 adfc ds 1 ;carry flag before op
000d : 00 ad1 ds 1 ;operand 1 - accumulator
000e : 00 ad2 ds 1 ;operand 2 - memory / immediate
000f : 00 adrl ds 1 ;expected result bits 0-7
0010 : 00 adrh ds 1 ;expected result bit 8 (carry)
0011 : 00 adrf ds 1 ;expected flags NV0000ZC (-V in decimal mode)
0012 : 00 sb2 ds 1 ;operand 2 complemented for subtract
0013 : zp_bss
0013 : c3824100 zp1 db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
0017 : 7f zp7f db $7f ;test pattern for compare
;logical zeropage operands
0018 : 001f7180 zpOR db 0,$1f,$71,$80 ;test pattern for OR
001c : 0fff7f80 zpAN db $0f,$ff,$7f,$80 ;test pattern for AND
0020 : ff0f8f8f zpEO db $ff,$0f,$8f,$8f ;test pattern for EOR
;indirect addressing pointers
0024 : 1002 ind1 dw abs1 ;indirect pointer to pattern in absolute memory
0026 : 1102 dw abs1+1
0028 : 1202 dw abs1+2
002a : 1302 dw abs1+3
002c : 1402 dw abs7f
002e : 1801 inw1 dw abs1-$f8 ;indirect pointer for wrap-test pattern
0030 : 0502 indt dw abst ;indirect pointer to store area in absolute memory
0032 : 0602 dw abst+1
0034 : 0702 dw abst+2
0036 : 0802 dw abst+3
0038 : 0d01 inwt dw abst-$f8 ;indirect pointer for wrap-test store
003a : 4702 indAN dw absAN ;indirect pointer to AND pattern in absolute memory
003c : 4802 dw absAN+1
003e : 4902 dw absAN+2
0040 : 4a02 dw absAN+3
0042 : 4b02 indEO dw absEO ;indirect pointer to EOR pattern in absolute memory
0044 : 4c02 dw absEO+1
0046 : 4d02 dw absEO+2
0048 : 4e02 dw absEO+3
004a : 4302 indOR dw absOR ;indirect pointer to OR pattern in absolute memory
004c : 4402 dw absOR+1
004e : 4502 dw absOR+2
0050 : 4602 dw absOR+3
;add/subtract indirect pointers
0052 : 0502 adi2 dw ada2 ;indirect pointer to operand 2 in absolute memory
0054 : 0602 sbi2 dw sba2 ;indirect pointer to complemented operand 2 (SBC)
0056 : 0601 adiy2 dw ada2-$ff ;with offset for indirect indexed
0058 : 0701 sbiy2 dw sba2-$ff
005a : zp_bss_end
0200 = org data_segment
0200 : 0000 pg_x ds 2 ;high JMP indirect address for page cross bug
0202 : 00 test_case ds 1 ;current test number
0203 : 0000 ram_chksm ds 2 ;checksum for RAM integrity test
;add/subtract operand copy - abs tests write area
0205 : abst ;5 bytes store/modify test area
0205 : 00 ada2 ds 1 ;operand 2
0206 : 00 sba2 ds 1 ;operand 2 complemented for subtract
0207 : 000000 ds 3 ;fill remaining bytes
020a : data_bss
if load_data_direct = 1
020a : 6900 ex_adci adc #0 ;execute immediate opcodes
020c : 60 rts
020d : e900 ex_sbci sbc #0 ;execute immediate opcodes
020f : 60 rts
else
ex_adci ds 3
ex_sbci ds 3
endif
0210 : c3824100 abs1 db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
0214 : 7f abs7f db $7f ;test pattern for compare
;loads
0215 : 80800002 fLDx db fn,fn,0,fz ;expected flags for load
;shifts
0219 : rASL ;expected result ASL & ROL -carry
0219 : 86048200 rROL db $86,$04,$82,0 ; "
021d : 87058301 rROLc db $87,$05,$83,1 ;expected result ROL +carry
0221 : rLSR ;expected result LSR & ROR -carry
0221 : 61412000 rROR db $61,$41,$20,0 ; "
0225 : e1c1a080 rRORc db $e1,$c1,$a0,$80 ;expected result ROR +carry
0229 : fASL ;expected flags for shifts
0229 : 81018002 fROL db fnc,fc,fn,fz ;no carry in
022d : 81018000 fROLc db fnc,fc,fn,0 ;carry in
0231 : fLSR
0231 : 01000102 fROR db fc,0,fc,fz ;no carry in
0235 : 81808180 fRORc db fnc,fn,fnc,fn ;carry in
;increments (decrements)
0239 : 7f80ff0001 rINC db $7f,$80,$ff,0,1 ;expected result for INC/DEC
023e : 0080800200 fINC db 0,fn,fn,fz,0 ;expected flags for INC/DEC
;logical memory operand
0243 : 001f7180 absOR db 0,$1f,$71,$80 ;test pattern for OR
0247 : 0fff7f80 absAN db $0f,$ff,$7f,$80 ;test pattern for AND
024b : ff0f8f8f absEO db $ff,$0f,$8f,$8f ;test pattern for EOR
;logical accu operand
024f : 00f11f00 absORa db 0,$f1,$1f,0 ;test pattern for OR
0253 : f0ffffff absANa db $f0,$ff,$ff,$ff ;test pattern for AND
0257 : fff0f00f absEOa db $ff,$f0,$f0,$0f ;test pattern for EOR
;logical results
025b : 00ff7f80 absrlo db 0,$ff,$7f,$80
025f : 02800080 absflo db fz,fn,0,fn
0263 : data_bss_end
;define area for page crossing JMP (abs) & JMP (abs,x) test
02f9 = jxi_tab equ data_segment + $100 - 7 ;JMP (jxi_tab,x) x=6
02fd = ji_tab equ data_segment + $100 - 3 ;JMP (ji_tab+2)
0300 = jxp_tab equ data_segment + $100 ;JMP (jxp_tab-255) x=255
code
0400 = org code_segment
0400 : d8 start cld
0401 : a2ff ldx #$ff
0403 : 9a txs
0404 : a900 lda #0 ;*** test 0 = initialize
0406 : 8d0202 sta test_case
0000 = test_num = 0
;stop interrupts before initializing BSS
if I_flag = 1
sei
endif
;initialize I/O for report channel
if report = 1
jsr report_init
endif
;initialize BSS segment
if load_data_direct != 1
ldx #zp_end-zp_init-1
ld_zp lda zp_init,x
sta zp_bss,x
dex
bpl ld_zp
ldx #data_end-data_init-1
ld_data lda data_init,x
sta data_bss,x
dex
bpl ld_data
if ROM_vectors = 1
ldx #5
ld_vect lda vec_init,x
sta vec_bss,x
dex
bpl ld_vect
endif
endif
;retain status of interrupt flag
if I_flag = 2
php
pla
and #4 ;isolate flag
sta flag_I_on ;or mask
eor #lo(~4) ;reverse
sta flag_I_off ;and mask
endif
;generate checksum for RAM integrity test
if ram_top > -1
lda #0
sta zpt ;set low byte of indirect pointer
sta ram_chksm+1 ;checksum high byte
ldx #11 ;reset modifiable RAM
gcs1 sta jxi_tab,x ;JMP indirect page cross area
dex
bpl gcs1
clc
ldx #zp_bss-zero_page ;zeropage - write test area
gcs3 adc zero_page,x
bcc gcs2
inc ram_chksm+1 ;carry to high byte
clc
gcs2 inx
bne gcs3
ldx #hi(abs1) ;set high byte of indirect pointer
stx zpt+1
ldy #lo(abs1) ;data after write & execute test area
gcs5 adc (zpt),y
bcc gcs4
inc ram_chksm+1 ;carry to high byte
clc
gcs4 iny
bne gcs5
inx ;advance RAM high address
stx zpt+1
cpx #ram_top
bne gcs5
sta ram_chksm ;checksum complete
endif
next_test
0409 : ad0202 > lda test_case ;previous test
040c : c900 > cmp #test_num
> trap_ne ;test is out of sequence
040e : d0fe > bne * ;failed not equal (non zero)
>
0001 = >test_num = test_num + 1
0410 : a901 > lda #test_num ;*** next tests' number
0412 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
;testing stack operations PHX PHY PLX PLY
0415 : a999 lda #$99 ;protect a
0417 : a2ff ldx #$ff ;initialize stack
0419 : 9a txs
041a : a255 ldx #$55
041c : da phx
041d : a2aa ldx #$aa
041f : da phx
0420 : ecfe01 cpx $1fe ;on stack ?
trap_ne
0423 : d0fe > bne * ;failed not equal (non zero)
0425 : ba tsx
0426 : e0fd cpx #$fd ;sp decremented?
trap_ne
0428 : d0fe > bne * ;failed not equal (non zero)
042a : 7a ply
042b : c0aa cpy #$aa ;successful retreived from stack?
trap_ne
042d : d0fe > bne * ;failed not equal (non zero)
042f : 7a ply
0430 : c055 cpy #$55
trap_ne
0432 : d0fe > bne * ;failed not equal (non zero)
0434 : ccff01 cpy $1ff ;remains on stack?
trap_ne
0437 : d0fe > bne * ;failed not equal (non zero)
0439 : ba tsx
043a : e0ff cpx #$ff ;sp incremented?
trap_ne
043c : d0fe > bne * ;failed not equal (non zero)
043e : a0a5 ldy #$a5
0440 : 5a phy
0441 : a05a ldy #$5a
0443 : 5a phy
0444 : ccfe01 cpy $1fe ;on stack ?
trap_ne
0447 : d0fe > bne * ;failed not equal (non zero)
0449 : ba tsx
044a : e0fd cpx #$fd ;sp decremented?
trap_ne
044c : d0fe > bne * ;failed not equal (non zero)
044e : fa plx
044f : e05a cpx #$5a ;successful retreived from stack?
trap_ne
0451 : d0fe > bne * ;failed not equal (non zero)
0453 : fa plx
0454 : e0a5 cpx #$a5
trap_ne
0456 : d0fe > bne * ;failed not equal (non zero)
0458 : ecff01 cpx $1ff ;remains on stack?
trap_ne
045b : d0fe > bne * ;failed not equal (non zero)
045d : ba tsx
045e : e0ff cpx #$ff ;sp incremented?
trap_ne
0460 : d0fe > bne * ;failed not equal (non zero)
0462 : c999 cmp #$99 ;unchanged?
trap_ne
0464 : d0fe > bne * ;failed not equal (non zero)
next_test
0466 : ad0202 > lda test_case ;previous test
0469 : c901 > cmp #test_num
> trap_ne ;test is out of sequence
046b : d0fe > bne * ;failed not equal (non zero)
>
0002 = >test_num = test_num + 1
046d : a902 > lda #test_num ;*** next tests' number
046f : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; test PHX does not alter flags or X but PLX does
0472 : a0aa ldy #$aa ;protect y
set_x 1,$ff ;push
> load_flag $ff
0474 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0476 : 48 > pha ;use stack to load status
0477 : a201 > ldx #1 ;precharge index x
0479 : 28 > plp
047a : da phx
tst_x 1,$ff
047b : 08 > php ;save flags
047c : e001 > cpx #1 ;test result
> trap_ne
047e : d0fe > bne * ;failed not equal (non zero)
>
0480 : 68 > pla ;load status
0481 : 48 > pha
> cmp_flag $ff
0482 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0484 : d0fe > bne * ;failed not equal (non zero)
>
0486 : 28 > plp ;restore status
set_x 0,0
> load_flag 0
0487 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0489 : 48 > pha ;use stack to load status
048a : a200 > ldx #0 ;precharge index x
048c : 28 > plp
048d : da phx
tst_x 0,0
048e : 08 > php ;save flags
048f : e000 > cpx #0 ;test result
> trap_ne
0491 : d0fe > bne * ;failed not equal (non zero)
>
0493 : 68 > pla ;load status
0494 : 48 > pha
> cmp_flag 0
0495 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0497 : d0fe > bne * ;failed not equal (non zero)
>
0499 : 28 > plp ;restore status
set_x $ff,$ff
> load_flag $ff
049a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
049c : 48 > pha ;use stack to load status
049d : a2ff > ldx #$ff ;precharge index x
049f : 28 > plp
04a0 : da phx
tst_x $ff,$ff
04a1 : 08 > php ;save flags
04a2 : e0ff > cpx #$ff ;test result
> trap_ne
04a4 : d0fe > bne * ;failed not equal (non zero)
>
04a6 : 68 > pla ;load status
04a7 : 48 > pha
> cmp_flag $ff
04a8 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
04aa : d0fe > bne * ;failed not equal (non zero)
>
04ac : 28 > plp ;restore status
set_x 1,0
> load_flag 0
04ad : a900 > lda #0 ;allow test to change I-flag (no mask)
>
04af : 48 > pha ;use stack to load status
04b0 : a201 > ldx #1 ;precharge index x
04b2 : 28 > plp
04b3 : da phx
tst_x 1,0
04b4 : 08 > php ;save flags
04b5 : e001 > cpx #1 ;test result
> trap_ne
04b7 : d0fe > bne * ;failed not equal (non zero)
>
04b9 : 68 > pla ;load status
04ba : 48 > pha
> cmp_flag 0
04bb : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
04bd : d0fe > bne * ;failed not equal (non zero)
>
04bf : 28 > plp ;restore status
set_x 0,$ff
> load_flag $ff
04c0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
04c2 : 48 > pha ;use stack to load status
04c3 : a200 > ldx #0 ;precharge index x
04c5 : 28 > plp
04c6 : da phx
tst_x 0,$ff
04c7 : 08 > php ;save flags
04c8 : e000 > cpx #0 ;test result
> trap_ne
04ca : d0fe > bne * ;failed not equal (non zero)
>
04cc : 68 > pla ;load status
04cd : 48 > pha
> cmp_flag $ff
04ce : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
04d0 : d0fe > bne * ;failed not equal (non zero)
>
04d2 : 28 > plp ;restore status
set_x $ff,0
> load_flag 0
04d3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
04d5 : 48 > pha ;use stack to load status
04d6 : a2ff > ldx #$ff ;precharge index x
04d8 : 28 > plp
04d9 : da phx
tst_x $ff,0
04da : 08 > php ;save flags
04db : e0ff > cpx #$ff ;test result
> trap_ne
04dd : d0fe > bne * ;failed not equal (non zero)
>
04df : 68 > pla ;load status
04e0 : 48 > pha
> cmp_flag 0
04e1 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
04e3 : d0fe > bne * ;failed not equal (non zero)
>
04e5 : 28 > plp ;restore status
set_x 0,$ff ;pull
> load_flag $ff
04e6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
04e8 : 48 > pha ;use stack to load status
04e9 : a200 > ldx #0 ;precharge index x
04eb : 28 > plp
04ec : fa plx
tst_x $ff,$ff-zero
04ed : 08 > php ;save flags
04ee : e0ff > cpx #$ff ;test result
> trap_ne
04f0 : d0fe > bne * ;failed not equal (non zero)
>
04f2 : 68 > pla ;load status
04f3 : 48 > pha
> cmp_flag $ff-zero
04f4 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
04f6 : d0fe > bne * ;failed not equal (non zero)
>
04f8 : 28 > plp ;restore status
set_x $ff,0
> load_flag 0
04f9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
04fb : 48 > pha ;use stack to load status
04fc : a2ff > ldx #$ff ;precharge index x
04fe : 28 > plp
04ff : fa plx
tst_x 0,zero
0500 : 08 > php ;save flags
0501 : e000 > cpx #0 ;test result
> trap_ne
0503 : d0fe > bne * ;failed not equal (non zero)
>
0505 : 68 > pla ;load status
0506 : 48 > pha
> cmp_flag zero
0507 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0509 : d0fe > bne * ;failed not equal (non zero)
>
050b : 28 > plp ;restore status
set_x $fe,$ff
> load_flag $ff
050c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
050e : 48 > pha ;use stack to load status
050f : a2fe > ldx #$fe ;precharge index x
0511 : 28 > plp
0512 : fa plx
tst_x 1,$ff-zero-minus
0513 : 08 > php ;save flags
0514 : e001 > cpx #1 ;test result
> trap_ne
0516 : d0fe > bne * ;failed not equal (non zero)
>
0518 : 68 > pla ;load status
0519 : 48 > pha
> cmp_flag $ff-zero-minus
051a : c97d > cmp #($ff-zero-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
051c : d0fe > bne * ;failed not equal (non zero)
>
051e : 28 > plp ;restore status
set_x 0,0
> load_flag 0
051f : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0521 : 48 > pha ;use stack to load status
0522 : a200 > ldx #0 ;precharge index x
0524 : 28 > plp
0525 : fa plx
tst_x $ff,minus
0526 : 08 > php ;save flags
0527 : e0ff > cpx #$ff ;test result
> trap_ne
0529 : d0fe > bne * ;failed not equal (non zero)
>
052b : 68 > pla ;load status
052c : 48 > pha
> cmp_flag minus
052d : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
052f : d0fe > bne * ;failed not equal (non zero)
>
0531 : 28 > plp ;restore status
set_x $ff,$ff
> load_flag $ff
0532 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0534 : 48 > pha ;use stack to load status
0535 : a2ff > ldx #$ff ;precharge index x
0537 : 28 > plp
0538 : fa plx
tst_x 0,$ff-minus
0539 : 08 > php ;save flags
053a : e000 > cpx #0 ;test result
> trap_ne
053c : d0fe > bne * ;failed not equal (non zero)
>
053e : 68 > pla ;load status
053f : 48 > pha
> cmp_flag $ff-minus
0540 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0542 : d0fe > bne * ;failed not equal (non zero)
>
0544 : 28 > plp ;restore status
set_x $fe,0
> load_flag 0
0545 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0547 : 48 > pha ;use stack to load status
0548 : a2fe > ldx #$fe ;precharge index x
054a : 28 > plp
054b : fa plx
tst_x 1,0
054c : 08 > php ;save flags
054d : e001 > cpx #1 ;test result
> trap_ne
054f : d0fe > bne * ;failed not equal (non zero)
>
0551 : 68 > pla ;load status
0552 : 48 > pha
> cmp_flag 0
0553 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0555 : d0fe > bne * ;failed not equal (non zero)
>
0557 : 28 > plp ;restore status
0558 : c0aa cpy #$aa ;Y unchanged
trap_ne
055a : d0fe > bne * ;failed not equal (non zero)
next_test
055c : ad0202 > lda test_case ;previous test
055f : c902 > cmp #test_num
> trap_ne ;test is out of sequence
0561 : d0fe > bne * ;failed not equal (non zero)
>
0003 = >test_num = test_num + 1
0563 : a903 > lda #test_num ;*** next tests' number
0565 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; test PHY does not alter flags or Y but PLY does
0568 : a255 ldx #$55 ;x & a protected
set_y 1,$ff ;push
> load_flag $ff
056a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
056c : 48 > pha ;use stack to load status
056d : a001 > ldy #1 ;precharge index y
056f : 28 > plp
0570 : 5a phy
tst_y 1,$ff
0571 : 08 > php ;save flags
0572 : c001 > cpy #1 ;test result
> trap_ne
0574 : d0fe > bne * ;failed not equal (non zero)
>
0576 : 68 > pla ;load status
0577 : 48 > pha
> cmp_flag $ff
0578 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
057a : d0fe > bne * ;failed not equal (non zero)
>
057c : 28 > plp ;restore status
set_y 0,0
> load_flag 0
057d : a900 > lda #0 ;allow test to change I-flag (no mask)
>
057f : 48 > pha ;use stack to load status
0580 : a000 > ldy #0 ;precharge index y
0582 : 28 > plp
0583 : 5a phy
tst_y 0,0
0584 : 08 > php ;save flags
0585 : c000 > cpy #0 ;test result
> trap_ne
0587 : d0fe > bne * ;failed not equal (non zero)
>
0589 : 68 > pla ;load status
058a : 48 > pha
> cmp_flag 0
058b : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
058d : d0fe > bne * ;failed not equal (non zero)
>
058f : 28 > plp ;restore status
set_y $ff,$ff
> load_flag $ff
0590 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0592 : 48 > pha ;use stack to load status
0593 : a0ff > ldy #$ff ;precharge index y
0595 : 28 > plp
0596 : 5a phy
tst_y $ff,$ff
0597 : 08 > php ;save flags
0598 : c0ff > cpy #$ff ;test result
> trap_ne
059a : d0fe > bne * ;failed not equal (non zero)
>
059c : 68 > pla ;load status
059d : 48 > pha
> cmp_flag $ff
059e : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
05a0 : d0fe > bne * ;failed not equal (non zero)
>
05a2 : 28 > plp ;restore status
set_y 1,0
> load_flag 0
05a3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
05a5 : 48 > pha ;use stack to load status
05a6 : a001 > ldy #1 ;precharge index y
05a8 : 28 > plp
05a9 : 5a phy
tst_y 1,0
05aa : 08 > php ;save flags
05ab : c001 > cpy #1 ;test result
> trap_ne
05ad : d0fe > bne * ;failed not equal (non zero)
>
05af : 68 > pla ;load status
05b0 : 48 > pha
> cmp_flag 0
05b1 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
05b3 : d0fe > bne * ;failed not equal (non zero)
>
05b5 : 28 > plp ;restore status
set_y 0,$ff
> load_flag $ff
05b6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
05b8 : 48 > pha ;use stack to load status
05b9 : a000 > ldy #0 ;precharge index y
05bb : 28 > plp
05bc : 5a phy
tst_y 0,$ff
05bd : 08 > php ;save flags
05be : c000 > cpy #0 ;test result
> trap_ne
05c0 : d0fe > bne * ;failed not equal (non zero)
>
05c2 : 68 > pla ;load status
05c3 : 48 > pha
> cmp_flag $ff
05c4 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
05c6 : d0fe > bne * ;failed not equal (non zero)
>
05c8 : 28 > plp ;restore status
set_y $ff,0
> load_flag 0
05c9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
05cb : 48 > pha ;use stack to load status
05cc : a0ff > ldy #$ff ;precharge index y
05ce : 28 > plp
05cf : 5a phy
tst_y $ff,0
05d0 : 08 > php ;save flags
05d1 : c0ff > cpy #$ff ;test result
> trap_ne
05d3 : d0fe > bne * ;failed not equal (non zero)
>
05d5 : 68 > pla ;load status
05d6 : 48 > pha
> cmp_flag 0
05d7 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
05d9 : d0fe > bne * ;failed not equal (non zero)
>
05db : 28 > plp ;restore status
set_y 0,$ff ;pull
> load_flag $ff
05dc : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
05de : 48 > pha ;use stack to load status
05df : a000 > ldy #0 ;precharge index y
05e1 : 28 > plp
05e2 : 7a ply
tst_y $ff,$ff-zero
05e3 : 08 > php ;save flags
05e4 : c0ff > cpy #$ff ;test result
> trap_ne
05e6 : d0fe > bne * ;failed not equal (non zero)
>
05e8 : 68 > pla ;load status
05e9 : 48 > pha
> cmp_flag $ff-zero
05ea : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
05ec : d0fe > bne * ;failed not equal (non zero)
>
05ee : 28 > plp ;restore status
set_y $ff,0
> load_flag 0
05ef : a900 > lda #0 ;allow test to change I-flag (no mask)
>
05f1 : 48 > pha ;use stack to load status
05f2 : a0ff > ldy #$ff ;precharge index y
05f4 : 28 > plp
05f5 : 7a ply
tst_y 0,zero
05f6 : 08 > php ;save flags
05f7 : c000 > cpy #0 ;test result
> trap_ne
05f9 : d0fe > bne * ;failed not equal (non zero)
>
05fb : 68 > pla ;load status
05fc : 48 > pha
> cmp_flag zero
05fd : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
05ff : d0fe > bne * ;failed not equal (non zero)
>
0601 : 28 > plp ;restore status
set_y $fe,$ff
> load_flag $ff
0602 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0604 : 48 > pha ;use stack to load status
0605 : a0fe > ldy #$fe ;precharge index y
0607 : 28 > plp
0608 : 7a ply
tst_y 1,$ff-zero-minus
0609 : 08 > php ;save flags
060a : c001 > cpy #1 ;test result
> trap_ne
060c : d0fe > bne * ;failed not equal (non zero)
>
060e : 68 > pla ;load status
060f : 48 > pha
> cmp_flag $ff-zero-minus
0610 : c97d > cmp #($ff-zero-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0612 : d0fe > bne * ;failed not equal (non zero)
>
0614 : 28 > plp ;restore status
set_y 0,0
> load_flag 0
0615 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0617 : 48 > pha ;use stack to load status
0618 : a000 > ldy #0 ;precharge index y
061a : 28 > plp
061b : 7a ply
tst_y $ff,minus
061c : 08 > php ;save flags
061d : c0ff > cpy #$ff ;test result
> trap_ne
061f : d0fe > bne * ;failed not equal (non zero)
>
0621 : 68 > pla ;load status
0622 : 48 > pha
> cmp_flag minus
0623 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0625 : d0fe > bne * ;failed not equal (non zero)
>
0627 : 28 > plp ;restore status
set_y $ff,$ff
> load_flag $ff
0628 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
062a : 48 > pha ;use stack to load status
062b : a0ff > ldy #$ff ;precharge index y
062d : 28 > plp
062e : 7a ply
tst_y 0,$ff-minus
062f : 08 > php ;save flags
0630 : c000 > cpy #0 ;test result
> trap_ne
0632 : d0fe > bne * ;failed not equal (non zero)
>
0634 : 68 > pla ;load status
0635 : 48 > pha
> cmp_flag $ff-minus
0636 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0638 : d0fe > bne * ;failed not equal (non zero)
>
063a : 28 > plp ;restore status
set_y $fe,0
> load_flag 0
063b : a900 > lda #0 ;allow test to change I-flag (no mask)
>
063d : 48 > pha ;use stack to load status
063e : a0fe > ldy #$fe ;precharge index y
0640 : 28 > plp
0641 : 7a ply
tst_y 1,0
0642 : 08 > php ;save flags
0643 : c001 > cpy #1 ;test result
> trap_ne
0645 : d0fe > bne * ;failed not equal (non zero)
>
0647 : 68 > pla ;load status
0648 : 48 > pha
> cmp_flag 0
0649 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
064b : d0fe > bne * ;failed not equal (non zero)
>
064d : 28 > plp ;restore status
064e : e055 cpx #$55 ;x unchanged?
trap_ne
0650 : d0fe > bne * ;failed not equal (non zero)
next_test
0652 : ad0202 > lda test_case ;previous test
0655 : c903 > cmp #test_num
> trap_ne ;test is out of sequence
0657 : d0fe > bne * ;failed not equal (non zero)
>
0004 = >test_num = test_num + 1
0659 : a904 > lda #test_num ;*** next tests' number
065b : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; PC modifying instructions (BRA, BBR, BBS, 1, 2, 3 byte NOPs, JMP(abs,x))
; testing unconditional branch BRA
065e : a281 ldx #$81 ;protect unused registers
0660 : a07e ldy #$7e
set_a 0,$ff
> load_flag $ff
0662 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0664 : 48 > pha ;use stack to load status
0665 : a900 > lda #0 ;precharge accu
0667 : 28 > plp
0668 : 8003 bra br1 ;branch should always be taken
trap
066a : 4c6a06 > jmp * ;failed anyway
066d : br1
tst_a 0,$ff
066d : 08 > php ;save flags
066e : c900 > cmp #0 ;test result
> trap_ne
0670 : d0fe > bne * ;failed not equal (non zero)
>
0672 : 68 > pla ;load status
0673 : 48 > pha
> cmp_flag $ff
0674 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0676 : d0fe > bne * ;failed not equal (non zero)
>
0678 : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
0679 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
067b : 48 > pha ;use stack to load status
067c : a9ff > lda #$ff ;precharge accu
067e : 28 > plp
067f : 8003 bra br2 ;branch should always be taken
trap
0681 : 4c8106 > jmp * ;failed anyway
0684 : br2
tst_a $ff,0
0684 : 08 > php ;save flags
0685 : c9ff > cmp #$ff ;test result
> trap_ne
0687 : d0fe > bne * ;failed not equal (non zero)
>
0689 : 68 > pla ;load status
068a : 48 > pha
> cmp_flag 0
068b : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
068d : d0fe > bne * ;failed not equal (non zero)
>
068f : 28 > plp ;restore status
0690 : e081 cpx #$81
trap_ne
0692 : d0fe > bne * ;failed not equal (non zero)
0694 : c07e cpy #$7e
trap_ne
0696 : d0fe > bne * ;failed not equal (non zero)
next_test
0698 : ad0202 > lda test_case ;previous test
069b : c904 > cmp #test_num
> trap_ne ;test is out of sequence
069d : d0fe > bne * ;failed not equal (non zero)
>
0005 = >test_num = test_num + 1
069f : a905 > lda #test_num ;*** next tests' number
06a1 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
06a4 : a000 ldy #0 ;branch range test
06a6 : 8061 bra bra0
06a8 : c001 bra1 cpy #1
trap_ne ;long range backward
06aa : d0fe > bne * ;failed not equal (non zero)
06ac : c8 iny
06ad : 8053 bra bra2
06af : c003 bra3 cpy #3
trap_ne ;long range backward
06b1 : d0fe > bne * ;failed not equal (non zero)
06b3 : c8 iny
06b4 : 8045 bra bra4
06b6 : c005 bra5 cpy #5
trap_ne ;long range backward
06b8 : d0fe > bne * ;failed not equal (non zero)
06ba : c8 iny
06bb : a000 ldy #0
06bd : 8004 bra brf0
06bf : c8 iny
06c0 : c8 iny
06c1 : c8 iny
06c2 : c8 iny
06c3 : 8003 brf0 bra brf1
06c5 : c8 iny
06c6 : c8 iny
06c7 : c8 iny
06c8 : c8 brf1 iny
06c9 : 8002 bra brf2
06cb : c8 iny
06cc : c8 iny
06cd : c8 brf2 iny
06ce : c8 iny
06cf : 8001 bra brf3
06d1 : c8 iny
06d2 : c8 brf3 iny
06d3 : c8 iny
06d4 : c8 iny
06d5 : 8000 bra brf4
06d7 : c8 brf4 iny
06d8 : c8 iny
06d9 : c8 iny
06da : c8 iny
06db : c00a cpy #10
trap_ne ;short range forward
06dd : d0fe > bne * ;failed not equal (non zero)
06df : 8012 bra brb0
06e1 : 88 brb4 dey
06e2 : 88 dey
06e3 : 88 dey
06e4 : 88 dey
06e5 : 800e bra brb5
06e7 : 88 brb3 dey
06e8 : 88 dey
06e9 : 88 dey
06ea : 80f5 bra brb4
06ec : 88 brb2 dey
06ed : 88 dey
06ee : 80f7 bra brb3
06f0 : 88 brb1 dey
06f1 : 80f9 bra brb2
06f3 : 80fb brb0 bra brb1
06f5 : c000 brb5 cpy #0
trap_ne ;short range backward
06f7 : d0fe > bne * ;failed not equal (non zero)
06f9 : 8015 bra bra6
06fb : c004 bra4 cpy #4
trap_ne ;long range forward
06fd : d0fe > bne * ;failed not equal (non zero)
06ff : c8 iny
0700 : 80b4 bra bra5
0702 : c002 bra2 cpy #2
trap_ne ;long range forward
0704 : d0fe > bne * ;failed not equal (non zero)
0706 : c8 iny
0707 : 80a6 bra bra3
0709 : c000 bra0 cpy #0
trap_ne ;long range forward
070b : d0fe > bne * ;failed not equal (non zero)
070d : c8 iny
070e : 8098 bra bra1
0710 : bra6
next_test
0710 : ad0202 > lda test_case ;previous test
0713 : c905 > cmp #test_num
> trap_ne ;test is out of sequence
0715 : d0fe > bne * ;failed not equal (non zero)
>
0006 = >test_num = test_num + 1
0717 : a906 > lda #test_num ;*** next tests' number
0719 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
if rkwl_wdc_op = 1
; testing BBR & BBS
bbt macro ;\1 = bitnum
lda #(1<<\1) ;testing 1 bit on
sta zpt
set_a $33,0 ;with flags off
bbr \1,zpt,fail1\?
bbs \1,zpt,ok1\?
trap ;bbs branch not taken
fail1\?
trap ;bbr branch taken
ok1\?
tst_a $33,0
set_a $cc,$ff ;with flags on
bbr \1,zpt,fail2\?
bbs \1,zpt,ok2\?
trap ;bbs branch not taken
fail2\?
trap ;bbr branch taken
ok2\?
tst_a $cc,$ff
lda zpt
cmp #(1<<\1)
trap_ne ;zp altered
lda #$ff-(1<<\1) ;testing 1 bit off
sta zpt
set_a $33,0 ;with flags off
bbs \1,zpt,fail3\?
bbr \1,zpt,ok3\?
trap ;bbr branch not taken
fail3\?
trap ;bbs branch taken
ok3\?
tst_a $33,0
set_a $cc,$ff ;with flags on
bbs \1,zpt,fail4\?
bbr \1,zpt,ok4\?
trap ;bbr branch not taken
fail4\?
trap ;bbs branch taken
ok4\?
tst_a $cc,$ff
lda zpt
cmp #$ff-(1<<\1)
trap_ne ;zp altered
endm
ldx #$11 ;test bbr/bbs integrity
ldy #$22
bbt 0
bbt 1
bbt 2
bbt 3
bbt 4
bbt 5
bbt 6
bbt 7
cpx #$11
trap_ne ;x overwritten
cpy #$22
trap_ne ;y overwritten
next_test
bbrc macro ;\1 = bitnum
bbr \1,zpt,skip\?
eor #(1<<\1)
skip\?
endm
bbsc macro ;\1 = bitnum
bbs \1,zpt,skip\?
eor #(1<<\1)
skip\?
endm
lda #0 ;combined bit test
sta zpt
bbcl lda #0
bbrc 0
bbrc 1
bbrc 2
bbrc 3
bbrc 4
bbrc 5
bbrc 6
bbrc 7
eor zpt
trap_ne ;failed bbr bitnum in accu
lda #$ff
bbsc 0
bbsc 1
bbsc 2
bbsc 3
bbsc 4
bbsc 5
bbsc 6
bbsc 7
eor zpt
trap_ne ;failed bbs bitnum in accu
inc zpt
bne bbcl
next_test
endif
; testing NOP
nop_test macro ;\1 = opcode, \2 = # of bytes
ldy #$42
ldx #4-\2
db \1 ;test nop length
if \2 = 1
dex
dex
endif
if \2 = 2
iny
dex
endif
if \2 = 3
iny
iny
endif
dex
trap_ne ;wrong number of bytes
set_a $ff-\1,0
db \1 ;test nop integrity - flags off
nop
nop
tst_a $ff-\1,0
set_a $aa-\1,$ff
db \1 ;test nop integrity - flags on
nop
nop
tst_a $aa-\1,$ff
cpy #$42
trap_ne ;y changed
cpx #0
trap_ne ;x changed
endm
if skip_nop = 0
nop_test $02,2
nop_test $22,2
nop_test $42,2
nop_test $62,2
nop_test $82,2
nop_test $c2,2
nop_test $e2,2
nop_test $44,2
nop_test $54,2
nop_test $d4,2
nop_test $f4,2
nop_test $5c,3
nop_test $dc,3
nop_test $fc,3
nop_test $03,1
nop_test $13,1
nop_test $23,1
nop_test $33,1
nop_test $43,1
nop_test $53,1
nop_test $63,1
nop_test $73,1
nop_test $83,1
nop_test $93,1
nop_test $a3,1
nop_test $b3,1
nop_test $c3,1
nop_test $d3,1
nop_test $e3,1
nop_test $f3,1
nop_test $0b,1
nop_test $1b,1
nop_test $2b,1
nop_test $3b,1
nop_test $4b,1
nop_test $5b,1
nop_test $6b,1
nop_test $7b,1
nop_test $8b,1
nop_test $9b,1
nop_test $ab,1
nop_test $bb,1
nop_test $eb,1
nop_test $fb,1
if rkwl_wdc_op = 0 ;NOPs not available on Rockwell & WDC 65C02
nop_test $07,1
nop_test $17,1
nop_test $27,1
nop_test $37,1
nop_test $47,1
nop_test $57,1
nop_test $67,1
nop_test $77,1
nop_test $87,1
nop_test $97,1
nop_test $a7,1
nop_test $b7,1
nop_test $c7,1
nop_test $d7,1
nop_test $e7,1
nop_test $f7,1
nop_test $0f,1
nop_test $1f,1
nop_test $2f,1
nop_test $3f,1
nop_test $4f,1
nop_test $5f,1
nop_test $6f,1
nop_test $7f,1
nop_test $8f,1
nop_test $9f,1
nop_test $af,1
nop_test $bf,1
nop_test $cf,1
nop_test $df,1
nop_test $ef,1
nop_test $ff,1
endif
if wdc_op = 0 ;NOPs not available on WDC 65C02 (WAI, STP)
nop_test $cb,1
nop_test $db,1
endif
next_test
endif
; jump indirect (test page cross bug is fixed)
071c : a203 ldx #3 ;prepare table
071e : bd7a13 ji1 lda ji_adr,x
0721 : 9dfd02 sta ji_tab,x
0724 : ca dex
0725 : 10f7 bpl ji1
0727 : a915 lda #hi(ji_px) ;high address if page cross bug
0729 : 8d0002 sta pg_x
set_stat 0
> load_flag 0
072c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
072e : 48 > pha ;use stack to load status
072f : 28 > plp
0730 : a949 lda #'I'
0732 : a24e ldx #'N'
0734 : a044 ldy #'D' ;N=0, V=0, Z=0, C=0
0736 : 6cfd02 jmp (ji_tab)
0739 : ea nop
trap_ne ;runover protection
073a : d0fe > bne * ;failed not equal (non zero)
073c : 88 dey
073d : 88 dey
073e : 08 ji_ret php ;either SP or Y count will fail, if we do not hit
073f : 88 dey
0740 : 88 dey
0741 : 88 dey
0742 : 28 plp
trap_eq ;returned flags OK?
0743 : f0fe > beq * ;failed equal (zero)
trap_pl
0745 : 10fe > bpl * ;failed plus (bit 7 clear)
trap_cc
0747 : 90fe > bcc * ;failed carry clear
trap_vc
0749 : 50fe > bvc * ;failed overflow clear
074b : c9e3 cmp #('I'^$aa) ;returned registers OK?
trap_ne
074d : d0fe > bne * ;failed not equal (non zero)
074f : e04f cpx #('N'+1)
trap_ne
0751 : d0fe > bne * ;failed not equal (non zero)
0753 : c03e cpy #('D'-6)
trap_ne
0755 : d0fe > bne * ;failed not equal (non zero)
0757 : ba tsx ;SP check
0758 : e0ff cpx #$ff
trap_ne
075a : d0fe > bne * ;failed not equal (non zero)
next_test
075c : ad0202 > lda test_case ;previous test
075f : c906 > cmp #test_num
> trap_ne ;test is out of sequence
0761 : d0fe > bne * ;failed not equal (non zero)
>
0007 = >test_num = test_num + 1
0763 : a907 > lda #test_num ;*** next tests' number
0765 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; jump indexed indirect
0768 : a20b ldx #11 ;prepare table
076a : bdb613 jxi1 lda jxi_adr,x
076d : 9df902 sta jxi_tab,x
0770 : ca dex
0771 : 10f7 bpl jxi1
0773 : a915 lda #hi(jxi_px) ;high address if page cross bug
0775 : 8d0002 sta pg_x
set_stat 0
> load_flag 0
0778 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
077a : 48 > pha ;use stack to load status
077b : 28 > plp
077c : a958 lda #'X'
077e : a204 ldx #4
0780 : a049 ldy #'I' ;N=0, V=0, Z=0, C=0
0782 : 7cf902 jmp (jxi_tab,x)
0785 : ea nop
trap_ne ;runover protection
0786 : d0fe > bne * ;failed not equal (non zero)
0788 : 88 dey
0789 : 88 dey
078a : 08 jxi_ret php ;either SP or Y count will fail, if we do not hit
078b : 88 dey
078c : 88 dey
078d : 88 dey
078e : 28 plp
trap_eq ;returned flags OK?
078f : f0fe > beq * ;failed equal (zero)
trap_pl
0791 : 10fe > bpl * ;failed plus (bit 7 clear)
trap_cc
0793 : 90fe > bcc * ;failed carry clear
trap_vc
0795 : 50fe > bvc * ;failed overflow clear
0797 : c9f2 cmp #('X'^$aa) ;returned registers OK?
trap_ne
0799 : d0fe > bne * ;failed not equal (non zero)
079b : e006 cpx #6
trap_ne
079d : d0fe > bne * ;failed not equal (non zero)
079f : c043 cpy #('I'-6)
trap_ne
07a1 : d0fe > bne * ;failed not equal (non zero)
07a3 : ba tsx ;SP check
07a4 : e0ff cpx #$ff
trap_ne
07a6 : d0fe > bne * ;failed not equal (non zero)
07a8 : a9c4 lda #lo(jxp_ok) ;test with index causing a page cross
07aa : 8d0003 sta jxp_tab
07ad : a907 lda #hi(jxp_ok)
07af : 8d0103 sta jxp_tab+1
07b2 : a9c1 lda #lo(jxp_px)
07b4 : 8d0002 sta pg_x
07b7 : a907 lda #hi(jxp_px)
07b9 : 8d0102 sta pg_x+1
07bc : a2ff ldx #$ff
07be : 7c0102 jmp (jxp_tab-$ff,x)
07c1 : jxp_px
trap ;page cross by index to wrong page
07c1 : 4cc107 > jmp * ;failed anyway
07c4 : jxp_ok
next_test
07c4 : ad0202 > lda test_case ;previous test
07c7 : c907 > cmp #test_num
> trap_ne ;test is out of sequence
07c9 : d0fe > bne * ;failed not equal (non zero)
>
0008 = >test_num = test_num + 1
07cb : a908 > lda #test_num ;*** next tests' number
07cd : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
if ROM_vectors = 1
; test BRK clears decimal mode
load_flag 0 ;with interrupts enabled if allowed!
07d0 : a900 > lda #0 ;allow test to change I-flag (no mask)
07d2 : 48 pha
07d3 : a942 lda #'B'
07d5 : a252 ldx #'R'
07d7 : a04b ldy #'K'
07d9 : 28 plp ;N=0, V=0, Z=0, C=0
07da : 00 brk
07db : 88 dey ;should not be executed
07dc : brk_ret0 ;address of break return
07dc : 08 php ;either SP or Y count will fail, if we do not hit
07dd : 88 dey
07de : 88 dey
07df : 88 dey
07e0 : c9e8 cmp #'B'^$aa ;returned registers OK?
;the IRQ vector was never executed if A & X stay unmodified
trap_ne
07e2 : d0fe > bne * ;failed not equal (non zero)
07e4 : e053 cpx #'R'+1
trap_ne
07e6 : d0fe > bne * ;failed not equal (non zero)
07e8 : c045 cpy #'K'-6
trap_ne
07ea : d0fe > bne * ;failed not equal (non zero)
07ec : 68 pla ;returned flags OK (unchanged)?
cmp_flag 0
07ed : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
trap_ne
07ef : d0fe > bne * ;failed not equal (non zero)
07f1 : ba tsx ;sp?
07f2 : e0ff cpx #$ff
trap_ne
07f4 : d0fe > bne * ;failed not equal (non zero)
;pass 2
load_flag $ff ;with interrupts disabled if allowed!
07f6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
07f8 : 48 pha
07f9 : a9bd lda #$ff-'B'
07fb : a2ad ldx #$ff-'R'
07fd : a0b4 ldy #$ff-'K'
07ff : 28 plp ;N=1, V=1, Z=1, C=1
0800 : 00 brk
0801 : 88 dey ;should not be executed
0802 : brk_ret1 ;address of break return
0802 : 08 php ;either SP or Y count will fail, if we do not hit
0803 : 88 dey
0804 : 88 dey
0805 : 88 dey
0806 : c917 cmp #($ff-'B')^$aa ;returned registers OK?
;the IRQ vector was never executed if A & X stay unmodified
trap_ne
0808 : d0fe > bne * ;failed not equal (non zero)
080a : e0ae cpx #$ff-'R'+1
trap_ne
080c : d0fe > bne * ;failed not equal (non zero)
080e : c0ae cpy #$ff-'K'-6
trap_ne
0810 : d0fe > bne * ;failed not equal (non zero)
0812 : 68 pla ;returned flags OK (unchanged)?
cmp_flag $ff
0813 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
trap_ne
0815 : d0fe > bne * ;failed not equal (non zero)
0817 : ba tsx ;sp?
0818 : e0ff cpx #$ff
trap_ne
081a : d0fe > bne * ;failed not equal (non zero)
next_test
081c : ad0202 > lda test_case ;previous test
081f : c908 > cmp #test_num
> trap_ne ;test is out of sequence
0821 : d0fe > bne * ;failed not equal (non zero)
>
0009 = >test_num = test_num + 1
0823 : a909 > lda #test_num ;*** next tests' number
0825 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
endif
; testing accumulator increment/decrement INC A & DEC A
0828 : a2ac ldx #$ac ;protect x & y
082a : a0dc ldy #$dc
set_a $fe,$ff
> load_flag $ff
082c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
082e : 48 > pha ;use stack to load status
082f : a9fe > lda #$fe ;precharge accu
0831 : 28 > plp
0832 : 1a inc a ;ff
tst_as $ff,$ff-zero
0833 : 48 > pha
0834 : 08 > php ;save flags
0835 : c9ff > cmp #$ff ;test result
> trap_ne
0837 : d0fe > bne * ;failed not equal (non zero)
>
0839 : 68 > pla ;load status
083a : 48 > pha
> cmp_flag $ff-zero
083b : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
083d : d0fe > bne * ;failed not equal (non zero)
>
083f : 28 > plp ;restore status
0840 : 68 > pla
0841 : 1a inc a ;00
tst_as 0,$ff-minus
0842 : 48 > pha
0843 : 08 > php ;save flags
0844 : c900 > cmp #0 ;test result
> trap_ne
0846 : d0fe > bne * ;failed not equal (non zero)
>
0848 : 68 > pla ;load status
0849 : 48 > pha
> cmp_flag $ff-minus
084a : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
084c : d0fe > bne * ;failed not equal (non zero)
>
084e : 28 > plp ;restore status
084f : 68 > pla
0850 : 1a inc a ;01
tst_as 1,$ff-minus-zero
0851 : 48 > pha
0852 : 08 > php ;save flags
0853 : c901 > cmp #1 ;test result
> trap_ne
0855 : d0fe > bne * ;failed not equal (non zero)
>
0857 : 68 > pla ;load status
0858 : 48 > pha
> cmp_flag $ff-minus-zero
0859 : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
085b : d0fe > bne * ;failed not equal (non zero)
>
085d : 28 > plp ;restore status
085e : 68 > pla
085f : 3a dec a ;00
tst_as 0,$ff-minus
0860 : 48 > pha
0861 : 08 > php ;save flags
0862 : c900 > cmp #0 ;test result
> trap_ne
0864 : d0fe > bne * ;failed not equal (non zero)
>
0866 : 68 > pla ;load status
0867 : 48 > pha
> cmp_flag $ff-minus
0868 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
086a : d0fe > bne * ;failed not equal (non zero)
>
086c : 28 > plp ;restore status
086d : 68 > pla
086e : 3a dec a ;ff
tst_as $ff,$ff-zero
086f : 48 > pha
0870 : 08 > php ;save flags
0871 : c9ff > cmp #$ff ;test result
> trap_ne
0873 : d0fe > bne * ;failed not equal (non zero)
>
0875 : 68 > pla ;load status
0876 : 48 > pha
> cmp_flag $ff-zero
0877 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0879 : d0fe > bne * ;failed not equal (non zero)
>
087b : 28 > plp ;restore status
087c : 68 > pla
087d : 3a dec a ;fe
set_a $fe,0
> load_flag 0
087e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0880 : 48 > pha ;use stack to load status
0881 : a9fe > lda #$fe ;precharge accu
0883 : 28 > plp
0884 : 1a inc a ;ff
tst_as $ff,minus
0885 : 48 > pha
0886 : 08 > php ;save flags
0887 : c9ff > cmp #$ff ;test result
> trap_ne
0889 : d0fe > bne * ;failed not equal (non zero)
>
088b : 68 > pla ;load status
088c : 48 > pha
> cmp_flag minus
088d : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
088f : d0fe > bne * ;failed not equal (non zero)
>
0891 : 28 > plp ;restore status
0892 : 68 > pla
0893 : 1a inc a ;00
tst_as 0,zero
0894 : 48 > pha
0895 : 08 > php ;save flags
0896 : c900 > cmp #0 ;test result
> trap_ne
0898 : d0fe > bne * ;failed not equal (non zero)
>
089a : 68 > pla ;load status
089b : 48 > pha
> cmp_flag zero
089c : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
089e : d0fe > bne * ;failed not equal (non zero)
>
08a0 : 28 > plp ;restore status
08a1 : 68 > pla
08a2 : 1a inc a ;01
tst_as 1,0
08a3 : 48 > pha
08a4 : 08 > php ;save flags
08a5 : c901 > cmp #1 ;test result
> trap_ne
08a7 : d0fe > bne * ;failed not equal (non zero)
>
08a9 : 68 > pla ;load status
08aa : 48 > pha
> cmp_flag 0
08ab : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
08ad : d0fe > bne * ;failed not equal (non zero)
>
08af : 28 > plp ;restore status
08b0 : 68 > pla
08b1 : 3a dec a ;00
tst_as 0,zero
08b2 : 48 > pha
08b3 : 08 > php ;save flags
08b4 : c900 > cmp #0 ;test result
> trap_ne
08b6 : d0fe > bne * ;failed not equal (non zero)
>
08b8 : 68 > pla ;load status
08b9 : 48 > pha
> cmp_flag zero
08ba : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
08bc : d0fe > bne * ;failed not equal (non zero)
>
08be : 28 > plp ;restore status
08bf : 68 > pla
08c0 : 3a dec a ;ff
tst_as $ff,minus
08c1 : 48 > pha
08c2 : 08 > php ;save flags
08c3 : c9ff > cmp #$ff ;test result
> trap_ne
08c5 : d0fe > bne * ;failed not equal (non zero)
>
08c7 : 68 > pla ;load status
08c8 : 48 > pha
> cmp_flag minus
08c9 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
08cb : d0fe > bne * ;failed not equal (non zero)
>
08cd : 28 > plp ;restore status
08ce : 68 > pla
08cf : e0ac cpx #$ac
trap_ne ;x altered during test
08d1 : d0fe > bne * ;failed not equal (non zero)
08d3 : c0dc cpy #$dc
trap_ne ;y altered during test
08d5 : d0fe > bne * ;failed not equal (non zero)
08d7 : ba tsx
08d8 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
08da : d0fe > bne * ;failed not equal (non zero)
next_test
08dc : ad0202 > lda test_case ;previous test
08df : c909 > cmp #test_num
> trap_ne ;test is out of sequence
08e1 : d0fe > bne * ;failed not equal (non zero)
>
000a = >test_num = test_num + 1
08e3 : a90a > lda #test_num ;*** next tests' number
08e5 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing load / store accumulator LDA / STA (zp)
08e8 : a299 ldx #$99 ;protect x & y
08ea : a066 ldy #$66
set_stat 0
> load_flag 0
08ec : a900 > lda #0 ;allow test to change I-flag (no mask)
>
08ee : 48 > pha ;use stack to load status
08ef : 28 > plp
08f0 : b224 lda (ind1)
08f2 : 08 php ;test stores do not alter flags
08f3 : 49c3 eor #$c3
08f5 : 28 plp
08f6 : 9230 sta (indt)
08f8 : 08 php ;flags after load/store sequence
08f9 : 49c3 eor #$c3
08fb : c9c3 cmp #$c3 ;test result
trap_ne
08fd : d0fe > bne * ;failed not equal (non zero)
08ff : 68 pla ;load status
eor_flag 0
0900 : 4930 > eor #0|fao ;invert expected flags + always on bits
0902 : cd1502 cmp fLDx ;test flags
trap_ne
0905 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0907 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0909 : 48 > pha ;use stack to load status
090a : 28 > plp
090b : b226 lda (ind1+2)
090d : 08 php ;test stores do not alter flags
090e : 49c3 eor #$c3
0910 : 28 plp
0911 : 9232 sta (indt+2)
0913 : 08 php ;flags after load/store sequence
0914 : 49c3 eor #$c3
0916 : c982 cmp #$82 ;test result
trap_ne
0918 : d0fe > bne * ;failed not equal (non zero)
091a : 68 pla ;load status
eor_flag 0
091b : 4930 > eor #0|fao ;invert expected flags + always on bits
091d : cd1602 cmp fLDx+1 ;test flags
trap_ne
0920 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0922 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0924 : 48 > pha ;use stack to load status
0925 : 28 > plp
0926 : b228 lda (ind1+4)
0928 : 08 php ;test stores do not alter flags
0929 : 49c3 eor #$c3
092b : 28 plp
092c : 9234 sta (indt+4)
092e : 08 php ;flags after load/store sequence
092f : 49c3 eor #$c3
0931 : c941 cmp #$41 ;test result
trap_ne
0933 : d0fe > bne * ;failed not equal (non zero)
0935 : 68 pla ;load status
eor_flag 0
0936 : 4930 > eor #0|fao ;invert expected flags + always on bits
0938 : cd1702 cmp fLDx+2 ;test flags
trap_ne
093b : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
093d : a900 > lda #0 ;allow test to change I-flag (no mask)
>
093f : 48 > pha ;use stack to load status
0940 : 28 > plp
0941 : b22a lda (ind1+6)
0943 : 08 php ;test stores do not alter flags
0944 : 49c3 eor #$c3
0946 : 28 plp
0947 : 9236 sta (indt+6)
0949 : 08 php ;flags after load/store sequence
094a : 49c3 eor #$c3
094c : c900 cmp #0 ;test result
trap_ne
094e : d0fe > bne * ;failed not equal (non zero)
0950 : 68 pla ;load status
eor_flag 0
0951 : 4930 > eor #0|fao ;invert expected flags + always on bits
0953 : cd1802 cmp fLDx+3 ;test flags
trap_ne
0956 : d0fe > bne * ;failed not equal (non zero)
0958 : e099 cpx #$99
trap_ne ;x altered during test
095a : d0fe > bne * ;failed not equal (non zero)
095c : c066 cpy #$66
trap_ne ;y altered during test
095e : d0fe > bne * ;failed not equal (non zero)
0960 : a003 ldy #3 ;testing store result
0962 : a200 ldx #0
0964 : b90502 tstai1 lda abst,y
0967 : 49c3 eor #$c3
0969 : d91002 cmp abs1,y
trap_ne ;store to indirect data
096c : d0fe > bne * ;failed not equal (non zero)
096e : 8a txa
096f : 990502 sta abst,y ;clear
0972 : 88 dey
0973 : 10ef bpl tstai1
0975 : a299 ldx #$99 ;protect x & y
0977 : a066 ldy #$66
set_stat $ff
> load_flag $ff
0979 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
097b : 48 > pha ;use stack to load status
097c : 28 > plp
097d : b224 lda (ind1)
097f : 08 php ;test stores do not alter flags
0980 : 49c3 eor #$c3
0982 : 28 plp
0983 : 9230 sta (indt)
0985 : 08 php ;flags after load/store sequence
0986 : 49c3 eor #$c3
0988 : c9c3 cmp #$c3 ;test result
trap_ne
098a : d0fe > bne * ;failed not equal (non zero)
098c : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
098d : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
098f : cd1502 cmp fLDx ;test flags
trap_ne
0992 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
0994 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0996 : 48 > pha ;use stack to load status
0997 : 28 > plp
0998 : b226 lda (ind1+2)
099a : 08 php ;test stores do not alter flags
099b : 49c3 eor #$c3
099d : 28 plp
099e : 9232 sta (indt+2)
09a0 : 08 php ;flags after load/store sequence
09a1 : 49c3 eor #$c3
09a3 : c982 cmp #$82 ;test result
trap_ne
09a5 : d0fe > bne * ;failed not equal (non zero)
09a7 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
09a8 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
09aa : cd1602 cmp fLDx+1 ;test flags
trap_ne
09ad : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
09af : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
09b1 : 48 > pha ;use stack to load status
09b2 : 28 > plp
09b3 : b228 lda (ind1+4)
09b5 : 08 php ;test stores do not alter flags
09b6 : 49c3 eor #$c3
09b8 : 28 plp
09b9 : 9234 sta (indt+4)
09bb : 08 php ;flags after load/store sequence
09bc : 49c3 eor #$c3
09be : c941 cmp #$41 ;test result
trap_ne
09c0 : d0fe > bne * ;failed not equal (non zero)
09c2 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
09c3 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
09c5 : cd1702 cmp fLDx+2 ;test flags
trap_ne
09c8 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
09ca : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
09cc : 48 > pha ;use stack to load status
09cd : 28 > plp
09ce : b22a lda (ind1+6)
09d0 : 08 php ;test stores do not alter flags
09d1 : 49c3 eor #$c3
09d3 : 28 plp
09d4 : 9236 sta (indt+6)
09d6 : 08 php ;flags after load/store sequence
09d7 : 49c3 eor #$c3
09d9 : c900 cmp #0 ;test result
trap_ne
09db : d0fe > bne * ;failed not equal (non zero)
09dd : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
09de : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
09e0 : cd1802 cmp fLDx+3 ;test flags
trap_ne
09e3 : d0fe > bne * ;failed not equal (non zero)
09e5 : e099 cpx #$99
trap_ne ;x altered during test
09e7 : d0fe > bne * ;failed not equal (non zero)
09e9 : c066 cpy #$66
trap_ne ;y altered during test
09eb : d0fe > bne * ;failed not equal (non zero)
09ed : a003 ldy #3 ;testing store result
09ef : a200 ldx #0
09f1 : b90502 tstai2 lda abst,y
09f4 : 49c3 eor #$c3
09f6 : d91002 cmp abs1,y
trap_ne ;store to indirect data
09f9 : d0fe > bne * ;failed not equal (non zero)
09fb : 8a txa
09fc : 990502 sta abst,y ;clear
09ff : 88 dey
0a00 : 10ef bpl tstai2
0a02 : ba tsx
0a03 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
0a05 : d0fe > bne * ;failed not equal (non zero)
next_test
0a07 : ad0202 > lda test_case ;previous test
0a0a : c90a > cmp #test_num
> trap_ne ;test is out of sequence
0a0c : d0fe > bne * ;failed not equal (non zero)
>
000b = >test_num = test_num + 1
0a0e : a90b > lda #test_num ;*** next tests' number
0a10 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing STZ - zp / abs / zp,x / abs,x
0a13 : a07b ldy #123 ;protect y
0a15 : a204 ldx #4 ;precharge test area
0a17 : a907 lda #7
0a19 : 950c tstz1 sta zpt,x
0a1b : 0a asl a
0a1c : ca dex
0a1d : 10fa bpl tstz1
0a1f : a204 ldx #4
set_a $55,$ff
> load_flag $ff
0a21 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0a23 : 48 > pha ;use stack to load status
0a24 : a955 > lda #$55 ;precharge accu
0a26 : 28 > plp
0a27 : 640c stz zpt
0a29 : 640d stz zpt+1
0a2b : 640e stz zpt+2
0a2d : 640f stz zpt+3
0a2f : 6410 stz zpt+4
tst_a $55,$ff
0a31 : 08 > php ;save flags
0a32 : c955 > cmp #$55 ;test result
> trap_ne
0a34 : d0fe > bne * ;failed not equal (non zero)
>
0a36 : 68 > pla ;load status
0a37 : 48 > pha
> cmp_flag $ff
0a38 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a3a : d0fe > bne * ;failed not equal (non zero)
>
0a3c : 28 > plp ;restore status
0a3d : b50c tstz2 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
0a3f : d0fe > bne * ;failed not equal (non zero)
0a41 : ca dex
0a42 : 10f9 bpl tstz2
0a44 : a204 ldx #4 ;precharge test area
0a46 : a907 lda #7
0a48 : 950c tstz3 sta zpt,x
0a4a : 0a asl a
0a4b : ca dex
0a4c : 10fa bpl tstz3
0a4e : a204 ldx #4
set_a $aa,0
> load_flag 0
0a50 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0a52 : 48 > pha ;use stack to load status
0a53 : a9aa > lda #$aa ;precharge accu
0a55 : 28 > plp
0a56 : 640c stz zpt
0a58 : 640d stz zpt+1
0a5a : 640e stz zpt+2
0a5c : 640f stz zpt+3
0a5e : 6410 stz zpt+4
tst_a $aa,0
0a60 : 08 > php ;save flags
0a61 : c9aa > cmp #$aa ;test result
> trap_ne
0a63 : d0fe > bne * ;failed not equal (non zero)
>
0a65 : 68 > pla ;load status
0a66 : 48 > pha
> cmp_flag 0
0a67 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a69 : d0fe > bne * ;failed not equal (non zero)
>
0a6b : 28 > plp ;restore status
0a6c : b50c tstz4 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
0a6e : d0fe > bne * ;failed not equal (non zero)
0a70 : ca dex
0a71 : 10f9 bpl tstz4
0a73 : a204 ldx #4 ;precharge test area
0a75 : a907 lda #7
0a77 : 9d0502 tstz5 sta abst,x
0a7a : 0a asl a
0a7b : ca dex
0a7c : 10f9 bpl tstz5
0a7e : a204 ldx #4
set_a $55,$ff
> load_flag $ff
0a80 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0a82 : 48 > pha ;use stack to load status
0a83 : a955 > lda #$55 ;precharge accu
0a85 : 28 > plp
0a86 : 9c0502 stz abst
0a89 : 9c0602 stz abst+1
0a8c : 9c0702 stz abst+2
0a8f : 9c0802 stz abst+3
0a92 : 9c0902 stz abst+4
tst_a $55,$ff
0a95 : 08 > php ;save flags
0a96 : c955 > cmp #$55 ;test result
> trap_ne
0a98 : d0fe > bne * ;failed not equal (non zero)
>
0a9a : 68 > pla ;load status
0a9b : 48 > pha
> cmp_flag $ff
0a9c : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a9e : d0fe > bne * ;failed not equal (non zero)
>
0aa0 : 28 > plp ;restore status
0aa1 : bd0502 tstz6 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ abs
0aa4 : d0fe > bne * ;failed not equal (non zero)
0aa6 : ca dex
0aa7 : 10f8 bpl tstz6
0aa9 : a204 ldx #4 ;precharge test area
0aab : a907 lda #7
0aad : 9d0502 tstz7 sta abst,x
0ab0 : 0a asl a
0ab1 : ca dex
0ab2 : 10f9 bpl tstz7
0ab4 : a204 ldx #4
set_a $aa,0
> load_flag 0
0ab6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0ab8 : 48 > pha ;use stack to load status
0ab9 : a9aa > lda #$aa ;precharge accu
0abb : 28 > plp
0abc : 9c0502 stz abst
0abf : 9c0602 stz abst+1
0ac2 : 9c0702 stz abst+2
0ac5 : 9c0802 stz abst+3
0ac8 : 9c0902 stz abst+4
tst_a $aa,0
0acb : 08 > php ;save flags
0acc : c9aa > cmp #$aa ;test result
> trap_ne
0ace : d0fe > bne * ;failed not equal (non zero)
>
0ad0 : 68 > pla ;load status
0ad1 : 48 > pha
> cmp_flag 0
0ad2 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ad4 : d0fe > bne * ;failed not equal (non zero)
>
0ad6 : 28 > plp ;restore status
0ad7 : bd0502 tstz8 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ abs
0ada : d0fe > bne * ;failed not equal (non zero)
0adc : ca dex
0add : 10f8 bpl tstz8
0adf : a204 ldx #4 ;precharge test area
0ae1 : a907 lda #7
0ae3 : 950c tstz11 sta zpt,x
0ae5 : 0a asl a
0ae6 : ca dex
0ae7 : 10fa bpl tstz11
0ae9 : a204 ldx #4
0aeb : tstz15
set_a $55,$ff
> load_flag $ff
0aeb : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0aed : 48 > pha ;use stack to load status
0aee : a955 > lda #$55 ;precharge accu
0af0 : 28 > plp
0af1 : 740c stz zpt,x
tst_a $55,$ff
0af3 : 08 > php ;save flags
0af4 : c955 > cmp #$55 ;test result
> trap_ne
0af6 : d0fe > bne * ;failed not equal (non zero)
>
0af8 : 68 > pla ;load status
0af9 : 48 > pha
> cmp_flag $ff
0afa : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0afc : d0fe > bne * ;failed not equal (non zero)
>
0afe : 28 > plp ;restore status
0aff : ca dex
0b00 : 10e9 bpl tstz15
0b02 : a204 ldx #4
0b04 : b50c tstz12 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
0b06 : d0fe > bne * ;failed not equal (non zero)
0b08 : ca dex
0b09 : 10f9 bpl tstz12
0b0b : a204 ldx #4 ;precharge test area
0b0d : a907 lda #7
0b0f : 950c tstz13 sta zpt,x
0b11 : 0a asl a
0b12 : ca dex
0b13 : 10fa bpl tstz13
0b15 : a204 ldx #4
0b17 : tstz16
set_a $aa,0
> load_flag 0
0b17 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0b19 : 48 > pha ;use stack to load status
0b1a : a9aa > lda #$aa ;precharge accu
0b1c : 28 > plp
0b1d : 740c stz zpt,x
tst_a $aa,0
0b1f : 08 > php ;save flags
0b20 : c9aa > cmp #$aa ;test result
> trap_ne
0b22 : d0fe > bne * ;failed not equal (non zero)
>
0b24 : 68 > pla ;load status
0b25 : 48 > pha
> cmp_flag 0
0b26 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b28 : d0fe > bne * ;failed not equal (non zero)
>
0b2a : 28 > plp ;restore status
0b2b : ca dex
0b2c : 10e9 bpl tstz16
0b2e : a204 ldx #4
0b30 : b50c tstz14 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
0b32 : d0fe > bne * ;failed not equal (non zero)
0b34 : ca dex
0b35 : 10f9 bpl tstz14
0b37 : a204 ldx #4 ;precharge test area
0b39 : a907 lda #7
0b3b : 9d0502 tstz21 sta abst,x
0b3e : 0a asl a
0b3f : ca dex
0b40 : 10f9 bpl tstz21
0b42 : a204 ldx #4
0b44 : tstz25
set_a $55,$ff
> load_flag $ff
0b44 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0b46 : 48 > pha ;use stack to load status
0b47 : a955 > lda #$55 ;precharge accu
0b49 : 28 > plp
0b4a : 9e0502 stz abst,x
tst_a $55,$ff
0b4d : 08 > php ;save flags
0b4e : c955 > cmp #$55 ;test result
> trap_ne
0b50 : d0fe > bne * ;failed not equal (non zero)
>
0b52 : 68 > pla ;load status
0b53 : 48 > pha
> cmp_flag $ff
0b54 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b56 : d0fe > bne * ;failed not equal (non zero)
>
0b58 : 28 > plp ;restore status
0b59 : ca dex
0b5a : 10e8 bpl tstz25
0b5c : a204 ldx #4
0b5e : bd0502 tstz22 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ zp
0b61 : d0fe > bne * ;failed not equal (non zero)
0b63 : ca dex
0b64 : 10f8 bpl tstz22
0b66 : a204 ldx #4 ;precharge test area
0b68 : a907 lda #7
0b6a : 9d0502 tstz23 sta abst,x
0b6d : 0a asl a
0b6e : ca dex
0b6f : 10f9 bpl tstz23
0b71 : a204 ldx #4
0b73 : tstz26
set_a $aa,0
> load_flag 0
0b73 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0b75 : 48 > pha ;use stack to load status
0b76 : a9aa > lda #$aa ;precharge accu
0b78 : 28 > plp
0b79 : 9e0502 stz abst,x
tst_a $aa,0
0b7c : 08 > php ;save flags
0b7d : c9aa > cmp #$aa ;test result
> trap_ne
0b7f : d0fe > bne * ;failed not equal (non zero)
>
0b81 : 68 > pla ;load status
0b82 : 48 > pha
> cmp_flag 0
0b83 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b85 : d0fe > bne * ;failed not equal (non zero)
>
0b87 : 28 > plp ;restore status
0b88 : ca dex
0b89 : 10e8 bpl tstz26
0b8b : a204 ldx #4
0b8d : bd0502 tstz24 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ zp
0b90 : d0fe > bne * ;failed not equal (non zero)
0b92 : ca dex
0b93 : 10f8 bpl tstz24
0b95 : c07b cpy #123
trap_ne ;y altered during test
0b97 : d0fe > bne * ;failed not equal (non zero)
0b99 : ba tsx
0b9a : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
0b9c : d0fe > bne * ;failed not equal (non zero)
next_test
0b9e : ad0202 > lda test_case ;previous test
0ba1 : c90b > cmp #test_num
> trap_ne ;test is out of sequence
0ba3 : d0fe > bne * ;failed not equal (non zero)
>
000c = >test_num = test_num + 1
0ba5 : a90c > lda #test_num ;*** next tests' number
0ba7 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing BIT - zp,x / abs,x / #
0baa : a042 ldy #$42
0bac : a203 ldx #3
set_a $ff,0
> load_flag 0
0bae : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0bb0 : 48 > pha ;use stack to load status
0bb1 : a9ff > lda #$ff ;precharge accu
0bb3 : 28 > plp
0bb4 : 3413 bit zp1,x ;00 - should set Z / clear NV
tst_a $ff,fz
0bb6 : 08 > php ;save flags
0bb7 : c9ff > cmp #$ff ;test result
> trap_ne
0bb9 : d0fe > bne * ;failed not equal (non zero)
>
0bbb : 68 > pla ;load status
0bbc : 48 > pha
> cmp_flag fz
0bbd : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bbf : d0fe > bne * ;failed not equal (non zero)
>
0bc1 : 28 > plp ;restore status
0bc2 : ca dex
set_a 1,0
> load_flag 0
0bc3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0bc5 : 48 > pha ;use stack to load status
0bc6 : a901 > lda #1 ;precharge accu
0bc8 : 28 > plp
0bc9 : 3413 bit zp1,x ;41 - should set V (M6) / clear NZ
tst_a 1,fv
0bcb : 08 > php ;save flags
0bcc : c901 > cmp #1 ;test result
> trap_ne
0bce : d0fe > bne * ;failed not equal (non zero)
>
0bd0 : 68 > pla ;load status
0bd1 : 48 > pha
> cmp_flag fv
0bd2 : c970 > cmp #(fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bd4 : d0fe > bne * ;failed not equal (non zero)
>
0bd6 : 28 > plp ;restore status
0bd7 : ca dex
set_a 1,0
> load_flag 0
0bd8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0bda : 48 > pha ;use stack to load status
0bdb : a901 > lda #1 ;precharge accu
0bdd : 28 > plp
0bde : 3413 bit zp1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,fnz
0be0 : 08 > php ;save flags
0be1 : c901 > cmp #1 ;test result
> trap_ne
0be3 : d0fe > bne * ;failed not equal (non zero)
>
0be5 : 68 > pla ;load status
0be6 : 48 > pha
> cmp_flag fnz
0be7 : c9b2 > cmp #(fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0be9 : d0fe > bne * ;failed not equal (non zero)
>
0beb : 28 > plp ;restore status
0bec : ca dex
set_a 1,0
> load_flag 0
0bed : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0bef : 48 > pha ;use stack to load status
0bf0 : a901 > lda #1 ;precharge accu
0bf2 : 28 > plp
0bf3 : 3413 bit zp1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,fnv
0bf5 : 08 > php ;save flags
0bf6 : c901 > cmp #1 ;test result
> trap_ne
0bf8 : d0fe > bne * ;failed not equal (non zero)
>
0bfa : 68 > pla ;load status
0bfb : 48 > pha
> cmp_flag fnv
0bfc : c9f0 > cmp #(fnv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bfe : d0fe > bne * ;failed not equal (non zero)
>
0c00 : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
0c01 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0c03 : 48 > pha ;use stack to load status
0c04 : a901 > lda #1 ;precharge accu
0c06 : 28 > plp
0c07 : 3413 bit zp1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,~fz
0c09 : 08 > php ;save flags
0c0a : c901 > cmp #1 ;test result
> trap_ne
0c0c : d0fe > bne * ;failed not equal (non zero)
>
0c0e : 68 > pla ;load status
0c0f : 48 > pha
> cmp_flag ~fz
0c10 : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c12 : d0fe > bne * ;failed not equal (non zero)
>
0c14 : 28 > plp ;restore status
0c15 : e8 inx
set_a 1,$ff
> load_flag $ff
0c16 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0c18 : 48 > pha ;use stack to load status
0c19 : a901 > lda #1 ;precharge accu
0c1b : 28 > plp
0c1c : 3413 bit zp1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,~fv
0c1e : 08 > php ;save flags
0c1f : c901 > cmp #1 ;test result
> trap_ne
0c21 : d0fe > bne * ;failed not equal (non zero)
>
0c23 : 68 > pla ;load status
0c24 : 48 > pha
> cmp_flag ~fv
0c25 : c9bf > cmp #(~fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c27 : d0fe > bne * ;failed not equal (non zero)
>
0c29 : 28 > plp ;restore status
0c2a : e8 inx
set_a 1,$ff
> load_flag $ff
0c2b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0c2d : 48 > pha ;use stack to load status
0c2e : a901 > lda #1 ;precharge accu
0c30 : 28 > plp
0c31 : 3413 bit zp1,x ;41 - should set V (M6) / clear NZ
tst_a 1,~fnz
0c33 : 08 > php ;save flags
0c34 : c901 > cmp #1 ;test result
> trap_ne
0c36 : d0fe > bne * ;failed not equal (non zero)
>
0c38 : 68 > pla ;load status
0c39 : 48 > pha
> cmp_flag ~fnz
0c3a : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c3c : d0fe > bne * ;failed not equal (non zero)
>
0c3e : 28 > plp ;restore status
0c3f : e8 inx
set_a $ff,$ff
> load_flag $ff
0c40 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0c42 : 48 > pha ;use stack to load status
0c43 : a9ff > lda #$ff ;precharge accu
0c45 : 28 > plp
0c46 : 3413 bit zp1,x ;00 - should set Z / clear NV
tst_a $ff,~fnv
0c48 : 08 > php ;save flags
0c49 : c9ff > cmp #$ff ;test result
> trap_ne
0c4b : d0fe > bne * ;failed not equal (non zero)
>
0c4d : 68 > pla ;load status
0c4e : 48 > pha
> cmp_flag ~fnv
0c4f : c93f > cmp #(~fnv |fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c51 : d0fe > bne * ;failed not equal (non zero)
>
0c53 : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
0c54 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c56 : 48 > pha ;use stack to load status
0c57 : a9ff > lda #$ff ;precharge accu
0c59 : 28 > plp
0c5a : 3c1002 bit abs1,x ;00 - should set Z / clear NV
tst_a $ff,fz
0c5d : 08 > php ;save flags
0c5e : c9ff > cmp #$ff ;test result
> trap_ne
0c60 : d0fe > bne * ;failed not equal (non zero)
>
0c62 : 68 > pla ;load status
0c63 : 48 > pha
> cmp_flag fz
0c64 : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c66 : d0fe > bne * ;failed not equal (non zero)
>
0c68 : 28 > plp ;restore status
0c69 : ca dex
set_a 1,0
> load_flag 0
0c6a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c6c : 48 > pha ;use stack to load status
0c6d : a901 > lda #1 ;precharge accu
0c6f : 28 > plp
0c70 : 3c1002 bit abs1,x ;41 - should set V (M6) / clear NZ
tst_a 1,fv
0c73 : 08 > php ;save flags
0c74 : c901 > cmp #1 ;test result
> trap_ne
0c76 : d0fe > bne * ;failed not equal (non zero)
>
0c78 : 68 > pla ;load status
0c79 : 48 > pha
> cmp_flag fv
0c7a : c970 > cmp #(fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c7c : d0fe > bne * ;failed not equal (non zero)
>
0c7e : 28 > plp ;restore status
0c7f : ca dex
set_a 1,0
> load_flag 0
0c80 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c82 : 48 > pha ;use stack to load status
0c83 : a901 > lda #1 ;precharge accu
0c85 : 28 > plp
0c86 : 3c1002 bit abs1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,fnz
0c89 : 08 > php ;save flags
0c8a : c901 > cmp #1 ;test result
> trap_ne
0c8c : d0fe > bne * ;failed not equal (non zero)
>
0c8e : 68 > pla ;load status
0c8f : 48 > pha
> cmp_flag fnz
0c90 : c9b2 > cmp #(fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c92 : d0fe > bne * ;failed not equal (non zero)
>
0c94 : 28 > plp ;restore status
0c95 : ca dex
set_a 1,0
> load_flag 0
0c96 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c98 : 48 > pha ;use stack to load status
0c99 : a901 > lda #1 ;precharge accu
0c9b : 28 > plp
0c9c : 3c1002 bit abs1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,fnv
0c9f : 08 > php ;save flags
0ca0 : c901 > cmp #1 ;test result
> trap_ne
0ca2 : d0fe > bne * ;failed not equal (non zero)
>
0ca4 : 68 > pla ;load status
0ca5 : 48 > pha
> cmp_flag fnv
0ca6 : c9f0 > cmp #(fnv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ca8 : d0fe > bne * ;failed not equal (non zero)
>
0caa : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
0cab : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0cad : 48 > pha ;use stack to load status
0cae : a901 > lda #1 ;precharge accu
0cb0 : 28 > plp
0cb1 : 3c1002 bit abs1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,~fz
0cb4 : 08 > php ;save flags
0cb5 : c901 > cmp #1 ;test result
> trap_ne
0cb7 : d0fe > bne * ;failed not equal (non zero)
>
0cb9 : 68 > pla ;load status
0cba : 48 > pha
> cmp_flag ~fz
0cbb : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cbd : d0fe > bne * ;failed not equal (non zero)
>
0cbf : 28 > plp ;restore status
0cc0 : e8 inx
set_a 1,$ff
> load_flag $ff
0cc1 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0cc3 : 48 > pha ;use stack to load status
0cc4 : a901 > lda #1 ;precharge accu
0cc6 : 28 > plp
0cc7 : 3c1002 bit abs1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,~fv
0cca : 08 > php ;save flags
0ccb : c901 > cmp #1 ;test result
> trap_ne
0ccd : d0fe > bne * ;failed not equal (non zero)
>
0ccf : 68 > pla ;load status
0cd0 : 48 > pha
> cmp_flag ~fv
0cd1 : c9bf > cmp #(~fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cd3 : d0fe > bne * ;failed not equal (non zero)
>
0cd5 : 28 > plp ;restore status
0cd6 : e8 inx
set_a 1,$ff
> load_flag $ff
0cd7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0cd9 : 48 > pha ;use stack to load status
0cda : a901 > lda #1 ;precharge accu
0cdc : 28 > plp
0cdd : 3c1002 bit abs1,x ;41 - should set V (M6) / clear NZ
tst_a 1,~fnz
0ce0 : 08 > php ;save flags
0ce1 : c901 > cmp #1 ;test result
> trap_ne
0ce3 : d0fe > bne * ;failed not equal (non zero)
>
0ce5 : 68 > pla ;load status
0ce6 : 48 > pha
> cmp_flag ~fnz
0ce7 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ce9 : d0fe > bne * ;failed not equal (non zero)
>
0ceb : 28 > plp ;restore status
0cec : e8 inx
set_a $ff,$ff
> load_flag $ff
0ced : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0cef : 48 > pha ;use stack to load status
0cf0 : a9ff > lda #$ff ;precharge accu
0cf2 : 28 > plp
0cf3 : 3c1002 bit abs1,x ;00 - should set Z / clear NV
tst_a $ff,~fnv
0cf6 : 08 > php ;save flags
0cf7 : c9ff > cmp #$ff ;test result
> trap_ne
0cf9 : d0fe > bne * ;failed not equal (non zero)
>
0cfb : 68 > pla ;load status
0cfc : 48 > pha
> cmp_flag ~fnv
0cfd : c93f > cmp #(~fnv |fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cff : d0fe > bne * ;failed not equal (non zero)
>
0d01 : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
0d02 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d04 : 48 > pha ;use stack to load status
0d05 : a9ff > lda #$ff ;precharge accu
0d07 : 28 > plp
0d08 : 8900 bit #$00 ;00 - should set Z
tst_a $ff,fz
0d0a : 08 > php ;save flags
0d0b : c9ff > cmp #$ff ;test result
> trap_ne
0d0d : d0fe > bne * ;failed not equal (non zero)
>
0d0f : 68 > pla ;load status
0d10 : 48 > pha
> cmp_flag fz
0d11 : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d13 : d0fe > bne * ;failed not equal (non zero)
>
0d15 : 28 > plp ;restore status
0d16 : ca dex
set_a 1,0
> load_flag 0
0d17 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d19 : 48 > pha ;use stack to load status
0d1a : a901 > lda #1 ;precharge accu
0d1c : 28 > plp
0d1d : 8941 bit #$41 ;41 - should clear Z
tst_a 1,0
0d1f : 08 > php ;save flags
0d20 : c901 > cmp #1 ;test result
> trap_ne
0d22 : d0fe > bne * ;failed not equal (non zero)
>
0d24 : 68 > pla ;load status
0d25 : 48 > pha
> cmp_flag 0
0d26 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d28 : d0fe > bne * ;failed not equal (non zero)
>
0d2a : 28 > plp ;restore status
; *** DEBUG INFO ***
; if it fails the previous test and your BIT # has set the V flag
; see http://forum.6502.org/viewtopic.php?f=2&t=2241&p=27243#p27239
; why it shouldn't alter N or V flags on a BIT #
0d2b : ca dex
set_a 1,0
> load_flag 0
0d2c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d2e : 48 > pha ;use stack to load status
0d2f : a901 > lda #1 ;precharge accu
0d31 : 28 > plp
0d32 : 8982 bit #$82 ;82 - should set Z
tst_a 1,fz
0d34 : 08 > php ;save flags
0d35 : c901 > cmp #1 ;test result
> trap_ne
0d37 : d0fe > bne * ;failed not equal (non zero)
>
0d39 : 68 > pla ;load status
0d3a : 48 > pha
> cmp_flag fz
0d3b : c932 > cmp #(fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d3d : d0fe > bne * ;failed not equal (non zero)
>
0d3f : 28 > plp ;restore status
0d40 : ca dex
set_a 1,0
> load_flag 0
0d41 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d43 : 48 > pha ;use stack to load status
0d44 : a901 > lda #1 ;precharge accu
0d46 : 28 > plp
0d47 : 89c3 bit #$c3 ;c3 - should clear Z
tst_a 1,0
0d49 : 08 > php ;save flags
0d4a : c901 > cmp #1 ;test result
> trap_ne
0d4c : d0fe > bne * ;failed not equal (non zero)
>
0d4e : 68 > pla ;load status
0d4f : 48 > pha
> cmp_flag 0
0d50 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d52 : d0fe > bne * ;failed not equal (non zero)
>
0d54 : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
0d55 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d57 : 48 > pha ;use stack to load status
0d58 : a901 > lda #1 ;precharge accu
0d5a : 28 > plp
0d5b : 89c3 bit #$c3 ;c3 - clear Z
tst_a 1,~fz
0d5d : 08 > php ;save flags
0d5e : c901 > cmp #1 ;test result
> trap_ne
0d60 : d0fe > bne * ;failed not equal (non zero)
>
0d62 : 68 > pla ;load status
0d63 : 48 > pha
> cmp_flag ~fz
0d64 : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d66 : d0fe > bne * ;failed not equal (non zero)
>
0d68 : 28 > plp ;restore status
0d69 : e8 inx
set_a 1,$ff
> load_flag $ff
0d6a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d6c : 48 > pha ;use stack to load status
0d6d : a901 > lda #1 ;precharge accu
0d6f : 28 > plp
0d70 : 8982 bit #$82 ;82 - should set Z
tst_a 1,$ff
0d72 : 08 > php ;save flags
0d73 : c901 > cmp #1 ;test result
> trap_ne
0d75 : d0fe > bne * ;failed not equal (non zero)
>
0d77 : 68 > pla ;load status
0d78 : 48 > pha
> cmp_flag $ff
0d79 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d7b : d0fe > bne * ;failed not equal (non zero)
>
0d7d : 28 > plp ;restore status
0d7e : e8 inx
set_a 1,$ff
> load_flag $ff
0d7f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d81 : 48 > pha ;use stack to load status
0d82 : a901 > lda #1 ;precharge accu
0d84 : 28 > plp
0d85 : 8941 bit #$41 ;41 - should clear Z
tst_a 1,~fz
0d87 : 08 > php ;save flags
0d88 : c901 > cmp #1 ;test result
> trap_ne
0d8a : d0fe > bne * ;failed not equal (non zero)
>
0d8c : 68 > pla ;load status
0d8d : 48 > pha
> cmp_flag ~fz
0d8e : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d90 : d0fe > bne * ;failed not equal (non zero)
>
0d92 : 28 > plp ;restore status
0d93 : e8 inx
set_a $ff,$ff
> load_flag $ff
0d94 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d96 : 48 > pha ;use stack to load status
0d97 : a9ff > lda #$ff ;precharge accu
0d99 : 28 > plp
0d9a : 8900 bit #$00 ;00 - should set Z
tst_a $ff,$ff
0d9c : 08 > php ;save flags
0d9d : c9ff > cmp #$ff ;test result
> trap_ne
0d9f : d0fe > bne * ;failed not equal (non zero)
>
0da1 : 68 > pla ;load status
0da2 : 48 > pha
> cmp_flag $ff
0da3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0da5 : d0fe > bne * ;failed not equal (non zero)
>
0da7 : 28 > plp ;restore status
0da8 : e003 cpx #3
trap_ne ;x altered during test
0daa : d0fe > bne * ;failed not equal (non zero)
0dac : c042 cpy #$42
trap_ne ;y altered during test
0dae : d0fe > bne * ;failed not equal (non zero)
0db0 : ba tsx
0db1 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
0db3 : d0fe > bne * ;failed not equal (non zero)
next_test
0db5 : ad0202 > lda test_case ;previous test
0db8 : c90c > cmp #test_num
> trap_ne ;test is out of sequence
0dba : d0fe > bne * ;failed not equal (non zero)
>
000d = >test_num = test_num + 1
0dbc : a90d > lda #test_num ;*** next tests' number
0dbe : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing TRB, TSB - zp / abs
trbt macro ;\1 = memory, \2 = flags
sty \1
load_flag \2
pha
lda zpt+1
plp
trb \1
php
cmp zpt+1
trap_ne ;accu was changed
pla
pha
ora #fz ;mask Z
cmp_flag \2|fz
trap_ne ;flags changed except Z
pla
and #fz
cmp zpt+2
trap_ne ;Z flag invalid
lda zpt+3
cmp zpt
trap_ne ;altered bits in memory wrong
endm
tsbt macro ;\1 = memory, \2 = flags
sty \1
load_flag \2
pha
lda zpt+1
plp
tsb \1
php
cmp zpt+1
trap_ne ;accu was changed
pla
pha
ora #fz ;mask Z
cmp_flag \2|fz
trap_ne ;flags changed except Z
pla
and #fz
cmp zpt+2
trap_ne ;Z flag invalid
lda zpt+4
cmp zpt
trap_ne ;altered bits in memory wrong
endm
0dc1 : a2c0 ldx #$c0
0dc3 : a000 ldy #0 ;op1 - memory save
; zpt ;op1 - memory modifiable
0dc5 : 640d stz zpt+1 ;op2 - accu
; zpt+2 ;and flags
; zpt+3 ;memory after reset
; zpt+4 ;memory after set
0dc7 : 98 tbt1 tya
0dc8 : 250d and zpt+1 ;set Z by anding the 2 operands
0dca : 08 php
0dcb : 68 pla
0dcc : 2902 and #fz ;mask Z
0dce : 850e sta zpt+2
0dd0 : 98 tya ;reset op1 bits by op2
0dd1 : 49ff eor #$ff
0dd3 : 050d ora zpt+1
0dd5 : 49ff eor #$ff
0dd7 : 850f sta zpt+3
0dd9 : 98 tya ;set op1 bits by op2
0dda : 050d ora zpt+1
0ddc : 8510 sta zpt+4
trbt zpt,$ff
0dde : 840c > sty zpt
> load_flag $ff
0de0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0de2 : 48 > pha
0de3 : a50d > lda zpt+1
0de5 : 28 > plp
0de6 : 140c > trb zpt
0de8 : 08 > php
0de9 : c50d > cmp zpt+1
> trap_ne ;accu was changed
0deb : d0fe > bne * ;failed not equal (non zero)
>
0ded : 68 > pla
0dee : 48 > pha
0def : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
0df1 : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0df3 : d0fe > bne * ;failed not equal (non zero)
>
0df5 : 68 > pla
0df6 : 2902 > and #fz
0df8 : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0dfa : d0fe > bne * ;failed not equal (non zero)
>
0dfc : a50f > lda zpt+3
0dfe : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0e00 : d0fe > bne * ;failed not equal (non zero)
>
trbt abst,$ff
0e02 : 8c0502 > sty abst
> load_flag $ff
0e05 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e07 : 48 > pha
0e08 : a50d > lda zpt+1
0e0a : 28 > plp
0e0b : 1c0502 > trb abst
0e0e : 08 > php
0e0f : c50d > cmp zpt+1
> trap_ne ;accu was changed
0e11 : d0fe > bne * ;failed not equal (non zero)
>
0e13 : 68 > pla
0e14 : 48 > pha
0e15 : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
0e17 : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0e19 : d0fe > bne * ;failed not equal (non zero)
>
0e1b : 68 > pla
0e1c : 2902 > and #fz
0e1e : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0e20 : d0fe > bne * ;failed not equal (non zero)
>
0e22 : a50f > lda zpt+3
0e24 : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0e26 : d0fe > bne * ;failed not equal (non zero)
>
trbt zpt,0
0e28 : 840c > sty zpt
> load_flag 0
0e2a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0e2c : 48 > pha
0e2d : a50d > lda zpt+1
0e2f : 28 > plp
0e30 : 140c > trb zpt
0e32 : 08 > php
0e33 : c50d > cmp zpt+1
> trap_ne ;accu was changed
0e35 : d0fe > bne * ;failed not equal (non zero)
>
0e37 : 68 > pla
0e38 : 48 > pha
0e39 : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
0e3b : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0e3d : d0fe > bne * ;failed not equal (non zero)
>
0e3f : 68 > pla
0e40 : 2902 > and #fz
0e42 : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0e44 : d0fe > bne * ;failed not equal (non zero)
>
0e46 : a50f > lda zpt+3
0e48 : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0e4a : d0fe > bne * ;failed not equal (non zero)
>
trbt abst,0
0e4c : 8c0502 > sty abst
> load_flag 0
0e4f : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0e51 : 48 > pha
0e52 : a50d > lda zpt+1
0e54 : 28 > plp
0e55 : 1c0502 > trb abst
0e58 : 08 > php
0e59 : c50d > cmp zpt+1
> trap_ne ;accu was changed
0e5b : d0fe > bne * ;failed not equal (non zero)
>
0e5d : 68 > pla
0e5e : 48 > pha
0e5f : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
0e61 : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0e63 : d0fe > bne * ;failed not equal (non zero)
>
0e65 : 68 > pla
0e66 : 2902 > and #fz
0e68 : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0e6a : d0fe > bne * ;failed not equal (non zero)
>
0e6c : a50f > lda zpt+3
0e6e : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0e70 : d0fe > bne * ;failed not equal (non zero)
>
tsbt zpt,$ff
0e72 : 840c > sty zpt
> load_flag $ff
0e74 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e76 : 48 > pha
0e77 : a50d > lda zpt+1
0e79 : 28 > plp
0e7a : 040c > tsb zpt
0e7c : 08 > php
0e7d : c50d > cmp zpt+1
> trap_ne ;accu was changed
0e7f : d0fe > bne * ;failed not equal (non zero)
>
0e81 : 68 > pla
0e82 : 48 > pha
0e83 : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
0e85 : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0e87 : d0fe > bne * ;failed not equal (non zero)
>
0e89 : 68 > pla
0e8a : 2902 > and #fz
0e8c : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0e8e : d0fe > bne * ;failed not equal (non zero)
>
0e90 : a510 > lda zpt+4
0e92 : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0e94 : d0fe > bne * ;failed not equal (non zero)
>
tsbt abst,$ff
0e96 : 8c0502 > sty abst
> load_flag $ff
0e99 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e9b : 48 > pha
0e9c : a50d > lda zpt+1
0e9e : 28 > plp
0e9f : 0c0502 > tsb abst
0ea2 : 08 > php
0ea3 : c50d > cmp zpt+1
> trap_ne ;accu was changed
0ea5 : d0fe > bne * ;failed not equal (non zero)
>
0ea7 : 68 > pla
0ea8 : 48 > pha
0ea9 : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
0eab : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0ead : d0fe > bne * ;failed not equal (non zero)
>
0eaf : 68 > pla
0eb0 : 2902 > and #fz
0eb2 : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0eb4 : d0fe > bne * ;failed not equal (non zero)
>
0eb6 : a510 > lda zpt+4
0eb8 : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0eba : d0fe > bne * ;failed not equal (non zero)
>
tsbt zpt,0
0ebc : 840c > sty zpt
> load_flag 0
0ebe : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0ec0 : 48 > pha
0ec1 : a50d > lda zpt+1
0ec3 : 28 > plp
0ec4 : 040c > tsb zpt
0ec6 : 08 > php
0ec7 : c50d > cmp zpt+1
> trap_ne ;accu was changed
0ec9 : d0fe > bne * ;failed not equal (non zero)
>
0ecb : 68 > pla
0ecc : 48 > pha
0ecd : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
0ecf : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0ed1 : d0fe > bne * ;failed not equal (non zero)
>
0ed3 : 68 > pla
0ed4 : 2902 > and #fz
0ed6 : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0ed8 : d0fe > bne * ;failed not equal (non zero)
>
0eda : a510 > lda zpt+4
0edc : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0ede : d0fe > bne * ;failed not equal (non zero)
>
tsbt abst,0
0ee0 : 8c0502 > sty abst
> load_flag 0
0ee3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0ee5 : 48 > pha
0ee6 : a50d > lda zpt+1
0ee8 : 28 > plp
0ee9 : 0c0502 > tsb abst
0eec : 08 > php
0eed : c50d > cmp zpt+1
> trap_ne ;accu was changed
0eef : d0fe > bne * ;failed not equal (non zero)
>
0ef1 : 68 > pla
0ef2 : 48 > pha
0ef3 : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
0ef5 : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
0ef7 : d0fe > bne * ;failed not equal (non zero)
>
0ef9 : 68 > pla
0efa : 2902 > and #fz
0efc : c50e > cmp zpt+2
> trap_ne ;Z flag invalid
0efe : d0fe > bne * ;failed not equal (non zero)
>
0f00 : a510 > lda zpt+4
0f02 : c50c > cmp zpt
> trap_ne ;altered bits in memory wrong
0f04 : d0fe > bne * ;failed not equal (non zero)
>
0f06 : c8 iny ;iterate op1
0f07 : d004 bne tbt3
0f09 : e60d inc zpt+1 ;iterate op2
0f0b : f003 beq tbt2
0f0d : 4cc70d tbt3 jmp tbt1
0f10 : tbt2
0f10 : e0c0 cpx #$c0
trap_ne ;x altered during test
0f12 : d0fe > bne * ;failed not equal (non zero)
0f14 : ba tsx
0f15 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
0f17 : d0fe > bne * ;failed not equal (non zero)
next_test
0f19 : ad0202 > lda test_case ;previous test
0f1c : c90d > cmp #test_num
> trap_ne ;test is out of sequence
0f1e : d0fe > bne * ;failed not equal (non zero)
>
000e = >test_num = test_num + 1
0f20 : a90e > lda #test_num ;*** next tests' number
0f22 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
if rkwl_wdc_op = 1
; testing RMB, SMB - zp
rmbt macro ;\1 = bitnum
lda #$ff
sta zpt
set_a $a5,0
rmb \1,zpt
tst_a $a5,0
lda zpt
cmp #$ff-(1<<\1)
trap_ne ;wrong bits set or cleared
lda #1<<\1
sta zpt
set_a $5a,$ff
rmb \1,zpt
tst_a $5a,$ff
lda zpt
trap_ne ;wrong bits set or cleared
endm
smbt macro ;\1 = bitnum
lda #$ff-(1<<\1)
sta zpt
set_a $a5,0
smb \1,zpt
tst_a $a5,0
lda zpt
cmp #$ff
trap_ne ;wrong bits set or cleared
lda #0
sta zpt
set_a $5a,$ff
smb \1,zpt
tst_a $5a,$ff
lda zpt
cmp #1<<\1
trap_ne ;wrong bits set or cleared
endm
ldx #$ba ;protect x & y
ldy #$d0
rmbt 0
rmbt 1
rmbt 2
rmbt 3
rmbt 4
rmbt 5
rmbt 6
rmbt 7
smbt 0
smbt 1
smbt 2
smbt 3
smbt 4
smbt 5
smbt 6
smbt 7
cpx #$ba
trap_ne ;x altered during test
cpy #$d0
trap_ne ;y altered during test
tsx
cpx #$ff
trap_ne ;sp push/pop mismatch
next_test
endif
; testing CMP - (zp)
0f25 : a2de ldx #$de ;protect x & y
0f27 : a0ad ldy #$ad
set_a $80,0
> load_flag 0
0f29 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0f2b : 48 > pha ;use stack to load status
0f2c : a980 > lda #$80 ;precharge accu
0f2e : 28 > plp
0f2f : d22c cmp (ind1+8)
tst_a $80,fc
0f31 : 08 > php ;save flags
0f32 : c980 > cmp #$80 ;test result
> trap_ne
0f34 : d0fe > bne * ;failed not equal (non zero)
>
0f36 : 68 > pla ;load status
0f37 : 48 > pha
> cmp_flag fc
0f38 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f3a : d0fe > bne * ;failed not equal (non zero)
>
0f3c : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
0f3d : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0f3f : 48 > pha ;use stack to load status
0f40 : a97f > lda #$7f ;precharge accu
0f42 : 28 > plp
0f43 : d22c cmp (ind1+8)
tst_a $7f,fzc
0f45 : 08 > php ;save flags
0f46 : c97f > cmp #$7f ;test result
> trap_ne
0f48 : d0fe > bne * ;failed not equal (non zero)
>
0f4a : 68 > pla ;load status
0f4b : 48 > pha
> cmp_flag fzc
0f4c : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f4e : d0fe > bne * ;failed not equal (non zero)
>
0f50 : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
0f51 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0f53 : 48 > pha ;use stack to load status
0f54 : a97e > lda #$7e ;precharge accu
0f56 : 28 > plp
0f57 : d22c cmp (ind1+8)
tst_a $7e,fn
0f59 : 08 > php ;save flags
0f5a : c97e > cmp #$7e ;test result
> trap_ne
0f5c : d0fe > bne * ;failed not equal (non zero)
>
0f5e : 68 > pla ;load status
0f5f : 48 > pha
> cmp_flag fn
0f60 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f62 : d0fe > bne * ;failed not equal (non zero)
>
0f64 : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
0f65 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0f67 : 48 > pha ;use stack to load status
0f68 : a980 > lda #$80 ;precharge accu
0f6a : 28 > plp
0f6b : d22c cmp (ind1+8)
tst_a $80,~fnz
0f6d : 08 > php ;save flags
0f6e : c980 > cmp #$80 ;test result
> trap_ne
0f70 : d0fe > bne * ;failed not equal (non zero)
>
0f72 : 68 > pla ;load status
0f73 : 48 > pha
> cmp_flag ~fnz
0f74 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f76 : d0fe > bne * ;failed not equal (non zero)
>
0f78 : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
0f79 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0f7b : 48 > pha ;use stack to load status
0f7c : a97f > lda #$7f ;precharge accu
0f7e : 28 > plp
0f7f : d22c cmp (ind1+8)
tst_a $7f,~fn
0f81 : 08 > php ;save flags
0f82 : c97f > cmp #$7f ;test result
> trap_ne
0f84 : d0fe > bne * ;failed not equal (non zero)
>
0f86 : 68 > pla ;load status
0f87 : 48 > pha
> cmp_flag ~fn
0f88 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f8a : d0fe > bne * ;failed not equal (non zero)
>
0f8c : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
0f8d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0f8f : 48 > pha ;use stack to load status
0f90 : a97e > lda #$7e ;precharge accu
0f92 : 28 > plp
0f93 : d22c cmp (ind1+8)
tst_a $7e,~fzc
0f95 : 08 > php ;save flags
0f96 : c97e > cmp #$7e ;test result
> trap_ne
0f98 : d0fe > bne * ;failed not equal (non zero)
>
0f9a : 68 > pla ;load status
0f9b : 48 > pha
> cmp_flag ~fzc
0f9c : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f9e : d0fe > bne * ;failed not equal (non zero)
>
0fa0 : 28 > plp ;restore status
0fa1 : e0de cpx #$de
trap_ne ;x altered during test
0fa3 : d0fe > bne * ;failed not equal (non zero)
0fa5 : c0ad cpy #$ad
trap_ne ;y altered during test
0fa7 : d0fe > bne * ;failed not equal (non zero)
0fa9 : ba tsx
0faa : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
0fac : d0fe > bne * ;failed not equal (non zero)
next_test
0fae : ad0202 > lda test_case ;previous test
0fb1 : c90e > cmp #test_num
> trap_ne ;test is out of sequence
0fb3 : d0fe > bne * ;failed not equal (non zero)
>
000f = >test_num = test_num + 1
0fb5 : a90f > lda #test_num ;*** next tests' number
0fb7 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing logical instructions - AND EOR ORA (zp)
0fba : a242 ldx #$42 ;protect x & y
0fbc : a000 ldy #0 ;AND
0fbe : a53a lda indAN ;set indirect address
0fc0 : 850c sta zpt
0fc2 : a53b lda indAN+1
0fc4 : 850d sta zpt+1
0fc6 : tand1
set_ay absANa,0
> load_flag 0
0fc6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0fc8 : 48 > pha ;use stack to load status
0fc9 : b95302 > lda absANa,y ;precharge accu
0fcc : 28 > plp
0fcd : 320c and (zpt)
tst_ay absrlo,absflo,0
0fcf : 08 > php ;save flags
0fd0 : d95b02 > cmp absrlo,y ;test result
> trap_ne ;
0fd3 : d0fe > bne * ;failed not equal (non zero)
>
0fd5 : 68 > pla ;load status
> eor_flag 0
0fd6 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
0fd8 : d95f02 > cmp absflo,y ;test flags
> trap_ne
0fdb : d0fe > bne * ;failed not equal (non zero)
>
0fdd : e60c inc zpt
0fdf : c8 iny
0fe0 : c004 cpy #4
0fe2 : d0e2 bne tand1
0fe4 : 88 dey
0fe5 : c60c dec zpt
0fe7 : tand2
set_ay absANa,$ff
> load_flag $ff
0fe7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0fe9 : 48 > pha ;use stack to load status
0fea : b95302 > lda absANa,y ;precharge accu
0fed : 28 > plp
0fee : 320c and (zpt)
tst_ay absrlo,absflo,$ff-fnz
0ff0 : 08 > php ;save flags
0ff1 : d95b02 > cmp absrlo,y ;test result
> trap_ne ;
0ff4 : d0fe > bne * ;failed not equal (non zero)
>
0ff6 : 68 > pla ;load status
> eor_flag $ff-fnz
0ff7 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
0ff9 : d95f02 > cmp absflo,y ;test flags
> trap_ne
0ffc : d0fe > bne * ;failed not equal (non zero)
>
0ffe : c60c dec zpt
1000 : 88 dey
1001 : 10e4 bpl tand2
1003 : a000 ldy #0 ;EOR
1005 : a542 lda indEO ;set indirect address
1007 : 850c sta zpt
1009 : a543 lda indEO+1
100b : 850d sta zpt+1
100d : teor1
set_ay absEOa,0
> load_flag 0
100d : a900 > lda #0 ;allow test to change I-flag (no mask)
>
100f : 48 > pha ;use stack to load status
1010 : b95702 > lda absEOa,y ;precharge accu
1013 : 28 > plp
1014 : 520c eor (zpt)
tst_ay absrlo,absflo,0
1016 : 08 > php ;save flags
1017 : d95b02 > cmp absrlo,y ;test result
> trap_ne ;
101a : d0fe > bne * ;failed not equal (non zero)
>
101c : 68 > pla ;load status
> eor_flag 0
101d : 4930 > eor #0|fao ;invert expected flags + always on bits
>
101f : d95f02 > cmp absflo,y ;test flags
> trap_ne
1022 : d0fe > bne * ;failed not equal (non zero)
>
1024 : e60c inc zpt
1026 : c8 iny
1027 : c004 cpy #4
1029 : d0e2 bne teor1
102b : 88 dey
102c : c60c dec zpt
102e : teor2
set_ay absEOa,$ff
> load_flag $ff
102e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1030 : 48 > pha ;use stack to load status
1031 : b95702 > lda absEOa,y ;precharge accu
1034 : 28 > plp
1035 : 520c eor (zpt)
tst_ay absrlo,absflo,$ff-fnz
1037 : 08 > php ;save flags
1038 : d95b02 > cmp absrlo,y ;test result
> trap_ne ;
103b : d0fe > bne * ;failed not equal (non zero)
>
103d : 68 > pla ;load status
> eor_flag $ff-fnz
103e : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
1040 : d95f02 > cmp absflo,y ;test flags
> trap_ne
1043 : d0fe > bne * ;failed not equal (non zero)
>
1045 : c60c dec zpt
1047 : 88 dey
1048 : 10e4 bpl teor2
104a : a000 ldy #0 ;ORA
104c : a54a lda indOR ;set indirect address
104e : 850c sta zpt
1050 : a54b lda indOR+1
1052 : 850d sta zpt+1
1054 : tora1
set_ay absORa,0
> load_flag 0
1054 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1056 : 48 > pha ;use stack to load status
1057 : b94f02 > lda absORa,y ;precharge accu
105a : 28 > plp
105b : 120c ora (zpt)
tst_ay absrlo,absflo,0
105d : 08 > php ;save flags
105e : d95b02 > cmp absrlo,y ;test result
> trap_ne ;
1061 : d0fe > bne * ;failed not equal (non zero)
>
1063 : 68 > pla ;load status
> eor_flag 0
1064 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
1066 : d95f02 > cmp absflo,y ;test flags
> trap_ne
1069 : d0fe > bne * ;failed not equal (non zero)
>
106b : e60c inc zpt
106d : c8 iny
106e : c004 cpy #4
1070 : d0e2 bne tora1
1072 : 88 dey
1073 : c60c dec zpt
1075 : tora2
set_ay absORa,$ff
> load_flag $ff
1075 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1077 : 48 > pha ;use stack to load status
1078 : b94f02 > lda absORa,y ;precharge accu
107b : 28 > plp
107c : 120c ora (zpt)
tst_ay absrlo,absflo,$ff-fnz
107e : 08 > php ;save flags
107f : d95b02 > cmp absrlo,y ;test result
> trap_ne ;
1082 : d0fe > bne * ;failed not equal (non zero)
>
1084 : 68 > pla ;load status
> eor_flag $ff-fnz
1085 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
1087 : d95f02 > cmp absflo,y ;test flags
> trap_ne
108a : d0fe > bne * ;failed not equal (non zero)
>
108c : c60c dec zpt
108e : 88 dey
108f : 10e4 bpl tora2
1091 : e042 cpx #$42
trap_ne ;x altered during test
1093 : d0fe > bne * ;failed not equal (non zero)
1095 : ba tsx
1096 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
1098 : d0fe > bne * ;failed not equal (non zero)
next_test
109a : ad0202 > lda test_case ;previous test
109d : c90f > cmp #test_num
> trap_ne ;test is out of sequence
109f : d0fe > bne * ;failed not equal (non zero)
>
0010 = >test_num = test_num + 1
10a1 : a910 > lda #test_num ;*** next tests' number
10a3 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
if I_flag = 3
10a6 : 58 cli
endif
; full binary add/subtract test - (zp) only
; iterates through all combinations of operands and carry input
; uses increments/decrements to predict result & result flags
10a7 : d8 cld
10a8 : a20e ldx #ad2 ;for indexed test
10aa : a0ff ldy #$ff ;max range
10ac : a900 lda #0 ;start with adding zeroes & no carry
10ae : 850c sta adfc ;carry in - for diag
10b0 : 850d sta ad1 ;operand 1 - accumulator
10b2 : 850e sta ad2 ;operand 2 - memory or immediate
10b4 : 8d0502 sta ada2 ;non zp
10b7 : 850f sta adrl ;expected result bits 0-7
10b9 : 8510 sta adrh ;expected result bit 8 (carry out)
10bb : a9ff lda #$ff ;complemented operand 2 for subtract
10bd : 8512 sta sb2
10bf : 8d0602 sta sba2 ;non zp
10c2 : a902 lda #2 ;expected Z-flag
10c4 : 8511 sta adrf
10c6 : 18 tadd clc ;test with carry clear
10c7 : 203d13 jsr chkadd
10ca : e60c inc adfc ;now with carry
10cc : e60f inc adrl ;result +1
10ce : 08 php ;save N & Z from low result
10cf : 08 php
10d0 : 68 pla ;accu holds expected flags
10d1 : 2982 and #$82 ;mask N & Z
10d3 : 28 plp
10d4 : d002 bne tadd1
10d6 : e610 inc adrh ;result bit 8 - carry
10d8 : 0510 tadd1 ora adrh ;merge C to expected flags
10da : 8511 sta adrf ;save expected flags except overflow
10dc : 38 sec ;test with carry set
10dd : 203d13 jsr chkadd
10e0 : c60c dec adfc ;same for operand +1 but no carry
10e2 : e60d inc ad1
10e4 : d0e0 bne tadd ;iterate op1
10e6 : a900 lda #0 ;preset result to op2 when op1 = 0
10e8 : 8510 sta adrh
10ea : ee0502 inc ada2
10ed : e60e inc ad2
10ef : 08 php ;save NZ as operand 2 becomes the new result
10f0 : 68 pla
10f1 : 2982 and #$82 ;mask N00000Z0
10f3 : 8511 sta adrf ;no need to check carry as we are adding to 0
10f5 : c612 dec sb2 ;complement subtract operand 2
10f7 : ce0602 dec sba2
10fa : a50e lda ad2
10fc : 850f sta adrl
10fe : d0c6 bne tadd ;iterate op2
1100 : e00e cpx #ad2
trap_ne ;x altered during test
1102 : d0fe > bne * ;failed not equal (non zero)
1104 : c0ff cpy #$ff
trap_ne ;y altered during test
1106 : d0fe > bne * ;failed not equal (non zero)
1108 : ba tsx
1109 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
110b : d0fe > bne * ;failed not equal (non zero)
next_test
110d : ad0202 > lda test_case ;previous test
1110 : c910 > cmp #test_num
> trap_ne ;test is out of sequence
1112 : d0fe > bne * ;failed not equal (non zero)
>
0011 = >test_num = test_num + 1
1114 : a911 > lda #test_num ;*** next tests' number
1116 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; decimal add/subtract test
; *** WARNING - tests documented behavior only! ***
; only valid BCD operands are tested, the V flag is ignored
; although V is declared as beeing valid on the 65C02 it has absolutely
; no use in BCD math. No sign = no overflow!
; iterates through all valid combinations of operands and carry input
; uses increments/decrements to predict result & carry flag
1119 : f8 sed
111a : a20e ldx #ad2 ;for indexed test
111c : a0ff ldy #$ff ;max range
111e : a999 lda #$99 ;start with adding 99 to 99 with carry
1120 : 850d sta ad1 ;operand 1 - accumulator
1122 : 850e sta ad2 ;operand 2 - memory or immediate
1124 : 8d0502 sta ada2 ;non zp
1127 : 850f sta adrl ;expected result bits 0-7
1129 : a901 lda #1 ;set carry in & out
112b : 850c sta adfc ;carry in - for diag
112d : 8510 sta adrh ;expected result bit 8 (carry out)
112f : a981 lda #$81 ;set N & C (99 + 99 + C = 99 + C)
1131 : 8511 sta adrf
1133 : a900 lda #0 ;complemented operand 2 for subtract
1135 : 8512 sta sb2
1137 : 8d0602 sta sba2 ;non zp
113a : 38 tdad sec ;test with carry set
113b : 20e611 jsr chkdad
113e : c60c dec adfc ;now with carry clear
1140 : a50f lda adrl ;decimal adjust result
1142 : d008 bne tdad1 ;skip clear carry & preset result 99 (9A-1)
1144 : c610 dec adrh
1146 : a999 lda #$99
1148 : 850f sta adrl
114a : d012 bne tdad3
114c : 290f tdad1 and #$f ;lower nibble mask
114e : d00c bne tdad2 ;no decimal adjust needed
1150 : c60f dec adrl ;decimal adjust (?0-6)
1152 : c60f dec adrl
1154 : c60f dec adrl
1156 : c60f dec adrl
1158 : c60f dec adrl
115a : c60f dec adrl
115c : c60f tdad2 dec adrl ;result -1
115e : 08 tdad3 php ;save valid flags
115f : 68 pla
1160 : 2982 and #$82 ;N-----Z-
1162 : 0510 ora adrh ;N-----ZC
1164 : 8511 sta adrf
1166 : 18 clc ;test with carry clear
1167 : 20e611 jsr chkdad
116a : e60c inc adfc ;same for operand -1 but with carry
116c : a50d lda ad1 ;decimal adjust operand 1
116e : f015 beq tdad5 ;iterate operand 2
1170 : 290f and #$f ;lower nibble mask
1172 : d00c bne tdad4 ;skip decimal adjust
1174 : c60d dec ad1 ;decimal adjust (?0-6)
1176 : c60d dec ad1
1178 : c60d dec ad1
117a : c60d dec ad1
117c : c60d dec ad1
117e : c60d dec ad1
1180 : c60d tdad4 dec ad1 ;operand 1 -1
1182 : 4c3a11 jmp tdad ;iterate op1
1185 : a999 tdad5 lda #$99 ;precharge op1 max
1187 : 850d sta ad1
1189 : a50e lda ad2 ;decimal adjust operand 2
118b : f039 beq tdad7 ;end of iteration
118d : 290f and #$f ;lower nibble mask
118f : d018 bne tdad6 ;skip decimal adjust
1191 : c60e dec ad2 ;decimal adjust (?0-6)
1193 : c60e dec ad2
1195 : c60e dec ad2
1197 : c60e dec ad2
1199 : c60e dec ad2
119b : c60e dec ad2
119d : e612 inc sb2 ;complemented decimal adjust for subtract (?9+6)
119f : e612 inc sb2
11a1 : e612 inc sb2
11a3 : e612 inc sb2
11a5 : e612 inc sb2
11a7 : e612 inc sb2
11a9 : c60e tdad6 dec ad2 ;operand 2 -1
11ab : e612 inc sb2 ;complemented operand for subtract
11ad : a512 lda sb2
11af : 8d0602 sta sba2 ;copy as non zp operand
11b2 : a50e lda ad2
11b4 : 8d0502 sta ada2 ;copy as non zp operand
11b7 : 850f sta adrl ;new result since op1+carry=00+carry +op2=op2
11b9 : 08 php ;save flags
11ba : 68 pla
11bb : 2982 and #$82 ;N-----Z-
11bd : 0901 ora #1 ;N-----ZC
11bf : 8511 sta adrf
11c1 : e610 inc adrh ;result carry
11c3 : 4c3a11 jmp tdad ;iterate op2
11c6 : e00e tdad7 cpx #ad2
trap_ne ;x altered during test
11c8 : d0fe > bne * ;failed not equal (non zero)
11ca : c0ff cpy #$ff
trap_ne ;y altered during test
11cc : d0fe > bne * ;failed not equal (non zero)
11ce : ba tsx
11cf : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
11d1 : d0fe > bne * ;failed not equal (non zero)
11d3 : d8 cld
11d4 : ad0202 lda test_case
11d7 : c911 cmp #test_num
trap_ne ;previous test is out of sequence
11d9 : d0fe > bne * ;failed not equal (non zero)
11db : a9f0 lda #$f0 ;mark opcode testing complete
11dd : 8d0202 sta test_case
; final RAM integrity test
; verifies that none of the previous tests has altered RAM outside of the
; designated write areas.
check_ram
> ;RAM check disabled - RAM size not set
; *** DEBUG INFO ***
; to debug checksum errors uncomment check_ram in the next_test macro to
; narrow down the responsible opcode.
; may give false errors when monitor, OS or other background activity is
; allowed during previous tests.
; S U C C E S S ************************************************
; -------------
success ;if you get here everything went well
11e0 : 4ce011 > jmp * ;test passed, no errors
; -------------
; S U C C E S S ************************************************
11e3 : 4c0004 jmp start ;run again
; core subroutine of the decimal add/subtract test
; *** WARNING - tests documented behavior only! ***
; only valid BCD operands are tested, V flag is ignored
; iterates through all valid combinations of operands and carry input
; uses increments/decrements to predict result & carry flag
11e6 : chkdad
; decimal ADC / SBC zp
11e6 : 08 php ;save carry for subtract
11e7 : a50d lda ad1
11e9 : 650e adc ad2 ;perform add
11eb : 08 php
11ec : c50f cmp adrl ;check result
trap_ne ;bad result
11ee : d0fe > bne * ;failed not equal (non zero)
11f0 : 68 pla ;check flags
11f1 : 2983 and #$83 ;mask N-----ZC
11f3 : c511 cmp adrf
trap_ne ;bad flags
11f5 : d0fe > bne * ;failed not equal (non zero)
11f7 : 28 plp
11f8 : 08 php ;save carry for next add
11f9 : a50d lda ad1
11fb : e512 sbc sb2 ;perform subtract
11fd : 08 php
11fe : c50f cmp adrl ;check result
trap_ne ;bad result
1200 : d0fe > bne * ;failed not equal (non zero)
1202 : 68 pla ;check flags
1203 : 2983 and #$83 ;mask N-----ZC
1205 : c511 cmp adrf
trap_ne ;bad flags
1207 : d0fe > bne * ;failed not equal (non zero)
1209 : 28 plp
; decimal ADC / SBC abs
120a : 08 php ;save carry for subtract
120b : a50d lda ad1
120d : 6d0502 adc ada2 ;perform add
1210 : 08 php
1211 : c50f cmp adrl ;check result
trap_ne ;bad result
1213 : d0fe > bne * ;failed not equal (non zero)
1215 : 68 pla ;check flags
1216 : 2983 and #$83 ;mask N-----ZC
1218 : c511 cmp adrf
trap_ne ;bad flags
121a : d0fe > bne * ;failed not equal (non zero)
121c : 28 plp
121d : 08 php ;save carry for next add
121e : a50d lda ad1
1220 : ed0602 sbc sba2 ;perform subtract
1223 : 08 php
1224 : c50f cmp adrl ;check result
trap_ne ;bad result
1226 : d0fe > bne * ;failed not equal (non zero)
1228 : 68 pla ;check flags
1229 : 2983 and #$83 ;mask N-----ZC
122b : c511 cmp adrf
trap_ne ;bad flags
122d : d0fe > bne * ;failed not equal (non zero)
122f : 28 plp
; decimal ADC / SBC #
1230 : 08 php ;save carry for subtract
1231 : a50e lda ad2
1233 : 8d0b02 sta ex_adci+1 ;set ADC # operand
1236 : a50d lda ad1
1238 : 200a02 jsr ex_adci ;execute ADC # in RAM
123b : 08 php
123c : c50f cmp adrl ;check result
trap_ne ;bad result
123e : d0fe > bne * ;failed not equal (non zero)
1240 : 68 pla ;check flags
1241 : 2983 and #$83 ;mask N-----ZC
1243 : c511 cmp adrf
trap_ne ;bad flags
1245 : d0fe > bne * ;failed not equal (non zero)
1247 : 28 plp
1248 : 08 php ;save carry for next add
1249 : a512 lda sb2
124b : 8d0e02 sta ex_sbci+1 ;set SBC # operand
124e : a50d lda ad1
1250 : 200d02 jsr ex_sbci ;execute SBC # in RAM
1253 : 08 php
1254 : c50f cmp adrl ;check result
trap_ne ;bad result
1256 : d0fe > bne * ;failed not equal (non zero)
1258 : 68 pla ;check flags
1259 : 2983 and #$83 ;mask N-----ZC
125b : c511 cmp adrf
trap_ne ;bad flags
125d : d0fe > bne * ;failed not equal (non zero)
125f : 28 plp
; decimal ADC / SBC zp,x
1260 : 08 php ;save carry for subtract
1261 : a50d lda ad1
1263 : 7500 adc 0,x ;perform add
1265 : 08 php
1266 : c50f cmp adrl ;check result
trap_ne ;bad result
1268 : d0fe > bne * ;failed not equal (non zero)
126a : 68 pla ;check flags
126b : 2983 and #$83 ;mask N-----ZC
126d : c511 cmp adrf
trap_ne ;bad flags
126f : d0fe > bne * ;failed not equal (non zero)
1271 : 28 plp
1272 : 08 php ;save carry for next add
1273 : a50d lda ad1
1275 : f504 sbc sb2-ad2,x ;perform subtract
1277 : 08 php
1278 : c50f cmp adrl ;check result
trap_ne ;bad result
127a : d0fe > bne * ;failed not equal (non zero)
127c : 68 pla ;check flags
127d : 2983 and #$83 ;mask N-----ZC
127f : c511 cmp adrf
trap_ne ;bad flags
1281 : d0fe > bne * ;failed not equal (non zero)
1283 : 28 plp
; decimal ADC / SBC abs,x
1284 : 08 php ;save carry for subtract
1285 : a50d lda ad1
1287 : 7df701 adc ada2-ad2,x ;perform add
128a : 08 php
128b : c50f cmp adrl ;check result
trap_ne ;bad result
128d : d0fe > bne * ;failed not equal (non zero)
128f : 68 pla ;check flags
1290 : 2983 and #$83 ;mask N-----ZC
1292 : c511 cmp adrf
trap_ne ;bad flags
1294 : d0fe > bne * ;failed not equal (non zero)
1296 : 28 plp
1297 : 08 php ;save carry for next add
1298 : a50d lda ad1
129a : fdf801 sbc sba2-ad2,x ;perform subtract
129d : 08 php
129e : c50f cmp adrl ;check result
trap_ne ;bad result
12a0 : d0fe > bne * ;failed not equal (non zero)
12a2 : 68 pla ;check flags
12a3 : 2983 and #$83 ;mask N-----ZC
12a5 : c511 cmp adrf
trap_ne ;bad flags
12a7 : d0fe > bne * ;failed not equal (non zero)
12a9 : 28 plp
; decimal ADC / SBC abs,y
12aa : 08 php ;save carry for subtract
12ab : a50d lda ad1
12ad : 790601 adc ada2-$ff,y ;perform add
12b0 : 08 php
12b1 : c50f cmp adrl ;check result
trap_ne ;bad result
12b3 : d0fe > bne * ;failed not equal (non zero)
12b5 : 68 pla ;check flags
12b6 : 2983 and #$83 ;mask N-----ZC
12b8 : c511 cmp adrf
trap_ne ;bad flags
12ba : d0fe > bne * ;failed not equal (non zero)
12bc : 28 plp
12bd : 08 php ;save carry for next add
12be : a50d lda ad1
12c0 : f90701 sbc sba2-$ff,y ;perform subtract
12c3 : 08 php
12c4 : c50f cmp adrl ;check result
trap_ne ;bad result
12c6 : d0fe > bne * ;failed not equal (non zero)
12c8 : 68 pla ;check flags
12c9 : 2983 and #$83 ;mask N-----ZC
12cb : c511 cmp adrf
trap_ne ;bad flags
12cd : d0fe > bne * ;failed not equal (non zero)
12cf : 28 plp
; decimal ADC / SBC (zp,x)
12d0 : 08 php ;save carry for subtract
12d1 : a50d lda ad1
12d3 : 6144 adc (lo adi2-ad2,x) ;perform add
12d5 : 08 php
12d6 : c50f cmp adrl ;check result
trap_ne ;bad result
12d8 : d0fe > bne * ;failed not equal (non zero)
12da : 68 pla ;check flags
12db : 2983 and #$83 ;mask N-----ZC
12dd : c511 cmp adrf
trap_ne ;bad flags
12df : d0fe > bne * ;failed not equal (non zero)
12e1 : 28 plp
12e2 : 08 php ;save carry for next add
12e3 : a50d lda ad1
12e5 : e146 sbc (lo sbi2-ad2,x) ;perform subtract
12e7 : 08 php
12e8 : c50f cmp adrl ;check result
trap_ne ;bad result
12ea : d0fe > bne * ;failed not equal (non zero)
12ec : 68 pla ;check flags
12ed : 2983 and #$83 ;mask N-----ZC
12ef : c511 cmp adrf
trap_ne ;bad flags
12f1 : d0fe > bne * ;failed not equal (non zero)
12f3 : 28 plp
; decimal ADC / SBC (abs),y
12f4 : 08 php ;save carry for subtract
12f5 : a50d lda ad1
12f7 : 7156 adc (adiy2),y ;perform add
12f9 : 08 php
12fa : c50f cmp adrl ;check result
trap_ne ;bad result
12fc : d0fe > bne * ;failed not equal (non zero)
12fe : 68 pla ;check flags
12ff : 2983 and #$83 ;mask N-----ZC
1301 : c511 cmp adrf
trap_ne ;bad flags
1303 : d0fe > bne * ;failed not equal (non zero)
1305 : 28 plp
1306 : 08 php ;save carry for next add
1307 : a50d lda ad1
1309 : f158 sbc (sbiy2),y ;perform subtract
130b : 08 php
130c : c50f cmp adrl ;check result
trap_ne ;bad result
130e : d0fe > bne * ;failed not equal (non zero)
1310 : 68 pla ;check flags
1311 : 2983 and #$83 ;mask N-----ZC
1313 : c511 cmp adrf
trap_ne ;bad flags
1315 : d0fe > bne * ;failed not equal (non zero)
1317 : 28 plp
; decimal ADC / SBC (zp)
1318 : 08 php ;save carry for subtract
1319 : a50d lda ad1
131b : 7252 adc (adi2) ;perform add
131d : 08 php
131e : c50f cmp adrl ;check result
trap_ne ;bad result
1320 : d0fe > bne * ;failed not equal (non zero)
1322 : 68 pla ;check flags
1323 : 2983 and #$83 ;mask N-----ZC
1325 : c511 cmp adrf
trap_ne ;bad flags
1327 : d0fe > bne * ;failed not equal (non zero)
1329 : 28 plp
132a : 08 php ;save carry for next add
132b : a50d lda ad1
132d : f254 sbc (sbi2) ;perform subtract
132f : 08 php
1330 : c50f cmp adrl ;check result
trap_ne ;bad result
1332 : d0fe > bne * ;failed not equal (non zero)
1334 : 68 pla ;check flags
1335 : 2983 and #$83 ;mask N-----ZC
1337 : c511 cmp adrf
trap_ne ;bad flags
1339 : d0fe > bne * ;failed not equal (non zero)
133b : 28 plp
133c : 60 rts
; core subroutine of the full binary add/subtract test
; iterates through all combinations of operands and carry input
; uses increments/decrements to predict result & result flags
133d : a511 chkadd lda adrf ;add V-flag if overflow
133f : 2983 and #$83 ;keep N-----ZC / clear V
1341 : 48 pha
1342 : a50d lda ad1 ;test sign unequal between operands
1344 : 450e eor ad2
1346 : 300a bmi ckad1 ;no overflow possible - operands have different sign
1348 : a50d lda ad1 ;test sign equal between operands and result
134a : 450f eor adrl
134c : 1004 bpl ckad1 ;no overflow occured - operand and result have same sign
134e : 68 pla
134f : 0940 ora #$40 ;set V
1351 : 48 pha
1352 : 68 ckad1 pla
1353 : 8511 sta adrf ;save expected flags
; binary ADC / SBC (zp)
1355 : 08 php ;save carry for subtract
1356 : a50d lda ad1
1358 : 7252 adc (adi2) ;perform add
135a : 08 php
135b : c50f cmp adrl ;check result
trap_ne ;bad result
135d : d0fe > bne * ;failed not equal (non zero)
135f : 68 pla ;check flags
1360 : 29c3 and #$c3 ;mask NV----ZC
1362 : c511 cmp adrf
trap_ne ;bad flags
1364 : d0fe > bne * ;failed not equal (non zero)
1366 : 28 plp
1367 : 08 php ;save carry for next add
1368 : a50d lda ad1
136a : f254 sbc (sbi2) ;perform subtract
136c : 08 php
136d : c50f cmp adrl ;check result
trap_ne ;bad result
136f : d0fe > bne * ;failed not equal (non zero)
1371 : 68 pla ;check flags
1372 : 29c3 and #$c3 ;mask NV----ZC
1374 : c511 cmp adrf
trap_ne ;bad flags
1376 : d0fe > bne * ;failed not equal (non zero)
1378 : 28 plp
1379 : 60 rts
; target for the jump indirect test
137a : 8013 ji_adr dw test_ji
137c : 3e07 dw ji_ret
137e : 88 dey
137f : 88 dey
1380 : test_ji
1380 : 08 php ;either SP or Y count will fail, if we do not hit
1381 : 88 dey
1382 : 88 dey
1383 : 88 dey
1384 : 28 plp
trap_cs ;flags loaded?
1385 : b0fe > bcs * ;failed carry set
trap_vs
1387 : 70fe > bvs * ;failed overflow set
trap_mi
1389 : 30fe > bmi * ;failed minus (bit 7 set)
trap_eq
138b : f0fe > beq * ;failed equal (zero)
138d : c949 cmp #'I' ;registers loaded?
trap_ne
138f : d0fe > bne * ;failed not equal (non zero)
1391 : e04e cpx #'N'
trap_ne
1393 : d0fe > bne * ;failed not equal (non zero)
1395 : c041 cpy #('D'-3)
trap_ne
1397 : d0fe > bne * ;failed not equal (non zero)
1399 : 48 pha ;save a,x
139a : 8a txa
139b : 48 pha
139c : ba tsx
139d : e0fd cpx #$fd ;check SP
trap_ne
139f : d0fe > bne * ;failed not equal (non zero)
13a1 : 68 pla ;restore x
13a2 : aa tax
set_stat $ff
> load_flag $ff
13a3 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
13a5 : 48 > pha ;use stack to load status
13a6 : 28 > plp
13a7 : 68 pla ;restore a
13a8 : e8 inx ;return registers with modifications
13a9 : 49aa eor #$aa ;N=1, V=1, Z=0, C=1
13ab : 6cff02 jmp (ji_tab+2)
13ae : ea nop
13af : ea nop
trap ;runover protection
13b0 : 4cb013 > jmp * ;failed anyway
13b3 : 4c0004 jmp start ;catastrophic error - cannot continue
; target for the jump indirect test
13b6 : fd13 jxi_adr dw trap_ind
13b8 : fd13 dw trap_ind
13ba : c413 dw test_jxi ;+4
13bc : 8a07 dw jxi_ret ;+6
13be : fd13 dw trap_ind
13c0 : fd13 dw trap_ind
13c2 : 88 dey
13c3 : 88 dey
13c4 : test_jxi
13c4 : 08 php ;either SP or Y count will fail, if we do not hit
13c5 : 88 dey
13c6 : 88 dey
13c7 : 88 dey
13c8 : 28 plp
trap_cs ;flags loaded?
13c9 : b0fe > bcs * ;failed carry set
trap_vs
13cb : 70fe > bvs * ;failed overflow set
trap_mi
13cd : 30fe > bmi * ;failed minus (bit 7 set)
trap_eq
13cf : f0fe > beq * ;failed equal (zero)
13d1 : c958 cmp #'X' ;registers loaded?
trap_ne
13d3 : d0fe > bne * ;failed not equal (non zero)
13d5 : e004 cpx #4
trap_ne
13d7 : d0fe > bne * ;failed not equal (non zero)
13d9 : c046 cpy #('I'-3)
trap_ne
13db : d0fe > bne * ;failed not equal (non zero)
13dd : 48 pha ;save a,x
13de : 8a txa
13df : 48 pha
13e0 : ba tsx
13e1 : e0fd cpx #$fd ;check SP
trap_ne
13e3 : d0fe > bne * ;failed not equal (non zero)
13e5 : 68 pla ;restore x
13e6 : aa tax
set_stat $ff
> load_flag $ff
13e7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
13e9 : 48 > pha ;use stack to load status
13ea : 28 > plp
13eb : 68 pla ;restore a
13ec : e8 inx ;return registers with modifications
13ed : e8 inx
13ee : 49aa eor #$aa ;N=1, V=1, Z=0, C=1
13f0 : 7cf902 jmp (jxi_tab,x)
13f3 : ea nop
13f4 : ea nop
trap ;runover protection
13f5 : 4cf513 > jmp * ;failed anyway
13f8 : 4c0004 jmp start ;catastrophic error - cannot continue
; JMP (abs,x) with bad x
13fb : ea nop
13fc : ea nop
13fd : trap_ind
13fd : ea nop
13fe : ea nop
trap ;near miss indexed indirect jump
13ff : 4cff13 > jmp * ;failed anyway
1402 : 4c0004 jmp start ;catastrophic error - cannot continue
;trap in case of unexpected IRQ, NMI, BRK, RESET
1405 : nmi_trap
trap ;check stack for conditions at NMI
1405 : 4c0514 > jmp * ;failed anyway
1408 : 4c0004 jmp start ;catastrophic error - cannot continue
140b : res_trap
trap ;unexpected RESET
140b : 4c0b14 > jmp * ;failed anyway
140e : 4c0004 jmp start ;catastrophic error - cannot continue
1411 : 88 dey
1412 : 88 dey
1413 : irq_trap ;BRK test or unextpected BRK or IRQ
1413 : 08 php ;either SP or Y count will fail, if we do not hit
1414 : 88 dey
1415 : 88 dey
1416 : 88 dey
;next traps could be caused by unexpected BRK or IRQ
;check stack for BREAK and originating location
;possible jump/branch into weeds (uninitialized space)
1417 : c9bd cmp #$ff-'B' ;BRK pass 2 registers loaded?
1419 : f042 beq break2
141b : c942 cmp #'B' ;BRK pass 1 registers loaded?
trap_ne
141d : d0fe > bne * ;failed not equal (non zero)
141f : e052 cpx #'R'
trap_ne
1421 : d0fe > bne * ;failed not equal (non zero)
1423 : c048 cpy #'K'-3
trap_ne
1425 : d0fe > bne * ;failed not equal (non zero)
1427 : 850a sta irq_a ;save registers during break test
1429 : 860b stx irq_x
142b : ba tsx ;test break on stack
142c : bd0201 lda $102,x
cmp_flag 0 ;break test should have B=1 & unused=1 on stack
142f : c930 > cmp #(0 |fao)&m8 ;expected flags + always on bits
trap_ne ;possible no break flag on stack
1431 : d0fe > bne * ;failed not equal (non zero)
1433 : 68 pla
cmp_flag intdis ;should have added interrupt disable
1434 : c934 > cmp #(intdis |fao)&m8 ;expected flags + always on bits
trap_ne
1436 : d0fe > bne * ;failed not equal (non zero)
1438 : ba tsx
1439 : e0fc cpx #$fc ;sp -3? (return addr, flags)
trap_ne
143b : d0fe > bne * ;failed not equal (non zero)
143d : adff01 lda $1ff ;propper return on stack
1440 : c907 cmp #hi(brk_ret0)
trap_ne
1442 : d0fe > bne * ;failed not equal (non zero)
1444 : adfe01 lda $1fe
1447 : c9dc cmp #lo(brk_ret0)
trap_ne
1449 : d0fe > bne * ;failed not equal (non zero)
load_flag $ff
144b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
144d : 48 pha
144e : a60b ldx irq_x
1450 : e8 inx ;return registers with modifications
1451 : a50a lda irq_a
1453 : 49aa eor #$aa
1455 : 28 plp ;N=1, V=1, Z=1, C=1 but original flags should be restored
1456 : 40 rti
trap ;runover protection
1457 : 4c5714 > jmp * ;failed anyway
145a : 4c0004 jmp start ;catastrophic error - cannot continue
145d : break2 ;BRK pass 2
145d : e0ad cpx #$ff-'R'
trap_ne
145f : d0fe > bne * ;failed not equal (non zero)
1461 : c0b1 cpy #$ff-'K'-3
trap_ne
1463 : d0fe > bne * ;failed not equal (non zero)
1465 : 850a sta irq_a ;save registers during break test
1467 : 860b stx irq_x
1469 : ba tsx ;test break on stack
146a : bd0201 lda $102,x
cmp_flag $ff ;break test should have B=1
146d : c9ff > cmp #($ff |fao)&m8 ;expected flags + always on bits
trap_ne ;possibly no break flag on stack
146f : d0fe > bne * ;failed not equal (non zero)
1471 : 68 pla
cmp_flag $ff-decmode ;actual passed flags should have decmode cleared
1472 : c9f7 > cmp #($ff-decmode |fao)&m8 ;expected flags + always on bits
trap_ne
1474 : d0fe > bne * ;failed not equal (non zero)
1476 : ba tsx
1477 : e0fc cpx #$fc ;sp -3? (return addr, flags)
trap_ne
1479 : d0fe > bne * ;failed not equal (non zero)
147b : adff01 lda $1ff ;propper return on stack
147e : c908 cmp #hi(brk_ret1)
trap_ne
1480 : d0fe > bne * ;failed not equal (non zero)
1482 : adfe01 lda $1fe
1485 : c902 cmp #lo(brk_ret1)
trap_ne
1487 : d0fe > bne * ;failed not equal (non zero)
load_flag intdis
1489 : a904 > lda #intdis ;allow test to change I-flag (no mask)
148b : 48 pha
148c : a60b ldx irq_x
148e : e8 inx ;return registers with modifications
148f : a50a lda irq_a
1491 : 49aa eor #$aa
1493 : 28 plp ;N=0, V=0, Z=0, C=0 but original flags should be restored
1494 : 40 rti
trap ;runover protection
1495 : 4c9514 > jmp * ;failed anyway
1498 : 4c0004 jmp start ;catastrophic error - cannot continue
if report = 1
include "report.i65"
endif
;copy of data to initialize BSS segment
if load_data_direct != 1
zp_init
zp1_ db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
zp7f_ db $7f ;test pattern for compare
;logical zeropage operands
zpOR_ db 0,$1f,$71,$80 ;test pattern for OR
zpAN_ db $0f,$ff,$7f,$80 ;test pattern for AND
zpEO_ db $ff,$0f,$8f,$8f ;test pattern for EOR
;indirect addressing pointers
ind1_ dw abs1 ;indirect pointer to pattern in absolute memory
dw abs1+1
dw abs1+2
dw abs1+3
dw abs7f
inw1_ dw abs1-$f8 ;indirect pointer for wrap-test pattern
indt_ dw abst ;indirect pointer to store area in absolute memory
dw abst+1
dw abst+2
dw abst+3
inwt_ dw abst-$f8 ;indirect pointer for wrap-test store
indAN_ dw absAN ;indirect pointer to AND pattern in absolute memory
dw absAN+1
dw absAN+2
dw absAN+3
indEO_ dw absEO ;indirect pointer to EOR pattern in absolute memory
dw absEO+1
dw absEO+2
dw absEO+3
indOR_ dw absOR ;indirect pointer to OR pattern in absolute memory
dw absOR+1
dw absOR+2
dw absOR+3
;add/subtract indirect pointers
adi2_ dw ada2 ;indirect pointer to operand 2 in absolute memory
sbi2_ dw sba2 ;indirect pointer to complemented operand 2 (SBC)
adiy2_ dw ada2-$ff ;with offset for indirect indexed
sbiy2_ dw sba2-$ff
zp_end
if (zp_end - zp_init) != (zp_bss_end - zp_bss)
;force assembler error if size is different
ERROR ERROR ERROR ;mismatch between bss and zeropage data
endif
data_init
ex_adc_ adc #0 ;execute immediate opcodes
rts
ex_sbc_ sbc #0 ;execute immediate opcodes
rts
abs1_ db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
abs7f_ db $7f ;test pattern for compare
;loads
fLDx_ db fn,fn,0,fz ;expected flags for load
;shifts
rASL_ ;expected result ASL & ROL -carry
rROL_ db $86,$04,$82,0 ; "
rROLc_ db $87,$05,$83,1 ;expected result ROL +carry
rLSR_ ;expected result LSR & ROR -carry
rROR_ db $61,$41,$20,0 ; "
rRORc_ db $e1,$c1,$a0,$80 ;expected result ROR +carry
fASL_ ;expected flags for shifts
fROL_ db fnc,fc,fn,fz ;no carry in
fROLc_ db fnc,fc,fn,0 ;carry in
fLSR_
fROR_ db fc,0,fc,fz ;no carry in
fRORc_ db fnc,fn,fnc,fn ;carry in
;increments (decrements)
rINC_ db $7f,$80,$ff,0,1 ;expected result for INC/DEC
fINC_ db 0,fn,fn,fz,0 ;expected flags for INC/DEC
;logical memory operand
absOR_ db 0,$1f,$71,$80 ;test pattern for OR
absAN_ db $0f,$ff,$7f,$80 ;test pattern for AND
absEO_ db $ff,$0f,$8f,$8f ;test pattern for EOR
;logical accu operand
absORa_ db 0,$f1,$1f,0 ;test pattern for OR
absANa_ db $f0,$ff,$ff,$ff ;test pattern for AND
absEOa_ db $ff,$f0,$f0,$0f ;test pattern for EOR
;logical results
absrlo_ db 0,$ff,$7f,$80
absflo_ db fz,fn,0,fn
data_end
if (data_end - data_init) != (data_bss_end - data_bss)
;force assembler error if size is different
ERROR ERROR ERROR ;mismatch between bss and data
endif
vec_init
dw nmi_trap
dw res_trap
dw irq_trap
vec_bss equ $fffa
endif ;end of RAM init data
; code at end of image due to the need to add blank space as required
if ($ff & (ji_ret - * - 2)) < ($ff & (jxi_ret - * - 2))
; JMP (abs) when $xxff and $xx00 are from same page
149b : 00000000000000.. ds lo(ji_ret - * - 2)
153c : ea nop
153d : ea nop
153e : ea ji_px nop ;low address byte matched with ji_ret
153f : ea nop
trap ;jmp indirect page cross bug
1540 : 4c4015 > jmp * ;failed anyway
; JMP (abs,x) when $xxff and $xx00 are from same page
1543 : 00000000000000.. ds lo(jxi_ret - * - 2)
1588 : ea nop
1589 : ea nop
158a : ea jxi_px nop ;low address byte matched with jxi_ret
158b : ea nop
trap ;jmp indexed indirect page cross bug
158c : 4c8c15 > jmp * ;failed anyway
else
; JMP (abs,x) when $xxff and $xx00 are from same page
ds lo(jxi_ret - * - 2)
nop
nop
jxi_px nop ;low address byte matched with jxi_ret
nop
trap ;jmp indexed indirect page cross bug
; JMP (abs) when $xxff and $xx00 are from same page
ds lo(ji_ret - * - 2)
nop
nop
ji_px nop ;low address byte matched with ji_ret
nop
trap ;jmp indirect page cross bug
endif
if (load_data_direct = 1) & (ROM_vectors = 1)
fffa = org $fffa ;vectors
fffa : 0514 dw nmi_trap
fffc : 0b14 dw res_trap
fffe : 1314 dw irq_trap
endif
fffa = end start
No errors in pass 2.
Reference in New Issue Copy Permalink