6502/symon
1
0
Fork 0
mirror of https://github.com/sethm/symon.git synced 2024-10-21 12:23:47 +00:00
Code Issues Projects Releases Wiki Activity
22a9207dca
symon/samples/tests/65C02_extended_opcodes_test.lst

11308 lines
563 KiB
Plaintext
Raw Normal View History

Added Klaus Dormann's tests
2014-08-10 23:52:20 +00:00
AS65 Assembler for R6502 [1.42]. Copyright 1994-2007, Frank A. Kingswood Page 1
------------------------------------------------ 65C02_extended_opcodes_test.a65c ------------------------------------------------
2748 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 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, BRK, STP & WAI are covered in the 6502_interrupt_test.
;
; version 16-aug-2013
; edited to provide a pre-configured bin file loadable at $0000 for full 64k
; 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
; 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, $5D (93) 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
;parts of the code are self modifying and must reside in RAM
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)
0001 = rkwl_wdc_op = 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\?
sta chkdadi ;self modifying code
sta chkdsbi
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(data_segment) ;set high byte of indirect pointer
stx zpt+1
ldy #lo(data_bss) ;data after write 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
; org zero_page
0000 = org 0 ;edited to provide binaries loading from 0
0000 : 00000000000000.. ds zero_page
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
000a : zpt ;5 bytes store/modify test area
;add/subtract operand generation and result/flag prediction
000a : 00 adfc ds 1 ;carry flag before op
000b : 00 ad1 ds 1 ;operand 1 - accumulator
000c : 00 ad2 ds 1 ;operand 2 - memory / immediate
000d : 00 adrl ds 1 ;expected result bits 0-7
000e : 00 adrh ds 1 ;expected result bit 8 (carry)
000f : 00 adrf ds 1 ;expected flags NV0000ZC (-V in decimal mode)
0010 : 00 sb2 ds 1 ;operand 2 complemented for subtract
0011 : zp_bss
0011 : c3824100 zp1 db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
0015 : 7f zp7f db $7f ;test pattern for compare
;logical zeropage operands
0016 : 001f7180 zpOR db 0,$1f,$71,$80 ;test pattern for OR
001a : 0fff7f80 zpAN db $0f,$ff,$7f,$80 ;test pattern for AND
001e : ff0f8f8f zpEO db $ff,$0f,$8f,$8f ;test pattern for EOR
;indirect addressing pointers
0022 : 0a02 ind1 dw abs1 ;indirect pointer to pattern in absolute memory
0024 : 0b02 dw abs1+1
0026 : 0c02 dw abs1+2
0028 : 0d02 dw abs1+3
002a : 0e02 dw abs7f
002c : 1201 inw1 dw abs1-$f8 ;indirect pointer for wrap-test pattern
002e : 0502 indt dw abst ;indirect pointer to store area in absolute memory
0030 : 0602 dw abst+1
0032 : 0702 dw abst+2
0034 : 0802 dw abst+3
0036 : 0d01 inwt dw abst-$f8 ;indirect pointer for wrap-test store
0038 : 4102 indAN dw absAN ;indirect pointer to AND pattern in absolute memory
003a : 4202 dw absAN+1
003c : 4302 dw absAN+2
003e : 4402 dw absAN+3
0040 : 4502 indEO dw absEO ;indirect pointer to EOR pattern in absolute memory
0042 : 4602 dw absEO+1
0044 : 4702 dw absEO+2
0046 : 4802 dw absEO+3
0048 : 3d02 indOR dw absOR ;indirect pointer to OR pattern in absolute memory
004a : 3e02 dw absOR+1
004c : 3f02 dw absOR+2
004e : 4002 dw absOR+3
;add/subtract indirect pointers
0050 : 0502 adi2 dw ada2 ;indirect pointer to operand 2 in absolute memory
0052 : 0602 sbi2 dw sba2 ;indirect pointer to complemented operand 2 (SBC)
0054 : 0601 adiy2 dw ada2-$ff ;with offset for indirect indexed
0056 : 0701 sbiy2 dw sba2-$ff
0058 : 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
020a : c3824100 abs1 db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
020e : 7f abs7f db $7f ;test pattern for compare
;loads
020f : 80800002 fLDx db fn,fn,0,fz ;expected flags for load
;shifts
0213 : rASL ;expected result ASL & ROL -carry
0213 : 86048200 rROL db $86,$04,$82,0 ; "
0217 : 87058301 rROLc db $87,$05,$83,1 ;expected result ROL +carry
021b : rLSR ;expected result LSR & ROR -carry
021b : 61412000 rROR db $61,$41,$20,0 ; "
021f : e1c1a080 rRORc db $e1,$c1,$a0,$80 ;expected result ROR +carry
0223 : fASL ;expected flags for shifts
0223 : 81018002 fROL db fnc,fc,fn,fz ;no carry in
0227 : 81018000 fROLc db fnc,fc,fn,0 ;carry in
022b : fLSR
022b : 01000102 fROR db fc,0,fc,fz ;no carry in
022f : 81808180 fRORc db fnc,fn,fnc,fn ;carry in
;increments (decrements)
0233 : 7f80ff0001 rINC db $7f,$80,$ff,0,1 ;expected result for INC/DEC
0238 : 0080800200 fINC db 0,fn,fn,fz,0 ;expected flags for INC/DEC
;logical memory operand
023d : 001f7180 absOR db 0,$1f,$71,$80 ;test pattern for OR
0241 : 0fff7f80 absAN db $0f,$ff,$7f,$80 ;test pattern for AND
0245 : ff0f8f8f absEO db $ff,$0f,$8f,$8f ;test pattern for EOR
;logical accu operand
0249 : 00f11f00 absORa db 0,$f1,$1f,0 ;test pattern for OR
024d : f0ffffff absANa db $f0,$ff,$ff,$ff ;test pattern for AND
0251 : fff0f00f absEOa db $ff,$f0,$f0,$0f ;test pattern for EOR
;logical results
0255 : 00ff7f80 absrlo db 0,$ff,$7f,$80
0259 : 02800080 absflo db fz,fn,0,fn
025d : 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
sta chkdadi ;self modifying code
sta chkdsbi
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(data_segment) ;set high byte of indirect pointer
stx zpt+1
ldy #lo(data_bss) ;data after write 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
071c : a211 ldx #$11 ;test bbr/bbs integrity
071e : a022 ldy #$22
bbt 0
0720 : a901 > lda #(1<<0) ;testing 1 bit on
0722 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0724 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0726 : 48 > pha ;use stack to load status
0727 : a933 > lda #$33 ;precharge accu
0729 : 28 > plp
>
072a : 0f0a06 > bbr 0,zpt,fail10196
072d : 8f0a06 > bbs 0,zpt,ok10196
> trap ;bbs branch not taken
0730 : 4c3007 > jmp * ;failed anyway
>
0733 : >fail10196
> trap ;bbr branch taken
0733 : 4c3307 > jmp * ;failed anyway
>
0736 : >ok10196
> tst_a $33,0
0736 : 08 > php ;save flags
0737 : c933 > cmp #$33 ;test result
> trap_ne
0739 : d0fe > bne * ;failed not equal (non zero)
>
073b : 68 > pla ;load status
073c : 48 > pha
> cmp_flag 0
073d : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
073f : d0fe > bne * ;failed not equal (non zero)
>
0741 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0742 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0744 : 48 > pha ;use stack to load status
0745 : a9cc > lda #$cc ;precharge accu
0747 : 28 > plp
>
0748 : 0f0a06 > bbr 0,zpt,fail20196
074b : 8f0a06 > bbs 0,zpt,ok20196
> trap ;bbs branch not taken
074e : 4c4e07 > jmp * ;failed anyway
>
0751 : >fail20196
> trap ;bbr branch taken
0751 : 4c5107 > jmp * ;failed anyway
>
0754 : >ok20196
> tst_a $cc,$ff
0754 : 08 > php ;save flags
0755 : c9cc > cmp #$cc ;test result
> trap_ne
0757 : d0fe > bne * ;failed not equal (non zero)
>
0759 : 68 > pla ;load status
075a : 48 > pha
> cmp_flag $ff
075b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
075d : d0fe > bne * ;failed not equal (non zero)
>
075f : 28 > plp ;restore status
>
0760 : a50a > lda zpt
0762 : c901 > cmp #(1<<0)
> trap_ne ;zp altered
0764 : d0fe > bne * ;failed not equal (non zero)
>
0766 : a9fe > lda #$ff-(1<<0) ;testing 1 bit off
0768 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
076a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
076c : 48 > pha ;use stack to load status
076d : a933 > lda #$33 ;precharge accu
076f : 28 > plp
>
0770 : 8f0a06 > bbs 0,zpt,fail30196
0773 : 0f0a06 > bbr 0,zpt,ok30196
> trap ;bbr branch not taken
0776 : 4c7607 > jmp * ;failed anyway
>
0779 : >fail30196
> trap ;bbs branch taken
0779 : 4c7907 > jmp * ;failed anyway
>
077c : >ok30196
> tst_a $33,0
077c : 08 > php ;save flags
077d : c933 > cmp #$33 ;test result
> trap_ne
077f : d0fe > bne * ;failed not equal (non zero)
>
0781 : 68 > pla ;load status
0782 : 48 > pha
> cmp_flag 0
0783 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0785 : d0fe > bne * ;failed not equal (non zero)
>
0787 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0788 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
078a : 48 > pha ;use stack to load status
078b : a9cc > lda #$cc ;precharge accu
078d : 28 > plp
>
078e : 8f0a06 > bbs 0,zpt,fail40196
0791 : 0f0a06 > bbr 0,zpt,ok40196
> trap ;bbr branch not taken
0794 : 4c9407 > jmp * ;failed anyway
>
0797 : >fail40196
> trap ;bbs branch taken
0797 : 4c9707 > jmp * ;failed anyway
>
079a : >ok40196
> tst_a $cc,$ff
079a : 08 > php ;save flags
079b : c9cc > cmp #$cc ;test result
> trap_ne
079d : d0fe > bne * ;failed not equal (non zero)
>
079f : 68 > pla ;load status
07a0 : 48 > pha
> cmp_flag $ff
07a1 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07a3 : d0fe > bne * ;failed not equal (non zero)
>
07a5 : 28 > plp ;restore status
>
07a6 : a50a > lda zpt
07a8 : c9fe > cmp #$ff-(1<<0)
> trap_ne ;zp altered
07aa : d0fe > bne * ;failed not equal (non zero)
>
bbt 1
07ac : a902 > lda #(1<<1) ;testing 1 bit on
07ae : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
07b0 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
07b2 : 48 > pha ;use stack to load status
07b3 : a933 > lda #$33 ;precharge accu
07b5 : 28 > plp
>
07b6 : 1f0a06 > bbr 1,zpt,fail10231
07b9 : 9f0a06 > bbs 1,zpt,ok10231
> trap ;bbs branch not taken
07bc : 4cbc07 > jmp * ;failed anyway
>
07bf : >fail10231
> trap ;bbr branch taken
07bf : 4cbf07 > jmp * ;failed anyway
>
07c2 : >ok10231
> tst_a $33,0
07c2 : 08 > php ;save flags
07c3 : c933 > cmp #$33 ;test result
> trap_ne
07c5 : d0fe > bne * ;failed not equal (non zero)
>
07c7 : 68 > pla ;load status
07c8 : 48 > pha
> cmp_flag 0
07c9 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07cb : d0fe > bne * ;failed not equal (non zero)
>
07cd : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
07ce : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
07d0 : 48 > pha ;use stack to load status
07d1 : a9cc > lda #$cc ;precharge accu
07d3 : 28 > plp
>
07d4 : 1f0a06 > bbr 1,zpt,fail20231
07d7 : 9f0a06 > bbs 1,zpt,ok20231
> trap ;bbs branch not taken
07da : 4cda07 > jmp * ;failed anyway
>
07dd : >fail20231
> trap ;bbr branch taken
07dd : 4cdd07 > jmp * ;failed anyway
>
07e0 : >ok20231
> tst_a $cc,$ff
07e0 : 08 > php ;save flags
07e1 : c9cc > cmp #$cc ;test result
> trap_ne
07e3 : d0fe > bne * ;failed not equal (non zero)
>
07e5 : 68 > pla ;load status
07e6 : 48 > pha
> cmp_flag $ff
07e7 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07e9 : d0fe > bne * ;failed not equal (non zero)
>
07eb : 28 > plp ;restore status
>
07ec : a50a > lda zpt
07ee : c902 > cmp #(1<<1)
> trap_ne ;zp altered
07f0 : d0fe > bne * ;failed not equal (non zero)
>
07f2 : a9fd > lda #$ff-(1<<1) ;testing 1 bit off
07f4 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
07f6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
07f8 : 48 > pha ;use stack to load status
07f9 : a933 > lda #$33 ;precharge accu
07fb : 28 > plp
>
07fc : 9f0a06 > bbs 1,zpt,fail30231
07ff : 1f0a06 > bbr 1,zpt,ok30231
> trap ;bbr branch not taken
0802 : 4c0208 > jmp * ;failed anyway
>
0805 : >fail30231
> trap ;bbs branch taken
0805 : 4c0508 > jmp * ;failed anyway
>
0808 : >ok30231
> tst_a $33,0
0808 : 08 > php ;save flags
0809 : c933 > cmp #$33 ;test result
> trap_ne
080b : d0fe > bne * ;failed not equal (non zero)
>
080d : 68 > pla ;load status
080e : 48 > pha
> cmp_flag 0
080f : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0811 : d0fe > bne * ;failed not equal (non zero)
>
0813 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0814 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0816 : 48 > pha ;use stack to load status
0817 : a9cc > lda #$cc ;precharge accu
0819 : 28 > plp
>
081a : 9f0a06 > bbs 1,zpt,fail40231
081d : 1f0a06 > bbr 1,zpt,ok40231
> trap ;bbr branch not taken
0820 : 4c2008 > jmp * ;failed anyway
>
0823 : >fail40231
> trap ;bbs branch taken
0823 : 4c2308 > jmp * ;failed anyway
>
0826 : >ok40231
> tst_a $cc,$ff
0826 : 08 > php ;save flags
0827 : c9cc > cmp #$cc ;test result
> trap_ne
0829 : d0fe > bne * ;failed not equal (non zero)
>
082b : 68 > pla ;load status
082c : 48 > pha
> cmp_flag $ff
082d : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
082f : d0fe > bne * ;failed not equal (non zero)
>
0831 : 28 > plp ;restore status
>
0832 : a50a > lda zpt
0834 : c9fd > cmp #$ff-(1<<1)
> trap_ne ;zp altered
0836 : d0fe > bne * ;failed not equal (non zero)
>
bbt 2
0838 : a904 > lda #(1<<2) ;testing 1 bit on
083a : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
083c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
083e : 48 > pha ;use stack to load status
083f : a933 > lda #$33 ;precharge accu
0841 : 28 > plp
>
0842 : 2f0a06 > bbr 2,zpt,fail10266
0845 : af0a06 > bbs 2,zpt,ok10266
> trap ;bbs branch not taken
0848 : 4c4808 > jmp * ;failed anyway
>
084b : >fail10266
> trap ;bbr branch taken
084b : 4c4b08 > jmp * ;failed anyway
>
084e : >ok10266
> tst_a $33,0
084e : 08 > php ;save flags
084f : c933 > cmp #$33 ;test result
> trap_ne
0851 : d0fe > bne * ;failed not equal (non zero)
>
0853 : 68 > pla ;load status
0854 : 48 > pha
> cmp_flag 0
0855 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0857 : d0fe > bne * ;failed not equal (non zero)
>
0859 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
085a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
085c : 48 > pha ;use stack to load status
085d : a9cc > lda #$cc ;precharge accu
085f : 28 > plp
>
0860 : 2f0a06 > bbr 2,zpt,fail20266
0863 : af0a06 > bbs 2,zpt,ok20266
> trap ;bbs branch not taken
0866 : 4c6608 > jmp * ;failed anyway
>
0869 : >fail20266
> trap ;bbr branch taken
0869 : 4c6908 > jmp * ;failed anyway
>
086c : >ok20266
> tst_a $cc,$ff
086c : 08 > php ;save flags
086d : c9cc > cmp #$cc ;test result
> trap_ne
086f : d0fe > bne * ;failed not equal (non zero)
>
0871 : 68 > pla ;load status
0872 : 48 > pha
> cmp_flag $ff
0873 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0875 : d0fe > bne * ;failed not equal (non zero)
>
0877 : 28 > plp ;restore status
>
0878 : a50a > lda zpt
087a : c904 > cmp #(1<<2)
> trap_ne ;zp altered
087c : d0fe > bne * ;failed not equal (non zero)
>
087e : a9fb > lda #$ff-(1<<2) ;testing 1 bit off
0880 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0882 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0884 : 48 > pha ;use stack to load status
0885 : a933 > lda #$33 ;precharge accu
0887 : 28 > plp
>
0888 : af0a06 > bbs 2,zpt,fail30266
088b : 2f0a06 > bbr 2,zpt,ok30266
> trap ;bbr branch not taken
088e : 4c8e08 > jmp * ;failed anyway
>
0891 : >fail30266
> trap ;bbs branch taken
0891 : 4c9108 > jmp * ;failed anyway
>
0894 : >ok30266
> tst_a $33,0
0894 : 08 > php ;save flags
0895 : c933 > cmp #$33 ;test result
> trap_ne
0897 : d0fe > bne * ;failed not equal (non zero)
>
0899 : 68 > pla ;load status
089a : 48 > pha
> cmp_flag 0
089b : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
089d : d0fe > bne * ;failed not equal (non zero)
>
089f : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
08a0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
08a2 : 48 > pha ;use stack to load status
08a3 : a9cc > lda #$cc ;precharge accu
08a5 : 28 > plp
>
08a6 : af0a06 > bbs 2,zpt,fail40266
08a9 : 2f0a06 > bbr 2,zpt,ok40266
> trap ;bbr branch not taken
08ac : 4cac08 > jmp * ;failed anyway
>
08af : >fail40266
> trap ;bbs branch taken
08af : 4caf08 > jmp * ;failed anyway
>
08b2 : >ok40266
> tst_a $cc,$ff
08b2 : 08 > php ;save flags
08b3 : c9cc > cmp #$cc ;test result
> trap_ne
08b5 : d0fe > bne * ;failed not equal (non zero)
>
08b7 : 68 > pla ;load status
08b8 : 48 > pha
> cmp_flag $ff
08b9 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
08bb : d0fe > bne * ;failed not equal (non zero)
>
08bd : 28 > plp ;restore status
>
08be : a50a > lda zpt
08c0 : c9fb > cmp #$ff-(1<<2)
> trap_ne ;zp altered
08c2 : d0fe > bne * ;failed not equal (non zero)
>
bbt 3
08c4 : a908 > lda #(1<<3) ;testing 1 bit on
08c6 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
08c8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
08ca : 48 > pha ;use stack to load status
08cb : a933 > lda #$33 ;precharge accu
08cd : 28 > plp
>
08ce : 3f0a06 > bbr 3,zpt,fail10301
08d1 : bf0a06 > bbs 3,zpt,ok10301
> trap ;bbs branch not taken
08d4 : 4cd408 > jmp * ;failed anyway
>
08d7 : >fail10301
> trap ;bbr branch taken
08d7 : 4cd708 > jmp * ;failed anyway
>
08da : >ok10301
> tst_a $33,0
08da : 08 > php ;save flags
08db : c933 > cmp #$33 ;test result
> trap_ne
08dd : d0fe > bne * ;failed not equal (non zero)
>
08df : 68 > pla ;load status
08e0 : 48 > pha
> cmp_flag 0
08e1 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
08e3 : d0fe > bne * ;failed not equal (non zero)
>
08e5 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
08e6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
08e8 : 48 > pha ;use stack to load status
08e9 : a9cc > lda #$cc ;precharge accu
08eb : 28 > plp
>
08ec : 3f0a06 > bbr 3,zpt,fail20301
08ef : bf0a06 > bbs 3,zpt,ok20301
> trap ;bbs branch not taken
08f2 : 4cf208 > jmp * ;failed anyway
>
08f5 : >fail20301
> trap ;bbr branch taken
08f5 : 4cf508 > jmp * ;failed anyway
>
08f8 : >ok20301
> tst_a $cc,$ff
08f8 : 08 > php ;save flags
08f9 : c9cc > cmp #$cc ;test result
> trap_ne
08fb : d0fe > bne * ;failed not equal (non zero)
>
08fd : 68 > pla ;load status
08fe : 48 > pha
> cmp_flag $ff
08ff : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0901 : d0fe > bne * ;failed not equal (non zero)
>
0903 : 28 > plp ;restore status
>
0904 : a50a > lda zpt
0906 : c908 > cmp #(1<<3)
> trap_ne ;zp altered
0908 : d0fe > bne * ;failed not equal (non zero)
>
090a : a9f7 > lda #$ff-(1<<3) ;testing 1 bit off
090c : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
090e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0910 : 48 > pha ;use stack to load status
0911 : a933 > lda #$33 ;precharge accu
0913 : 28 > plp
>
0914 : bf0a06 > bbs 3,zpt,fail30301
0917 : 3f0a06 > bbr 3,zpt,ok30301
> trap ;bbr branch not taken
091a : 4c1a09 > jmp * ;failed anyway
>
091d : >fail30301
> trap ;bbs branch taken
091d : 4c1d09 > jmp * ;failed anyway
>
0920 : >ok30301
> tst_a $33,0
0920 : 08 > php ;save flags
0921 : c933 > cmp #$33 ;test result
> trap_ne
0923 : d0fe > bne * ;failed not equal (non zero)
>
0925 : 68 > pla ;load status
0926 : 48 > pha
> cmp_flag 0
0927 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0929 : d0fe > bne * ;failed not equal (non zero)
>
092b : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
092c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
092e : 48 > pha ;use stack to load status
092f : a9cc > lda #$cc ;precharge accu
0931 : 28 > plp
>
0932 : bf0a06 > bbs 3,zpt,fail40301
0935 : 3f0a06 > bbr 3,zpt,ok40301
> trap ;bbr branch not taken
0938 : 4c3809 > jmp * ;failed anyway
>
093b : >fail40301
> trap ;bbs branch taken
093b : 4c3b09 > jmp * ;failed anyway
>
093e : >ok40301
> tst_a $cc,$ff
093e : 08 > php ;save flags
093f : c9cc > cmp #$cc ;test result
> trap_ne
0941 : d0fe > bne * ;failed not equal (non zero)
>
0943 : 68 > pla ;load status
0944 : 48 > pha
> cmp_flag $ff
0945 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0947 : d0fe > bne * ;failed not equal (non zero)
>
0949 : 28 > plp ;restore status
>
094a : a50a > lda zpt
094c : c9f7 > cmp #$ff-(1<<3)
> trap_ne ;zp altered
094e : d0fe > bne * ;failed not equal (non zero)
>
bbt 4
0950 : a910 > lda #(1<<4) ;testing 1 bit on
0952 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0954 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0956 : 48 > pha ;use stack to load status
0957 : a933 > lda #$33 ;precharge accu
0959 : 28 > plp
>
095a : 4f0a06 > bbr 4,zpt,fail10336
095d : cf0a06 > bbs 4,zpt,ok10336
> trap ;bbs branch not taken
0960 : 4c6009 > jmp * ;failed anyway
>
0963 : >fail10336
> trap ;bbr branch taken
0963 : 4c6309 > jmp * ;failed anyway
>
0966 : >ok10336
> tst_a $33,0
0966 : 08 > php ;save flags
0967 : c933 > cmp #$33 ;test result
> trap_ne
0969 : d0fe > bne * ;failed not equal (non zero)
>
096b : 68 > pla ;load status
096c : 48 > pha
> cmp_flag 0
096d : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
096f : d0fe > bne * ;failed not equal (non zero)
>
0971 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0972 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0974 : 48 > pha ;use stack to load status
0975 : a9cc > lda #$cc ;precharge accu
0977 : 28 > plp
>
0978 : 4f0a06 > bbr 4,zpt,fail20336
097b : cf0a06 > bbs 4,zpt,ok20336
> trap ;bbs branch not taken
097e : 4c7e09 > jmp * ;failed anyway
>
0981 : >fail20336
> trap ;bbr branch taken
0981 : 4c8109 > jmp * ;failed anyway
>
0984 : >ok20336
> tst_a $cc,$ff
0984 : 08 > php ;save flags
0985 : c9cc > cmp #$cc ;test result
> trap_ne
0987 : d0fe > bne * ;failed not equal (non zero)
>
0989 : 68 > pla ;load status
098a : 48 > pha
> cmp_flag $ff
098b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
098d : d0fe > bne * ;failed not equal (non zero)
>
098f : 28 > plp ;restore status
>
0990 : a50a > lda zpt
0992 : c910 > cmp #(1<<4)
> trap_ne ;zp altered
0994 : d0fe > bne * ;failed not equal (non zero)
>
0996 : a9ef > lda #$ff-(1<<4) ;testing 1 bit off
0998 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
099a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
099c : 48 > pha ;use stack to load status
099d : a933 > lda #$33 ;precharge accu
099f : 28 > plp
>
09a0 : cf0a06 > bbs 4,zpt,fail30336
09a3 : 4f0a06 > bbr 4,zpt,ok30336
> trap ;bbr branch not taken
09a6 : 4ca609 > jmp * ;failed anyway
>
09a9 : >fail30336
> trap ;bbs branch taken
09a9 : 4ca909 > jmp * ;failed anyway
>
09ac : >ok30336
> tst_a $33,0
09ac : 08 > php ;save flags
09ad : c933 > cmp #$33 ;test result
> trap_ne
09af : d0fe > bne * ;failed not equal (non zero)
>
09b1 : 68 > pla ;load status
09b2 : 48 > pha
> cmp_flag 0
09b3 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09b5 : d0fe > bne * ;failed not equal (non zero)
>
09b7 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
09b8 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
09ba : 48 > pha ;use stack to load status
09bb : a9cc > lda #$cc ;precharge accu
09bd : 28 > plp
>
09be : cf0a06 > bbs 4,zpt,fail40336
09c1 : 4f0a06 > bbr 4,zpt,ok40336
> trap ;bbr branch not taken
09c4 : 4cc409 > jmp * ;failed anyway
>
09c7 : >fail40336
> trap ;bbs branch taken
09c7 : 4cc709 > jmp * ;failed anyway
>
09ca : >ok40336
> tst_a $cc,$ff
09ca : 08 > php ;save flags
09cb : c9cc > cmp #$cc ;test result
> trap_ne
09cd : d0fe > bne * ;failed not equal (non zero)
>
09cf : 68 > pla ;load status
09d0 : 48 > pha
> cmp_flag $ff
09d1 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09d3 : d0fe > bne * ;failed not equal (non zero)
>
09d5 : 28 > plp ;restore status
>
09d6 : a50a > lda zpt
09d8 : c9ef > cmp #$ff-(1<<4)
> trap_ne ;zp altered
09da : d0fe > bne * ;failed not equal (non zero)
>
bbt 5
09dc : a920 > lda #(1<<5) ;testing 1 bit on
09de : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
09e0 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
09e2 : 48 > pha ;use stack to load status
09e3 : a933 > lda #$33 ;precharge accu
09e5 : 28 > plp
>
09e6 : 5f0a06 > bbr 5,zpt,fail10371
09e9 : df0a06 > bbs 5,zpt,ok10371
> trap ;bbs branch not taken
09ec : 4cec09 > jmp * ;failed anyway
>
09ef : >fail10371
> trap ;bbr branch taken
09ef : 4cef09 > jmp * ;failed anyway
>
09f2 : >ok10371
> tst_a $33,0
09f2 : 08 > php ;save flags
09f3 : c933 > cmp #$33 ;test result
> trap_ne
09f5 : d0fe > bne * ;failed not equal (non zero)
>
09f7 : 68 > pla ;load status
09f8 : 48 > pha
> cmp_flag 0
09f9 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09fb : d0fe > bne * ;failed not equal (non zero)
>
09fd : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
09fe : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0a00 : 48 > pha ;use stack to load status
0a01 : a9cc > lda #$cc ;precharge accu
0a03 : 28 > plp
>
0a04 : 5f0a06 > bbr 5,zpt,fail20371
0a07 : df0a06 > bbs 5,zpt,ok20371
> trap ;bbs branch not taken
0a0a : 4c0a0a > jmp * ;failed anyway
>
0a0d : >fail20371
> trap ;bbr branch taken
0a0d : 4c0d0a > jmp * ;failed anyway
>
0a10 : >ok20371
> tst_a $cc,$ff
0a10 : 08 > php ;save flags
0a11 : c9cc > cmp #$cc ;test result
> trap_ne
0a13 : d0fe > bne * ;failed not equal (non zero)
>
0a15 : 68 > pla ;load status
0a16 : 48 > pha
> cmp_flag $ff
0a17 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a19 : d0fe > bne * ;failed not equal (non zero)
>
0a1b : 28 > plp ;restore status
>
0a1c : a50a > lda zpt
0a1e : c920 > cmp #(1<<5)
> trap_ne ;zp altered
0a20 : d0fe > bne * ;failed not equal (non zero)
>
0a22 : a9df > lda #$ff-(1<<5) ;testing 1 bit off
0a24 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0a26 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0a28 : 48 > pha ;use stack to load status
0a29 : a933 > lda #$33 ;precharge accu
0a2b : 28 > plp
>
0a2c : df0a06 > bbs 5,zpt,fail30371
0a2f : 5f0a06 > bbr 5,zpt,ok30371
> trap ;bbr branch not taken
0a32 : 4c320a > jmp * ;failed anyway
>
0a35 : >fail30371
> trap ;bbs branch taken
0a35 : 4c350a > jmp * ;failed anyway
>
0a38 : >ok30371
> tst_a $33,0
0a38 : 08 > php ;save flags
0a39 : c933 > cmp #$33 ;test result
> trap_ne
0a3b : d0fe > bne * ;failed not equal (non zero)
>
0a3d : 68 > pla ;load status
0a3e : 48 > pha
> cmp_flag 0
0a3f : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a41 : d0fe > bne * ;failed not equal (non zero)
>
0a43 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0a44 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0a46 : 48 > pha ;use stack to load status
0a47 : a9cc > lda #$cc ;precharge accu
0a49 : 28 > plp
>
0a4a : df0a06 > bbs 5,zpt,fail40371
0a4d : 5f0a06 > bbr 5,zpt,ok40371
> trap ;bbr branch not taken
0a50 : 4c500a > jmp * ;failed anyway
>
0a53 : >fail40371
> trap ;bbs branch taken
0a53 : 4c530a > jmp * ;failed anyway
>
0a56 : >ok40371
> tst_a $cc,$ff
0a56 : 08 > php ;save flags
0a57 : c9cc > cmp #$cc ;test result
> trap_ne
0a59 : d0fe > bne * ;failed not equal (non zero)
>
0a5b : 68 > pla ;load status
0a5c : 48 > pha
> cmp_flag $ff
0a5d : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a5f : d0fe > bne * ;failed not equal (non zero)
>
0a61 : 28 > plp ;restore status
>
0a62 : a50a > lda zpt
0a64 : c9df > cmp #$ff-(1<<5)
> trap_ne ;zp altered
0a66 : d0fe > bne * ;failed not equal (non zero)
>
bbt 6
0a68 : a940 > lda #(1<<6) ;testing 1 bit on
0a6a : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0a6c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0a6e : 48 > pha ;use stack to load status
0a6f : a933 > lda #$33 ;precharge accu
0a71 : 28 > plp
>
0a72 : 6f0a06 > bbr 6,zpt,fail10406
0a75 : ef0a06 > bbs 6,zpt,ok10406
> trap ;bbs branch not taken
0a78 : 4c780a > jmp * ;failed anyway
>
0a7b : >fail10406
> trap ;bbr branch taken
0a7b : 4c7b0a > jmp * ;failed anyway
>
0a7e : >ok10406
> tst_a $33,0
0a7e : 08 > php ;save flags
0a7f : c933 > cmp #$33 ;test result
> trap_ne
0a81 : d0fe > bne * ;failed not equal (non zero)
>
0a83 : 68 > pla ;load status
0a84 : 48 > pha
> cmp_flag 0
0a85 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a87 : d0fe > bne * ;failed not equal (non zero)
>
0a89 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0a8a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0a8c : 48 > pha ;use stack to load status
0a8d : a9cc > lda #$cc ;precharge accu
0a8f : 28 > plp
>
0a90 : 6f0a06 > bbr 6,zpt,fail20406
0a93 : ef0a06 > bbs 6,zpt,ok20406
> trap ;bbs branch not taken
0a96 : 4c960a > jmp * ;failed anyway
>
0a99 : >fail20406
> trap ;bbr branch taken
0a99 : 4c990a > jmp * ;failed anyway
>
0a9c : >ok20406
> tst_a $cc,$ff
0a9c : 08 > php ;save flags
0a9d : c9cc > cmp #$cc ;test result
> trap_ne
0a9f : d0fe > bne * ;failed not equal (non zero)
>
0aa1 : 68 > pla ;load status
0aa2 : 48 > pha
> cmp_flag $ff
0aa3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0aa5 : d0fe > bne * ;failed not equal (non zero)
>
0aa7 : 28 > plp ;restore status
>
0aa8 : a50a > lda zpt
0aaa : c940 > cmp #(1<<6)
> trap_ne ;zp altered
0aac : d0fe > bne * ;failed not equal (non zero)
>
0aae : a9bf > lda #$ff-(1<<6) ;testing 1 bit off
0ab0 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0ab2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0ab4 : 48 > pha ;use stack to load status
0ab5 : a933 > lda #$33 ;precharge accu
0ab7 : 28 > plp
>
0ab8 : ef0a06 > bbs 6,zpt,fail30406
0abb : 6f0a06 > bbr 6,zpt,ok30406
> trap ;bbr branch not taken
0abe : 4cbe0a > jmp * ;failed anyway
>
0ac1 : >fail30406
> trap ;bbs branch taken
0ac1 : 4cc10a > jmp * ;failed anyway
>
0ac4 : >ok30406
> tst_a $33,0
0ac4 : 08 > php ;save flags
0ac5 : c933 > cmp #$33 ;test result
> trap_ne
0ac7 : d0fe > bne * ;failed not equal (non zero)
>
0ac9 : 68 > pla ;load status
0aca : 48 > pha
> cmp_flag 0
0acb : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0acd : d0fe > bne * ;failed not equal (non zero)
>
0acf : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0ad0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0ad2 : 48 > pha ;use stack to load status
0ad3 : a9cc > lda #$cc ;precharge accu
0ad5 : 28 > plp
>
0ad6 : ef0a06 > bbs 6,zpt,fail40406
0ad9 : 6f0a06 > bbr 6,zpt,ok40406
> trap ;bbr branch not taken
0adc : 4cdc0a > jmp * ;failed anyway
>
0adf : >fail40406
> trap ;bbs branch taken
0adf : 4cdf0a > jmp * ;failed anyway
>
0ae2 : >ok40406
> tst_a $cc,$ff
0ae2 : 08 > php ;save flags
0ae3 : c9cc > cmp #$cc ;test result
> trap_ne
0ae5 : d0fe > bne * ;failed not equal (non zero)
>
0ae7 : 68 > pla ;load status
0ae8 : 48 > pha
> cmp_flag $ff
0ae9 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0aeb : d0fe > bne * ;failed not equal (non zero)
>
0aed : 28 > plp ;restore status
>
0aee : a50a > lda zpt
0af0 : c9bf > cmp #$ff-(1<<6)
> trap_ne ;zp altered
0af2 : d0fe > bne * ;failed not equal (non zero)
>
bbt 7
0af4 : a980 > lda #(1<<7) ;testing 1 bit on
0af6 : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0af8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0afa : 48 > pha ;use stack to load status
0afb : a933 > lda #$33 ;precharge accu
0afd : 28 > plp
>
0afe : 7f0a06 > bbr 7,zpt,fail10441
0b01 : ff0a06 > bbs 7,zpt,ok10441
> trap ;bbs branch not taken
0b04 : 4c040b > jmp * ;failed anyway
>
0b07 : >fail10441
> trap ;bbr branch taken
0b07 : 4c070b > jmp * ;failed anyway
>
0b0a : >ok10441
> tst_a $33,0
0b0a : 08 > php ;save flags
0b0b : c933 > cmp #$33 ;test result
> trap_ne
0b0d : d0fe > bne * ;failed not equal (non zero)
>
0b0f : 68 > pla ;load status
0b10 : 48 > pha
> cmp_flag 0
0b11 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b13 : d0fe > bne * ;failed not equal (non zero)
>
0b15 : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0b16 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0b18 : 48 > pha ;use stack to load status
0b19 : a9cc > lda #$cc ;precharge accu
0b1b : 28 > plp
>
0b1c : 7f0a06 > bbr 7,zpt,fail20441
0b1f : ff0a06 > bbs 7,zpt,ok20441
> trap ;bbs branch not taken
0b22 : 4c220b > jmp * ;failed anyway
>
0b25 : >fail20441
> trap ;bbr branch taken
0b25 : 4c250b > jmp * ;failed anyway
>
0b28 : >ok20441
> tst_a $cc,$ff
0b28 : 08 > php ;save flags
0b29 : c9cc > cmp #$cc ;test result
> trap_ne
0b2b : d0fe > bne * ;failed not equal (non zero)
>
0b2d : 68 > pla ;load status
0b2e : 48 > pha
> cmp_flag $ff
0b2f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b31 : d0fe > bne * ;failed not equal (non zero)
>
0b33 : 28 > plp ;restore status
>
0b34 : a50a > lda zpt
0b36 : c980 > cmp #(1<<7)
> trap_ne ;zp altered
0b38 : d0fe > bne * ;failed not equal (non zero)
>
0b3a : a97f > lda #$ff-(1<<7) ;testing 1 bit off
0b3c : 850a > sta zpt
> set_a $33,0 ;with flags off
> load_flag 0
0b3e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0b40 : 48 > pha ;use stack to load status
0b41 : a933 > lda #$33 ;precharge accu
0b43 : 28 > plp
>
0b44 : ff0a06 > bbs 7,zpt,fail30441
0b47 : 7f0a06 > bbr 7,zpt,ok30441
> trap ;bbr branch not taken
0b4a : 4c4a0b > jmp * ;failed anyway
>
0b4d : >fail30441
> trap ;bbs branch taken
0b4d : 4c4d0b > jmp * ;failed anyway
>
0b50 : >ok30441
> tst_a $33,0
0b50 : 08 > php ;save flags
0b51 : c933 > cmp #$33 ;test result
> trap_ne
0b53 : d0fe > bne * ;failed not equal (non zero)
>
0b55 : 68 > pla ;load status
0b56 : 48 > pha
> cmp_flag 0
0b57 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b59 : d0fe > bne * ;failed not equal (non zero)
>
0b5b : 28 > plp ;restore status
>
> set_a $cc,$ff ;with flags on
> load_flag $ff
0b5c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0b5e : 48 > pha ;use stack to load status
0b5f : a9cc > lda #$cc ;precharge accu
0b61 : 28 > plp
>
0b62 : ff0a06 > bbs 7,zpt,fail40441
0b65 : 7f0a06 > bbr 7,zpt,ok40441
> trap ;bbr branch not taken
0b68 : 4c680b > jmp * ;failed anyway
>
0b6b : >fail40441
> trap ;bbs branch taken
0b6b : 4c6b0b > jmp * ;failed anyway
>
0b6e : >ok40441
> tst_a $cc,$ff
0b6e : 08 > php ;save flags
0b6f : c9cc > cmp #$cc ;test result
> trap_ne
0b71 : d0fe > bne * ;failed not equal (non zero)
>
0b73 : 68 > pla ;load status
0b74 : 48 > pha
> cmp_flag $ff
0b75 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b77 : d0fe > bne * ;failed not equal (non zero)
>
0b79 : 28 > plp ;restore status
>
0b7a : a50a > lda zpt
0b7c : c97f > cmp #$ff-(1<<7)
> trap_ne ;zp altered
0b7e : d0fe > bne * ;failed not equal (non zero)
>
0b80 : e011 cpx #$11
trap_ne ;x overwritten
0b82 : d0fe > bne * ;failed not equal (non zero)
0b84 : c022 cpy #$22
trap_ne ;y overwritten
0b86 : d0fe > bne * ;failed not equal (non zero)
next_test
0b88 : ad0202 > lda test_case ;previous test
0b8b : c906 > cmp #test_num
> trap_ne ;test is out of sequence
0b8d : d0fe > bne * ;failed not equal (non zero)
>
0007 = >test_num = test_num + 1
0b8f : a907 > lda #test_num ;*** next tests' number
0b91 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each 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
0b94 : a900 lda #0 ;combined bit test
0b96 : 850a sta zpt
0b98 : a900 bbcl lda #0
bbrc 0
0b9a : 0f0a02 > bbr 0,zpt,skip0480
0b9d : 4901 > eor #(1<<0)
0b9f : >skip0480
bbrc 1
0b9f : 1f0a02 > bbr 1,zpt,skip0481
0ba2 : 4902 > eor #(1<<1)
0ba4 : >skip0481
bbrc 2
0ba4 : 2f0a02 > bbr 2,zpt,skip0482
0ba7 : 4904 > eor #(1<<2)
0ba9 : >skip0482
bbrc 3
0ba9 : 3f0a02 > bbr 3,zpt,skip0483
0bac : 4908 > eor #(1<<3)
0bae : >skip0483
bbrc 4
0bae : 4f0a02 > bbr 4,zpt,skip0484
0bb1 : 4910 > eor #(1<<4)
0bb3 : >skip0484
bbrc 5
0bb3 : 5f0a02 > bbr 5,zpt,skip0485
0bb6 : 4920 > eor #(1<<5)
0bb8 : >skip0485
bbrc 6
0bb8 : 6f0a02 > bbr 6,zpt,skip0486
0bbb : 4940 > eor #(1<<6)
0bbd : >skip0486
bbrc 7
0bbd : 7f0a02 > bbr 7,zpt,skip0487
0bc0 : 4980 > eor #(1<<7)
0bc2 : >skip0487
0bc2 : 450a eor zpt
trap_ne ;failed bbr bitnum in accu
0bc4 : d0fe > bne * ;failed not equal (non zero)
0bc6 : a9ff lda #$ff
bbsc 0
0bc8 : 8f0a02 > bbs 0,zpt,skip0489
0bcb : 4901 > eor #(1<<0)
0bcd : >skip0489
bbsc 1
0bcd : 9f0a02 > bbs 1,zpt,skip0490
0bd0 : 4902 > eor #(1<<1)
0bd2 : >skip0490
bbsc 2
0bd2 : af0a02 > bbs 2,zpt,skip0491
0bd5 : 4904 > eor #(1<<2)
0bd7 : >skip0491
bbsc 3
0bd7 : bf0a02 > bbs 3,zpt,skip0492
0bda : 4908 > eor #(1<<3)
0bdc : >skip0492
bbsc 4
0bdc : cf0a02 > bbs 4,zpt,skip0493
0bdf : 4910 > eor #(1<<4)
0be1 : >skip0493
bbsc 5
0be1 : df0a02 > bbs 5,zpt,skip0494
0be4 : 4920 > eor #(1<<5)
0be6 : >skip0494
bbsc 6
0be6 : ef0a02 > bbs 6,zpt,skip0495
0be9 : 4940 > eor #(1<<6)
0beb : >skip0495
bbsc 7
0beb : ff0a02 > bbs 7,zpt,skip0496
0bee : 4980 > eor #(1<<7)
0bf0 : >skip0496
0bf0 : 450a eor zpt
trap_ne ;failed bbs bitnum in accu
0bf2 : d0fe > bne * ;failed not equal (non zero)
0bf4 : e60a inc zpt
0bf6 : d0a0 bne bbcl
next_test
0bf8 : ad0202 > lda test_case ;previous test
0bfb : c907 > cmp #test_num
> trap_ne ;test is out of sequence
0bfd : d0fe > bne * ;failed not equal (non zero)
>
0008 = >test_num = test_num + 1
0bff : a908 > lda #test_num ;*** next tests' number
0c01 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each 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
nop_test $02,2
0c04 : a042 > ldy #$42
0c06 : a202 > ldx #4-2
0c08 : 02 > db $02 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0c09 : c8 > iny
0c0a : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0c0b : ca > dex
> trap_ne ;wrong number of bytes
0c0c : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$02,0
> load_flag 0
0c0e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c10 : 48 > pha ;use stack to load status
0c11 : a9fd > lda #$ff-$02 ;precharge accu
0c13 : 28 > plp
>
0c14 : 02 > db $02 ;test nop integrity - flags off
0c15 : ea > nop
0c16 : ea > nop
> tst_a $ff-$02,0
0c17 : 08 > php ;save flags
0c18 : c9fd > cmp #$ff-$02 ;test result
> trap_ne
0c1a : d0fe > bne * ;failed not equal (non zero)
>
0c1c : 68 > pla ;load status
0c1d : 48 > pha
> cmp_flag 0
0c1e : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c20 : d0fe > bne * ;failed not equal (non zero)
>
0c22 : 28 > plp ;restore status
>
> set_a $aa-$02,$ff
> load_flag $ff
0c23 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0c25 : 48 > pha ;use stack to load status
0c26 : a9a8 > lda #$aa-$02 ;precharge accu
0c28 : 28 > plp
>
0c29 : 02 > db $02 ;test nop integrity - flags on
0c2a : ea > nop
0c2b : ea > nop
> tst_a $aa-$02,$ff
0c2c : 08 > php ;save flags
0c2d : c9a8 > cmp #$aa-$02 ;test result
> trap_ne
0c2f : d0fe > bne * ;failed not equal (non zero)
>
0c31 : 68 > pla ;load status
0c32 : 48 > pha
> cmp_flag $ff
0c33 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c35 : d0fe > bne * ;failed not equal (non zero)
>
0c37 : 28 > plp ;restore status
>
0c38 : c042 > cpy #$42
> trap_ne ;y changed
0c3a : d0fe > bne * ;failed not equal (non zero)
>
0c3c : e000 > cpx #0
> trap_ne ;x changed
0c3e : d0fe > bne * ;failed not equal (non zero)
>
nop_test $22,2
0c40 : a042 > ldy #$42
0c42 : a202 > ldx #4-2
0c44 : 22 > db $22 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0c45 : c8 > iny
0c46 : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0c47 : ca > dex
> trap_ne ;wrong number of bytes
0c48 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$22,0
> load_flag 0
0c4a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c4c : 48 > pha ;use stack to load status
0c4d : a9dd > lda #$ff-$22 ;precharge accu
0c4f : 28 > plp
>
0c50 : 22 > db $22 ;test nop integrity - flags off
0c51 : ea > nop
0c52 : ea > nop
> tst_a $ff-$22,0
0c53 : 08 > php ;save flags
0c54 : c9dd > cmp #$ff-$22 ;test result
> trap_ne
0c56 : d0fe > bne * ;failed not equal (non zero)
>
0c58 : 68 > pla ;load status
0c59 : 48 > pha
> cmp_flag 0
0c5a : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c5c : d0fe > bne * ;failed not equal (non zero)
>
0c5e : 28 > plp ;restore status
>
> set_a $aa-$22,$ff
> load_flag $ff
0c5f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0c61 : 48 > pha ;use stack to load status
0c62 : a988 > lda #$aa-$22 ;precharge accu
0c64 : 28 > plp
>
0c65 : 22 > db $22 ;test nop integrity - flags on
0c66 : ea > nop
0c67 : ea > nop
> tst_a $aa-$22,$ff
0c68 : 08 > php ;save flags
0c69 : c988 > cmp #$aa-$22 ;test result
> trap_ne
0c6b : d0fe > bne * ;failed not equal (non zero)
>
0c6d : 68 > pla ;load status
0c6e : 48 > pha
> cmp_flag $ff
0c6f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c71 : d0fe > bne * ;failed not equal (non zero)
>
0c73 : 28 > plp ;restore status
>
0c74 : c042 > cpy #$42
> trap_ne ;y changed
0c76 : d0fe > bne * ;failed not equal (non zero)
>
0c78 : e000 > cpx #0
> trap_ne ;x changed
0c7a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $42,2
0c7c : a042 > ldy #$42
0c7e : a202 > ldx #4-2
0c80 : 42 > db $42 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0c81 : c8 > iny
0c82 : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0c83 : ca > dex
> trap_ne ;wrong number of bytes
0c84 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$42,0
> load_flag 0
0c86 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c88 : 48 > pha ;use stack to load status
0c89 : a9bd > lda #$ff-$42 ;precharge accu
0c8b : 28 > plp
>
0c8c : 42 > db $42 ;test nop integrity - flags off
0c8d : ea > nop
0c8e : ea > nop
> tst_a $ff-$42,0
0c8f : 08 > php ;save flags
0c90 : c9bd > cmp #$ff-$42 ;test result
> trap_ne
0c92 : d0fe > bne * ;failed not equal (non zero)
>
0c94 : 68 > pla ;load status
0c95 : 48 > pha
> cmp_flag 0
0c96 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c98 : d0fe > bne * ;failed not equal (non zero)
>
0c9a : 28 > plp ;restore status
>
> set_a $aa-$42,$ff
> load_flag $ff
0c9b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0c9d : 48 > pha ;use stack to load status
0c9e : a968 > lda #$aa-$42 ;precharge accu
0ca0 : 28 > plp
>
0ca1 : 42 > db $42 ;test nop integrity - flags on
0ca2 : ea > nop
0ca3 : ea > nop
> tst_a $aa-$42,$ff
0ca4 : 08 > php ;save flags
0ca5 : c968 > cmp #$aa-$42 ;test result
> trap_ne
0ca7 : d0fe > bne * ;failed not equal (non zero)
>
0ca9 : 68 > pla ;load status
0caa : 48 > pha
> cmp_flag $ff
0cab : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cad : d0fe > bne * ;failed not equal (non zero)
>
0caf : 28 > plp ;restore status
>
0cb0 : c042 > cpy #$42
> trap_ne ;y changed
0cb2 : d0fe > bne * ;failed not equal (non zero)
>
0cb4 : e000 > cpx #0
> trap_ne ;x changed
0cb6 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $62,2
0cb8 : a042 > ldy #$42
0cba : a202 > ldx #4-2
0cbc : 62 > db $62 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0cbd : c8 > iny
0cbe : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0cbf : ca > dex
> trap_ne ;wrong number of bytes
0cc0 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$62,0
> load_flag 0
0cc2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0cc4 : 48 > pha ;use stack to load status
0cc5 : a99d > lda #$ff-$62 ;precharge accu
0cc7 : 28 > plp
>
0cc8 : 62 > db $62 ;test nop integrity - flags off
0cc9 : ea > nop
0cca : ea > nop
> tst_a $ff-$62,0
0ccb : 08 > php ;save flags
0ccc : c99d > cmp #$ff-$62 ;test result
> trap_ne
0cce : d0fe > bne * ;failed not equal (non zero)
>
0cd0 : 68 > pla ;load status
0cd1 : 48 > pha
> cmp_flag 0
0cd2 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cd4 : d0fe > bne * ;failed not equal (non zero)
>
0cd6 : 28 > plp ;restore status
>
> set_a $aa-$62,$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 : a948 > lda #$aa-$62 ;precharge accu
0cdc : 28 > plp
>
0cdd : 62 > db $62 ;test nop integrity - flags on
0cde : ea > nop
0cdf : ea > nop
> tst_a $aa-$62,$ff
0ce0 : 08 > php ;save flags
0ce1 : c948 > cmp #$aa-$62 ;test result
> trap_ne
0ce3 : d0fe > bne * ;failed not equal (non zero)
>
0ce5 : 68 > pla ;load status
0ce6 : 48 > pha
> cmp_flag $ff
0ce7 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ce9 : d0fe > bne * ;failed not equal (non zero)
>
0ceb : 28 > plp ;restore status
>
0cec : c042 > cpy #$42
> trap_ne ;y changed
0cee : d0fe > bne * ;failed not equal (non zero)
>
0cf0 : e000 > cpx #0
> trap_ne ;x changed
0cf2 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $82,2
0cf4 : a042 > ldy #$42
0cf6 : a202 > ldx #4-2
0cf8 : 82 > db $82 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0cf9 : c8 > iny
0cfa : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0cfb : ca > dex
> trap_ne ;wrong number of bytes
0cfc : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$82,0
> load_flag 0
0cfe : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d00 : 48 > pha ;use stack to load status
0d01 : a97d > lda #$ff-$82 ;precharge accu
0d03 : 28 > plp
>
0d04 : 82 > db $82 ;test nop integrity - flags off
0d05 : ea > nop
0d06 : ea > nop
> tst_a $ff-$82,0
0d07 : 08 > php ;save flags
0d08 : c97d > cmp #$ff-$82 ;test result
> trap_ne
0d0a : d0fe > bne * ;failed not equal (non zero)
>
0d0c : 68 > pla ;load status
0d0d : 48 > pha
> cmp_flag 0
0d0e : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d10 : d0fe > bne * ;failed not equal (non zero)
>
0d12 : 28 > plp ;restore status
>
> set_a $aa-$82,$ff
> load_flag $ff
0d13 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d15 : 48 > pha ;use stack to load status
0d16 : a928 > lda #$aa-$82 ;precharge accu
0d18 : 28 > plp
>
0d19 : 82 > db $82 ;test nop integrity - flags on
0d1a : ea > nop
0d1b : ea > nop
> tst_a $aa-$82,$ff
0d1c : 08 > php ;save flags
0d1d : c928 > cmp #$aa-$82 ;test result
> trap_ne
0d1f : d0fe > bne * ;failed not equal (non zero)
>
0d21 : 68 > pla ;load status
0d22 : 48 > pha
> cmp_flag $ff
0d23 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d25 : d0fe > bne * ;failed not equal (non zero)
>
0d27 : 28 > plp ;restore status
>
0d28 : c042 > cpy #$42
> trap_ne ;y changed
0d2a : d0fe > bne * ;failed not equal (non zero)
>
0d2c : e000 > cpx #0
> trap_ne ;x changed
0d2e : d0fe > bne * ;failed not equal (non zero)
>
nop_test $c2,2
0d30 : a042 > ldy #$42
0d32 : a202 > ldx #4-2
0d34 : c2 > db $c2 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0d35 : c8 > iny
0d36 : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0d37 : ca > dex
> trap_ne ;wrong number of bytes
0d38 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$c2,0
> load_flag 0
0d3a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d3c : 48 > pha ;use stack to load status
0d3d : a93d > lda #$ff-$c2 ;precharge accu
0d3f : 28 > plp
>
0d40 : c2 > db $c2 ;test nop integrity - flags off
0d41 : ea > nop
0d42 : ea > nop
> tst_a $ff-$c2,0
0d43 : 08 > php ;save flags
0d44 : c93d > cmp #$ff-$c2 ;test result
> trap_ne
0d46 : d0fe > bne * ;failed not equal (non zero)
>
0d48 : 68 > pla ;load status
0d49 : 48 > pha
> cmp_flag 0
0d4a : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d4c : d0fe > bne * ;failed not equal (non zero)
>
0d4e : 28 > plp ;restore status
>
> set_a $aa-$c2,$ff
> load_flag $ff
0d4f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d51 : 48 > pha ;use stack to load status
0d52 : a9e8 > lda #$aa-$c2 ;precharge accu
0d54 : 28 > plp
>
0d55 : c2 > db $c2 ;test nop integrity - flags on
0d56 : ea > nop
0d57 : ea > nop
> tst_a $aa-$c2,$ff
0d58 : 08 > php ;save flags
0d59 : c9e8 > cmp #$aa-$c2 ;test result
> trap_ne
0d5b : d0fe > bne * ;failed not equal (non zero)
>
0d5d : 68 > pla ;load status
0d5e : 48 > pha
> cmp_flag $ff
0d5f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d61 : d0fe > bne * ;failed not equal (non zero)
>
0d63 : 28 > plp ;restore status
>
0d64 : c042 > cpy #$42
> trap_ne ;y changed
0d66 : d0fe > bne * ;failed not equal (non zero)
>
0d68 : e000 > cpx #0
> trap_ne ;x changed
0d6a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $e2,2
0d6c : a042 > ldy #$42
0d6e : a202 > ldx #4-2
0d70 : e2 > db $e2 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0d71 : c8 > iny
0d72 : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0d73 : ca > dex
> trap_ne ;wrong number of bytes
0d74 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$e2,0
> load_flag 0
0d76 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d78 : 48 > pha ;use stack to load status
0d79 : a91d > lda #$ff-$e2 ;precharge accu
0d7b : 28 > plp
>
0d7c : e2 > db $e2 ;test nop integrity - flags off
0d7d : ea > nop
0d7e : ea > nop
> tst_a $ff-$e2,0
0d7f : 08 > php ;save flags
0d80 : c91d > cmp #$ff-$e2 ;test result
> trap_ne
0d82 : d0fe > bne * ;failed not equal (non zero)
>
0d84 : 68 > pla ;load status
0d85 : 48 > pha
> cmp_flag 0
0d86 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d88 : d0fe > bne * ;failed not equal (non zero)
>
0d8a : 28 > plp ;restore status
>
> set_a $aa-$e2,$ff
> load_flag $ff
0d8b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d8d : 48 > pha ;use stack to load status
0d8e : a9c8 > lda #$aa-$e2 ;precharge accu
0d90 : 28 > plp
>
0d91 : e2 > db $e2 ;test nop integrity - flags on
0d92 : ea > nop
0d93 : ea > nop
> tst_a $aa-$e2,$ff
0d94 : 08 > php ;save flags
0d95 : c9c8 > cmp #$aa-$e2 ;test result
> trap_ne
0d97 : d0fe > bne * ;failed not equal (non zero)
>
0d99 : 68 > pla ;load status
0d9a : 48 > pha
> cmp_flag $ff
0d9b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d9d : d0fe > bne * ;failed not equal (non zero)
>
0d9f : 28 > plp ;restore status
>
0da0 : c042 > cpy #$42
> trap_ne ;y changed
0da2 : d0fe > bne * ;failed not equal (non zero)
>
0da4 : e000 > cpx #0
> trap_ne ;x changed
0da6 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $44,2
0da8 : a042 > ldy #$42
0daa : a202 > ldx #4-2
0dac : 44 > db $44 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0dad : c8 > iny
0dae : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0daf : ca > dex
> trap_ne ;wrong number of bytes
0db0 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$44,0
> load_flag 0
0db2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0db4 : 48 > pha ;use stack to load status
0db5 : a9bb > lda #$ff-$44 ;precharge accu
0db7 : 28 > plp
>
0db8 : 44 > db $44 ;test nop integrity - flags off
0db9 : ea > nop
0dba : ea > nop
> tst_a $ff-$44,0
0dbb : 08 > php ;save flags
0dbc : c9bb > cmp #$ff-$44 ;test result
> trap_ne
0dbe : d0fe > bne * ;failed not equal (non zero)
>
0dc0 : 68 > pla ;load status
0dc1 : 48 > pha
> cmp_flag 0
0dc2 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0dc4 : d0fe > bne * ;failed not equal (non zero)
>
0dc6 : 28 > plp ;restore status
>
> set_a $aa-$44,$ff
> load_flag $ff
0dc7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0dc9 : 48 > pha ;use stack to load status
0dca : a966 > lda #$aa-$44 ;precharge accu
0dcc : 28 > plp
>
0dcd : 44 > db $44 ;test nop integrity - flags on
0dce : ea > nop
0dcf : ea > nop
> tst_a $aa-$44,$ff
0dd0 : 08 > php ;save flags
0dd1 : c966 > cmp #$aa-$44 ;test result
> trap_ne
0dd3 : d0fe > bne * ;failed not equal (non zero)
>
0dd5 : 68 > pla ;load status
0dd6 : 48 > pha
> cmp_flag $ff
0dd7 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0dd9 : d0fe > bne * ;failed not equal (non zero)
>
0ddb : 28 > plp ;restore status
>
0ddc : c042 > cpy #$42
> trap_ne ;y changed
0dde : d0fe > bne * ;failed not equal (non zero)
>
0de0 : e000 > cpx #0
> trap_ne ;x changed
0de2 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $54,2
0de4 : a042 > ldy #$42
0de6 : a202 > ldx #4-2
0de8 : 54 > db $54 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0de9 : c8 > iny
0dea : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0deb : ca > dex
> trap_ne ;wrong number of bytes
0dec : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$54,0
> load_flag 0
0dee : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0df0 : 48 > pha ;use stack to load status
0df1 : a9ab > lda #$ff-$54 ;precharge accu
0df3 : 28 > plp
>
0df4 : 54 > db $54 ;test nop integrity - flags off
0df5 : ea > nop
0df6 : ea > nop
> tst_a $ff-$54,0
0df7 : 08 > php ;save flags
0df8 : c9ab > cmp #$ff-$54 ;test result
> trap_ne
0dfa : d0fe > bne * ;failed not equal (non zero)
>
0dfc : 68 > pla ;load status
0dfd : 48 > pha
> cmp_flag 0
0dfe : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0e00 : d0fe > bne * ;failed not equal (non zero)
>
0e02 : 28 > plp ;restore status
>
> set_a $aa-$54,$ff
> load_flag $ff
0e03 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e05 : 48 > pha ;use stack to load status
0e06 : a956 > lda #$aa-$54 ;precharge accu
0e08 : 28 > plp
>
0e09 : 54 > db $54 ;test nop integrity - flags on
0e0a : ea > nop
0e0b : ea > nop
> tst_a $aa-$54,$ff
0e0c : 08 > php ;save flags
0e0d : c956 > cmp #$aa-$54 ;test result
> trap_ne
0e0f : d0fe > bne * ;failed not equal (non zero)
>
0e11 : 68 > pla ;load status
0e12 : 48 > pha
> cmp_flag $ff
0e13 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0e15 : d0fe > bne * ;failed not equal (non zero)
>
0e17 : 28 > plp ;restore status
>
0e18 : c042 > cpy #$42
> trap_ne ;y changed
0e1a : d0fe > bne * ;failed not equal (non zero)
>
0e1c : e000 > cpx #0
> trap_ne ;x changed
0e1e : d0fe > bne * ;failed not equal (non zero)
>
nop_test $d4,2
0e20 : a042 > ldy #$42
0e22 : a202 > ldx #4-2
0e24 : d4 > db $d4 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0e25 : c8 > iny
0e26 : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0e27 : ca > dex
> trap_ne ;wrong number of bytes
0e28 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$d4,0
> load_flag 0
0e2a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0e2c : 48 > pha ;use stack to load status
0e2d : a92b > lda #$ff-$d4 ;precharge accu
0e2f : 28 > plp
>
0e30 : d4 > db $d4 ;test nop integrity - flags off
0e31 : ea > nop
0e32 : ea > nop
> tst_a $ff-$d4,0
0e33 : 08 > php ;save flags
0e34 : c92b > cmp #$ff-$d4 ;test result
> trap_ne
0e36 : d0fe > bne * ;failed not equal (non zero)
>
0e38 : 68 > pla ;load status
0e39 : 48 > pha
> cmp_flag 0
0e3a : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0e3c : d0fe > bne * ;failed not equal (non zero)
>
0e3e : 28 > plp ;restore status
>
> set_a $aa-$d4,$ff
> load_flag $ff
0e3f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e41 : 48 > pha ;use stack to load status
0e42 : a9d6 > lda #$aa-$d4 ;precharge accu
0e44 : 28 > plp
>
0e45 : d4 > db $d4 ;test nop integrity - flags on
0e46 : ea > nop
0e47 : ea > nop
> tst_a $aa-$d4,$ff
0e48 : 08 > php ;save flags
0e49 : c9d6 > cmp #$aa-$d4 ;test result
> trap_ne
0e4b : d0fe > bne * ;failed not equal (non zero)
>
0e4d : 68 > pla ;load status
0e4e : 48 > pha
> cmp_flag $ff
0e4f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0e51 : d0fe > bne * ;failed not equal (non zero)
>
0e53 : 28 > plp ;restore status
>
0e54 : c042 > cpy #$42
> trap_ne ;y changed
0e56 : d0fe > bne * ;failed not equal (non zero)
>
0e58 : e000 > cpx #0
> trap_ne ;x changed
0e5a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $f4,2
0e5c : a042 > ldy #$42
0e5e : a202 > ldx #4-2
0e60 : f4 > db $f4 ;test nop length
> if 2 = 1
> dex
> dex
> endif
> if 2 = 2
0e61 : c8 > iny
0e62 : ca > dex
> endif
> if 2 = 3
> iny
> iny
> endif
0e63 : ca > dex
> trap_ne ;wrong number of bytes
0e64 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$f4,0
> load_flag 0
0e66 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0e68 : 48 > pha ;use stack to load status
0e69 : a90b > lda #$ff-$f4 ;precharge accu
0e6b : 28 > plp
>
0e6c : f4 > db $f4 ;test nop integrity - flags off
0e6d : ea > nop
0e6e : ea > nop
> tst_a $ff-$f4,0
0e6f : 08 > php ;save flags
0e70 : c90b > cmp #$ff-$f4 ;test result
> trap_ne
0e72 : d0fe > bne * ;failed not equal (non zero)
>
0e74 : 68 > pla ;load status
0e75 : 48 > pha
> cmp_flag 0
0e76 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0e78 : d0fe > bne * ;failed not equal (non zero)
>
0e7a : 28 > plp ;restore status
>
> set_a $aa-$f4,$ff
> load_flag $ff
0e7b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e7d : 48 > pha ;use stack to load status
0e7e : a9b6 > lda #$aa-$f4 ;precharge accu
0e80 : 28 > plp
>
0e81 : f4 > db $f4 ;test nop integrity - flags on
0e82 : ea > nop
0e83 : ea > nop
> tst_a $aa-$f4,$ff
0e84 : 08 > php ;save flags
0e85 : c9b6 > cmp #$aa-$f4 ;test result
> trap_ne
0e87 : d0fe > bne * ;failed not equal (non zero)
>
0e89 : 68 > pla ;load status
0e8a : 48 > pha
> cmp_flag $ff
0e8b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0e8d : d0fe > bne * ;failed not equal (non zero)
>
0e8f : 28 > plp ;restore status
>
0e90 : c042 > cpy #$42
> trap_ne ;y changed
0e92 : d0fe > bne * ;failed not equal (non zero)
>
0e94 : e000 > cpx #0
> trap_ne ;x changed
0e96 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $5c,3
0e98 : a042 > ldy #$42
0e9a : a201 > ldx #4-3
0e9c : 5c > db $5c ;test nop length
> if 3 = 1
> dex
> dex
> endif
> if 3 = 2
> iny
> dex
> endif
> if 3 = 3
0e9d : c8 > iny
0e9e : c8 > iny
> endif
0e9f : ca > dex
> trap_ne ;wrong number of bytes
0ea0 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$5c,0
> load_flag 0
0ea2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0ea4 : 48 > pha ;use stack to load status
0ea5 : a9a3 > lda #$ff-$5c ;precharge accu
0ea7 : 28 > plp
>
0ea8 : 5c > db $5c ;test nop integrity - flags off
0ea9 : ea > nop
0eaa : ea > nop
> tst_a $ff-$5c,0
0eab : 08 > php ;save flags
0eac : c9a3 > cmp #$ff-$5c ;test result
> trap_ne
0eae : d0fe > bne * ;failed not equal (non zero)
>
0eb0 : 68 > pla ;load status
0eb1 : 48 > pha
> cmp_flag 0
0eb2 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0eb4 : d0fe > bne * ;failed not equal (non zero)
>
0eb6 : 28 > plp ;restore status
>
> set_a $aa-$5c,$ff
> load_flag $ff
0eb7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0eb9 : 48 > pha ;use stack to load status
0eba : a94e > lda #$aa-$5c ;precharge accu
0ebc : 28 > plp
>
0ebd : 5c > db $5c ;test nop integrity - flags on
0ebe : ea > nop
0ebf : ea > nop
> tst_a $aa-$5c,$ff
0ec0 : 08 > php ;save flags
0ec1 : c94e > cmp #$aa-$5c ;test result
> trap_ne
0ec3 : d0fe > bne * ;failed not equal (non zero)
>
0ec5 : 68 > pla ;load status
0ec6 : 48 > pha
> cmp_flag $ff
0ec7 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ec9 : d0fe > bne * ;failed not equal (non zero)
>
0ecb : 28 > plp ;restore status
>
0ecc : c042 > cpy #$42
> trap_ne ;y changed
0ece : d0fe > bne * ;failed not equal (non zero)
>
0ed0 : e000 > cpx #0
> trap_ne ;x changed
0ed2 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $dc,3
0ed4 : a042 > ldy #$42
0ed6 : a201 > ldx #4-3
0ed8 : dc > db $dc ;test nop length
> if 3 = 1
> dex
> dex
> endif
> if 3 = 2
> iny
> dex
> endif
> if 3 = 3
0ed9 : c8 > iny
0eda : c8 > iny
> endif
0edb : ca > dex
> trap_ne ;wrong number of bytes
0edc : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$dc,0
> load_flag 0
0ede : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0ee0 : 48 > pha ;use stack to load status
0ee1 : a923 > lda #$ff-$dc ;precharge accu
0ee3 : 28 > plp
>
0ee4 : dc > db $dc ;test nop integrity - flags off
0ee5 : ea > nop
0ee6 : ea > nop
> tst_a $ff-$dc,0
0ee7 : 08 > php ;save flags
0ee8 : c923 > cmp #$ff-$dc ;test result
> trap_ne
0eea : d0fe > bne * ;failed not equal (non zero)
>
0eec : 68 > pla ;load status
0eed : 48 > pha
> cmp_flag 0
0eee : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ef0 : d0fe > bne * ;failed not equal (non zero)
>
0ef2 : 28 > plp ;restore status
>
> set_a $aa-$dc,$ff
> load_flag $ff
0ef3 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0ef5 : 48 > pha ;use stack to load status
0ef6 : a9ce > lda #$aa-$dc ;precharge accu
0ef8 : 28 > plp
>
0ef9 : dc > db $dc ;test nop integrity - flags on
0efa : ea > nop
0efb : ea > nop
> tst_a $aa-$dc,$ff
0efc : 08 > php ;save flags
0efd : c9ce > cmp #$aa-$dc ;test result
> trap_ne
0eff : d0fe > bne * ;failed not equal (non zero)
>
0f01 : 68 > pla ;load status
0f02 : 48 > pha
> cmp_flag $ff
0f03 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f05 : d0fe > bne * ;failed not equal (non zero)
>
0f07 : 28 > plp ;restore status
>
0f08 : c042 > cpy #$42
> trap_ne ;y changed
0f0a : d0fe > bne * ;failed not equal (non zero)
>
0f0c : e000 > cpx #0
> trap_ne ;x changed
0f0e : d0fe > bne * ;failed not equal (non zero)
>
nop_test $fc,3
0f10 : a042 > ldy #$42
0f12 : a201 > ldx #4-3
0f14 : fc > db $fc ;test nop length
> if 3 = 1
> dex
> dex
> endif
> if 3 = 2
> iny
> dex
> endif
> if 3 = 3
0f15 : c8 > iny
0f16 : c8 > iny
> endif
0f17 : ca > dex
> trap_ne ;wrong number of bytes
0f18 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$fc,0
> load_flag 0
0f1a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0f1c : 48 > pha ;use stack to load status
0f1d : a903 > lda #$ff-$fc ;precharge accu
0f1f : 28 > plp
>
0f20 : fc > db $fc ;test nop integrity - flags off
0f21 : ea > nop
0f22 : ea > nop
> tst_a $ff-$fc,0
0f23 : 08 > php ;save flags
0f24 : c903 > cmp #$ff-$fc ;test result
> trap_ne
0f26 : d0fe > bne * ;failed not equal (non zero)
>
0f28 : 68 > pla ;load status
0f29 : 48 > pha
> cmp_flag 0
0f2a : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f2c : d0fe > bne * ;failed not equal (non zero)
>
0f2e : 28 > plp ;restore status
>
> set_a $aa-$fc,$ff
> load_flag $ff
0f2f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0f31 : 48 > pha ;use stack to load status
0f32 : a9ae > lda #$aa-$fc ;precharge accu
0f34 : 28 > plp
>
0f35 : fc > db $fc ;test nop integrity - flags on
0f36 : ea > nop
0f37 : ea > nop
> tst_a $aa-$fc,$ff
0f38 : 08 > php ;save flags
0f39 : c9ae > cmp #$aa-$fc ;test result
> trap_ne
0f3b : d0fe > bne * ;failed not equal (non zero)
>
0f3d : 68 > pla ;load status
0f3e : 48 > pha
> cmp_flag $ff
0f3f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f41 : d0fe > bne * ;failed not equal (non zero)
>
0f43 : 28 > plp ;restore status
>
0f44 : c042 > cpy #$42
> trap_ne ;y changed
0f46 : d0fe > bne * ;failed not equal (non zero)
>
0f48 : e000 > cpx #0
> trap_ne ;x changed
0f4a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $03,1
0f4c : a042 > ldy #$42
0f4e : a203 > ldx #4-1
0f50 : 03 > db $03 ;test nop length
> if 1 = 1
0f51 : ca > dex
0f52 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
0f53 : ca > dex
> trap_ne ;wrong number of bytes
0f54 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$03,0
> load_flag 0
0f56 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0f58 : 48 > pha ;use stack to load status
0f59 : a9fc > lda #$ff-$03 ;precharge accu
0f5b : 28 > plp
>
0f5c : 03 > db $03 ;test nop integrity - flags off
0f5d : ea > nop
0f5e : ea > nop
> tst_a $ff-$03,0
0f5f : 08 > php ;save flags
0f60 : c9fc > cmp #$ff-$03 ;test result
> trap_ne
0f62 : d0fe > bne * ;failed not equal (non zero)
>
0f64 : 68 > pla ;load status
0f65 : 48 > pha
> cmp_flag 0
0f66 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f68 : d0fe > bne * ;failed not equal (non zero)
>
0f6a : 28 > plp ;restore status
>
> set_a $aa-$03,$ff
> load_flag $ff
0f6b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0f6d : 48 > pha ;use stack to load status
0f6e : a9a7 > lda #$aa-$03 ;precharge accu
0f70 : 28 > plp
>
0f71 : 03 > db $03 ;test nop integrity - flags on
0f72 : ea > nop
0f73 : ea > nop
> tst_a $aa-$03,$ff
0f74 : 08 > php ;save flags
0f75 : c9a7 > cmp #$aa-$03 ;test result
> trap_ne
0f77 : d0fe > bne * ;failed not equal (non zero)
>
0f79 : 68 > pla ;load status
0f7a : 48 > pha
> cmp_flag $ff
0f7b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0f7d : d0fe > bne * ;failed not equal (non zero)
>
0f7f : 28 > plp ;restore status
>
0f80 : c042 > cpy #$42
> trap_ne ;y changed
0f82 : d0fe > bne * ;failed not equal (non zero)
>
0f84 : e000 > cpx #0
> trap_ne ;x changed
0f86 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $13,1
0f88 : a042 > ldy #$42
0f8a : a203 > ldx #4-1
0f8c : 13 > db $13 ;test nop length
> if 1 = 1
0f8d : ca > dex
0f8e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
0f8f : ca > dex
> trap_ne ;wrong number of bytes
0f90 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$13,0
> load_flag 0
0f92 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0f94 : 48 > pha ;use stack to load status
0f95 : a9ec > lda #$ff-$13 ;precharge accu
0f97 : 28 > plp
>
0f98 : 13 > db $13 ;test nop integrity - flags off
0f99 : ea > nop
0f9a : ea > nop
> tst_a $ff-$13,0
0f9b : 08 > php ;save flags
0f9c : c9ec > cmp #$ff-$13 ;test result
> trap_ne
0f9e : d0fe > bne * ;failed not equal (non zero)
>
0fa0 : 68 > pla ;load status
0fa1 : 48 > pha
> cmp_flag 0
0fa2 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0fa4 : d0fe > bne * ;failed not equal (non zero)
>
0fa6 : 28 > plp ;restore status
>
> set_a $aa-$13,$ff
> load_flag $ff
0fa7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0fa9 : 48 > pha ;use stack to load status
0faa : a997 > lda #$aa-$13 ;precharge accu
0fac : 28 > plp
>
0fad : 13 > db $13 ;test nop integrity - flags on
0fae : ea > nop
0faf : ea > nop
> tst_a $aa-$13,$ff
0fb0 : 08 > php ;save flags
0fb1 : c997 > cmp #$aa-$13 ;test result
> trap_ne
0fb3 : d0fe > bne * ;failed not equal (non zero)
>
0fb5 : 68 > pla ;load status
0fb6 : 48 > pha
> cmp_flag $ff
0fb7 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0fb9 : d0fe > bne * ;failed not equal (non zero)
>
0fbb : 28 > plp ;restore status
>
0fbc : c042 > cpy #$42
> trap_ne ;y changed
0fbe : d0fe > bne * ;failed not equal (non zero)
>
0fc0 : e000 > cpx #0
> trap_ne ;x changed
0fc2 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $23,1
0fc4 : a042 > ldy #$42
0fc6 : a203 > ldx #4-1
0fc8 : 23 > db $23 ;test nop length
> if 1 = 1
0fc9 : ca > dex
0fca : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
0fcb : ca > dex
> trap_ne ;wrong number of bytes
0fcc : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$23,0
> load_flag 0
0fce : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0fd0 : 48 > pha ;use stack to load status
0fd1 : a9dc > lda #$ff-$23 ;precharge accu
0fd3 : 28 > plp
>
0fd4 : 23 > db $23 ;test nop integrity - flags off
0fd5 : ea > nop
0fd6 : ea > nop
> tst_a $ff-$23,0
0fd7 : 08 > php ;save flags
0fd8 : c9dc > cmp #$ff-$23 ;test result
> trap_ne
0fda : d0fe > bne * ;failed not equal (non zero)
>
0fdc : 68 > pla ;load status
0fdd : 48 > pha
> cmp_flag 0
0fde : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0fe0 : d0fe > bne * ;failed not equal (non zero)
>
0fe2 : 28 > plp ;restore status
>
> set_a $aa-$23,$ff
> load_flag $ff
0fe3 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0fe5 : 48 > pha ;use stack to load status
0fe6 : a987 > lda #$aa-$23 ;precharge accu
0fe8 : 28 > plp
>
0fe9 : 23 > db $23 ;test nop integrity - flags on
0fea : ea > nop
0feb : ea > nop
> tst_a $aa-$23,$ff
0fec : 08 > php ;save flags
0fed : c987 > cmp #$aa-$23 ;test result
> trap_ne
0fef : d0fe > bne * ;failed not equal (non zero)
>
0ff1 : 68 > pla ;load status
0ff2 : 48 > pha
> cmp_flag $ff
0ff3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ff5 : d0fe > bne * ;failed not equal (non zero)
>
0ff7 : 28 > plp ;restore status
>
0ff8 : c042 > cpy #$42
> trap_ne ;y changed
0ffa : d0fe > bne * ;failed not equal (non zero)
>
0ffc : e000 > cpx #0
> trap_ne ;x changed
0ffe : d0fe > bne * ;failed not equal (non zero)
>
nop_test $33,1
1000 : a042 > ldy #$42
1002 : a203 > ldx #4-1
1004 : 33 > db $33 ;test nop length
> if 1 = 1
1005 : ca > dex
1006 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
1007 : ca > dex
> trap_ne ;wrong number of bytes
1008 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$33,0
> load_flag 0
100a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
100c : 48 > pha ;use stack to load status
100d : a9cc > lda #$ff-$33 ;precharge accu
100f : 28 > plp
>
1010 : 33 > db $33 ;test nop integrity - flags off
1011 : ea > nop
1012 : ea > nop
> tst_a $ff-$33,0
1013 : 08 > php ;save flags
1014 : c9cc > cmp #$ff-$33 ;test result
> trap_ne
1016 : d0fe > bne * ;failed not equal (non zero)
>
1018 : 68 > pla ;load status
1019 : 48 > pha
> cmp_flag 0
101a : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
101c : d0fe > bne * ;failed not equal (non zero)
>
101e : 28 > plp ;restore status
>
> set_a $aa-$33,$ff
> load_flag $ff
101f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1021 : 48 > pha ;use stack to load status
1022 : a977 > lda #$aa-$33 ;precharge accu
1024 : 28 > plp
>
1025 : 33 > db $33 ;test nop integrity - flags on
1026 : ea > nop
1027 : ea > nop
> tst_a $aa-$33,$ff
1028 : 08 > php ;save flags
1029 : c977 > cmp #$aa-$33 ;test result
> trap_ne
102b : d0fe > bne * ;failed not equal (non zero)
>
102d : 68 > pla ;load status
102e : 48 > pha
> cmp_flag $ff
102f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1031 : d0fe > bne * ;failed not equal (non zero)
>
1033 : 28 > plp ;restore status
>
1034 : c042 > cpy #$42
> trap_ne ;y changed
1036 : d0fe > bne * ;failed not equal (non zero)
>
1038 : e000 > cpx #0
> trap_ne ;x changed
103a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $43,1
103c : a042 > ldy #$42
103e : a203 > ldx #4-1
1040 : 43 > db $43 ;test nop length
> if 1 = 1
1041 : ca > dex
1042 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
1043 : ca > dex
> trap_ne ;wrong number of bytes
1044 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$43,0
> load_flag 0
1046 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1048 : 48 > pha ;use stack to load status
1049 : a9bc > lda #$ff-$43 ;precharge accu
104b : 28 > plp
>
104c : 43 > db $43 ;test nop integrity - flags off
104d : ea > nop
104e : ea > nop
> tst_a $ff-$43,0
104f : 08 > php ;save flags
1050 : c9bc > cmp #$ff-$43 ;test result
> trap_ne
1052 : d0fe > bne * ;failed not equal (non zero)
>
1054 : 68 > pla ;load status
1055 : 48 > pha
> cmp_flag 0
1056 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1058 : d0fe > bne * ;failed not equal (non zero)
>
105a : 28 > plp ;restore status
>
> set_a $aa-$43,$ff
> load_flag $ff
105b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
105d : 48 > pha ;use stack to load status
105e : a967 > lda #$aa-$43 ;precharge accu
1060 : 28 > plp
>
1061 : 43 > db $43 ;test nop integrity - flags on
1062 : ea > nop
1063 : ea > nop
> tst_a $aa-$43,$ff
1064 : 08 > php ;save flags
1065 : c967 > cmp #$aa-$43 ;test result
> trap_ne
1067 : d0fe > bne * ;failed not equal (non zero)
>
1069 : 68 > pla ;load status
106a : 48 > pha
> cmp_flag $ff
106b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
106d : d0fe > bne * ;failed not equal (non zero)
>
106f : 28 > plp ;restore status
>
1070 : c042 > cpy #$42
> trap_ne ;y changed
1072 : d0fe > bne * ;failed not equal (non zero)
>
1074 : e000 > cpx #0
> trap_ne ;x changed
1076 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $53,1
1078 : a042 > ldy #$42
107a : a203 > ldx #4-1
107c : 53 > db $53 ;test nop length
> if 1 = 1
107d : ca > dex
107e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
107f : ca > dex
> trap_ne ;wrong number of bytes
1080 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$53,0
> load_flag 0
1082 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1084 : 48 > pha ;use stack to load status
1085 : a9ac > lda #$ff-$53 ;precharge accu
1087 : 28 > plp
>
1088 : 53 > db $53 ;test nop integrity - flags off
1089 : ea > nop
108a : ea > nop
> tst_a $ff-$53,0
108b : 08 > php ;save flags
108c : c9ac > cmp #$ff-$53 ;test result
> trap_ne
108e : d0fe > bne * ;failed not equal (non zero)
>
1090 : 68 > pla ;load status
1091 : 48 > pha
> cmp_flag 0
1092 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1094 : d0fe > bne * ;failed not equal (non zero)
>
1096 : 28 > plp ;restore status
>
> set_a $aa-$53,$ff
> load_flag $ff
1097 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1099 : 48 > pha ;use stack to load status
109a : a957 > lda #$aa-$53 ;precharge accu
109c : 28 > plp
>
109d : 53 > db $53 ;test nop integrity - flags on
109e : ea > nop
109f : ea > nop
> tst_a $aa-$53,$ff
10a0 : 08 > php ;save flags
10a1 : c957 > cmp #$aa-$53 ;test result
> trap_ne
10a3 : d0fe > bne * ;failed not equal (non zero)
>
10a5 : 68 > pla ;load status
10a6 : 48 > pha
> cmp_flag $ff
10a7 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
10a9 : d0fe > bne * ;failed not equal (non zero)
>
10ab : 28 > plp ;restore status
>
10ac : c042 > cpy #$42
> trap_ne ;y changed
10ae : d0fe > bne * ;failed not equal (non zero)
>
10b0 : e000 > cpx #0
> trap_ne ;x changed
10b2 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $63,1
10b4 : a042 > ldy #$42
10b6 : a203 > ldx #4-1
10b8 : 63 > db $63 ;test nop length
> if 1 = 1
10b9 : ca > dex
10ba : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
10bb : ca > dex
> trap_ne ;wrong number of bytes
10bc : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$63,0
> load_flag 0
10be : a900 > lda #0 ;allow test to change I-flag (no mask)
>
10c0 : 48 > pha ;use stack to load status
10c1 : a99c > lda #$ff-$63 ;precharge accu
10c3 : 28 > plp
>
10c4 : 63 > db $63 ;test nop integrity - flags off
10c5 : ea > nop
10c6 : ea > nop
> tst_a $ff-$63,0
10c7 : 08 > php ;save flags
10c8 : c99c > cmp #$ff-$63 ;test result
> trap_ne
10ca : d0fe > bne * ;failed not equal (non zero)
>
10cc : 68 > pla ;load status
10cd : 48 > pha
> cmp_flag 0
10ce : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
10d0 : d0fe > bne * ;failed not equal (non zero)
>
10d2 : 28 > plp ;restore status
>
> set_a $aa-$63,$ff
> load_flag $ff
10d3 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
10d5 : 48 > pha ;use stack to load status
10d6 : a947 > lda #$aa-$63 ;precharge accu
10d8 : 28 > plp
>
10d9 : 63 > db $63 ;test nop integrity - flags on
10da : ea > nop
10db : ea > nop
> tst_a $aa-$63,$ff
10dc : 08 > php ;save flags
10dd : c947 > cmp #$aa-$63 ;test result
> trap_ne
10df : d0fe > bne * ;failed not equal (non zero)
>
10e1 : 68 > pla ;load status
10e2 : 48 > pha
> cmp_flag $ff
10e3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
10e5 : d0fe > bne * ;failed not equal (non zero)
>
10e7 : 28 > plp ;restore status
>
10e8 : c042 > cpy #$42
> trap_ne ;y changed
10ea : d0fe > bne * ;failed not equal (non zero)
>
10ec : e000 > cpx #0
> trap_ne ;x changed
10ee : d0fe > bne * ;failed not equal (non zero)
>
nop_test $73,1
10f0 : a042 > ldy #$42
10f2 : a203 > ldx #4-1
10f4 : 73 > db $73 ;test nop length
> if 1 = 1
10f5 : ca > dex
10f6 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
10f7 : ca > dex
> trap_ne ;wrong number of bytes
10f8 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$73,0
> load_flag 0
10fa : a900 > lda #0 ;allow test to change I-flag (no mask)
>
10fc : 48 > pha ;use stack to load status
10fd : a98c > lda #$ff-$73 ;precharge accu
10ff : 28 > plp
>
1100 : 73 > db $73 ;test nop integrity - flags off
1101 : ea > nop
1102 : ea > nop
> tst_a $ff-$73,0
1103 : 08 > php ;save flags
1104 : c98c > cmp #$ff-$73 ;test result
> trap_ne
1106 : d0fe > bne * ;failed not equal (non zero)
>
1108 : 68 > pla ;load status
1109 : 48 > pha
> cmp_flag 0
110a : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
110c : d0fe > bne * ;failed not equal (non zero)
>
110e : 28 > plp ;restore status
>
> set_a $aa-$73,$ff
> load_flag $ff
110f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1111 : 48 > pha ;use stack to load status
1112 : a937 > lda #$aa-$73 ;precharge accu
1114 : 28 > plp
>
1115 : 73 > db $73 ;test nop integrity - flags on
1116 : ea > nop
1117 : ea > nop
> tst_a $aa-$73,$ff
1118 : 08 > php ;save flags
1119 : c937 > cmp #$aa-$73 ;test result
> trap_ne
111b : d0fe > bne * ;failed not equal (non zero)
>
111d : 68 > pla ;load status
111e : 48 > pha
> cmp_flag $ff
111f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1121 : d0fe > bne * ;failed not equal (non zero)
>
1123 : 28 > plp ;restore status
>
1124 : c042 > cpy #$42
> trap_ne ;y changed
1126 : d0fe > bne * ;failed not equal (non zero)
>
1128 : e000 > cpx #0
> trap_ne ;x changed
112a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $83,1
112c : a042 > ldy #$42
112e : a203 > ldx #4-1
1130 : 83 > db $83 ;test nop length
> if 1 = 1
1131 : ca > dex
1132 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
1133 : ca > dex
> trap_ne ;wrong number of bytes
1134 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$83,0
> load_flag 0
1136 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1138 : 48 > pha ;use stack to load status
1139 : a97c > lda #$ff-$83 ;precharge accu
113b : 28 > plp
>
113c : 83 > db $83 ;test nop integrity - flags off
113d : ea > nop
113e : ea > nop
> tst_a $ff-$83,0
113f : 08 > php ;save flags
1140 : c97c > cmp #$ff-$83 ;test result
> trap_ne
1142 : d0fe > bne * ;failed not equal (non zero)
>
1144 : 68 > pla ;load status
1145 : 48 > pha
> cmp_flag 0
1146 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1148 : d0fe > bne * ;failed not equal (non zero)
>
114a : 28 > plp ;restore status
>
> set_a $aa-$83,$ff
> load_flag $ff
114b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
114d : 48 > pha ;use stack to load status
114e : a927 > lda #$aa-$83 ;precharge accu
1150 : 28 > plp
>
1151 : 83 > db $83 ;test nop integrity - flags on
1152 : ea > nop
1153 : ea > nop
> tst_a $aa-$83,$ff
1154 : 08 > php ;save flags
1155 : c927 > cmp #$aa-$83 ;test result
> trap_ne
1157 : d0fe > bne * ;failed not equal (non zero)
>
1159 : 68 > pla ;load status
115a : 48 > pha
> cmp_flag $ff
115b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
115d : d0fe > bne * ;failed not equal (non zero)
>
115f : 28 > plp ;restore status
>
1160 : c042 > cpy #$42
> trap_ne ;y changed
1162 : d0fe > bne * ;failed not equal (non zero)
>
1164 : e000 > cpx #0
> trap_ne ;x changed
1166 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $93,1
1168 : a042 > ldy #$42
116a : a203 > ldx #4-1
116c : 93 > db $93 ;test nop length
> if 1 = 1
116d : ca > dex
116e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
116f : ca > dex
> trap_ne ;wrong number of bytes
1170 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$93,0
> load_flag 0
1172 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1174 : 48 > pha ;use stack to load status
1175 : a96c > lda #$ff-$93 ;precharge accu
1177 : 28 > plp
>
1178 : 93 > db $93 ;test nop integrity - flags off
1179 : ea > nop
117a : ea > nop
> tst_a $ff-$93,0
117b : 08 > php ;save flags
117c : c96c > cmp #$ff-$93 ;test result
> trap_ne
117e : d0fe > bne * ;failed not equal (non zero)
>
1180 : 68 > pla ;load status
1181 : 48 > pha
> cmp_flag 0
1182 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1184 : d0fe > bne * ;failed not equal (non zero)
>
1186 : 28 > plp ;restore status
>
> set_a $aa-$93,$ff
> load_flag $ff
1187 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1189 : 48 > pha ;use stack to load status
118a : a917 > lda #$aa-$93 ;precharge accu
118c : 28 > plp
>
118d : 93 > db $93 ;test nop integrity - flags on
118e : ea > nop
118f : ea > nop
> tst_a $aa-$93,$ff
1190 : 08 > php ;save flags
1191 : c917 > cmp #$aa-$93 ;test result
> trap_ne
1193 : d0fe > bne * ;failed not equal (non zero)
>
1195 : 68 > pla ;load status
1196 : 48 > pha
> cmp_flag $ff
1197 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1199 : d0fe > bne * ;failed not equal (non zero)
>
119b : 28 > plp ;restore status
>
119c : c042 > cpy #$42
> trap_ne ;y changed
119e : d0fe > bne * ;failed not equal (non zero)
>
11a0 : e000 > cpx #0
> trap_ne ;x changed
11a2 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $a3,1
11a4 : a042 > ldy #$42
11a6 : a203 > ldx #4-1
11a8 : a3 > db $a3 ;test nop length
> if 1 = 1
11a9 : ca > dex
11aa : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
11ab : ca > dex
> trap_ne ;wrong number of bytes
11ac : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$a3,0
> load_flag 0
11ae : a900 > lda #0 ;allow test to change I-flag (no mask)
>
11b0 : 48 > pha ;use stack to load status
11b1 : a95c > lda #$ff-$a3 ;precharge accu
11b3 : 28 > plp
>
11b4 : a3 > db $a3 ;test nop integrity - flags off
11b5 : ea > nop
11b6 : ea > nop
> tst_a $ff-$a3,0
11b7 : 08 > php ;save flags
11b8 : c95c > cmp #$ff-$a3 ;test result
> trap_ne
11ba : d0fe > bne * ;failed not equal (non zero)
>
11bc : 68 > pla ;load status
11bd : 48 > pha
> cmp_flag 0
11be : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
11c0 : d0fe > bne * ;failed not equal (non zero)
>
11c2 : 28 > plp ;restore status
>
> set_a $aa-$a3,$ff
> load_flag $ff
11c3 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
11c5 : 48 > pha ;use stack to load status
11c6 : a907 > lda #$aa-$a3 ;precharge accu
11c8 : 28 > plp
>
11c9 : a3 > db $a3 ;test nop integrity - flags on
11ca : ea > nop
11cb : ea > nop
> tst_a $aa-$a3,$ff
11cc : 08 > php ;save flags
11cd : c907 > cmp #$aa-$a3 ;test result
> trap_ne
11cf : d0fe > bne * ;failed not equal (non zero)
>
11d1 : 68 > pla ;load status
11d2 : 48 > pha
> cmp_flag $ff
11d3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
11d5 : d0fe > bne * ;failed not equal (non zero)
>
11d7 : 28 > plp ;restore status
>
11d8 : c042 > cpy #$42
> trap_ne ;y changed
11da : d0fe > bne * ;failed not equal (non zero)
>
11dc : e000 > cpx #0
> trap_ne ;x changed
11de : d0fe > bne * ;failed not equal (non zero)
>
nop_test $b3,1
11e0 : a042 > ldy #$42
11e2 : a203 > ldx #4-1
11e4 : b3 > db $b3 ;test nop length
> if 1 = 1
11e5 : ca > dex
11e6 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
11e7 : ca > dex
> trap_ne ;wrong number of bytes
11e8 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$b3,0
> load_flag 0
11ea : a900 > lda #0 ;allow test to change I-flag (no mask)
>
11ec : 48 > pha ;use stack to load status
11ed : a94c > lda #$ff-$b3 ;precharge accu
11ef : 28 > plp
>
11f0 : b3 > db $b3 ;test nop integrity - flags off
11f1 : ea > nop
11f2 : ea > nop
> tst_a $ff-$b3,0
11f3 : 08 > php ;save flags
11f4 : c94c > cmp #$ff-$b3 ;test result
> trap_ne
11f6 : d0fe > bne * ;failed not equal (non zero)
>
11f8 : 68 > pla ;load status
11f9 : 48 > pha
> cmp_flag 0
11fa : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
11fc : d0fe > bne * ;failed not equal (non zero)
>
11fe : 28 > plp ;restore status
>
> set_a $aa-$b3,$ff
> load_flag $ff
11ff : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1201 : 48 > pha ;use stack to load status
1202 : a9f7 > lda #$aa-$b3 ;precharge accu
1204 : 28 > plp
>
1205 : b3 > db $b3 ;test nop integrity - flags on
1206 : ea > nop
1207 : ea > nop
> tst_a $aa-$b3,$ff
1208 : 08 > php ;save flags
1209 : c9f7 > cmp #$aa-$b3 ;test result
> trap_ne
120b : d0fe > bne * ;failed not equal (non zero)
>
120d : 68 > pla ;load status
120e : 48 > pha
> cmp_flag $ff
120f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1211 : d0fe > bne * ;failed not equal (non zero)
>
1213 : 28 > plp ;restore status
>
1214 : c042 > cpy #$42
> trap_ne ;y changed
1216 : d0fe > bne * ;failed not equal (non zero)
>
1218 : e000 > cpx #0
> trap_ne ;x changed
121a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $c3,1
121c : a042 > ldy #$42
121e : a203 > ldx #4-1
1220 : c3 > db $c3 ;test nop length
> if 1 = 1
1221 : ca > dex
1222 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
1223 : ca > dex
> trap_ne ;wrong number of bytes
1224 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$c3,0
> load_flag 0
1226 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1228 : 48 > pha ;use stack to load status
1229 : a93c > lda #$ff-$c3 ;precharge accu
122b : 28 > plp
>
122c : c3 > db $c3 ;test nop integrity - flags off
122d : ea > nop
122e : ea > nop
> tst_a $ff-$c3,0
122f : 08 > php ;save flags
1230 : c93c > cmp #$ff-$c3 ;test result
> trap_ne
1232 : d0fe > bne * ;failed not equal (non zero)
>
1234 : 68 > pla ;load status
1235 : 48 > pha
> cmp_flag 0
1236 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1238 : d0fe > bne * ;failed not equal (non zero)
>
123a : 28 > plp ;restore status
>
> set_a $aa-$c3,$ff
> load_flag $ff
123b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
123d : 48 > pha ;use stack to load status
123e : a9e7 > lda #$aa-$c3 ;precharge accu
1240 : 28 > plp
>
1241 : c3 > db $c3 ;test nop integrity - flags on
1242 : ea > nop
1243 : ea > nop
> tst_a $aa-$c3,$ff
1244 : 08 > php ;save flags
1245 : c9e7 > cmp #$aa-$c3 ;test result
> trap_ne
1247 : d0fe > bne * ;failed not equal (non zero)
>
1249 : 68 > pla ;load status
124a : 48 > pha
> cmp_flag $ff
124b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
124d : d0fe > bne * ;failed not equal (non zero)
>
124f : 28 > plp ;restore status
>
1250 : c042 > cpy #$42
> trap_ne ;y changed
1252 : d0fe > bne * ;failed not equal (non zero)
>
1254 : e000 > cpx #0
> trap_ne ;x changed
1256 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $d3,1
1258 : a042 > ldy #$42
125a : a203 > ldx #4-1
125c : d3 > db $d3 ;test nop length
> if 1 = 1
125d : ca > dex
125e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
125f : ca > dex
> trap_ne ;wrong number of bytes
1260 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$d3,0
> load_flag 0
1262 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1264 : 48 > pha ;use stack to load status
1265 : a92c > lda #$ff-$d3 ;precharge accu
1267 : 28 > plp
>
1268 : d3 > db $d3 ;test nop integrity - flags off
1269 : ea > nop
126a : ea > nop
> tst_a $ff-$d3,0
126b : 08 > php ;save flags
126c : c92c > cmp #$ff-$d3 ;test result
> trap_ne
126e : d0fe > bne * ;failed not equal (non zero)
>
1270 : 68 > pla ;load status
1271 : 48 > pha
> cmp_flag 0
1272 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1274 : d0fe > bne * ;failed not equal (non zero)
>
1276 : 28 > plp ;restore status
>
> set_a $aa-$d3,$ff
> load_flag $ff
1277 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1279 : 48 > pha ;use stack to load status
127a : a9d7 > lda #$aa-$d3 ;precharge accu
127c : 28 > plp
>
127d : d3 > db $d3 ;test nop integrity - flags on
127e : ea > nop
127f : ea > nop
> tst_a $aa-$d3,$ff
1280 : 08 > php ;save flags
1281 : c9d7 > cmp #$aa-$d3 ;test result
> trap_ne
1283 : d0fe > bne * ;failed not equal (non zero)
>
1285 : 68 > pla ;load status
1286 : 48 > pha
> cmp_flag $ff
1287 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1289 : d0fe > bne * ;failed not equal (non zero)
>
128b : 28 > plp ;restore status
>
128c : c042 > cpy #$42
> trap_ne ;y changed
128e : d0fe > bne * ;failed not equal (non zero)
>
1290 : e000 > cpx #0
> trap_ne ;x changed
1292 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $e3,1
1294 : a042 > ldy #$42
1296 : a203 > ldx #4-1
1298 : e3 > db $e3 ;test nop length
> if 1 = 1
1299 : ca > dex
129a : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
129b : ca > dex
> trap_ne ;wrong number of bytes
129c : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$e3,0
> load_flag 0
129e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
12a0 : 48 > pha ;use stack to load status
12a1 : a91c > lda #$ff-$e3 ;precharge accu
12a3 : 28 > plp
>
12a4 : e3 > db $e3 ;test nop integrity - flags off
12a5 : ea > nop
12a6 : ea > nop
> tst_a $ff-$e3,0
12a7 : 08 > php ;save flags
12a8 : c91c > cmp #$ff-$e3 ;test result
> trap_ne
12aa : d0fe > bne * ;failed not equal (non zero)
>
12ac : 68 > pla ;load status
12ad : 48 > pha
> cmp_flag 0
12ae : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
12b0 : d0fe > bne * ;failed not equal (non zero)
>
12b2 : 28 > plp ;restore status
>
> set_a $aa-$e3,$ff
> load_flag $ff
12b3 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
12b5 : 48 > pha ;use stack to load status
12b6 : a9c7 > lda #$aa-$e3 ;precharge accu
12b8 : 28 > plp
>
12b9 : e3 > db $e3 ;test nop integrity - flags on
12ba : ea > nop
12bb : ea > nop
> tst_a $aa-$e3,$ff
12bc : 08 > php ;save flags
12bd : c9c7 > cmp #$aa-$e3 ;test result
> trap_ne
12bf : d0fe > bne * ;failed not equal (non zero)
>
12c1 : 68 > pla ;load status
12c2 : 48 > pha
> cmp_flag $ff
12c3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
12c5 : d0fe > bne * ;failed not equal (non zero)
>
12c7 : 28 > plp ;restore status
>
12c8 : c042 > cpy #$42
> trap_ne ;y changed
12ca : d0fe > bne * ;failed not equal (non zero)
>
12cc : e000 > cpx #0
> trap_ne ;x changed
12ce : d0fe > bne * ;failed not equal (non zero)
>
nop_test $f3,1
12d0 : a042 > ldy #$42
12d2 : a203 > ldx #4-1
12d4 : f3 > db $f3 ;test nop length
> if 1 = 1
12d5 : ca > dex
12d6 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
12d7 : ca > dex
> trap_ne ;wrong number of bytes
12d8 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$f3,0
> load_flag 0
12da : a900 > lda #0 ;allow test to change I-flag (no mask)
>
12dc : 48 > pha ;use stack to load status
12dd : a90c > lda #$ff-$f3 ;precharge accu
12df : 28 > plp
>
12e0 : f3 > db $f3 ;test nop integrity - flags off
12e1 : ea > nop
12e2 : ea > nop
> tst_a $ff-$f3,0
12e3 : 08 > php ;save flags
12e4 : c90c > cmp #$ff-$f3 ;test result
> trap_ne
12e6 : d0fe > bne * ;failed not equal (non zero)
>
12e8 : 68 > pla ;load status
12e9 : 48 > pha
> cmp_flag 0
12ea : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
12ec : d0fe > bne * ;failed not equal (non zero)
>
12ee : 28 > plp ;restore status
>
> set_a $aa-$f3,$ff
> load_flag $ff
12ef : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
12f1 : 48 > pha ;use stack to load status
12f2 : a9b7 > lda #$aa-$f3 ;precharge accu
12f4 : 28 > plp
>
12f5 : f3 > db $f3 ;test nop integrity - flags on
12f6 : ea > nop
12f7 : ea > nop
> tst_a $aa-$f3,$ff
12f8 : 08 > php ;save flags
12f9 : c9b7 > cmp #$aa-$f3 ;test result
> trap_ne
12fb : d0fe > bne * ;failed not equal (non zero)
>
12fd : 68 > pla ;load status
12fe : 48 > pha
> cmp_flag $ff
12ff : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1301 : d0fe > bne * ;failed not equal (non zero)
>
1303 : 28 > plp ;restore status
>
1304 : c042 > cpy #$42
> trap_ne ;y changed
1306 : d0fe > bne * ;failed not equal (non zero)
>
1308 : e000 > cpx #0
> trap_ne ;x changed
130a : d0fe > bne * ;failed not equal (non zero)
>
nop_test $0b,1
130c : a042 > ldy #$42
130e : a203 > ldx #4-1
1310 : 0b > db $0b ;test nop length
> if 1 = 1
1311 : ca > dex
1312 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
1313 : ca > dex
> trap_ne ;wrong number of bytes
1314 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$0b,0
> load_flag 0
1316 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1318 : 48 > pha ;use stack to load status
1319 : a9f4 > lda #$ff-$0b ;precharge accu
131b : 28 > plp
>
131c : 0b > db $0b ;test nop integrity - flags off
131d : ea > nop
131e : ea > nop
> tst_a $ff-$0b,0
131f : 08 > php ;save flags
1320 : c9f4 > cmp #$ff-$0b ;test result
> trap_ne
1322 : d0fe > bne * ;failed not equal (non zero)
>
1324 : 68 > pla ;load status
1325 : 48 > pha
> cmp_flag 0
1326 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1328 : d0fe > bne * ;failed not equal (non zero)
>
132a : 28 > plp ;restore status
>
> set_a $aa-$0b,$ff
> load_flag $ff
132b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
132d : 48 > pha ;use stack to load status
132e : a99f > lda #$aa-$0b ;precharge accu
1330 : 28 > plp
>
1331 : 0b > db $0b ;test nop integrity - flags on
1332 : ea > nop
1333 : ea > nop
> tst_a $aa-$0b,$ff
1334 : 08 > php ;save flags
1335 : c99f > cmp #$aa-$0b ;test result
> trap_ne
1337 : d0fe > bne * ;failed not equal (non zero)
>
1339 : 68 > pla ;load status
133a : 48 > pha
> cmp_flag $ff
133b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
133d : d0fe > bne * ;failed not equal (non zero)
>
133f : 28 > plp ;restore status
>
1340 : c042 > cpy #$42
> trap_ne ;y changed
1342 : d0fe > bne * ;failed not equal (non zero)
>
1344 : e000 > cpx #0
> trap_ne ;x changed
1346 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $1b,1
1348 : a042 > ldy #$42
134a : a203 > ldx #4-1
134c : 1b > db $1b ;test nop length
> if 1 = 1
134d : ca > dex
134e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
134f : ca > dex
> trap_ne ;wrong number of bytes
1350 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$1b,0
> load_flag 0
1352 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1354 : 48 > pha ;use stack to load status
1355 : a9e4 > lda #$ff-$1b ;precharge accu
1357 : 28 > plp
>
1358 : 1b > db $1b ;test nop integrity - flags off
1359 : ea > nop
135a : ea > nop
> tst_a $ff-$1b,0
135b : 08 > php ;save flags
135c : c9e4 > cmp #$ff-$1b ;test result
> trap_ne
135e : d0fe > bne * ;failed not equal (non zero)
>
1360 : 68 > pla ;load status
1361 : 48 > pha
> cmp_flag 0
1362 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1364 : d0fe > bne * ;failed not equal (non zero)
>
1366 : 28 > plp ;restore status
>
> set_a $aa-$1b,$ff
> load_flag $ff
1367 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1369 : 48 > pha ;use stack to load status
136a : a98f > lda #$aa-$1b ;precharge accu
136c : 28 > plp
>
136d : 1b > db $1b ;test nop integrity - flags on
136e : ea > nop
136f : ea > nop
> tst_a $aa-$1b,$ff
1370 : 08 > php ;save flags
1371 : c98f > cmp #$aa-$1b ;test result
> trap_ne
1373 : d0fe > bne * ;failed not equal (non zero)
>
1375 : 68 > pla ;load status
1376 : 48 > pha
> cmp_flag $ff
1377 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1379 : d0fe > bne * ;failed not equal (non zero)
>
137b : 28 > plp ;restore status
>
137c : c042 > cpy #$42
> trap_ne ;y changed
137e : d0fe > bne * ;failed not equal (non zero)
>
1380 : e000 > cpx #0
> trap_ne ;x changed
1382 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $2b,1
1384 : a042 > ldy #$42
1386 : a203 > ldx #4-1
1388 : 2b > db $2b ;test nop length
> if 1 = 1
1389 : ca > dex
138a : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
138b : ca > dex
> trap_ne ;wrong number of bytes
138c : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$2b,0
> load_flag 0
138e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1390 : 48 > pha ;use stack to load status
1391 : a9d4 > lda #$ff-$2b ;precharge accu
1393 : 28 > plp
>
1394 : 2b > db $2b ;test nop integrity - flags off
1395 : ea > nop
1396 : ea > nop
> tst_a $ff-$2b,0
1397 : 08 > php ;save flags
1398 : c9d4 > cmp #$ff-$2b ;test result
> trap_ne
139a : d0fe > bne * ;failed not equal (non zero)
>
139c : 68 > pla ;load status
139d : 48 > pha
> cmp_flag 0
139e : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
13a0 : d0fe > bne * ;failed not equal (non zero)
>
13a2 : 28 > plp ;restore status
>
> set_a $aa-$2b,$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 : a97f > lda #$aa-$2b ;precharge accu
13a8 : 28 > plp
>
13a9 : 2b > db $2b ;test nop integrity - flags on
13aa : ea > nop
13ab : ea > nop
> tst_a $aa-$2b,$ff
13ac : 08 > php ;save flags
13ad : c97f > cmp #$aa-$2b ;test result
> trap_ne
13af : d0fe > bne * ;failed not equal (non zero)
>
13b1 : 68 > pla ;load status
13b2 : 48 > pha
> cmp_flag $ff
13b3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
13b5 : d0fe > bne * ;failed not equal (non zero)
>
13b7 : 28 > plp ;restore status
>
13b8 : c042 > cpy #$42
> trap_ne ;y changed
13ba : d0fe > bne * ;failed not equal (non zero)
>
13bc : e000 > cpx #0
> trap_ne ;x changed
13be : d0fe > bne * ;failed not equal (non zero)
>
nop_test $3b,1
13c0 : a042 > ldy #$42
13c2 : a203 > ldx #4-1
13c4 : 3b > db $3b ;test nop length
> if 1 = 1
13c5 : ca > dex
13c6 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
13c7 : ca > dex
> trap_ne ;wrong number of bytes
13c8 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$3b,0
> load_flag 0
13ca : a900 > lda #0 ;allow test to change I-flag (no mask)
>
13cc : 48 > pha ;use stack to load status
13cd : a9c4 > lda #$ff-$3b ;precharge accu
13cf : 28 > plp
>
13d0 : 3b > db $3b ;test nop integrity - flags off
13d1 : ea > nop
13d2 : ea > nop
> tst_a $ff-$3b,0
13d3 : 08 > php ;save flags
13d4 : c9c4 > cmp #$ff-$3b ;test result
> trap_ne
13d6 : d0fe > bne * ;failed not equal (non zero)
>
13d8 : 68 > pla ;load status
13d9 : 48 > pha
> cmp_flag 0
13da : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
13dc : d0fe > bne * ;failed not equal (non zero)
>
13de : 28 > plp ;restore status
>
> set_a $aa-$3b,$ff
> load_flag $ff
13df : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
13e1 : 48 > pha ;use stack to load status
13e2 : a96f > lda #$aa-$3b ;precharge accu
13e4 : 28 > plp
>
13e5 : 3b > db $3b ;test nop integrity - flags on
13e6 : ea > nop
13e7 : ea > nop
> tst_a $aa-$3b,$ff
13e8 : 08 > php ;save flags
13e9 : c96f > cmp #$aa-$3b ;test result
> trap_ne
13eb : d0fe > bne * ;failed not equal (non zero)
>
13ed : 68 > pla ;load status
13ee : 48 > pha
> cmp_flag $ff
13ef : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
13f1 : d0fe > bne * ;failed not equal (non zero)
>
13f3 : 28 > plp ;restore status
>
13f4 : c042 > cpy #$42
> trap_ne ;y changed
13f6 : d0fe > bne * ;failed not equal (non zero)
>
13f8 : e000 > cpx #0
> trap_ne ;x changed
13fa : d0fe > bne * ;failed not equal (non zero)
>
nop_test $4b,1
13fc : a042 > ldy #$42
13fe : a203 > ldx #4-1
1400 : 4b > db $4b ;test nop length
> if 1 = 1
1401 : ca > dex
1402 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
1403 : ca > dex
> trap_ne ;wrong number of bytes
1404 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$4b,0
> load_flag 0
1406 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1408 : 48 > pha ;use stack to load status
1409 : a9b4 > lda #$ff-$4b ;precharge accu
140b : 28 > plp
>
140c : 4b > db $4b ;test nop integrity - flags off
140d : ea > nop
140e : ea > nop
> tst_a $ff-$4b,0
140f : 08 > php ;save flags
1410 : c9b4 > cmp #$ff-$4b ;test result
> trap_ne
1412 : d0fe > bne * ;failed not equal (non zero)
>
1414 : 68 > pla ;load status
1415 : 48 > pha
> cmp_flag 0
1416 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1418 : d0fe > bne * ;failed not equal (non zero)
>
141a : 28 > plp ;restore status
>
> set_a $aa-$4b,$ff
> load_flag $ff
141b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
141d : 48 > pha ;use stack to load status
141e : a95f > lda #$aa-$4b ;precharge accu
1420 : 28 > plp
>
1421 : 4b > db $4b ;test nop integrity - flags on
1422 : ea > nop
1423 : ea > nop
> tst_a $aa-$4b,$ff
1424 : 08 > php ;save flags
1425 : c95f > cmp #$aa-$4b ;test result
> trap_ne
1427 : d0fe > bne * ;failed not equal (non zero)
>
1429 : 68 > pla ;load status
142a : 48 > pha
> cmp_flag $ff
142b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
142d : d0fe > bne * ;failed not equal (non zero)
>
142f : 28 > plp ;restore status
>
1430 : c042 > cpy #$42
> trap_ne ;y changed
1432 : d0fe > bne * ;failed not equal (non zero)
>
1434 : e000 > cpx #0
> trap_ne ;x changed
1436 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $5b,1
1438 : a042 > ldy #$42
143a : a203 > ldx #4-1
143c : 5b > db $5b ;test nop length
> if 1 = 1
143d : ca > dex
143e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
143f : ca > dex
> trap_ne ;wrong number of bytes
1440 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$5b,0
> load_flag 0
1442 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1444 : 48 > pha ;use stack to load status
1445 : a9a4 > lda #$ff-$5b ;precharge accu
1447 : 28 > plp
>
1448 : 5b > db $5b ;test nop integrity - flags off
1449 : ea > nop
144a : ea > nop
> tst_a $ff-$5b,0
144b : 08 > php ;save flags
144c : c9a4 > cmp #$ff-$5b ;test result
> trap_ne
144e : d0fe > bne * ;failed not equal (non zero)
>
1450 : 68 > pla ;load status
1451 : 48 > pha
> cmp_flag 0
1452 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1454 : d0fe > bne * ;failed not equal (non zero)
>
1456 : 28 > plp ;restore status
>
> set_a $aa-$5b,$ff
> load_flag $ff
1457 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1459 : 48 > pha ;use stack to load status
145a : a94f > lda #$aa-$5b ;precharge accu
145c : 28 > plp
>
145d : 5b > db $5b ;test nop integrity - flags on
145e : ea > nop
145f : ea > nop
> tst_a $aa-$5b,$ff
1460 : 08 > php ;save flags
1461 : c94f > cmp #$aa-$5b ;test result
> trap_ne
1463 : d0fe > bne * ;failed not equal (non zero)
>
1465 : 68 > pla ;load status
1466 : 48 > pha
> cmp_flag $ff
1467 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1469 : d0fe > bne * ;failed not equal (non zero)
>
146b : 28 > plp ;restore status
>
146c : c042 > cpy #$42
> trap_ne ;y changed
146e : d0fe > bne * ;failed not equal (non zero)
>
1470 : e000 > cpx #0
> trap_ne ;x changed
1472 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $6b,1
1474 : a042 > ldy #$42
1476 : a203 > ldx #4-1
1478 : 6b > db $6b ;test nop length
> if 1 = 1
1479 : ca > dex
147a : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
147b : ca > dex
> trap_ne ;wrong number of bytes
147c : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$6b,0
> load_flag 0
147e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1480 : 48 > pha ;use stack to load status
1481 : a994 > lda #$ff-$6b ;precharge accu
1483 : 28 > plp
>
1484 : 6b > db $6b ;test nop integrity - flags off
1485 : ea > nop
1486 : ea > nop
> tst_a $ff-$6b,0
1487 : 08 > php ;save flags
1488 : c994 > cmp #$ff-$6b ;test result
> trap_ne
148a : d0fe > bne * ;failed not equal (non zero)
>
148c : 68 > pla ;load status
148d : 48 > pha
> cmp_flag 0
148e : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1490 : d0fe > bne * ;failed not equal (non zero)
>
1492 : 28 > plp ;restore status
>
> set_a $aa-$6b,$ff
> load_flag $ff
1493 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1495 : 48 > pha ;use stack to load status
1496 : a93f > lda #$aa-$6b ;precharge accu
1498 : 28 > plp
>
1499 : 6b > db $6b ;test nop integrity - flags on
149a : ea > nop
149b : ea > nop
> tst_a $aa-$6b,$ff
149c : 08 > php ;save flags
149d : c93f > cmp #$aa-$6b ;test result
> trap_ne
149f : d0fe > bne * ;failed not equal (non zero)
>
14a1 : 68 > pla ;load status
14a2 : 48 > pha
> cmp_flag $ff
14a3 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
14a5 : d0fe > bne * ;failed not equal (non zero)
>
14a7 : 28 > plp ;restore status
>
14a8 : c042 > cpy #$42
> trap_ne ;y changed
14aa : d0fe > bne * ;failed not equal (non zero)
>
14ac : e000 > cpx #0
> trap_ne ;x changed
14ae : d0fe > bne * ;failed not equal (non zero)
>
nop_test $7b,1
14b0 : a042 > ldy #$42
14b2 : a203 > ldx #4-1
14b4 : 7b > db $7b ;test nop length
> if 1 = 1
14b5 : ca > dex
14b6 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
14b7 : ca > dex
> trap_ne ;wrong number of bytes
14b8 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$7b,0
> load_flag 0
14ba : a900 > lda #0 ;allow test to change I-flag (no mask)
>
14bc : 48 > pha ;use stack to load status
14bd : a984 > lda #$ff-$7b ;precharge accu
14bf : 28 > plp
>
14c0 : 7b > db $7b ;test nop integrity - flags off
14c1 : ea > nop
14c2 : ea > nop
> tst_a $ff-$7b,0
14c3 : 08 > php ;save flags
14c4 : c984 > cmp #$ff-$7b ;test result
> trap_ne
14c6 : d0fe > bne * ;failed not equal (non zero)
>
14c8 : 68 > pla ;load status
14c9 : 48 > pha
> cmp_flag 0
14ca : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
14cc : d0fe > bne * ;failed not equal (non zero)
>
14ce : 28 > plp ;restore status
>
> set_a $aa-$7b,$ff
> load_flag $ff
14cf : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
14d1 : 48 > pha ;use stack to load status
14d2 : a92f > lda #$aa-$7b ;precharge accu
14d4 : 28 > plp
>
14d5 : 7b > db $7b ;test nop integrity - flags on
14d6 : ea > nop
14d7 : ea > nop
> tst_a $aa-$7b,$ff
14d8 : 08 > php ;save flags
14d9 : c92f > cmp #$aa-$7b ;test result
> trap_ne
14db : d0fe > bne * ;failed not equal (non zero)
>
14dd : 68 > pla ;load status
14de : 48 > pha
> cmp_flag $ff
14df : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
14e1 : d0fe > bne * ;failed not equal (non zero)
>
14e3 : 28 > plp ;restore status
>
14e4 : c042 > cpy #$42
> trap_ne ;y changed
14e6 : d0fe > bne * ;failed not equal (non zero)
>
14e8 : e000 > cpx #0
> trap_ne ;x changed
14ea : d0fe > bne * ;failed not equal (non zero)
>
nop_test $8b,1
14ec : a042 > ldy #$42
14ee : a203 > ldx #4-1
14f0 : 8b > db $8b ;test nop length
> if 1 = 1
14f1 : ca > dex
14f2 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
14f3 : ca > dex
> trap_ne ;wrong number of bytes
14f4 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$8b,0
> load_flag 0
14f6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
14f8 : 48 > pha ;use stack to load status
14f9 : a974 > lda #$ff-$8b ;precharge accu
14fb : 28 > plp
>
14fc : 8b > db $8b ;test nop integrity - flags off
14fd : ea > nop
14fe : ea > nop
> tst_a $ff-$8b,0
14ff : 08 > php ;save flags
1500 : c974 > cmp #$ff-$8b ;test result
> trap_ne
1502 : d0fe > bne * ;failed not equal (non zero)
>
1504 : 68 > pla ;load status
1505 : 48 > pha
> cmp_flag 0
1506 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1508 : d0fe > bne * ;failed not equal (non zero)
>
150a : 28 > plp ;restore status
>
> set_a $aa-$8b,$ff
> load_flag $ff
150b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
150d : 48 > pha ;use stack to load status
150e : a91f > lda #$aa-$8b ;precharge accu
1510 : 28 > plp
>
1511 : 8b > db $8b ;test nop integrity - flags on
1512 : ea > nop
1513 : ea > nop
> tst_a $aa-$8b,$ff
1514 : 08 > php ;save flags
1515 : c91f > cmp #$aa-$8b ;test result
> trap_ne
1517 : d0fe > bne * ;failed not equal (non zero)
>
1519 : 68 > pla ;load status
151a : 48 > pha
> cmp_flag $ff
151b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
151d : d0fe > bne * ;failed not equal (non zero)
>
151f : 28 > plp ;restore status
>
1520 : c042 > cpy #$42
> trap_ne ;y changed
1522 : d0fe > bne * ;failed not equal (non zero)
>
1524 : e000 > cpx #0
> trap_ne ;x changed
1526 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $9b,1
1528 : a042 > ldy #$42
152a : a203 > ldx #4-1
152c : 9b > db $9b ;test nop length
> if 1 = 1
152d : ca > dex
152e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
152f : ca > dex
> trap_ne ;wrong number of bytes
1530 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$9b,0
> load_flag 0
1532 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1534 : 48 > pha ;use stack to load status
1535 : a964 > lda #$ff-$9b ;precharge accu
1537 : 28 > plp
>
1538 : 9b > db $9b ;test nop integrity - flags off
1539 : ea > nop
153a : ea > nop
> tst_a $ff-$9b,0
153b : 08 > php ;save flags
153c : c964 > cmp #$ff-$9b ;test result
> trap_ne
153e : d0fe > bne * ;failed not equal (non zero)
>
1540 : 68 > pla ;load status
1541 : 48 > pha
> cmp_flag 0
1542 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1544 : d0fe > bne * ;failed not equal (non zero)
>
1546 : 28 > plp ;restore status
>
> set_a $aa-$9b,$ff
> load_flag $ff
1547 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1549 : 48 > pha ;use stack to load status
154a : a90f > lda #$aa-$9b ;precharge accu
154c : 28 > plp
>
154d : 9b > db $9b ;test nop integrity - flags on
154e : ea > nop
154f : ea > nop
> tst_a $aa-$9b,$ff
1550 : 08 > php ;save flags
1551 : c90f > cmp #$aa-$9b ;test result
> trap_ne
1553 : d0fe > bne * ;failed not equal (non zero)
>
1555 : 68 > pla ;load status
1556 : 48 > pha
> cmp_flag $ff
1557 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1559 : d0fe > bne * ;failed not equal (non zero)
>
155b : 28 > plp ;restore status
>
155c : c042 > cpy #$42
> trap_ne ;y changed
155e : d0fe > bne * ;failed not equal (non zero)
>
1560 : e000 > cpx #0
> trap_ne ;x changed
1562 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $ab,1
1564 : a042 > ldy #$42
1566 : a203 > ldx #4-1
1568 : ab > db $ab ;test nop length
> if 1 = 1
1569 : ca > dex
156a : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
156b : ca > dex
> trap_ne ;wrong number of bytes
156c : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$ab,0
> load_flag 0
156e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1570 : 48 > pha ;use stack to load status
1571 : a954 > lda #$ff-$ab ;precharge accu
1573 : 28 > plp
>
1574 : ab > db $ab ;test nop integrity - flags off
1575 : ea > nop
1576 : ea > nop
> tst_a $ff-$ab,0
1577 : 08 > php ;save flags
1578 : c954 > cmp #$ff-$ab ;test result
> trap_ne
157a : d0fe > bne * ;failed not equal (non zero)
>
157c : 68 > pla ;load status
157d : 48 > pha
> cmp_flag 0
157e : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1580 : d0fe > bne * ;failed not equal (non zero)
>
1582 : 28 > plp ;restore status
>
> set_a $aa-$ab,$ff
> load_flag $ff
1583 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1585 : 48 > pha ;use stack to load status
1586 : a9ff > lda #$aa-$ab ;precharge accu
1588 : 28 > plp
>
1589 : ab > db $ab ;test nop integrity - flags on
158a : ea > nop
158b : ea > nop
> tst_a $aa-$ab,$ff
158c : 08 > php ;save flags
158d : c9ff > cmp #$aa-$ab ;test result
> trap_ne
158f : d0fe > bne * ;failed not equal (non zero)
>
1591 : 68 > pla ;load status
1592 : 48 > pha
> cmp_flag $ff
1593 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1595 : d0fe > bne * ;failed not equal (non zero)
>
1597 : 28 > plp ;restore status
>
1598 : c042 > cpy #$42
> trap_ne ;y changed
159a : d0fe > bne * ;failed not equal (non zero)
>
159c : e000 > cpx #0
> trap_ne ;x changed
159e : d0fe > bne * ;failed not equal (non zero)
>
nop_test $bb,1
15a0 : a042 > ldy #$42
15a2 : a203 > ldx #4-1
15a4 : bb > db $bb ;test nop length
> if 1 = 1
15a5 : ca > dex
15a6 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
15a7 : ca > dex
> trap_ne ;wrong number of bytes
15a8 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$bb,0
> load_flag 0
15aa : a900 > lda #0 ;allow test to change I-flag (no mask)
>
15ac : 48 > pha ;use stack to load status
15ad : a944 > lda #$ff-$bb ;precharge accu
15af : 28 > plp
>
15b0 : bb > db $bb ;test nop integrity - flags off
15b1 : ea > nop
15b2 : ea > nop
> tst_a $ff-$bb,0
15b3 : 08 > php ;save flags
15b4 : c944 > cmp #$ff-$bb ;test result
> trap_ne
15b6 : d0fe > bne * ;failed not equal (non zero)
>
15b8 : 68 > pla ;load status
15b9 : 48 > pha
> cmp_flag 0
15ba : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
15bc : d0fe > bne * ;failed not equal (non zero)
>
15be : 28 > plp ;restore status
>
> set_a $aa-$bb,$ff
> load_flag $ff
15bf : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
15c1 : 48 > pha ;use stack to load status
15c2 : a9ef > lda #$aa-$bb ;precharge accu
15c4 : 28 > plp
>
15c5 : bb > db $bb ;test nop integrity - flags on
15c6 : ea > nop
15c7 : ea > nop
> tst_a $aa-$bb,$ff
15c8 : 08 > php ;save flags
15c9 : c9ef > cmp #$aa-$bb ;test result
> trap_ne
15cb : d0fe > bne * ;failed not equal (non zero)
>
15cd : 68 > pla ;load status
15ce : 48 > pha
> cmp_flag $ff
15cf : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
15d1 : d0fe > bne * ;failed not equal (non zero)
>
15d3 : 28 > plp ;restore status
>
15d4 : c042 > cpy #$42
> trap_ne ;y changed
15d6 : d0fe > bne * ;failed not equal (non zero)
>
15d8 : e000 > cpx #0
> trap_ne ;x changed
15da : d0fe > bne * ;failed not equal (non zero)
>
nop_test $eb,1
15dc : a042 > ldy #$42
15de : a203 > ldx #4-1
15e0 : eb > db $eb ;test nop length
> if 1 = 1
15e1 : ca > dex
15e2 : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
15e3 : ca > dex
> trap_ne ;wrong number of bytes
15e4 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$eb,0
> load_flag 0
15e6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
15e8 : 48 > pha ;use stack to load status
15e9 : a914 > lda #$ff-$eb ;precharge accu
15eb : 28 > plp
>
15ec : eb > db $eb ;test nop integrity - flags off
15ed : ea > nop
15ee : ea > nop
> tst_a $ff-$eb,0
15ef : 08 > php ;save flags
15f0 : c914 > cmp #$ff-$eb ;test result
> trap_ne
15f2 : d0fe > bne * ;failed not equal (non zero)
>
15f4 : 68 > pla ;load status
15f5 : 48 > pha
> cmp_flag 0
15f6 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
15f8 : d0fe > bne * ;failed not equal (non zero)
>
15fa : 28 > plp ;restore status
>
> set_a $aa-$eb,$ff
> load_flag $ff
15fb : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
15fd : 48 > pha ;use stack to load status
15fe : a9bf > lda #$aa-$eb ;precharge accu
1600 : 28 > plp
>
1601 : eb > db $eb ;test nop integrity - flags on
1602 : ea > nop
1603 : ea > nop
> tst_a $aa-$eb,$ff
1604 : 08 > php ;save flags
1605 : c9bf > cmp #$aa-$eb ;test result
> trap_ne
1607 : d0fe > bne * ;failed not equal (non zero)
>
1609 : 68 > pla ;load status
160a : 48 > pha
> cmp_flag $ff
160b : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
160d : d0fe > bne * ;failed not equal (non zero)
>
160f : 28 > plp ;restore status
>
1610 : c042 > cpy #$42
> trap_ne ;y changed
1612 : d0fe > bne * ;failed not equal (non zero)
>
1614 : e000 > cpx #0
> trap_ne ;x changed
1616 : d0fe > bne * ;failed not equal (non zero)
>
nop_test $fb,1
1618 : a042 > ldy #$42
161a : a203 > ldx #4-1
161c : fb > db $fb ;test nop length
> if 1 = 1
161d : ca > dex
161e : ca > dex
> endif
> if 1 = 2
> iny
> dex
> endif
> if 1 = 3
> iny
> iny
> endif
161f : ca > dex
> trap_ne ;wrong number of bytes
1620 : d0fe > bne * ;failed not equal (non zero)
>
> set_a $ff-$fb,0
> load_flag 0
1622 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1624 : 48 > pha ;use stack to load status
1625 : a904 > lda #$ff-$fb ;precharge accu
1627 : 28 > plp
>
1628 : fb > db $fb ;test nop integrity - flags off
1629 : ea > nop
162a : ea > nop
> tst_a $ff-$fb,0
162b : 08 > php ;save flags
162c : c904 > cmp #$ff-$fb ;test result
> trap_ne
162e : d0fe > bne * ;failed not equal (non zero)
>
1630 : 68 > pla ;load status
1631 : 48 > pha
> cmp_flag 0
1632 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1634 : d0fe > bne * ;failed not equal (non zero)
>
1636 : 28 > plp ;restore status
>
> set_a $aa-$fb,$ff
> load_flag $ff
1637 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1639 : 48 > pha ;use stack to load status
163a : a9af > lda #$aa-$fb ;precharge accu
163c : 28 > plp
>
163d : fb > db $fb ;test nop integrity - flags on
163e : ea > nop
163f : ea > nop
> tst_a $aa-$fb,$ff
1640 : 08 > php ;save flags
1641 : c9af > cmp #$aa-$fb ;test result
> trap_ne
1643 : d0fe > bne * ;failed not equal (non zero)
>
1645 : 68 > pla ;load status
1646 : 48 > pha
> cmp_flag $ff
1647 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1649 : d0fe > bne * ;failed not equal (non zero)
>
164b : 28 > plp ;restore status
>
164c : c042 > cpy #$42
> trap_ne ;y changed
164e : d0fe > bne * ;failed not equal (non zero)
>
1650 : e000 > cpx #0
> trap_ne ;x changed
1652 : d0fe > bne * ;failed not equal (non zero)
>
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
1654 : ad0202 > lda test_case ;previous test
1657 : c908 > cmp #test_num
> trap_ne ;test is out of sequence
1659 : d0fe > bne * ;failed not equal (non zero)
>
0009 = >test_num = test_num + 1
165b : a909 > lda #test_num ;*** next tests' number
165d : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; jump indirect (test page cross bug is fixed)
1660 : a203 ldx #3 ;prepare table
1662 : bd4026 ji1 lda ji_adr,x
1665 : 9dfd02 sta ji_tab,x
1668 : ca dex
1669 : 10f7 bpl ji1
166b : a927 lda #hi(ji_px) ;high address if page cross bug
166d : 8d0002 sta pg_x
set_stat 0
> load_flag 0
1670 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1672 : 48 > pha ;use stack to load status
1673 : 28 > plp
1674 : a949 lda #'I'
1676 : a24e ldx #'N'
1678 : a044 ldy #'D' ;N=0, V=0, Z=0, C=0
167a : 6cfd02 jmp (ji_tab)
167d : ea nop
trap_ne ;runover protection
167e : d0fe > bne * ;failed not equal (non zero)
1680 : 88 dey
1681 : 88 dey
1682 : 08 ji_ret php ;either SP or Y count will fail, if we do not hit
1683 : 88 dey
1684 : 88 dey
1685 : 88 dey
1686 : 28 plp
trap_eq ;returned flags OK?
1687 : f0fe > beq * ;failed equal (zero)
trap_pl
1689 : 10fe > bpl * ;failed plus (bit 7 clear)
trap_cc
168b : 90fe > bcc * ;failed carry clear
trap_vc
168d : 50fe > bvc * ;failed overflow clear
168f : c9e3 cmp #('I'^$aa) ;returned registers OK?
trap_ne
1691 : d0fe > bne * ;failed not equal (non zero)
1693 : e04f cpx #('N'+1)
trap_ne
1695 : d0fe > bne * ;failed not equal (non zero)
1697 : c03e cpy #('D'-6)
trap_ne
1699 : d0fe > bne * ;failed not equal (non zero)
169b : ba tsx ;SP check
169c : e0ff cpx #$ff
trap_ne
169e : d0fe > bne * ;failed not equal (non zero)
next_test
16a0 : ad0202 > lda test_case ;previous test
16a3 : c909 > cmp #test_num
> trap_ne ;test is out of sequence
16a5 : d0fe > bne * ;failed not equal (non zero)
>
000a = >test_num = test_num + 1
16a7 : a90a > lda #test_num ;*** next tests' number
16a9 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; jump indexed indirect
16ac : a20b ldx #11 ;prepare table
16ae : bd7926 jxi1 lda jxi_adr,x
16b1 : 9df902 sta jxi_tab,x
16b4 : ca dex
16b5 : 10f7 bpl jxi1
16b7 : a927 lda #hi(jxi_px) ;high address if page cross bug
16b9 : 8d0002 sta pg_x
set_stat 0
> load_flag 0
16bc : a900 > lda #0 ;allow test to change I-flag (no mask)
>
16be : 48 > pha ;use stack to load status
16bf : 28 > plp
16c0 : a958 lda #'X'
16c2 : a204 ldx #4
16c4 : a049 ldy #'I' ;N=0, V=0, Z=0, C=0
16c6 : 7cf902 jmp (jxi_tab,x)
16c9 : ea nop
trap_ne ;runover protection
16ca : d0fe > bne * ;failed not equal (non zero)
16cc : 88 dey
16cd : 88 dey
16ce : 08 jxi_ret php ;either SP or Y count will fail, if we do not hit
16cf : 88 dey
16d0 : 88 dey
16d1 : 88 dey
16d2 : 28 plp
trap_eq ;returned flags OK?
16d3 : f0fe > beq * ;failed equal (zero)
trap_pl
16d5 : 10fe > bpl * ;failed plus (bit 7 clear)
trap_cc
16d7 : 90fe > bcc * ;failed carry clear
trap_vc
16d9 : 50fe > bvc * ;failed overflow clear
16db : c9f2 cmp #('X'^$aa) ;returned registers OK?
trap_ne
16dd : d0fe > bne * ;failed not equal (non zero)
16df : e006 cpx #6
trap_ne
16e1 : d0fe > bne * ;failed not equal (non zero)
16e3 : c043 cpy #('I'-6)
trap_ne
16e5 : d0fe > bne * ;failed not equal (non zero)
16e7 : ba tsx ;SP check
16e8 : e0ff cpx #$ff
trap_ne
16ea : d0fe > bne * ;failed not equal (non zero)
16ec : a908 lda #lo(jxp_ok) ;test with index causing a page cross
16ee : 8d0003 sta jxp_tab
16f1 : a917 lda #hi(jxp_ok)
16f3 : 8d0103 sta jxp_tab+1
16f6 : a905 lda #lo(jxp_px)
16f8 : 8d0002 sta pg_x
16fb : a917 lda #hi(jxp_px)
16fd : 8d0102 sta pg_x+1
1700 : a2ff ldx #$ff
1702 : 7c0102 jmp (jxp_tab-$ff,x)
1705 : jxp_px
trap ;page cross by index to wrong page
1705 : 4c0517 > jmp * ;failed anyway
1708 : jxp_ok
next_test
1708 : ad0202 > lda test_case ;previous test
170b : c90a > cmp #test_num
> trap_ne ;test is out of sequence
170d : d0fe > bne * ;failed not equal (non zero)
>
000b = >test_num = test_num + 1
170f : a90b > lda #test_num ;*** next tests' number
1711 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
if ROM_vectors = 1
; test BRK clears decimal mode
1714 : f8 sed
1715 : 00 brk
1716 : ea nop
1717 : brk_ret
next_test
1717 : ad0202 > lda test_case ;previous test
171a : c90b > cmp #test_num
> trap_ne ;test is out of sequence
171c : d0fe > bne * ;failed not equal (non zero)
>
000c = >test_num = test_num + 1
171e : a90c > lda #test_num ;*** next tests' number
1720 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
endif
; testing accumulator increment/decrement INC A & DEC A
1723 : a2ac ldx #$ac ;protect x & y
1725 : a0dc ldy #$dc
set_a $fe,$ff
> load_flag $ff
1727 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1729 : 48 > pha ;use stack to load status
172a : a9fe > lda #$fe ;precharge accu
172c : 28 > plp
172d : 1a inc a ;ff
tst_as $ff,$ff-zero
172e : 48 > pha
172f : 08 > php ;save flags
1730 : c9ff > cmp #$ff ;test result
> trap_ne
1732 : d0fe > bne * ;failed not equal (non zero)
>
1734 : 68 > pla ;load status
1735 : 48 > pha
> cmp_flag $ff-zero
1736 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1738 : d0fe > bne * ;failed not equal (non zero)
>
173a : 28 > plp ;restore status
173b : 68 > pla
173c : 1a inc a ;00
tst_as 0,$ff-minus
173d : 48 > pha
173e : 08 > php ;save flags
173f : c900 > cmp #0 ;test result
> trap_ne
1741 : d0fe > bne * ;failed not equal (non zero)
>
1743 : 68 > pla ;load status
1744 : 48 > pha
> cmp_flag $ff-minus
1745 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1747 : d0fe > bne * ;failed not equal (non zero)
>
1749 : 28 > plp ;restore status
174a : 68 > pla
174b : 1a inc a ;01
tst_as 1,$ff-minus-zero
174c : 48 > pha
174d : 08 > php ;save flags
174e : c901 > cmp #1 ;test result
> trap_ne
1750 : d0fe > bne * ;failed not equal (non zero)
>
1752 : 68 > pla ;load status
1753 : 48 > pha
> cmp_flag $ff-minus-zero
1754 : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1756 : d0fe > bne * ;failed not equal (non zero)
>
1758 : 28 > plp ;restore status
1759 : 68 > pla
175a : 3a dec a ;00
tst_as 0,$ff-minus
175b : 48 > pha
175c : 08 > php ;save flags
175d : c900 > cmp #0 ;test result
> trap_ne
175f : d0fe > bne * ;failed not equal (non zero)
>
1761 : 68 > pla ;load status
1762 : 48 > pha
> cmp_flag $ff-minus
1763 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1765 : d0fe > bne * ;failed not equal (non zero)
>
1767 : 28 > plp ;restore status
1768 : 68 > pla
1769 : 3a dec a ;ff
tst_as $ff,$ff-zero
176a : 48 > pha
176b : 08 > php ;save flags
176c : c9ff > cmp #$ff ;test result
> trap_ne
176e : d0fe > bne * ;failed not equal (non zero)
>
1770 : 68 > pla ;load status
1771 : 48 > pha
> cmp_flag $ff-zero
1772 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1774 : d0fe > bne * ;failed not equal (non zero)
>
1776 : 28 > plp ;restore status
1777 : 68 > pla
1778 : 3a dec a ;fe
set_a $fe,0
> load_flag 0
1779 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
177b : 48 > pha ;use stack to load status
177c : a9fe > lda #$fe ;precharge accu
177e : 28 > plp
177f : 1a inc a ;ff
tst_as $ff,minus
1780 : 48 > pha
1781 : 08 > php ;save flags
1782 : c9ff > cmp #$ff ;test result
> trap_ne
1784 : d0fe > bne * ;failed not equal (non zero)
>
1786 : 68 > pla ;load status
1787 : 48 > pha
> cmp_flag minus
1788 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
178a : d0fe > bne * ;failed not equal (non zero)
>
178c : 28 > plp ;restore status
178d : 68 > pla
178e : 1a inc a ;00
tst_as 0,zero
178f : 48 > pha
1790 : 08 > php ;save flags
1791 : c900 > cmp #0 ;test result
> trap_ne
1793 : d0fe > bne * ;failed not equal (non zero)
>
1795 : 68 > pla ;load status
1796 : 48 > pha
> cmp_flag zero
1797 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1799 : d0fe > bne * ;failed not equal (non zero)
>
179b : 28 > plp ;restore status
179c : 68 > pla
179d : 1a inc a ;01
tst_as 1,0
179e : 48 > pha
179f : 08 > php ;save flags
17a0 : c901 > cmp #1 ;test result
> trap_ne
17a2 : d0fe > bne * ;failed not equal (non zero)
>
17a4 : 68 > pla ;load status
17a5 : 48 > pha
> cmp_flag 0
17a6 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
17a8 : d0fe > bne * ;failed not equal (non zero)
>
17aa : 28 > plp ;restore status
17ab : 68 > pla
17ac : 3a dec a ;00
tst_as 0,zero
17ad : 48 > pha
17ae : 08 > php ;save flags
17af : c900 > cmp #0 ;test result
> trap_ne
17b1 : d0fe > bne * ;failed not equal (non zero)
>
17b3 : 68 > pla ;load status
17b4 : 48 > pha
> cmp_flag zero
17b5 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
17b7 : d0fe > bne * ;failed not equal (non zero)
>
17b9 : 28 > plp ;restore status
17ba : 68 > pla
17bb : 3a dec a ;ff
tst_as $ff,minus
17bc : 48 > pha
17bd : 08 > php ;save flags
17be : c9ff > cmp #$ff ;test result
> trap_ne
17c0 : d0fe > bne * ;failed not equal (non zero)
>
17c2 : 68 > pla ;load status
17c3 : 48 > pha
> cmp_flag minus
17c4 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
17c6 : d0fe > bne * ;failed not equal (non zero)
>
17c8 : 28 > plp ;restore status
17c9 : 68 > pla
17ca : e0ac cpx #$ac
trap_ne ;x altered during test
17cc : d0fe > bne * ;failed not equal (non zero)
17ce : c0dc cpy #$dc
trap_ne ;y altered during test
17d0 : d0fe > bne * ;failed not equal (non zero)
17d2 : ba tsx
17d3 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
17d5 : d0fe > bne * ;failed not equal (non zero)
next_test
17d7 : ad0202 > lda test_case ;previous test
17da : c90c > cmp #test_num
> trap_ne ;test is out of sequence
17dc : d0fe > bne * ;failed not equal (non zero)
>
000d = >test_num = test_num + 1
17de : a90d > lda #test_num ;*** next tests' number
17e0 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing load / store accumulator LDA / STA (zp)
17e3 : a299 ldx #$99 ;protect x & y
17e5 : a066 ldy #$66
set_stat 0
> load_flag 0
17e7 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
17e9 : 48 > pha ;use stack to load status
17ea : 28 > plp
17eb : b222 lda (ind1)
17ed : 08 php ;test stores do not alter flags
17ee : 49c3 eor #$c3
17f0 : 28 plp
17f1 : 922e sta (indt)
17f3 : 08 php ;flags after load/store sequence
17f4 : 49c3 eor #$c3
17f6 : c9c3 cmp #$c3 ;test result
trap_ne
17f8 : d0fe > bne * ;failed not equal (non zero)
17fa : 68 pla ;load status
eor_flag 0
17fb : 4930 > eor #0|fao ;invert expected flags + always on bits
17fd : cd0f02 cmp fLDx ;test flags
trap_ne
1800 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1802 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1804 : 48 > pha ;use stack to load status
1805 : 28 > plp
1806 : b224 lda (ind1+2)
1808 : 08 php ;test stores do not alter flags
1809 : 49c3 eor #$c3
180b : 28 plp
180c : 9230 sta (indt+2)
180e : 08 php ;flags after load/store sequence
180f : 49c3 eor #$c3
1811 : c982 cmp #$82 ;test result
trap_ne
1813 : d0fe > bne * ;failed not equal (non zero)
1815 : 68 pla ;load status
eor_flag 0
1816 : 4930 > eor #0|fao ;invert expected flags + always on bits
1818 : cd1002 cmp fLDx+1 ;test flags
trap_ne
181b : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
181d : a900 > lda #0 ;allow test to change I-flag (no mask)
>
181f : 48 > pha ;use stack to load status
1820 : 28 > plp
1821 : b226 lda (ind1+4)
1823 : 08 php ;test stores do not alter flags
1824 : 49c3 eor #$c3
1826 : 28 plp
1827 : 9232 sta (indt+4)
1829 : 08 php ;flags after load/store sequence
182a : 49c3 eor #$c3
182c : c941 cmp #$41 ;test result
trap_ne
182e : d0fe > bne * ;failed not equal (non zero)
1830 : 68 pla ;load status
eor_flag 0
1831 : 4930 > eor #0|fao ;invert expected flags + always on bits
1833 : cd1102 cmp fLDx+2 ;test flags
trap_ne
1836 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1838 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
183a : 48 > pha ;use stack to load status
183b : 28 > plp
183c : b228 lda (ind1+6)
183e : 08 php ;test stores do not alter flags
183f : 49c3 eor #$c3
1841 : 28 plp
1842 : 9234 sta (indt+6)
1844 : 08 php ;flags after load/store sequence
1845 : 49c3 eor #$c3
1847 : c900 cmp #0 ;test result
trap_ne
1849 : d0fe > bne * ;failed not equal (non zero)
184b : 68 pla ;load status
eor_flag 0
184c : 4930 > eor #0|fao ;invert expected flags + always on bits
184e : cd1202 cmp fLDx+3 ;test flags
trap_ne
1851 : d0fe > bne * ;failed not equal (non zero)
1853 : e099 cpx #$99
trap_ne ;x altered during test
1855 : d0fe > bne * ;failed not equal (non zero)
1857 : c066 cpy #$66
trap_ne ;y altered during test
1859 : d0fe > bne * ;failed not equal (non zero)
185b : a003 ldy #3 ;testing store result
185d : a200 ldx #0
185f : b90502 tstai1 lda abst,y
1862 : 49c3 eor #$c3
1864 : d90a02 cmp abs1,y
trap_ne ;store to indirect data
1867 : d0fe > bne * ;failed not equal (non zero)
1869 : 8a txa
186a : 990502 sta abst,y ;clear
186d : 88 dey
186e : 10ef bpl tstai1
1870 : a299 ldx #$99 ;protect x & y
1872 : a066 ldy #$66
set_stat $ff
> load_flag $ff
1874 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1876 : 48 > pha ;use stack to load status
1877 : 28 > plp
1878 : b222 lda (ind1)
187a : 08 php ;test stores do not alter flags
187b : 49c3 eor #$c3
187d : 28 plp
187e : 922e sta (indt)
1880 : 08 php ;flags after load/store sequence
1881 : 49c3 eor #$c3
1883 : c9c3 cmp #$c3 ;test result
trap_ne
1885 : d0fe > bne * ;failed not equal (non zero)
1887 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1888 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
188a : cd0f02 cmp fLDx ;test flags
trap_ne
188d : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
188f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1891 : 48 > pha ;use stack to load status
1892 : 28 > plp
1893 : b224 lda (ind1+2)
1895 : 08 php ;test stores do not alter flags
1896 : 49c3 eor #$c3
1898 : 28 plp
1899 : 9230 sta (indt+2)
189b : 08 php ;flags after load/store sequence
189c : 49c3 eor #$c3
189e : c982 cmp #$82 ;test result
trap_ne
18a0 : d0fe > bne * ;failed not equal (non zero)
18a2 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
18a3 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
18a5 : cd1002 cmp fLDx+1 ;test flags
trap_ne
18a8 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
18aa : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
18ac : 48 > pha ;use stack to load status
18ad : 28 > plp
18ae : b226 lda (ind1+4)
18b0 : 08 php ;test stores do not alter flags
18b1 : 49c3 eor #$c3
18b3 : 28 plp
18b4 : 9232 sta (indt+4)
18b6 : 08 php ;flags after load/store sequence
18b7 : 49c3 eor #$c3
18b9 : c941 cmp #$41 ;test result
trap_ne
18bb : d0fe > bne * ;failed not equal (non zero)
18bd : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
18be : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
18c0 : cd1102 cmp fLDx+2 ;test flags
trap_ne
18c3 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
18c5 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
18c7 : 48 > pha ;use stack to load status
18c8 : 28 > plp
18c9 : b228 lda (ind1+6)
18cb : 08 php ;test stores do not alter flags
18cc : 49c3 eor #$c3
18ce : 28 plp
18cf : 9234 sta (indt+6)
18d1 : 08 php ;flags after load/store sequence
18d2 : 49c3 eor #$c3
18d4 : c900 cmp #0 ;test result
trap_ne
18d6 : d0fe > bne * ;failed not equal (non zero)
18d8 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
18d9 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
18db : cd1202 cmp fLDx+3 ;test flags
trap_ne
18de : d0fe > bne * ;failed not equal (non zero)
18e0 : e099 cpx #$99
trap_ne ;x altered during test
18e2 : d0fe > bne * ;failed not equal (non zero)
18e4 : c066 cpy #$66
trap_ne ;y altered during test
18e6 : d0fe > bne * ;failed not equal (non zero)
18e8 : a003 ldy #3 ;testing store result
18ea : a200 ldx #0
18ec : b90502 tstai2 lda abst,y
18ef : 49c3 eor #$c3
18f1 : d90a02 cmp abs1,y
trap_ne ;store to indirect data
18f4 : d0fe > bne * ;failed not equal (non zero)
18f6 : 8a txa
18f7 : 990502 sta abst,y ;clear
18fa : 88 dey
18fb : 10ef bpl tstai2
18fd : ba tsx
18fe : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
1900 : d0fe > bne * ;failed not equal (non zero)
next_test
1902 : ad0202 > lda test_case ;previous test
1905 : c90d > cmp #test_num
> trap_ne ;test is out of sequence
1907 : d0fe > bne * ;failed not equal (non zero)
>
000e = >test_num = test_num + 1
1909 : a90e > lda #test_num ;*** next tests' number
190b : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing STZ - zp / abs / zp,x / abs,x
190e : a07b ldy #123 ;protect y
1910 : a204 ldx #4 ;precharge test area
1912 : a907 lda #7
1914 : 950a tstz1 sta zpt,x
1916 : 0a asl a
1917 : ca dex
1918 : 10fa bpl tstz1
191a : a204 ldx #4
set_a $55,$ff
> load_flag $ff
191c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
191e : 48 > pha ;use stack to load status
191f : a955 > lda #$55 ;precharge accu
1921 : 28 > plp
1922 : 640a stz zpt
1924 : 640b stz zpt+1
1926 : 640c stz zpt+2
1928 : 640d stz zpt+3
192a : 640e stz zpt+4
tst_a $55,$ff
192c : 08 > php ;save flags
192d : c955 > cmp #$55 ;test result
> trap_ne
192f : d0fe > bne * ;failed not equal (non zero)
>
1931 : 68 > pla ;load status
1932 : 48 > pha
> cmp_flag $ff
1933 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1935 : d0fe > bne * ;failed not equal (non zero)
>
1937 : 28 > plp ;restore status
1938 : b50a tstz2 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
193a : d0fe > bne * ;failed not equal (non zero)
193c : ca dex
193d : 10f9 bpl tstz2
193f : a204 ldx #4 ;precharge test area
1941 : a907 lda #7
1943 : 950a tstz3 sta zpt,x
1945 : 0a asl a
1946 : ca dex
1947 : 10fa bpl tstz3
1949 : a204 ldx #4
set_a $aa,0
> load_flag 0
194b : a900 > lda #0 ;allow test to change I-flag (no mask)
>
194d : 48 > pha ;use stack to load status
194e : a9aa > lda #$aa ;precharge accu
1950 : 28 > plp
1951 : 640a stz zpt
1953 : 640b stz zpt+1
1955 : 640c stz zpt+2
1957 : 640d stz zpt+3
1959 : 640e stz zpt+4
tst_a $aa,0
195b : 08 > php ;save flags
195c : c9aa > cmp #$aa ;test result
> trap_ne
195e : d0fe > bne * ;failed not equal (non zero)
>
1960 : 68 > pla ;load status
1961 : 48 > pha
> cmp_flag 0
1962 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1964 : d0fe > bne * ;failed not equal (non zero)
>
1966 : 28 > plp ;restore status
1967 : b50a tstz4 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
1969 : d0fe > bne * ;failed not equal (non zero)
196b : ca dex
196c : 10f9 bpl tstz4
196e : a204 ldx #4 ;precharge test area
1970 : a907 lda #7
1972 : 9d0502 tstz5 sta abst,x
1975 : 0a asl a
1976 : ca dex
1977 : 10f9 bpl tstz5
1979 : a204 ldx #4
set_a $55,$ff
> load_flag $ff
197b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
197d : 48 > pha ;use stack to load status
197e : a955 > lda #$55 ;precharge accu
1980 : 28 > plp
1981 : 9c0502 stz abst
1984 : 9c0602 stz abst+1
1987 : 9c0702 stz abst+2
198a : 9c0802 stz abst+3
198d : 9c0902 stz abst+4
tst_a $55,$ff
1990 : 08 > php ;save flags
1991 : c955 > cmp #$55 ;test result
> trap_ne
1993 : d0fe > bne * ;failed not equal (non zero)
>
1995 : 68 > pla ;load status
1996 : 48 > pha
> cmp_flag $ff
1997 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1999 : d0fe > bne * ;failed not equal (non zero)
>
199b : 28 > plp ;restore status
199c : bd0502 tstz6 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ abs
199f : d0fe > bne * ;failed not equal (non zero)
19a1 : ca dex
19a2 : 10f8 bpl tstz6
19a4 : a204 ldx #4 ;precharge test area
19a6 : a907 lda #7
19a8 : 9d0502 tstz7 sta abst,x
19ab : 0a asl a
19ac : ca dex
19ad : 10f9 bpl tstz7
19af : a204 ldx #4
set_a $aa,0
> load_flag 0
19b1 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
19b3 : 48 > pha ;use stack to load status
19b4 : a9aa > lda #$aa ;precharge accu
19b6 : 28 > plp
19b7 : 9c0502 stz abst
19ba : 9c0602 stz abst+1
19bd : 9c0702 stz abst+2
19c0 : 9c0802 stz abst+3
19c3 : 9c0902 stz abst+4
tst_a $aa,0
19c6 : 08 > php ;save flags
19c7 : c9aa > cmp #$aa ;test result
> trap_ne
19c9 : d0fe > bne * ;failed not equal (non zero)
>
19cb : 68 > pla ;load status
19cc : 48 > pha
> cmp_flag 0
19cd : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
19cf : d0fe > bne * ;failed not equal (non zero)
>
19d1 : 28 > plp ;restore status
19d2 : bd0502 tstz8 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ abs
19d5 : d0fe > bne * ;failed not equal (non zero)
19d7 : ca dex
19d8 : 10f8 bpl tstz8
19da : a204 ldx #4 ;precharge test area
19dc : a907 lda #7
19de : 950a tstz11 sta zpt,x
19e0 : 0a asl a
19e1 : ca dex
19e2 : 10fa bpl tstz11
19e4 : a204 ldx #4
19e6 : tstz15
set_a $55,$ff
> load_flag $ff
19e6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
19e8 : 48 > pha ;use stack to load status
19e9 : a955 > lda #$55 ;precharge accu
19eb : 28 > plp
19ec : 740a stz zpt,x
tst_a $55,$ff
19ee : 08 > php ;save flags
19ef : c955 > cmp #$55 ;test result
> trap_ne
19f1 : d0fe > bne * ;failed not equal (non zero)
>
19f3 : 68 > pla ;load status
19f4 : 48 > pha
> cmp_flag $ff
19f5 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
19f7 : d0fe > bne * ;failed not equal (non zero)
>
19f9 : 28 > plp ;restore status
19fa : ca dex
19fb : 10e9 bpl tstz15
19fd : a204 ldx #4
19ff : b50a tstz12 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
1a01 : d0fe > bne * ;failed not equal (non zero)
1a03 : ca dex
1a04 : 10f9 bpl tstz12
1a06 : a204 ldx #4 ;precharge test area
1a08 : a907 lda #7
1a0a : 950a tstz13 sta zpt,x
1a0c : 0a asl a
1a0d : ca dex
1a0e : 10fa bpl tstz13
1a10 : a204 ldx #4
1a12 : tstz16
set_a $aa,0
> load_flag 0
1a12 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1a14 : 48 > pha ;use stack to load status
1a15 : a9aa > lda #$aa ;precharge accu
1a17 : 28 > plp
1a18 : 740a stz zpt,x
tst_a $aa,0
1a1a : 08 > php ;save flags
1a1b : c9aa > cmp #$aa ;test result
> trap_ne
1a1d : d0fe > bne * ;failed not equal (non zero)
>
1a1f : 68 > pla ;load status
1a20 : 48 > pha
> cmp_flag 0
1a21 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1a23 : d0fe > bne * ;failed not equal (non zero)
>
1a25 : 28 > plp ;restore status
1a26 : ca dex
1a27 : 10e9 bpl tstz16
1a29 : a204 ldx #4
1a2b : b50a tstz14 lda zpt,x ;verify zeros stored
trap_ne ;non zero after STZ zp
1a2d : d0fe > bne * ;failed not equal (non zero)
1a2f : ca dex
1a30 : 10f9 bpl tstz14
1a32 : a204 ldx #4 ;precharge test area
1a34 : a907 lda #7
1a36 : 9d0502 tstz21 sta abst,x
1a39 : 0a asl a
1a3a : ca dex
1a3b : 10f9 bpl tstz21
1a3d : a204 ldx #4
1a3f : tstz25
set_a $55,$ff
> load_flag $ff
1a3f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1a41 : 48 > pha ;use stack to load status
1a42 : a955 > lda #$55 ;precharge accu
1a44 : 28 > plp
1a45 : 9e0502 stz abst,x
tst_a $55,$ff
1a48 : 08 > php ;save flags
1a49 : c955 > cmp #$55 ;test result
> trap_ne
1a4b : d0fe > bne * ;failed not equal (non zero)
>
1a4d : 68 > pla ;load status
1a4e : 48 > pha
> cmp_flag $ff
1a4f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1a51 : d0fe > bne * ;failed not equal (non zero)
>
1a53 : 28 > plp ;restore status
1a54 : ca dex
1a55 : 10e8 bpl tstz25
1a57 : a204 ldx #4
1a59 : bd0502 tstz22 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ zp
1a5c : d0fe > bne * ;failed not equal (non zero)
1a5e : ca dex
1a5f : 10f8 bpl tstz22
1a61 : a204 ldx #4 ;precharge test area
1a63 : a907 lda #7
1a65 : 9d0502 tstz23 sta abst,x
1a68 : 0a asl a
1a69 : ca dex
1a6a : 10f9 bpl tstz23
1a6c : a204 ldx #4
1a6e : tstz26
set_a $aa,0
> load_flag 0
1a6e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1a70 : 48 > pha ;use stack to load status
1a71 : a9aa > lda #$aa ;precharge accu
1a73 : 28 > plp
1a74 : 9e0502 stz abst,x
tst_a $aa,0
1a77 : 08 > php ;save flags
1a78 : c9aa > cmp #$aa ;test result
> trap_ne
1a7a : d0fe > bne * ;failed not equal (non zero)
>
1a7c : 68 > pla ;load status
1a7d : 48 > pha
> cmp_flag 0
1a7e : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1a80 : d0fe > bne * ;failed not equal (non zero)
>
1a82 : 28 > plp ;restore status
1a83 : ca dex
1a84 : 10e8 bpl tstz26
1a86 : a204 ldx #4
1a88 : bd0502 tstz24 lda abst,x ;verify zeros stored
trap_ne ;non zero after STZ zp
1a8b : d0fe > bne * ;failed not equal (non zero)
1a8d : ca dex
1a8e : 10f8 bpl tstz24
1a90 : c07b cpy #123
trap_ne ;y altered during test
1a92 : d0fe > bne * ;failed not equal (non zero)
1a94 : ba tsx
1a95 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
1a97 : d0fe > bne * ;failed not equal (non zero)
next_test
1a99 : ad0202 > lda test_case ;previous test
1a9c : c90e > cmp #test_num
> trap_ne ;test is out of sequence
1a9e : d0fe > bne * ;failed not equal (non zero)
>
000f = >test_num = test_num + 1
1aa0 : a90f > lda #test_num ;*** next tests' number
1aa2 : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing BIT - zp,x / abs,x / #
1aa5 : a042 ldy #$42
1aa7 : a203 ldx #3
set_a $ff,0
> load_flag 0
1aa9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1aab : 48 > pha ;use stack to load status
1aac : a9ff > lda #$ff ;precharge accu
1aae : 28 > plp
1aaf : 3411 bit zp1,x ;00 - should set Z / clear NV
tst_a $ff,fz
1ab1 : 08 > php ;save flags
1ab2 : c9ff > cmp #$ff ;test result
> trap_ne
1ab4 : d0fe > bne * ;failed not equal (non zero)
>
1ab6 : 68 > pla ;load status
1ab7 : 48 > pha
> cmp_flag fz
1ab8 : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1aba : d0fe > bne * ;failed not equal (non zero)
>
1abc : 28 > plp ;restore status
1abd : ca dex
set_a 1,0
> load_flag 0
1abe : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1ac0 : 48 > pha ;use stack to load status
1ac1 : a901 > lda #1 ;precharge accu
1ac3 : 28 > plp
1ac4 : 3411 bit zp1,x ;41 - should set V (M6) / clear NZ
tst_a 1,fv
1ac6 : 08 > php ;save flags
1ac7 : c901 > cmp #1 ;test result
> trap_ne
1ac9 : d0fe > bne * ;failed not equal (non zero)
>
1acb : 68 > pla ;load status
1acc : 48 > pha
> cmp_flag fv
1acd : c970 > cmp #(fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1acf : d0fe > bne * ;failed not equal (non zero)
>
1ad1 : 28 > plp ;restore status
1ad2 : ca dex
set_a 1,0
> load_flag 0
1ad3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1ad5 : 48 > pha ;use stack to load status
1ad6 : a901 > lda #1 ;precharge accu
1ad8 : 28 > plp
1ad9 : 3411 bit zp1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,fnz
1adb : 08 > php ;save flags
1adc : c901 > cmp #1 ;test result
> trap_ne
1ade : d0fe > bne * ;failed not equal (non zero)
>
1ae0 : 68 > pla ;load status
1ae1 : 48 > pha
> cmp_flag fnz
1ae2 : c9b2 > cmp #(fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ae4 : d0fe > bne * ;failed not equal (non zero)
>
1ae6 : 28 > plp ;restore status
1ae7 : ca dex
set_a 1,0
> load_flag 0
1ae8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1aea : 48 > pha ;use stack to load status
1aeb : a901 > lda #1 ;precharge accu
1aed : 28 > plp
1aee : 3411 bit zp1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,fnv
1af0 : 08 > php ;save flags
1af1 : c901 > cmp #1 ;test result
> trap_ne
1af3 : d0fe > bne * ;failed not equal (non zero)
>
1af5 : 68 > pla ;load status
1af6 : 48 > pha
> cmp_flag fnv
1af7 : c9f0 > cmp #(fnv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1af9 : d0fe > bne * ;failed not equal (non zero)
>
1afb : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1afc : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1afe : 48 > pha ;use stack to load status
1aff : a901 > lda #1 ;precharge accu
1b01 : 28 > plp
1b02 : 3411 bit zp1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,~fz
1b04 : 08 > php ;save flags
1b05 : c901 > cmp #1 ;test result
> trap_ne
1b07 : d0fe > bne * ;failed not equal (non zero)
>
1b09 : 68 > pla ;load status
1b0a : 48 > pha
> cmp_flag ~fz
1b0b : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b0d : d0fe > bne * ;failed not equal (non zero)
>
1b0f : 28 > plp ;restore status
1b10 : e8 inx
set_a 1,$ff
> load_flag $ff
1b11 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1b13 : 48 > pha ;use stack to load status
1b14 : a901 > lda #1 ;precharge accu
1b16 : 28 > plp
1b17 : 3411 bit zp1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,~fv
1b19 : 08 > php ;save flags
1b1a : c901 > cmp #1 ;test result
> trap_ne
1b1c : d0fe > bne * ;failed not equal (non zero)
>
1b1e : 68 > pla ;load status
1b1f : 48 > pha
> cmp_flag ~fv
1b20 : c9bf > cmp #(~fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b22 : d0fe > bne * ;failed not equal (non zero)
>
1b24 : 28 > plp ;restore status
1b25 : e8 inx
set_a 1,$ff
> load_flag $ff
1b26 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1b28 : 48 > pha ;use stack to load status
1b29 : a901 > lda #1 ;precharge accu
1b2b : 28 > plp
1b2c : 3411 bit zp1,x ;41 - should set V (M6) / clear NZ
tst_a 1,~fnz
1b2e : 08 > php ;save flags
1b2f : c901 > cmp #1 ;test result
> trap_ne
1b31 : d0fe > bne * ;failed not equal (non zero)
>
1b33 : 68 > pla ;load status
1b34 : 48 > pha
> cmp_flag ~fnz
1b35 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b37 : d0fe > bne * ;failed not equal (non zero)
>
1b39 : 28 > plp ;restore status
1b3a : e8 inx
set_a $ff,$ff
> load_flag $ff
1b3b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1b3d : 48 > pha ;use stack to load status
1b3e : a9ff > lda #$ff ;precharge accu
1b40 : 28 > plp
1b41 : 3411 bit zp1,x ;00 - should set Z / clear NV
tst_a $ff,~fnv
1b43 : 08 > php ;save flags
1b44 : c9ff > cmp #$ff ;test result
> trap_ne
1b46 : d0fe > bne * ;failed not equal (non zero)
>
1b48 : 68 > pla ;load status
1b49 : 48 > pha
> cmp_flag ~fnv
1b4a : c93f > cmp #(~fnv |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b4c : d0fe > bne * ;failed not equal (non zero)
>
1b4e : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
1b4f : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b51 : 48 > pha ;use stack to load status
1b52 : a9ff > lda #$ff ;precharge accu
1b54 : 28 > plp
1b55 : 3c0a02 bit abs1,x ;00 - should set Z / clear NV
tst_a $ff,fz
1b58 : 08 > php ;save flags
1b59 : c9ff > cmp #$ff ;test result
> trap_ne
1b5b : d0fe > bne * ;failed not equal (non zero)
>
1b5d : 68 > pla ;load status
1b5e : 48 > pha
> cmp_flag fz
1b5f : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b61 : d0fe > bne * ;failed not equal (non zero)
>
1b63 : 28 > plp ;restore status
1b64 : ca dex
set_a 1,0
> load_flag 0
1b65 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b67 : 48 > pha ;use stack to load status
1b68 : a901 > lda #1 ;precharge accu
1b6a : 28 > plp
1b6b : 3c0a02 bit abs1,x ;41 - should set V (M6) / clear NZ
tst_a 1,fv
1b6e : 08 > php ;save flags
1b6f : c901 > cmp #1 ;test result
> trap_ne
1b71 : d0fe > bne * ;failed not equal (non zero)
>
1b73 : 68 > pla ;load status
1b74 : 48 > pha
> cmp_flag fv
1b75 : c970 > cmp #(fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b77 : d0fe > bne * ;failed not equal (non zero)
>
1b79 : 28 > plp ;restore status
1b7a : ca dex
set_a 1,0
> load_flag 0
1b7b : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b7d : 48 > pha ;use stack to load status
1b7e : a901 > lda #1 ;precharge accu
1b80 : 28 > plp
1b81 : 3c0a02 bit abs1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,fnz
1b84 : 08 > php ;save flags
1b85 : c901 > cmp #1 ;test result
> trap_ne
1b87 : d0fe > bne * ;failed not equal (non zero)
>
1b89 : 68 > pla ;load status
1b8a : 48 > pha
> cmp_flag fnz
1b8b : c9b2 > cmp #(fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b8d : d0fe > bne * ;failed not equal (non zero)
>
1b8f : 28 > plp ;restore status
1b90 : ca dex
set_a 1,0
> load_flag 0
1b91 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b93 : 48 > pha ;use stack to load status
1b94 : a901 > lda #1 ;precharge accu
1b96 : 28 > plp
1b97 : 3c0a02 bit abs1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,fnv
1b9a : 08 > php ;save flags
1b9b : c901 > cmp #1 ;test result
> trap_ne
1b9d : d0fe > bne * ;failed not equal (non zero)
>
1b9f : 68 > pla ;load status
1ba0 : 48 > pha
> cmp_flag fnv
1ba1 : c9f0 > cmp #(fnv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ba3 : d0fe > bne * ;failed not equal (non zero)
>
1ba5 : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1ba6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1ba8 : 48 > pha ;use stack to load status
1ba9 : a901 > lda #1 ;precharge accu
1bab : 28 > plp
1bac : 3c0a02 bit abs1,x ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,~fz
1baf : 08 > php ;save flags
1bb0 : c901 > cmp #1 ;test result
> trap_ne
1bb2 : d0fe > bne * ;failed not equal (non zero)
>
1bb4 : 68 > pla ;load status
1bb5 : 48 > pha
> cmp_flag ~fz
1bb6 : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1bb8 : d0fe > bne * ;failed not equal (non zero)
>
1bba : 28 > plp ;restore status
1bbb : e8 inx
set_a 1,$ff
> load_flag $ff
1bbc : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1bbe : 48 > pha ;use stack to load status
1bbf : a901 > lda #1 ;precharge accu
1bc1 : 28 > plp
1bc2 : 3c0a02 bit abs1,x ;82 - should set N (M7) & Z / clear V
tst_a 1,~fv
1bc5 : 08 > php ;save flags
1bc6 : c901 > cmp #1 ;test result
> trap_ne
1bc8 : d0fe > bne * ;failed not equal (non zero)
>
1bca : 68 > pla ;load status
1bcb : 48 > pha
> cmp_flag ~fv
1bcc : c9bf > cmp #(~fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1bce : d0fe > bne * ;failed not equal (non zero)
>
1bd0 : 28 > plp ;restore status
1bd1 : e8 inx
set_a 1,$ff
> load_flag $ff
1bd2 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1bd4 : 48 > pha ;use stack to load status
1bd5 : a901 > lda #1 ;precharge accu
1bd7 : 28 > plp
1bd8 : 3c0a02 bit abs1,x ;41 - should set V (M6) / clear NZ
tst_a 1,~fnz
1bdb : 08 > php ;save flags
1bdc : c901 > cmp #1 ;test result
> trap_ne
1bde : d0fe > bne * ;failed not equal (non zero)
>
1be0 : 68 > pla ;load status
1be1 : 48 > pha
> cmp_flag ~fnz
1be2 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1be4 : d0fe > bne * ;failed not equal (non zero)
>
1be6 : 28 > plp ;restore status
1be7 : e8 inx
set_a $ff,$ff
> load_flag $ff
1be8 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1bea : 48 > pha ;use stack to load status
1beb : a9ff > lda #$ff ;precharge accu
1bed : 28 > plp
1bee : 3c0a02 bit abs1,x ;00 - should set Z / clear NV
tst_a $ff,~fnv
1bf1 : 08 > php ;save flags
1bf2 : c9ff > cmp #$ff ;test result
> trap_ne
1bf4 : d0fe > bne * ;failed not equal (non zero)
>
1bf6 : 68 > pla ;load status
1bf7 : 48 > pha
> cmp_flag ~fnv
1bf8 : c93f > cmp #(~fnv |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1bfa : d0fe > bne * ;failed not equal (non zero)
>
1bfc : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
1bfd : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1bff : 48 > pha ;use stack to load status
1c00 : a9ff > lda #$ff ;precharge accu
1c02 : 28 > plp
1c03 : 8900 bit #$00 ;00 - should set Z
tst_a $ff,fz
1c05 : 08 > php ;save flags
1c06 : c9ff > cmp #$ff ;test result
> trap_ne
1c08 : d0fe > bne * ;failed not equal (non zero)
>
1c0a : 68 > pla ;load status
1c0b : 48 > pha
> cmp_flag fz
1c0c : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c0e : d0fe > bne * ;failed not equal (non zero)
>
1c10 : 28 > plp ;restore status
1c11 : ca dex
set_a 1,0
> load_flag 0
1c12 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1c14 : 48 > pha ;use stack to load status
1c15 : a901 > lda #1 ;precharge accu
1c17 : 28 > plp
1c18 : 8941 bit #$41 ;41 - should clear Z
tst_a 1,0
1c1a : 08 > php ;save flags
1c1b : c901 > cmp #1 ;test result
> trap_ne
1c1d : d0fe > bne * ;failed not equal (non zero)
>
1c1f : 68 > pla ;load status
1c20 : 48 > pha
> cmp_flag 0
1c21 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c23 : d0fe > bne * ;failed not equal (non zero)
>
1c25 : 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 #
1c26 : ca dex
set_a 1,0
> load_flag 0
1c27 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1c29 : 48 > pha ;use stack to load status
1c2a : a901 > lda #1 ;precharge accu
1c2c : 28 > plp
1c2d : 8982 bit #$82 ;82 - should set Z
tst_a 1,fz
1c2f : 08 > php ;save flags
1c30 : c901 > cmp #1 ;test result
> trap_ne
1c32 : d0fe > bne * ;failed not equal (non zero)
>
1c34 : 68 > pla ;load status
1c35 : 48 > pha
> cmp_flag fz
1c36 : c932 > cmp #(fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c38 : d0fe > bne * ;failed not equal (non zero)
>
1c3a : 28 > plp ;restore status
1c3b : ca dex
set_a 1,0
> load_flag 0
1c3c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1c3e : 48 > pha ;use stack to load status
1c3f : a901 > lda #1 ;precharge accu
1c41 : 28 > plp
1c42 : 89c3 bit #$c3 ;c3 - should clear Z
tst_a 1,0
1c44 : 08 > php ;save flags
1c45 : c901 > cmp #1 ;test result
> trap_ne
1c47 : d0fe > bne * ;failed not equal (non zero)
>
1c49 : 68 > pla ;load status
1c4a : 48 > pha
> cmp_flag 0
1c4b : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c4d : d0fe > bne * ;failed not equal (non zero)
>
1c4f : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1c50 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1c52 : 48 > pha ;use stack to load status
1c53 : a901 > lda #1 ;precharge accu
1c55 : 28 > plp
1c56 : 89c3 bit #$c3 ;c3 - clear Z
tst_a 1,~fz
1c58 : 08 > php ;save flags
1c59 : c901 > cmp #1 ;test result
> trap_ne
1c5b : d0fe > bne * ;failed not equal (non zero)
>
1c5d : 68 > pla ;load status
1c5e : 48 > pha
> cmp_flag ~fz
1c5f : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c61 : d0fe > bne * ;failed not equal (non zero)
>
1c63 : 28 > plp ;restore status
1c64 : e8 inx
set_a 1,$ff
> load_flag $ff
1c65 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1c67 : 48 > pha ;use stack to load status
1c68 : a901 > lda #1 ;precharge accu
1c6a : 28 > plp
1c6b : 8982 bit #$82 ;82 - should set Z
tst_a 1,$ff
1c6d : 08 > php ;save flags
1c6e : c901 > cmp #1 ;test result
> trap_ne
1c70 : d0fe > bne * ;failed not equal (non zero)
>
1c72 : 68 > pla ;load status
1c73 : 48 > pha
> cmp_flag $ff
1c74 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c76 : d0fe > bne * ;failed not equal (non zero)
>
1c78 : 28 > plp ;restore status
1c79 : e8 inx
set_a 1,$ff
> load_flag $ff
1c7a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1c7c : 48 > pha ;use stack to load status
1c7d : a901 > lda #1 ;precharge accu
1c7f : 28 > plp
1c80 : 8941 bit #$41 ;41 - should clear Z
tst_a 1,~fz
1c82 : 08 > php ;save flags
1c83 : c901 > cmp #1 ;test result
> trap_ne
1c85 : d0fe > bne * ;failed not equal (non zero)
>
1c87 : 68 > pla ;load status
1c88 : 48 > pha
> cmp_flag ~fz
1c89 : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c8b : d0fe > bne * ;failed not equal (non zero)
>
1c8d : 28 > plp ;restore status
1c8e : e8 inx
set_a $ff,$ff
> load_flag $ff
1c8f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1c91 : 48 > pha ;use stack to load status
1c92 : a9ff > lda #$ff ;precharge accu
1c94 : 28 > plp
1c95 : 8900 bit #$00 ;00 - should set Z
tst_a $ff,$ff
1c97 : 08 > php ;save flags
1c98 : c9ff > cmp #$ff ;test result
> trap_ne
1c9a : d0fe > bne * ;failed not equal (non zero)
>
1c9c : 68 > pla ;load status
1c9d : 48 > pha
> cmp_flag $ff
1c9e : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ca0 : d0fe > bne * ;failed not equal (non zero)
>
1ca2 : 28 > plp ;restore status
1ca3 : e003 cpx #3
trap_ne ;x altered during test
1ca5 : d0fe > bne * ;failed not equal (non zero)
1ca7 : c042 cpy #$42
trap_ne ;y altered during test
1ca9 : d0fe > bne * ;failed not equal (non zero)
1cab : ba tsx
1cac : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
1cae : d0fe > bne * ;failed not equal (non zero)
next_test
1cb0 : ad0202 > lda test_case ;previous test
1cb3 : c90f > cmp #test_num
> trap_ne ;test is out of sequence
1cb5 : d0fe > bne * ;failed not equal (non zero)
>
0010 = >test_num = test_num + 1
1cb7 : a910 > lda #test_num ;*** next tests' number
1cb9 : 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
1cbc : a2c0 ldx #$c0
1cbe : a000 ldy #0 ;op1 - memory save
; zpt ;op1 - memory modifiable
1cc0 : 640b stz zpt+1 ;op2 - accu
; zpt+2 ;and flags
; zpt+3 ;memory after reset
; zpt+4 ;memory after set
1cc2 : 98 tbt1 tya
1cc3 : 250b and zpt+1 ;set Z by anding the 2 operands
1cc5 : 08 php
1cc6 : 68 pla
1cc7 : 2902 and #fz ;mask Z
1cc9 : 850c sta zpt+2
1ccb : 98 tya ;reset op1 bits by op2
1ccc : 49ff eor #$ff
1cce : 050b ora zpt+1
1cd0 : 49ff eor #$ff
1cd2 : 850d sta zpt+3
1cd4 : 98 tya ;set op1 bits by op2
1cd5 : 050b ora zpt+1
1cd7 : 850e sta zpt+4
trbt zpt,$ff
1cd9 : 840a > sty zpt
> load_flag $ff
1cdb : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1cdd : 48 > pha
1cde : a50b > lda zpt+1
1ce0 : 28 > plp
1ce1 : 140a > trb zpt
1ce3 : 08 > php
1ce4 : c50b > cmp zpt+1
> trap_ne ;accu was changed
1ce6 : d0fe > bne * ;failed not equal (non zero)
>
1ce8 : 68 > pla
1ce9 : 48 > pha
1cea : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
1cec : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1cee : d0fe > bne * ;failed not equal (non zero)
>
1cf0 : 68 > pla
1cf1 : 2902 > and #fz
1cf3 : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1cf5 : d0fe > bne * ;failed not equal (non zero)
>
1cf7 : a50d > lda zpt+3
1cf9 : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1cfb : d0fe > bne * ;failed not equal (non zero)
>
trbt abst,$ff
1cfd : 8c0502 > sty abst
> load_flag $ff
1d00 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1d02 : 48 > pha
1d03 : a50b > lda zpt+1
1d05 : 28 > plp
1d06 : 1c0502 > trb abst
1d09 : 08 > php
1d0a : c50b > cmp zpt+1
> trap_ne ;accu was changed
1d0c : d0fe > bne * ;failed not equal (non zero)
>
1d0e : 68 > pla
1d0f : 48 > pha
1d10 : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
1d12 : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1d14 : d0fe > bne * ;failed not equal (non zero)
>
1d16 : 68 > pla
1d17 : 2902 > and #fz
1d19 : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1d1b : d0fe > bne * ;failed not equal (non zero)
>
1d1d : a50d > lda zpt+3
1d1f : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1d21 : d0fe > bne * ;failed not equal (non zero)
>
trbt zpt,0
1d23 : 840a > sty zpt
> load_flag 0
1d25 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1d27 : 48 > pha
1d28 : a50b > lda zpt+1
1d2a : 28 > plp
1d2b : 140a > trb zpt
1d2d : 08 > php
1d2e : c50b > cmp zpt+1
> trap_ne ;accu was changed
1d30 : d0fe > bne * ;failed not equal (non zero)
>
1d32 : 68 > pla
1d33 : 48 > pha
1d34 : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
1d36 : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1d38 : d0fe > bne * ;failed not equal (non zero)
>
1d3a : 68 > pla
1d3b : 2902 > and #fz
1d3d : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1d3f : d0fe > bne * ;failed not equal (non zero)
>
1d41 : a50d > lda zpt+3
1d43 : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1d45 : d0fe > bne * ;failed not equal (non zero)
>
trbt abst,0
1d47 : 8c0502 > sty abst
> load_flag 0
1d4a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1d4c : 48 > pha
1d4d : a50b > lda zpt+1
1d4f : 28 > plp
1d50 : 1c0502 > trb abst
1d53 : 08 > php
1d54 : c50b > cmp zpt+1
> trap_ne ;accu was changed
1d56 : d0fe > bne * ;failed not equal (non zero)
>
1d58 : 68 > pla
1d59 : 48 > pha
1d5a : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
1d5c : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1d5e : d0fe > bne * ;failed not equal (non zero)
>
1d60 : 68 > pla
1d61 : 2902 > and #fz
1d63 : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1d65 : d0fe > bne * ;failed not equal (non zero)
>
1d67 : a50d > lda zpt+3
1d69 : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1d6b : d0fe > bne * ;failed not equal (non zero)
>
tsbt zpt,$ff
1d6d : 840a > sty zpt
> load_flag $ff
1d6f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1d71 : 48 > pha
1d72 : a50b > lda zpt+1
1d74 : 28 > plp
1d75 : 040a > tsb zpt
1d77 : 08 > php
1d78 : c50b > cmp zpt+1
> trap_ne ;accu was changed
1d7a : d0fe > bne * ;failed not equal (non zero)
>
1d7c : 68 > pla
1d7d : 48 > pha
1d7e : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
1d80 : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1d82 : d0fe > bne * ;failed not equal (non zero)
>
1d84 : 68 > pla
1d85 : 2902 > and #fz
1d87 : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1d89 : d0fe > bne * ;failed not equal (non zero)
>
1d8b : a50e > lda zpt+4
1d8d : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1d8f : d0fe > bne * ;failed not equal (non zero)
>
tsbt abst,$ff
1d91 : 8c0502 > sty abst
> load_flag $ff
1d94 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1d96 : 48 > pha
1d97 : a50b > lda zpt+1
1d99 : 28 > plp
1d9a : 0c0502 > tsb abst
1d9d : 08 > php
1d9e : c50b > cmp zpt+1
> trap_ne ;accu was changed
1da0 : d0fe > bne * ;failed not equal (non zero)
>
1da2 : 68 > pla
1da3 : 48 > pha
1da4 : 0902 > ora #fz ;mask Z
> cmp_flag $ff|fz
1da6 : c9ff > cmp #($ff|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1da8 : d0fe > bne * ;failed not equal (non zero)
>
1daa : 68 > pla
1dab : 2902 > and #fz
1dad : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1daf : d0fe > bne * ;failed not equal (non zero)
>
1db1 : a50e > lda zpt+4
1db3 : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1db5 : d0fe > bne * ;failed not equal (non zero)
>
tsbt zpt,0
1db7 : 840a > sty zpt
> load_flag 0
1db9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1dbb : 48 > pha
1dbc : a50b > lda zpt+1
1dbe : 28 > plp
1dbf : 040a > tsb zpt
1dc1 : 08 > php
1dc2 : c50b > cmp zpt+1
> trap_ne ;accu was changed
1dc4 : d0fe > bne * ;failed not equal (non zero)
>
1dc6 : 68 > pla
1dc7 : 48 > pha
1dc8 : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
1dca : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1dcc : d0fe > bne * ;failed not equal (non zero)
>
1dce : 68 > pla
1dcf : 2902 > and #fz
1dd1 : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1dd3 : d0fe > bne * ;failed not equal (non zero)
>
1dd5 : a50e > lda zpt+4
1dd7 : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1dd9 : d0fe > bne * ;failed not equal (non zero)
>
tsbt abst,0
1ddb : 8c0502 > sty abst
> load_flag 0
1dde : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1de0 : 48 > pha
1de1 : a50b > lda zpt+1
1de3 : 28 > plp
1de4 : 0c0502 > tsb abst
1de7 : 08 > php
1de8 : c50b > cmp zpt+1
> trap_ne ;accu was changed
1dea : d0fe > bne * ;failed not equal (non zero)
>
1dec : 68 > pla
1ded : 48 > pha
1dee : 0902 > ora #fz ;mask Z
> cmp_flag 0|fz
1df0 : c932 > cmp #(0|fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne ;flags changed except Z
1df2 : d0fe > bne * ;failed not equal (non zero)
>
1df4 : 68 > pla
1df5 : 2902 > and #fz
1df7 : c50c > cmp zpt+2
> trap_ne ;Z flag invalid
1df9 : d0fe > bne * ;failed not equal (non zero)
>
1dfb : a50e > lda zpt+4
1dfd : c50a > cmp zpt
> trap_ne ;altered bits in memory wrong
1dff : d0fe > bne * ;failed not equal (non zero)
>
1e01 : c8 iny ;iterate op1
1e02 : d004 bne tbt3
1e04 : e60b inc zpt+1 ;iterate op2
1e06 : f003 beq tbt2
1e08 : 4cc21c tbt3 jmp tbt1
1e0b : tbt2
1e0b : e0c0 cpx #$c0
trap_ne ;x altered during test
1e0d : d0fe > bne * ;failed not equal (non zero)
1e0f : ba tsx
1e10 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
1e12 : d0fe > bne * ;failed not equal (non zero)
next_test
1e14 : ad0202 > lda test_case ;previous test
1e17 : c910 > cmp #test_num
> trap_ne ;test is out of sequence
1e19 : d0fe > bne * ;failed not equal (non zero)
>
0011 = >test_num = test_num + 1
1e1b : a911 > lda #test_num ;*** next tests' number
1e1d : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
if rkwl_wdc_op
; 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
1e20 : a2ba ldx #$ba ;protect x & y
1e22 : a0d0 ldy #$d0
rmbt 0
1e24 : a9ff > lda #$ff
1e26 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1e28 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1e2a : 48 > pha ;use stack to load status
1e2b : a9a5 > lda #$a5 ;precharge accu
1e2d : 28 > plp
>
1e2e : 070a > rmb 0,zpt
> tst_a $a5,0
1e30 : 08 > php ;save flags
1e31 : c9a5 > cmp #$a5 ;test result
> trap_ne
1e33 : d0fe > bne * ;failed not equal (non zero)
>
1e35 : 68 > pla ;load status
1e36 : 48 > pha
> cmp_flag 0
1e37 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e39 : d0fe > bne * ;failed not equal (non zero)
>
1e3b : 28 > plp ;restore status
>
1e3c : a50a > lda zpt
1e3e : c9fe > cmp #$ff-(1<<0)
> trap_ne ;wrong bits set or cleared
1e40 : d0fe > bne * ;failed not equal (non zero)
>
1e42 : a901 > lda #1<<0
1e44 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1e46 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1e48 : 48 > pha ;use stack to load status
1e49 : a95a > lda #$5a ;precharge accu
1e4b : 28 > plp
>
1e4c : 070a > rmb 0,zpt
> tst_a $5a,$ff
1e4e : 08 > php ;save flags
1e4f : c95a > cmp #$5a ;test result
> trap_ne
1e51 : d0fe > bne * ;failed not equal (non zero)
>
1e53 : 68 > pla ;load status
1e54 : 48 > pha
> cmp_flag $ff
1e55 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e57 : d0fe > bne * ;failed not equal (non zero)
>
1e59 : 28 > plp ;restore status
>
1e5a : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1e5c : d0fe > bne * ;failed not equal (non zero)
>
rmbt 1
1e5e : a9ff > lda #$ff
1e60 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1e62 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1e64 : 48 > pha ;use stack to load status
1e65 : a9a5 > lda #$a5 ;precharge accu
1e67 : 28 > plp
>
1e68 : 170a > rmb 1,zpt
> tst_a $a5,0
1e6a : 08 > php ;save flags
1e6b : c9a5 > cmp #$a5 ;test result
> trap_ne
1e6d : d0fe > bne * ;failed not equal (non zero)
>
1e6f : 68 > pla ;load status
1e70 : 48 > pha
> cmp_flag 0
1e71 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e73 : d0fe > bne * ;failed not equal (non zero)
>
1e75 : 28 > plp ;restore status
>
1e76 : a50a > lda zpt
1e78 : c9fd > cmp #$ff-(1<<1)
> trap_ne ;wrong bits set or cleared
1e7a : d0fe > bne * ;failed not equal (non zero)
>
1e7c : a902 > lda #1<<1
1e7e : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1e80 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1e82 : 48 > pha ;use stack to load status
1e83 : a95a > lda #$5a ;precharge accu
1e85 : 28 > plp
>
1e86 : 170a > rmb 1,zpt
> tst_a $5a,$ff
1e88 : 08 > php ;save flags
1e89 : c95a > cmp #$5a ;test result
> trap_ne
1e8b : d0fe > bne * ;failed not equal (non zero)
>
1e8d : 68 > pla ;load status
1e8e : 48 > pha
> cmp_flag $ff
1e8f : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e91 : d0fe > bne * ;failed not equal (non zero)
>
1e93 : 28 > plp ;restore status
>
1e94 : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1e96 : d0fe > bne * ;failed not equal (non zero)
>
rmbt 2
1e98 : a9ff > lda #$ff
1e9a : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1e9c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1e9e : 48 > pha ;use stack to load status
1e9f : a9a5 > lda #$a5 ;precharge accu
1ea1 : 28 > plp
>
1ea2 : 270a > rmb 2,zpt
> tst_a $a5,0
1ea4 : 08 > php ;save flags
1ea5 : c9a5 > cmp #$a5 ;test result
> trap_ne
1ea7 : d0fe > bne * ;failed not equal (non zero)
>
1ea9 : 68 > pla ;load status
1eaa : 48 > pha
> cmp_flag 0
1eab : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ead : d0fe > bne * ;failed not equal (non zero)
>
1eaf : 28 > plp ;restore status
>
1eb0 : a50a > lda zpt
1eb2 : c9fb > cmp #$ff-(1<<2)
> trap_ne ;wrong bits set or cleared
1eb4 : d0fe > bne * ;failed not equal (non zero)
>
1eb6 : a904 > lda #1<<2
1eb8 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1eba : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1ebc : 48 > pha ;use stack to load status
1ebd : a95a > lda #$5a ;precharge accu
1ebf : 28 > plp
>
1ec0 : 270a > rmb 2,zpt
> tst_a $5a,$ff
1ec2 : 08 > php ;save flags
1ec3 : c95a > cmp #$5a ;test result
> trap_ne
1ec5 : d0fe > bne * ;failed not equal (non zero)
>
1ec7 : 68 > pla ;load status
1ec8 : 48 > pha
> cmp_flag $ff
1ec9 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ecb : d0fe > bne * ;failed not equal (non zero)
>
1ecd : 28 > plp ;restore status
>
1ece : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1ed0 : d0fe > bne * ;failed not equal (non zero)
>
rmbt 3
1ed2 : a9ff > lda #$ff
1ed4 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1ed6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1ed8 : 48 > pha ;use stack to load status
1ed9 : a9a5 > lda #$a5 ;precharge accu
1edb : 28 > plp
>
1edc : 370a > rmb 3,zpt
> tst_a $a5,0
1ede : 08 > php ;save flags
1edf : c9a5 > cmp #$a5 ;test result
> trap_ne
1ee1 : d0fe > bne * ;failed not equal (non zero)
>
1ee3 : 68 > pla ;load status
1ee4 : 48 > pha
> cmp_flag 0
1ee5 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ee7 : d0fe > bne * ;failed not equal (non zero)
>
1ee9 : 28 > plp ;restore status
>
1eea : a50a > lda zpt
1eec : c9f7 > cmp #$ff-(1<<3)
> trap_ne ;wrong bits set or cleared
1eee : d0fe > bne * ;failed not equal (non zero)
>
1ef0 : a908 > lda #1<<3
1ef2 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1ef4 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1ef6 : 48 > pha ;use stack to load status
1ef7 : a95a > lda #$5a ;precharge accu
1ef9 : 28 > plp
>
1efa : 370a > rmb 3,zpt
> tst_a $5a,$ff
1efc : 08 > php ;save flags
1efd : c95a > cmp #$5a ;test result
> trap_ne
1eff : d0fe > bne * ;failed not equal (non zero)
>
1f01 : 68 > pla ;load status
1f02 : 48 > pha
> cmp_flag $ff
1f03 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f05 : d0fe > bne * ;failed not equal (non zero)
>
1f07 : 28 > plp ;restore status
>
1f08 : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1f0a : d0fe > bne * ;failed not equal (non zero)
>
rmbt 4
1f0c : a9ff > lda #$ff
1f0e : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1f10 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1f12 : 48 > pha ;use stack to load status
1f13 : a9a5 > lda #$a5 ;precharge accu
1f15 : 28 > plp
>
1f16 : 470a > rmb 4,zpt
> tst_a $a5,0
1f18 : 08 > php ;save flags
1f19 : c9a5 > cmp #$a5 ;test result
> trap_ne
1f1b : d0fe > bne * ;failed not equal (non zero)
>
1f1d : 68 > pla ;load status
1f1e : 48 > pha
> cmp_flag 0
1f1f : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f21 : d0fe > bne * ;failed not equal (non zero)
>
1f23 : 28 > plp ;restore status
>
1f24 : a50a > lda zpt
1f26 : c9ef > cmp #$ff-(1<<4)
> trap_ne ;wrong bits set or cleared
1f28 : d0fe > bne * ;failed not equal (non zero)
>
1f2a : a910 > lda #1<<4
1f2c : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1f2e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1f30 : 48 > pha ;use stack to load status
1f31 : a95a > lda #$5a ;precharge accu
1f33 : 28 > plp
>
1f34 : 470a > rmb 4,zpt
> tst_a $5a,$ff
1f36 : 08 > php ;save flags
1f37 : c95a > cmp #$5a ;test result
> trap_ne
1f39 : d0fe > bne * ;failed not equal (non zero)
>
1f3b : 68 > pla ;load status
1f3c : 48 > pha
> cmp_flag $ff
1f3d : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f3f : d0fe > bne * ;failed not equal (non zero)
>
1f41 : 28 > plp ;restore status
>
1f42 : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1f44 : d0fe > bne * ;failed not equal (non zero)
>
rmbt 5
1f46 : a9ff > lda #$ff
1f48 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1f4a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1f4c : 48 > pha ;use stack to load status
1f4d : a9a5 > lda #$a5 ;precharge accu
1f4f : 28 > plp
>
1f50 : 570a > rmb 5,zpt
> tst_a $a5,0
1f52 : 08 > php ;save flags
1f53 : c9a5 > cmp #$a5 ;test result
> trap_ne
1f55 : d0fe > bne * ;failed not equal (non zero)
>
1f57 : 68 > pla ;load status
1f58 : 48 > pha
> cmp_flag 0
1f59 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f5b : d0fe > bne * ;failed not equal (non zero)
>
1f5d : 28 > plp ;restore status
>
1f5e : a50a > lda zpt
1f60 : c9df > cmp #$ff-(1<<5)
> trap_ne ;wrong bits set or cleared
1f62 : d0fe > bne * ;failed not equal (non zero)
>
1f64 : a920 > lda #1<<5
1f66 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1f68 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1f6a : 48 > pha ;use stack to load status
1f6b : a95a > lda #$5a ;precharge accu
1f6d : 28 > plp
>
1f6e : 570a > rmb 5,zpt
> tst_a $5a,$ff
1f70 : 08 > php ;save flags
1f71 : c95a > cmp #$5a ;test result
> trap_ne
1f73 : d0fe > bne * ;failed not equal (non zero)
>
1f75 : 68 > pla ;load status
1f76 : 48 > pha
> cmp_flag $ff
1f77 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f79 : d0fe > bne * ;failed not equal (non zero)
>
1f7b : 28 > plp ;restore status
>
1f7c : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1f7e : d0fe > bne * ;failed not equal (non zero)
>
rmbt 6
1f80 : a9ff > lda #$ff
1f82 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1f84 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1f86 : 48 > pha ;use stack to load status
1f87 : a9a5 > lda #$a5 ;precharge accu
1f89 : 28 > plp
>
1f8a : 670a > rmb 6,zpt
> tst_a $a5,0
1f8c : 08 > php ;save flags
1f8d : c9a5 > cmp #$a5 ;test result
> trap_ne
1f8f : d0fe > bne * ;failed not equal (non zero)
>
1f91 : 68 > pla ;load status
1f92 : 48 > pha
> cmp_flag 0
1f93 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f95 : d0fe > bne * ;failed not equal (non zero)
>
1f97 : 28 > plp ;restore status
>
1f98 : a50a > lda zpt
1f9a : c9bf > cmp #$ff-(1<<6)
> trap_ne ;wrong bits set or cleared
1f9c : d0fe > bne * ;failed not equal (non zero)
>
1f9e : a940 > lda #1<<6
1fa0 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1fa2 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1fa4 : 48 > pha ;use stack to load status
1fa5 : a95a > lda #$5a ;precharge accu
1fa7 : 28 > plp
>
1fa8 : 670a > rmb 6,zpt
> tst_a $5a,$ff
1faa : 08 > php ;save flags
1fab : c95a > cmp #$5a ;test result
> trap_ne
1fad : d0fe > bne * ;failed not equal (non zero)
>
1faf : 68 > pla ;load status
1fb0 : 48 > pha
> cmp_flag $ff
1fb1 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1fb3 : d0fe > bne * ;failed not equal (non zero)
>
1fb5 : 28 > plp ;restore status
>
1fb6 : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1fb8 : d0fe > bne * ;failed not equal (non zero)
>
rmbt 7
1fba : a9ff > lda #$ff
1fbc : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1fbe : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1fc0 : 48 > pha ;use stack to load status
1fc1 : a9a5 > lda #$a5 ;precharge accu
1fc3 : 28 > plp
>
1fc4 : 770a > rmb 7,zpt
> tst_a $a5,0
1fc6 : 08 > php ;save flags
1fc7 : c9a5 > cmp #$a5 ;test result
> trap_ne
1fc9 : d0fe > bne * ;failed not equal (non zero)
>
1fcb : 68 > pla ;load status
1fcc : 48 > pha
> cmp_flag 0
1fcd : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1fcf : d0fe > bne * ;failed not equal (non zero)
>
1fd1 : 28 > plp ;restore status
>
1fd2 : a50a > lda zpt
1fd4 : c97f > cmp #$ff-(1<<7)
> trap_ne ;wrong bits set or cleared
1fd6 : d0fe > bne * ;failed not equal (non zero)
>
1fd8 : a980 > lda #1<<7
1fda : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
1fdc : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1fde : 48 > pha ;use stack to load status
1fdf : a95a > lda #$5a ;precharge accu
1fe1 : 28 > plp
>
1fe2 : 770a > rmb 7,zpt
> tst_a $5a,$ff
1fe4 : 08 > php ;save flags
1fe5 : c95a > cmp #$5a ;test result
> trap_ne
1fe7 : d0fe > bne * ;failed not equal (non zero)
>
1fe9 : 68 > pla ;load status
1fea : 48 > pha
> cmp_flag $ff
1feb : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1fed : d0fe > bne * ;failed not equal (non zero)
>
1fef : 28 > plp ;restore status
>
1ff0 : a50a > lda zpt
> trap_ne ;wrong bits set or cleared
1ff2 : d0fe > bne * ;failed not equal (non zero)
>
smbt 0
1ff4 : a9fe > lda #$ff-(1<<0)
1ff6 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
1ff8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1ffa : 48 > pha ;use stack to load status
1ffb : a9a5 > lda #$a5 ;precharge accu
1ffd : 28 > plp
>
1ffe : 870a > smb 0,zpt
> tst_a $a5,0
2000 : 08 > php ;save flags
2001 : c9a5 > cmp #$a5 ;test result
> trap_ne
2003 : d0fe > bne * ;failed not equal (non zero)
>
2005 : 68 > pla ;load status
2006 : 48 > pha
> cmp_flag 0
2007 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2009 : d0fe > bne * ;failed not equal (non zero)
>
200b : 28 > plp ;restore status
>
200c : a50a > lda zpt
200e : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
2010 : d0fe > bne * ;failed not equal (non zero)
>
2012 : a900 > lda #0
2014 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
2016 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2018 : 48 > pha ;use stack to load status
2019 : a95a > lda #$5a ;precharge accu
201b : 28 > plp
>
201c : 870a > smb 0,zpt
> tst_a $5a,$ff
201e : 08 > php ;save flags
201f : c95a > cmp #$5a ;test result
> trap_ne
2021 : d0fe > bne * ;failed not equal (non zero)
>
2023 : 68 > pla ;load status
2024 : 48 > pha
> cmp_flag $ff
2025 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2027 : d0fe > bne * ;failed not equal (non zero)
>
2029 : 28 > plp ;restore status
>
202a : a50a > lda zpt
202c : c901 > cmp #1<<0
> trap_ne ;wrong bits set or cleared
202e : d0fe > bne * ;failed not equal (non zero)
>
smbt 1
2030 : a9fd > lda #$ff-(1<<1)
2032 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
2034 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2036 : 48 > pha ;use stack to load status
2037 : a9a5 > lda #$a5 ;precharge accu
2039 : 28 > plp
>
203a : 970a > smb 1,zpt
> tst_a $a5,0
203c : 08 > php ;save flags
203d : c9a5 > cmp #$a5 ;test result
> trap_ne
203f : d0fe > bne * ;failed not equal (non zero)
>
2041 : 68 > pla ;load status
2042 : 48 > pha
> cmp_flag 0
2043 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2045 : d0fe > bne * ;failed not equal (non zero)
>
2047 : 28 > plp ;restore status
>
2048 : a50a > lda zpt
204a : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
204c : d0fe > bne * ;failed not equal (non zero)
>
204e : a900 > lda #0
2050 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
2052 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2054 : 48 > pha ;use stack to load status
2055 : a95a > lda #$5a ;precharge accu
2057 : 28 > plp
>
2058 : 970a > smb 1,zpt
> tst_a $5a,$ff
205a : 08 > php ;save flags
205b : c95a > cmp #$5a ;test result
> trap_ne
205d : d0fe > bne * ;failed not equal (non zero)
>
205f : 68 > pla ;load status
2060 : 48 > pha
> cmp_flag $ff
2061 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2063 : d0fe > bne * ;failed not equal (non zero)
>
2065 : 28 > plp ;restore status
>
2066 : a50a > lda zpt
2068 : c902 > cmp #1<<1
> trap_ne ;wrong bits set or cleared
206a : d0fe > bne * ;failed not equal (non zero)
>
smbt 2
206c : a9fb > lda #$ff-(1<<2)
206e : 850a > sta zpt
> set_a $a5,0
> load_flag 0
2070 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2072 : 48 > pha ;use stack to load status
2073 : a9a5 > lda #$a5 ;precharge accu
2075 : 28 > plp
>
2076 : a70a > smb 2,zpt
> tst_a $a5,0
2078 : 08 > php ;save flags
2079 : c9a5 > cmp #$a5 ;test result
> trap_ne
207b : d0fe > bne * ;failed not equal (non zero)
>
207d : 68 > pla ;load status
207e : 48 > pha
> cmp_flag 0
207f : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2081 : d0fe > bne * ;failed not equal (non zero)
>
2083 : 28 > plp ;restore status
>
2084 : a50a > lda zpt
2086 : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
2088 : d0fe > bne * ;failed not equal (non zero)
>
208a : a900 > lda #0
208c : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
208e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2090 : 48 > pha ;use stack to load status
2091 : a95a > lda #$5a ;precharge accu
2093 : 28 > plp
>
2094 : a70a > smb 2,zpt
> tst_a $5a,$ff
2096 : 08 > php ;save flags
2097 : c95a > cmp #$5a ;test result
> trap_ne
2099 : d0fe > bne * ;failed not equal (non zero)
>
209b : 68 > pla ;load status
209c : 48 > pha
> cmp_flag $ff
209d : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
209f : d0fe > bne * ;failed not equal (non zero)
>
20a1 : 28 > plp ;restore status
>
20a2 : a50a > lda zpt
20a4 : c904 > cmp #1<<2
> trap_ne ;wrong bits set or cleared
20a6 : d0fe > bne * ;failed not equal (non zero)
>
smbt 3
20a8 : a9f7 > lda #$ff-(1<<3)
20aa : 850a > sta zpt
> set_a $a5,0
> load_flag 0
20ac : a900 > lda #0 ;allow test to change I-flag (no mask)
>
20ae : 48 > pha ;use stack to load status
20af : a9a5 > lda #$a5 ;precharge accu
20b1 : 28 > plp
>
20b2 : b70a > smb 3,zpt
> tst_a $a5,0
20b4 : 08 > php ;save flags
20b5 : c9a5 > cmp #$a5 ;test result
> trap_ne
20b7 : d0fe > bne * ;failed not equal (non zero)
>
20b9 : 68 > pla ;load status
20ba : 48 > pha
> cmp_flag 0
20bb : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20bd : d0fe > bne * ;failed not equal (non zero)
>
20bf : 28 > plp ;restore status
>
20c0 : a50a > lda zpt
20c2 : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
20c4 : d0fe > bne * ;failed not equal (non zero)
>
20c6 : a900 > lda #0
20c8 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
20ca : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
20cc : 48 > pha ;use stack to load status
20cd : a95a > lda #$5a ;precharge accu
20cf : 28 > plp
>
20d0 : b70a > smb 3,zpt
> tst_a $5a,$ff
20d2 : 08 > php ;save flags
20d3 : c95a > cmp #$5a ;test result
> trap_ne
20d5 : d0fe > bne * ;failed not equal (non zero)
>
20d7 : 68 > pla ;load status
20d8 : 48 > pha
> cmp_flag $ff
20d9 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20db : d0fe > bne * ;failed not equal (non zero)
>
20dd : 28 > plp ;restore status
>
20de : a50a > lda zpt
20e0 : c908 > cmp #1<<3
> trap_ne ;wrong bits set or cleared
20e2 : d0fe > bne * ;failed not equal (non zero)
>
smbt 4
20e4 : a9ef > lda #$ff-(1<<4)
20e6 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
20e8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
20ea : 48 > pha ;use stack to load status
20eb : a9a5 > lda #$a5 ;precharge accu
20ed : 28 > plp
>
20ee : c70a > smb 4,zpt
> tst_a $a5,0
20f0 : 08 > php ;save flags
20f1 : c9a5 > cmp #$a5 ;test result
> trap_ne
20f3 : d0fe > bne * ;failed not equal (non zero)
>
20f5 : 68 > pla ;load status
20f6 : 48 > pha
> cmp_flag 0
20f7 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20f9 : d0fe > bne * ;failed not equal (non zero)
>
20fb : 28 > plp ;restore status
>
20fc : a50a > lda zpt
20fe : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
2100 : d0fe > bne * ;failed not equal (non zero)
>
2102 : a900 > lda #0
2104 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
2106 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2108 : 48 > pha ;use stack to load status
2109 : a95a > lda #$5a ;precharge accu
210b : 28 > plp
>
210c : c70a > smb 4,zpt
> tst_a $5a,$ff
210e : 08 > php ;save flags
210f : c95a > cmp #$5a ;test result
> trap_ne
2111 : d0fe > bne * ;failed not equal (non zero)
>
2113 : 68 > pla ;load status
2114 : 48 > pha
> cmp_flag $ff
2115 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2117 : d0fe > bne * ;failed not equal (non zero)
>
2119 : 28 > plp ;restore status
>
211a : a50a > lda zpt
211c : c910 > cmp #1<<4
> trap_ne ;wrong bits set or cleared
211e : d0fe > bne * ;failed not equal (non zero)
>
smbt 5
2120 : a9df > lda #$ff-(1<<5)
2122 : 850a > sta zpt
> set_a $a5,0
> load_flag 0
2124 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2126 : 48 > pha ;use stack to load status
2127 : a9a5 > lda #$a5 ;precharge accu
2129 : 28 > plp
>
212a : d70a > smb 5,zpt
> tst_a $a5,0
212c : 08 > php ;save flags
212d : c9a5 > cmp #$a5 ;test result
> trap_ne
212f : d0fe > bne * ;failed not equal (non zero)
>
2131 : 68 > pla ;load status
2132 : 48 > pha
> cmp_flag 0
2133 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2135 : d0fe > bne * ;failed not equal (non zero)
>
2137 : 28 > plp ;restore status
>
2138 : a50a > lda zpt
213a : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
213c : d0fe > bne * ;failed not equal (non zero)
>
213e : a900 > lda #0
2140 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
2142 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2144 : 48 > pha ;use stack to load status
2145 : a95a > lda #$5a ;precharge accu
2147 : 28 > plp
>
2148 : d70a > smb 5,zpt
> tst_a $5a,$ff
214a : 08 > php ;save flags
214b : c95a > cmp #$5a ;test result
> trap_ne
214d : d0fe > bne * ;failed not equal (non zero)
>
214f : 68 > pla ;load status
2150 : 48 > pha
> cmp_flag $ff
2151 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2153 : d0fe > bne * ;failed not equal (non zero)
>
2155 : 28 > plp ;restore status
>
2156 : a50a > lda zpt
2158 : c920 > cmp #1<<5
> trap_ne ;wrong bits set or cleared
215a : d0fe > bne * ;failed not equal (non zero)
>
smbt 6
215c : a9bf > lda #$ff-(1<<6)
215e : 850a > sta zpt
> set_a $a5,0
> load_flag 0
2160 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2162 : 48 > pha ;use stack to load status
2163 : a9a5 > lda #$a5 ;precharge accu
2165 : 28 > plp
>
2166 : e70a > smb 6,zpt
> tst_a $a5,0
2168 : 08 > php ;save flags
2169 : c9a5 > cmp #$a5 ;test result
> trap_ne
216b : d0fe > bne * ;failed not equal (non zero)
>
216d : 68 > pla ;load status
216e : 48 > pha
> cmp_flag 0
216f : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2171 : d0fe > bne * ;failed not equal (non zero)
>
2173 : 28 > plp ;restore status
>
2174 : a50a > lda zpt
2176 : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
2178 : d0fe > bne * ;failed not equal (non zero)
>
217a : a900 > lda #0
217c : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
217e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2180 : 48 > pha ;use stack to load status
2181 : a95a > lda #$5a ;precharge accu
2183 : 28 > plp
>
2184 : e70a > smb 6,zpt
> tst_a $5a,$ff
2186 : 08 > php ;save flags
2187 : c95a > cmp #$5a ;test result
> trap_ne
2189 : d0fe > bne * ;failed not equal (non zero)
>
218b : 68 > pla ;load status
218c : 48 > pha
> cmp_flag $ff
218d : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
218f : d0fe > bne * ;failed not equal (non zero)
>
2191 : 28 > plp ;restore status
>
2192 : a50a > lda zpt
2194 : c940 > cmp #1<<6
> trap_ne ;wrong bits set or cleared
2196 : d0fe > bne * ;failed not equal (non zero)
>
smbt 7
2198 : a97f > lda #$ff-(1<<7)
219a : 850a > sta zpt
> set_a $a5,0
> load_flag 0
219c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
219e : 48 > pha ;use stack to load status
219f : a9a5 > lda #$a5 ;precharge accu
21a1 : 28 > plp
>
21a2 : f70a > smb 7,zpt
> tst_a $a5,0
21a4 : 08 > php ;save flags
21a5 : c9a5 > cmp #$a5 ;test result
> trap_ne
21a7 : d0fe > bne * ;failed not equal (non zero)
>
21a9 : 68 > pla ;load status
21aa : 48 > pha
> cmp_flag 0
21ab : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
21ad : d0fe > bne * ;failed not equal (non zero)
>
21af : 28 > plp ;restore status
>
21b0 : a50a > lda zpt
21b2 : c9ff > cmp #$ff
> trap_ne ;wrong bits set or cleared
21b4 : d0fe > bne * ;failed not equal (non zero)
>
21b6 : a900 > lda #0
21b8 : 850a > sta zpt
> set_a $5a,$ff
> load_flag $ff
21ba : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
21bc : 48 > pha ;use stack to load status
21bd : a95a > lda #$5a ;precharge accu
21bf : 28 > plp
>
21c0 : f70a > smb 7,zpt
> tst_a $5a,$ff
21c2 : 08 > php ;save flags
21c3 : c95a > cmp #$5a ;test result
> trap_ne
21c5 : d0fe > bne * ;failed not equal (non zero)
>
21c7 : 68 > pla ;load status
21c8 : 48 > pha
> cmp_flag $ff
21c9 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
21cb : d0fe > bne * ;failed not equal (non zero)
>
21cd : 28 > plp ;restore status
>
21ce : a50a > lda zpt
21d0 : c980 > cmp #1<<7
> trap_ne ;wrong bits set or cleared
21d2 : d0fe > bne * ;failed not equal (non zero)
>
21d4 : e0ba cpx #$ba
trap_ne ;x altered during test
21d6 : d0fe > bne * ;failed not equal (non zero)
21d8 : c0d0 cpy #$d0
trap_ne ;y altered during test
21da : d0fe > bne * ;failed not equal (non zero)
21dc : ba tsx
21dd : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
21df : d0fe > bne * ;failed not equal (non zero)
next_test
21e1 : ad0202 > lda test_case ;previous test
21e4 : c911 > cmp #test_num
> trap_ne ;test is out of sequence
21e6 : d0fe > bne * ;failed not equal (non zero)
>
0012 = >test_num = test_num + 1
21e8 : a912 > lda #test_num ;*** next tests' number
21ea : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
endif
; testing CMP - (zp)
21ed : a2de ldx #$de ;protect x & y
21ef : a0ad ldy #$ad
set_a $80,0
> load_flag 0
21f1 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
21f3 : 48 > pha ;use stack to load status
21f4 : a980 > lda #$80 ;precharge accu
21f6 : 28 > plp
21f7 : d22a cmp (ind1+8)
tst_a $80,fc
21f9 : 08 > php ;save flags
21fa : c980 > cmp #$80 ;test result
> trap_ne
21fc : d0fe > bne * ;failed not equal (non zero)
>
21fe : 68 > pla ;load status
21ff : 48 > pha
> cmp_flag fc
2200 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2202 : d0fe > bne * ;failed not equal (non zero)
>
2204 : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
2205 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2207 : 48 > pha ;use stack to load status
2208 : a97f > lda #$7f ;precharge accu
220a : 28 > plp
220b : d22a cmp (ind1+8)
tst_a $7f,fzc
220d : 08 > php ;save flags
220e : c97f > cmp #$7f ;test result
> trap_ne
2210 : d0fe > bne * ;failed not equal (non zero)
>
2212 : 68 > pla ;load status
2213 : 48 > pha
> cmp_flag fzc
2214 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2216 : d0fe > bne * ;failed not equal (non zero)
>
2218 : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
2219 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
221b : 48 > pha ;use stack to load status
221c : a97e > lda #$7e ;precharge accu
221e : 28 > plp
221f : d22a cmp (ind1+8)
tst_a $7e,fn
2221 : 08 > php ;save flags
2222 : c97e > cmp #$7e ;test result
> trap_ne
2224 : d0fe > bne * ;failed not equal (non zero)
>
2226 : 68 > pla ;load status
2227 : 48 > pha
> cmp_flag fn
2228 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
222a : d0fe > bne * ;failed not equal (non zero)
>
222c : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
222d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
222f : 48 > pha ;use stack to load status
2230 : a980 > lda #$80 ;precharge accu
2232 : 28 > plp
2233 : d22a cmp (ind1+8)
tst_a $80,~fnz
2235 : 08 > php ;save flags
2236 : c980 > cmp #$80 ;test result
> trap_ne
2238 : d0fe > bne * ;failed not equal (non zero)
>
223a : 68 > pla ;load status
223b : 48 > pha
> cmp_flag ~fnz
223c : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
223e : d0fe > bne * ;failed not equal (non zero)
>
2240 : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
2241 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2243 : 48 > pha ;use stack to load status
2244 : a97f > lda #$7f ;precharge accu
2246 : 28 > plp
2247 : d22a cmp (ind1+8)
tst_a $7f,~fn
2249 : 08 > php ;save flags
224a : c97f > cmp #$7f ;test result
> trap_ne
224c : d0fe > bne * ;failed not equal (non zero)
>
224e : 68 > pla ;load status
224f : 48 > pha
> cmp_flag ~fn
2250 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2252 : d0fe > bne * ;failed not equal (non zero)
>
2254 : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
2255 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2257 : 48 > pha ;use stack to load status
2258 : a97e > lda #$7e ;precharge accu
225a : 28 > plp
225b : d22a cmp (ind1+8)
tst_a $7e,~fzc
225d : 08 > php ;save flags
225e : c97e > cmp #$7e ;test result
> trap_ne
2260 : d0fe > bne * ;failed not equal (non zero)
>
2262 : 68 > pla ;load status
2263 : 48 > pha
> cmp_flag ~fzc
2264 : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2266 : d0fe > bne * ;failed not equal (non zero)
>
2268 : 28 > plp ;restore status
2269 : e0de cpx #$de
trap_ne ;x altered during test
226b : d0fe > bne * ;failed not equal (non zero)
226d : c0ad cpy #$ad
trap_ne ;y altered during test
226f : d0fe > bne * ;failed not equal (non zero)
2271 : ba tsx
2272 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
2274 : d0fe > bne * ;failed not equal (non zero)
next_test
2276 : ad0202 > lda test_case ;previous test
2279 : c912 > cmp #test_num
> trap_ne ;test is out of sequence
227b : d0fe > bne * ;failed not equal (non zero)
>
0013 = >test_num = test_num + 1
227d : a913 > lda #test_num ;*** next tests' number
227f : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing logical instructions - AND EOR ORA (zp)
2282 : a242 ldx #$42 ;protect x & y
2284 : a000 ldy #0 ;AND
2286 : a538 lda indAN ;set indirect address
2288 : 850a sta zpt
228a : a539 lda indAN+1
228c : 850b sta zpt+1
228e : tand1
set_ay absANa,0
> load_flag 0
228e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2290 : 48 > pha ;use stack to load status
2291 : b94d02 > lda absANa,y ;precharge accu
2294 : 28 > plp
2295 : 320a and (zpt)
tst_ay absrlo,absflo,0
2297 : 08 > php ;save flags
2298 : d95502 > cmp absrlo,y ;test result
> trap_ne ;
229b : d0fe > bne * ;failed not equal (non zero)
>
229d : 68 > pla ;load status
> eor_flag 0
229e : 4930 > eor #0|fao ;invert expected flags + always on bits
>
22a0 : d95902 > cmp absflo,y ;test flags
> trap_ne
22a3 : d0fe > bne * ;failed not equal (non zero)
>
22a5 : e60a inc zpt
22a7 : c8 iny
22a8 : c004 cpy #4
22aa : d0e2 bne tand1
22ac : 88 dey
22ad : c60a dec zpt
22af : tand2
set_ay absANa,$ff
> load_flag $ff
22af : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
22b1 : 48 > pha ;use stack to load status
22b2 : b94d02 > lda absANa,y ;precharge accu
22b5 : 28 > plp
22b6 : 320a and (zpt)
tst_ay absrlo,absflo,$ff-fnz
22b8 : 08 > php ;save flags
22b9 : d95502 > cmp absrlo,y ;test result
> trap_ne ;
22bc : d0fe > bne * ;failed not equal (non zero)
>
22be : 68 > pla ;load status
> eor_flag $ff-fnz
22bf : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
22c1 : d95902 > cmp absflo,y ;test flags
> trap_ne
22c4 : d0fe > bne * ;failed not equal (non zero)
>
22c6 : c60a dec zpt
22c8 : 88 dey
22c9 : 10e4 bpl tand2
22cb : a000 ldy #0 ;EOR
22cd : a540 lda indEO ;set indirect address
22cf : 850a sta zpt
22d1 : a541 lda indEO+1
22d3 : 850b sta zpt+1
22d5 : teor1
set_ay absEOa,0
> load_flag 0
22d5 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
22d7 : 48 > pha ;use stack to load status
22d8 : b95102 > lda absEOa,y ;precharge accu
22db : 28 > plp
22dc : 520a eor (zpt)
tst_ay absrlo,absflo,0
22de : 08 > php ;save flags
22df : d95502 > cmp absrlo,y ;test result
> trap_ne ;
22e2 : d0fe > bne * ;failed not equal (non zero)
>
22e4 : 68 > pla ;load status
> eor_flag 0
22e5 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
22e7 : d95902 > cmp absflo,y ;test flags
> trap_ne
22ea : d0fe > bne * ;failed not equal (non zero)
>
22ec : e60a inc zpt
22ee : c8 iny
22ef : c004 cpy #4
22f1 : d0e2 bne teor1
22f3 : 88 dey
22f4 : c60a dec zpt
22f6 : teor2
set_ay absEOa,$ff
> load_flag $ff
22f6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
22f8 : 48 > pha ;use stack to load status
22f9 : b95102 > lda absEOa,y ;precharge accu
22fc : 28 > plp
22fd : 520a eor (zpt)
tst_ay absrlo,absflo,$ff-fnz
22ff : 08 > php ;save flags
2300 : d95502 > cmp absrlo,y ;test result
> trap_ne ;
2303 : d0fe > bne * ;failed not equal (non zero)
>
2305 : 68 > pla ;load status
> eor_flag $ff-fnz
2306 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2308 : d95902 > cmp absflo,y ;test flags
> trap_ne
230b : d0fe > bne * ;failed not equal (non zero)
>
230d : c60a dec zpt
230f : 88 dey
2310 : 10e4 bpl teor2
2312 : a000 ldy #0 ;ORA
2314 : a548 lda indOR ;set indirect address
2316 : 850a sta zpt
2318 : a549 lda indOR+1
231a : 850b sta zpt+1
231c : tora1
set_ay absORa,0
> load_flag 0
231c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
231e : 48 > pha ;use stack to load status
231f : b94902 > lda absORa,y ;precharge accu
2322 : 28 > plp
2323 : 120a ora (zpt)
tst_ay absrlo,absflo,0
2325 : 08 > php ;save flags
2326 : d95502 > cmp absrlo,y ;test result
> trap_ne ;
2329 : d0fe > bne * ;failed not equal (non zero)
>
232b : 68 > pla ;load status
> eor_flag 0
232c : 4930 > eor #0|fao ;invert expected flags + always on bits
>
232e : d95902 > cmp absflo,y ;test flags
> trap_ne
2331 : d0fe > bne * ;failed not equal (non zero)
>
2333 : e60a inc zpt
2335 : c8 iny
2336 : c004 cpy #4
2338 : d0e2 bne tora1
233a : 88 dey
233b : c60a dec zpt
233d : tora2
set_ay absORa,$ff
> load_flag $ff
233d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
233f : 48 > pha ;use stack to load status
2340 : b94902 > lda absORa,y ;precharge accu
2343 : 28 > plp
2344 : 120a ora (zpt)
tst_ay absrlo,absflo,$ff-fnz
2346 : 08 > php ;save flags
2347 : d95502 > cmp absrlo,y ;test result
> trap_ne ;
234a : d0fe > bne * ;failed not equal (non zero)
>
234c : 68 > pla ;load status
> eor_flag $ff-fnz
234d : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
234f : d95902 > cmp absflo,y ;test flags
> trap_ne
2352 : d0fe > bne * ;failed not equal (non zero)
>
2354 : c60a dec zpt
2356 : 88 dey
2357 : 10e4 bpl tora2
2359 : e042 cpx #$42
trap_ne ;x altered during test
235b : d0fe > bne * ;failed not equal (non zero)
235d : ba tsx
235e : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
2360 : d0fe > bne * ;failed not equal (non zero)
next_test
2362 : ad0202 > lda test_case ;previous test
2365 : c913 > cmp #test_num
> trap_ne ;test is out of sequence
2367 : d0fe > bne * ;failed not equal (non zero)
>
0014 = >test_num = test_num + 1
2369 : a914 > lda #test_num ;*** next tests' number
236b : 8d0202 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
if I_flag = 3
236e : 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
236f : d8 cld
2370 : a20c ldx #ad2 ;for indexed test
2372 : a0ff ldy #$ff ;max range
2374 : a900 lda #0 ;start with adding zeroes & no carry
2376 : 850a sta adfc ;carry in - for diag
2378 : 850b sta ad1 ;operand 1 - accumulator
237a : 850c sta ad2 ;operand 2 - memory or immediate
237c : 8d0502 sta ada2 ;non zp
237f : 850d sta adrl ;expected result bits 0-7
2381 : 850e sta adrh ;expected result bit 8 (carry out)
2383 : a9ff lda #$ff ;complemented operand 2 for subtract
2385 : 8510 sta sb2
2387 : 8d0602 sta sba2 ;non zp
238a : a902 lda #2 ;expected Z-flag
238c : 850f sta adrf
238e : 18 tadd clc ;test with carry clear
238f : 200326 jsr chkadd
2392 : e60a inc adfc ;now with carry
2394 : e60d inc adrl ;result +1
2396 : 08 php ;save N & Z from low result
2397 : 08 php
2398 : 68 pla ;accu holds expected flags
2399 : 2982 and #$82 ;mask N & Z
239b : 28 plp
239c : d002 bne tadd1
239e : e60e inc adrh ;result bit 8 - carry
23a0 : 050e tadd1 ora adrh ;merge C to expected flags
23a2 : 850f sta adrf ;save expected flags except overflow
23a4 : 38 sec ;test with carry set
23a5 : 200326 jsr chkadd
23a8 : c60a dec adfc ;same for operand +1 but no carry
23aa : e60b inc ad1
23ac : d0e0 bne tadd ;iterate op1
23ae : a900 lda #0 ;preset result to op2 when op1 = 0
23b0 : 850e sta adrh
23b2 : ee0502 inc ada2
23b5 : e60c inc ad2
23b7 : 08 php ;save NZ as operand 2 becomes the new result
23b8 : 68 pla
23b9 : 2982 and #$82 ;mask N00000Z0
23bb : 850f sta adrf ;no need to check carry as we are adding to 0
23bd : c610 dec sb2 ;complement subtract operand 2
23bf : ce0602 dec sba2
23c2 : a50c lda ad2
23c4 : 850d sta adrl
23c6 : d0c6 bne tadd ;iterate op2
23c8 : e00c cpx #ad2
trap_ne ;x altered during test
23ca : d0fe > bne * ;failed not equal (non zero)
23cc : c0ff cpy #$ff
trap_ne ;y altered during test
23ce : d0fe > bne * ;failed not equal (non zero)
23d0 : ba tsx
23d1 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
23d3 : d0fe > bne * ;failed not equal (non zero)
next_test
23d5 : ad0202 > lda test_case ;previous test
23d8 : c914 > cmp #test_num
> trap_ne ;test is out of sequence
23da : d0fe > bne * ;failed not equal (non zero)
>
0015 = >test_num = test_num + 1
23dc : a915 > lda #test_num ;*** next tests' number
23de : 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
23e1 : f8 sed
23e2 : a20c ldx #ad2 ;for indexed test
23e4 : a0ff ldy #$ff ;max range
23e6 : a999 lda #$99 ;start with adding 99 to 99 with carry
23e8 : 850b sta ad1 ;operand 1 - accumulator
23ea : 850c sta ad2 ;operand 2 - memory or immediate
23ec : 8d0502 sta ada2 ;non zp
23ef : 850d sta adrl ;expected result bits 0-7
23f1 : a901 lda #1 ;set carry in & out
23f3 : 850a sta adfc ;carry in - for diag
23f5 : 850e sta adrh ;expected result bit 8 (carry out)
23f7 : a981 lda #$81 ;set N & C (99 + 99 + C = 99 + C)
23f9 : 850f sta adrf
23fb : a900 lda #0 ;complemented operand 2 for subtract
23fd : 8510 sta sb2
23ff : 8d0602 sta sba2 ;non zp
2402 : 38 tdad sec ;test with carry set
2403 : 20ae24 jsr chkdad
2406 : c60a dec adfc ;now with carry clear
2408 : a50d lda adrl ;decimal adjust result
240a : d008 bne tdad1 ;skip clear carry & preset result 99 (9A-1)
240c : c60e dec adrh
240e : a999 lda #$99
2410 : 850d sta adrl
2412 : d012 bne tdad3
2414 : 290f tdad1 and #$f ;lower nibble mask
2416 : d00c bne tdad2 ;no decimal adjust needed
2418 : c60d dec adrl ;decimal adjust (?0-6)
241a : c60d dec adrl
241c : c60d dec adrl
241e : c60d dec adrl
2420 : c60d dec adrl
2422 : c60d dec adrl
2424 : c60d tdad2 dec adrl ;result -1
2426 : 08 tdad3 php ;save valid flags
2427 : 68 pla
2428 : 2982 and #$82 ;N-----Z-
242a : 050e ora adrh ;N-----ZC
242c : 850f sta adrf
242e : 18 clc ;test with carry clear
242f : 20ae24 jsr chkdad
2432 : e60a inc adfc ;same for operand -1 but with carry
2434 : a50b lda ad1 ;decimal adjust operand 1
2436 : f015 beq tdad5 ;iterate operand 2
2438 : 290f and #$f ;lower nibble mask
243a : d00c bne tdad4 ;skip decimal adjust
243c : c60b dec ad1 ;decimal adjust (?0-6)
243e : c60b dec ad1
2440 : c60b dec ad1
2442 : c60b dec ad1
2444 : c60b dec ad1
2446 : c60b dec ad1
2448 : c60b tdad4 dec ad1 ;operand 1 -1
244a : 4c0224 jmp tdad ;iterate op1
244d : a999 tdad5 lda #$99 ;precharge op1 max
244f : 850b sta ad1
2451 : a50c lda ad2 ;decimal adjust operand 2
2453 : f039 beq tdad7 ;end of iteration
2455 : 290f and #$f ;lower nibble mask
2457 : d018 bne tdad6 ;skip decimal adjust
2459 : c60c dec ad2 ;decimal adjust (?0-6)
245b : c60c dec ad2
245d : c60c dec ad2
245f : c60c dec ad2
2461 : c60c dec ad2
2463 : c60c dec ad2
2465 : e610 inc sb2 ;complemented decimal adjust for subtract (?9+6)
2467 : e610 inc sb2
2469 : e610 inc sb2
246b : e610 inc sb2
246d : e610 inc sb2
246f : e610 inc sb2
2471 : c60c tdad6 dec ad2 ;operand 2 -1
2473 : e610 inc sb2 ;complemented operand for subtract
2475 : a510 lda sb2
2477 : 8d0602 sta sba2 ;copy as non zp operand
247a : a50c lda ad2
247c : 8d0502 sta ada2 ;copy as non zp operand
247f : 850d sta adrl ;new result since op1+carry=00+carry +op2=op2
2481 : 08 php ;save flags
2482 : 68 pla
2483 : 2982 and #$82 ;N-----Z-
2485 : 0901 ora #1 ;N-----ZC
2487 : 850f sta adrf
2489 : e60e inc adrh ;result carry
248b : 4c0224 jmp tdad ;iterate op2
248e : e00c tdad7 cpx #ad2
trap_ne ;x altered during test
2490 : d0fe > bne * ;failed not equal (non zero)
2492 : c0ff cpy #$ff
trap_ne ;y altered during test
2494 : d0fe > bne * ;failed not equal (non zero)
2496 : ba tsx
2497 : e0ff cpx #$ff
trap_ne ;sp push/pop mismatch
2499 : d0fe > bne * ;failed not equal (non zero)
249b : d8 cld
249c : ad0202 lda test_case
249f : c915 cmp #test_num
trap_ne ;previous test is out of sequence
24a1 : d0fe > bne * ;failed not equal (non zero)
24a3 : a9f0 lda #$f0 ;mark opcode testing complete
24a5 : 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
24a8 : 4ca824 > jmp * ;test passed, no errors
; -------------
; S U C C E S S ************************************************
24ab : 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
24ae : chkdad
; decimal ADC / SBC zp
24ae : 08 php ;save carry for subtract
24af : a50b lda ad1
24b1 : 650c adc ad2 ;perform add
24b3 : 08 php
24b4 : c50d cmp adrl ;check result
trap_ne ;bad result
24b6 : d0fe > bne * ;failed not equal (non zero)
24b8 : 68 pla ;check flags
24b9 : 2983 and #$83 ;mask N-----ZC
24bb : c50f cmp adrf
trap_ne ;bad flags
24bd : d0fe > bne * ;failed not equal (non zero)
24bf : 28 plp
24c0 : 08 php ;save carry for next add
24c1 : a50b lda ad1
24c3 : e510 sbc sb2 ;perform subtract
24c5 : 08 php
24c6 : c50d cmp adrl ;check result
trap_ne ;bad result
24c8 : d0fe > bne * ;failed not equal (non zero)
24ca : 68 pla ;check flags
24cb : 2983 and #$83 ;mask N-----ZC
24cd : c50f cmp adrf
trap_ne ;bad flags
24cf : d0fe > bne * ;failed not equal (non zero)
24d1 : 28 plp
; decimal ADC / SBC abs
24d2 : 08 php ;save carry for subtract
24d3 : a50b lda ad1
24d5 : 6d0502 adc ada2 ;perform add
24d8 : 08 php
24d9 : c50d cmp adrl ;check result
trap_ne ;bad result
24db : d0fe > bne * ;failed not equal (non zero)
24dd : 68 pla ;check flags
24de : 2983 and #$83 ;mask N-----ZC
24e0 : c50f cmp adrf
trap_ne ;bad flags
24e2 : d0fe > bne * ;failed not equal (non zero)
24e4 : 28 plp
24e5 : 08 php ;save carry for next add
24e6 : a50b lda ad1
24e8 : ed0602 sbc sba2 ;perform subtract
24eb : 08 php
24ec : c50d cmp adrl ;check result
trap_ne ;bad result
24ee : d0fe > bne * ;failed not equal (non zero)
24f0 : 68 pla ;check flags
24f1 : 2983 and #$83 ;mask N-----ZC
24f3 : c50f cmp adrf
trap_ne ;bad flags
24f5 : d0fe > bne * ;failed not equal (non zero)
24f7 : 28 plp
; decimal ADC / SBC #
24f8 : 08 php ;save carry for subtract
24f9 : a50c lda ad2
24fb : 8d0125 sta chkdadi ;self modify immediate
24fe : a50b lda ad1
2501 = chkdadi = * + 1 ;operand of the immediate ADC
2500 : 6900 adc #0 ;perform add
2502 : 08 php
2503 : c50d cmp adrl ;check result
trap_ne ;bad result
2505 : d0fe > bne * ;failed not equal (non zero)
2507 : 68 pla ;check flags
2508 : 2983 and #$83 ;mask N-----ZC
250a : c50f cmp adrf
trap_ne ;bad flags
250c : d0fe > bne * ;failed not equal (non zero)
250e : 28 plp
250f : 08 php ;save carry for next add
2510 : a510 lda sb2
2512 : 8d1825 sta chkdsbi ;self modify immediate
2515 : a50b lda ad1
2518 = chkdsbi = * + 1 ;operand of the immediate SBC
2517 : e900 sbc #0 ;perform subtract
2519 : 08 php
251a : c50d cmp adrl ;check result
trap_ne ;bad result
251c : d0fe > bne * ;failed not equal (non zero)
251e : 68 pla ;check flags
251f : 2983 and #$83 ;mask N-----ZC
2521 : c50f cmp adrf
trap_ne ;bad flags
2523 : d0fe > bne * ;failed not equal (non zero)
2525 : 28 plp
; decimal ADC / SBC zp,x
2526 : 08 php ;save carry for subtract
2527 : a50b lda ad1
2529 : 7500 adc 0,x ;perform add
252b : 08 php
252c : c50d cmp adrl ;check result
trap_ne ;bad result
252e : d0fe > bne * ;failed not equal (non zero)
2530 : 68 pla ;check flags
2531 : 2983 and #$83 ;mask N-----ZC
2533 : c50f cmp adrf
trap_ne ;bad flags
2535 : d0fe > bne * ;failed not equal (non zero)
2537 : 28 plp
2538 : 08 php ;save carry for next add
2539 : a50b lda ad1
253b : f504 sbc sb2-ad2,x ;perform subtract
253d : 08 php
253e : c50d cmp adrl ;check result
trap_ne ;bad result
2540 : d0fe > bne * ;failed not equal (non zero)
2542 : 68 pla ;check flags
2543 : 2983 and #$83 ;mask N-----ZC
2545 : c50f cmp adrf
trap_ne ;bad flags
2547 : d0fe > bne * ;failed not equal (non zero)
2549 : 28 plp
; decimal ADC / SBC abs,x
254a : 08 php ;save carry for subtract
254b : a50b lda ad1
254d : 7df901 adc ada2-ad2,x ;perform add
2550 : 08 php
2551 : c50d cmp adrl ;check result
trap_ne ;bad result
2553 : d0fe > bne * ;failed not equal (non zero)
2555 : 68 pla ;check flags
2556 : 2983 and #$83 ;mask N-----ZC
2558 : c50f cmp adrf
trap_ne ;bad flags
255a : d0fe > bne * ;failed not equal (non zero)
255c : 28 plp
255d : 08 php ;save carry for next add
255e : a50b lda ad1
2560 : fdfa01 sbc sba2-ad2,x ;perform subtract
2563 : 08 php
2564 : c50d cmp adrl ;check result
trap_ne ;bad result
2566 : d0fe > bne * ;failed not equal (non zero)
2568 : 68 pla ;check flags
2569 : 2983 and #$83 ;mask N-----ZC
256b : c50f cmp adrf
trap_ne ;bad flags
256d : d0fe > bne * ;failed not equal (non zero)
256f : 28 plp
; decimal ADC / SBC abs,y
2570 : 08 php ;save carry for subtract
2571 : a50b lda ad1
2573 : 790601 adc ada2-$ff,y ;perform add
2576 : 08 php
2577 : c50d cmp adrl ;check result
trap_ne ;bad result
2579 : d0fe > bne * ;failed not equal (non zero)
257b : 68 pla ;check flags
257c : 2983 and #$83 ;mask N-----ZC
257e : c50f cmp adrf
trap_ne ;bad flags
2580 : d0fe > bne * ;failed not equal (non zero)
2582 : 28 plp
2583 : 08 php ;save carry for next add
2584 : a50b lda ad1
2586 : f90701 sbc sba2-$ff,y ;perform subtract
2589 : 08 php
258a : c50d cmp adrl ;check result
trap_ne ;bad result
258c : d0fe > bne * ;failed not equal (non zero)
258e : 68 pla ;check flags
258f : 2983 and #$83 ;mask N-----ZC
2591 : c50f cmp adrf
trap_ne ;bad flags
2593 : d0fe > bne * ;failed not equal (non zero)
2595 : 28 plp
; decimal ADC / SBC (zp,x)
2596 : 08 php ;save carry for subtract
2597 : a50b lda ad1
2599 : 6144 adc (lo adi2-ad2,x) ;perform add
259b : 08 php
259c : c50d cmp adrl ;check result
trap_ne ;bad result
259e : d0fe > bne * ;failed not equal (non zero)
25a0 : 68 pla ;check flags
25a1 : 2983 and #$83 ;mask N-----ZC
25a3 : c50f cmp adrf
trap_ne ;bad flags
25a5 : d0fe > bne * ;failed not equal (non zero)
25a7 : 28 plp
25a8 : 08 php ;save carry for next add
25a9 : a50b lda ad1
25ab : e146 sbc (lo sbi2-ad2,x) ;perform subtract
25ad : 08 php
25ae : c50d cmp adrl ;check result
trap_ne ;bad result
25b0 : d0fe > bne * ;failed not equal (non zero)
25b2 : 68 pla ;check flags
25b3 : 2983 and #$83 ;mask N-----ZC
25b5 : c50f cmp adrf
trap_ne ;bad flags
25b7 : d0fe > bne * ;failed not equal (non zero)
25b9 : 28 plp
; decimal ADC / SBC (abs),y
25ba : 08 php ;save carry for subtract
25bb : a50b lda ad1
25bd : 7154 adc (adiy2),y ;perform add
25bf : 08 php
25c0 : c50d cmp adrl ;check result
trap_ne ;bad result
25c2 : d0fe > bne * ;failed not equal (non zero)
25c4 : 68 pla ;check flags
25c5 : 2983 and #$83 ;mask N-----ZC
25c7 : c50f cmp adrf
trap_ne ;bad flags
25c9 : d0fe > bne * ;failed not equal (non zero)
25cb : 28 plp
25cc : 08 php ;save carry for next add
25cd : a50b lda ad1
25cf : f156 sbc (sbiy2),y ;perform subtract
25d1 : 08 php
25d2 : c50d cmp adrl ;check result
trap_ne ;bad result
25d4 : d0fe > bne * ;failed not equal (non zero)
25d6 : 68 pla ;check flags
25d7 : 2983 and #$83 ;mask N-----ZC
25d9 : c50f cmp adrf
trap_ne ;bad flags
25db : d0fe > bne * ;failed not equal (non zero)
25dd : 28 plp
; decimal ADC / SBC (zp)
25de : 08 php ;save carry for subtract
25df : a50b lda ad1
25e1 : 7250 adc (adi2) ;perform add
25e3 : 08 php
25e4 : c50d cmp adrl ;check result
trap_ne ;bad result
25e6 : d0fe > bne * ;failed not equal (non zero)
25e8 : 68 pla ;check flags
25e9 : 2983 and #$83 ;mask N-----ZC
25eb : c50f cmp adrf
trap_ne ;bad flags
25ed : d0fe > bne * ;failed not equal (non zero)
25ef : 28 plp
25f0 : 08 php ;save carry for next add
25f1 : a50b lda ad1
25f3 : f252 sbc (sbi2) ;perform subtract
25f5 : 08 php
25f6 : c50d cmp adrl ;check result
trap_ne ;bad result
25f8 : d0fe > bne * ;failed not equal (non zero)
25fa : 68 pla ;check flags
25fb : 2983 and #$83 ;mask N-----ZC
25fd : c50f cmp adrf
trap_ne ;bad flags
25ff : d0fe > bne * ;failed not equal (non zero)
2601 : 28 plp
2602 : 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
2603 : a50f chkadd lda adrf ;add V-flag if overflow
2605 : 2983 and #$83 ;keep N-----ZC / clear V
2607 : 48 pha
2608 : a50b lda ad1 ;test sign unequal between operands
260a : 450c eor ad2
260c : 300a bmi ckad1 ;no overflow possible - operands have different sign
260e : a50b lda ad1 ;test sign equal between operands and result
2610 : 450d eor adrl
2612 : 1004 bpl ckad1 ;no overflow occured - operand and result have same sign
2614 : 68 pla
2615 : 0940 ora #$40 ;set V
2617 : 48 pha
2618 : 68 ckad1 pla
2619 : 850f sta adrf ;save expected flags
; binary ADC / SBC (zp)
261b : 08 php ;save carry for subtract
261c : a50b lda ad1
261e : 7250 adc (adi2) ;perform add
2620 : 08 php
2621 : c50d cmp adrl ;check result
trap_ne ;bad result
2623 : d0fe > bne * ;failed not equal (non zero)
2625 : 68 pla ;check flags
2626 : 29c3 and #$c3 ;mask NV----ZC
2628 : c50f cmp adrf
trap_ne ;bad flags
262a : d0fe > bne * ;failed not equal (non zero)
262c : 28 plp
262d : 08 php ;save carry for next add
262e : a50b lda ad1
2630 : f252 sbc (sbi2) ;perform subtract
2632 : 08 php
2633 : c50d cmp adrl ;check result
trap_ne ;bad result
2635 : d0fe > bne * ;failed not equal (non zero)
2637 : 68 pla ;check flags
2638 : 29c3 and #$c3 ;mask NV----ZC
263a : c50f cmp adrf
trap_ne ;bad flags
263c : d0fe > bne * ;failed not equal (non zero)
263e : 28 plp
263f : 60 rts
; target for the jump indirect test
2640 : 4626 ji_adr dw test_ji
2642 : 8216 dw ji_ret
2644 : 88 dey
2645 : 88 dey
2646 : test_ji
2646 : 08 php ;either SP or Y count will fail, if we do not hit
2647 : 88 dey
2648 : 88 dey
2649 : 88 dey
264a : 28 plp
trap_cs ;flags loaded?
264b : b0fe > bcs * ;failed carry set
trap_vs
264d : 70fe > bvs * ;failed overflow set
trap_mi
264f : 30fe > bmi * ;failed minus (bit 7 set)
trap_eq
2651 : f0fe > beq * ;failed equal (zero)
2653 : c949 cmp #'I' ;registers loaded?
trap_ne
2655 : d0fe > bne * ;failed not equal (non zero)
2657 : e04e cpx #'N'
trap_ne
2659 : d0fe > bne * ;failed not equal (non zero)
265b : c041 cpy #('D'-3)
trap_ne
265d : d0fe > bne * ;failed not equal (non zero)
265f : 48 pha ;save a,x
2660 : 8a txa
2661 : 48 pha
2662 : ba tsx
2663 : e0fd cpx #$fd ;check SP
trap_ne
2665 : d0fe > bne * ;failed not equal (non zero)
2667 : 68 pla ;restore x
2668 : aa tax
set_stat $ff
> load_flag $ff
2669 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
266b : 48 > pha ;use stack to load status
266c : 28 > plp
266d : 68 pla ;restore a
266e : e8 inx ;return registers with modifications
266f : 49aa eor #$aa ;N=1, V=1, Z=0, C=1
2671 : 6cff02 jmp (ji_tab+2)
2674 : ea nop
2675 : ea nop
trap ;runover protection
2676 : 4c7626 > jmp * ;failed anyway
; target for the jump indirect test
2679 : bd26 jxi_adr dw trap_ind
267b : bd26 dw trap_ind
267d : 8726 dw test_jxi ;+4
267f : ce16 dw jxi_ret ;+6
2681 : bd26 dw trap_ind
2683 : bd26 dw trap_ind
2685 : 88 dey
2686 : 88 dey
2687 : test_jxi
2687 : 08 php ;either SP or Y count will fail, if we do not hit
2688 : 88 dey
2689 : 88 dey
268a : 88 dey
268b : 28 plp
trap_cs ;flags loaded?
268c : b0fe > bcs * ;failed carry set
trap_vs
268e : 70fe > bvs * ;failed overflow set
trap_mi
2690 : 30fe > bmi * ;failed minus (bit 7 set)
trap_eq
2692 : f0fe > beq * ;failed equal (zero)
2694 : c958 cmp #'X' ;registers loaded?
trap_ne
2696 : d0fe > bne * ;failed not equal (non zero)
2698 : e004 cpx #4
trap_ne
269a : d0fe > bne * ;failed not equal (non zero)
269c : c046 cpy #('I'-3)
trap_ne
269e : d0fe > bne * ;failed not equal (non zero)
26a0 : 48 pha ;save a,x
26a1 : 8a txa
26a2 : 48 pha
26a3 : ba tsx
26a4 : e0fd cpx #$fd ;check SP
trap_ne
26a6 : d0fe > bne * ;failed not equal (non zero)
26a8 : 68 pla ;restore x
26a9 : aa tax
set_stat $ff
> load_flag $ff
26aa : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
26ac : 48 > pha ;use stack to load status
26ad : 28 > plp
26ae : 68 pla ;restore a
26af : e8 inx ;return registers with modifications
26b0 : e8 inx
26b1 : 49aa eor #$aa ;N=1, V=1, Z=0, C=1
26b3 : 7cf902 jmp (jxi_tab,x)
26b6 : ea nop
26b7 : ea nop
trap ;runover protection
26b8 : 4cb826 > jmp * ;failed anyway
; JMP (abs,x) with bad x
26bb : ea nop
26bc : ea nop
26bd : trap_ind
26bd : ea nop
26be : ea nop
trap ;near miss indexed indirect jump
26bf : 4cbf26 > jmp * ;failed anyway
;trap in case of unexpected IRQ, NMI, BRK, RESET
26c2 : nmi_trap
trap ;check stack for conditions at NMI
26c2 : 4cc226 > jmp * ;failed anyway
26c5 : res_trap
trap ;unexpected RESET
26c5 : 4cc526 > jmp * ;failed anyway
26c8 : irq_trap
26c8 : 08 php ;save decimal flag
26c9 : ba tsx ;test break on stack
26ca : bd0201 lda $102,x
26cd : 2910 and #break
trap_eq ;check stack for conditions at IRQ
26cf : f0fe > beq * ;failed equal (zero)
if ROM_vectors = 1
26d1 : 68 pla ;test decimal mode cleared
26d2 : 2908 and #decmode
trap_ne ;decimal mode not cleared after BRK
26d4 : d0fe > bne * ;failed not equal (non zero)
26d6 : 28 plp ;pop saved flags
26d7 : 68 pla ;return address low
26d8 : c917 cmp #lo(brk_ret)
trap_ne ;unexpected BRK
26da : d0fe > bne * ;failed not equal (non zero)
26dc : 68 pla ;return address high
26dd : c917 cmp #hi(brk_ret)
trap_ne ;unexpected BRK
26df : d0fe > bne * ;failed not equal (non zero)
26e1 : 4c1717 jmp brk_ret
else
trap_ne ;check stack for conditions at BRK
endif
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
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
26e4 : 00000000000000.. ds lo(ji_ret - * - 2)
2780 : ea nop
2781 : ea nop
2782 : ea ji_px nop ;low address byte matched with ji_ret
2783 : ea nop
trap ;jmp indirect page cross bug
2784 : 4c8427 > jmp * ;failed anyway
; JMP (abs,x) when $xxff and $xx00 are from same page
2787 : 00000000000000.. ds lo(jxi_ret - * - 2)
27cc : ea nop
27cd : ea nop
27ce : ea jxi_px nop ;low address byte matched with jxi_ret
27cf : ea nop
trap ;jmp indexed indirect page cross bug
27d0 : 4cd027 > 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 : c226 dw nmi_trap
fffc : c526 dw res_trap
fffe : c826 dw irq_trap
endif
fffa = end start
No errors in pass 2.
Wrote binary from address $0000 through $ffff.
Total size 65536 bytes.
Program start address is at $0400 (1024).
Reference in New Issue Copy Permalink