6502/mos6502-delphi
1
0
Fork 0
mirror of https://github.com/Dennis1000/mos6502-delphi.git synced 2024-12-21 10:30:30 +00:00
Code Issues Projects Releases Wiki Activity
d5ca8ec7c4
mos6502-delphi/Testsuite/Test-Files/6502_functional_test.lst
Dennis1000 dcd1f81487 initial commit
2017-03-09 15:06:43 +01:00

13999 lines
693 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

AS65 Assembler for R6502 [1.42]. Copyright 1994-2007, Frank A. Kingswood Page 1
---------------------------------------------------- 6502_functional_test.a65 ----------------------------------------------------
5803 lines read, no errors in pass 1.
;
; 6 5 0 2 F U N C T I O N A L T E S T
;
; Copyright (C) 2012-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 opcodes of a 6502 emulator using all
; addressing modes with focus on propper setting of the processor status
; register bits.
;
; 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 -h0
; | | | | no page headers in listing
; | | | 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 NMOS 6502 only! No unofficial
; opcodes. Additional opcodes of newer versions of the CPU (65C02, 65816) will
; not be tested. Decimal ops will only be tested with valid BCD operands and
; N V Z flags will be ignored.
;
; 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:
; 28-jul-2012 1st version distributed for testing
; 29-jul-2012 fixed references to location 0, now #0
; added license - GPLv3
; 30-jul-2012 added configuration options
; 01-aug-2012 added trap macro to allow user to change error handling
; 01-dec-2012 fixed trap in branch field must be a branch
; 02-mar-2013 fixed PLA flags not tested
; 19-jul-2013 allowed ROM vectors to be loaded when load_data_direct = 0
; added test sequence check to detect if tests jump their fence
; 23-jul-2013 added RAM integrity check option
; 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. SEI & CLI can only be
;tested if you allow changing the interrupt status (I_flag = 3)
0003 = I_flag = 3
;configure memory - try to stay away from memory used by the system
;zero_page memory start address, $50 (80) consecutive Bytes required
; add 2 if I_flag = 2
000a = zero_page = $a
;data_segment memory start address, $5B (91) consecutive Bytes required
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, 13kB of consecutive space required
; add 2.5 kB if I_flag = 2
;parts of the code are self modifying and must reside in RAM
0400 = code_segment = $400
;report errors through I/O channel (0=use standard self trap loops, 1=include
;report.i65 as I/O channel, add 3.5 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_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
sta range_adr ;reset self modifying code
sta tandi1
sta tandi2
sta teori1
sta teori2
sta torai1
sta torai2
sta chkdadi
sta chkdsbi
sta chkadi
sta chksbi
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
;break test interrupt save
000a : 00 irq_a ds 1 ;a register
000b : 00 irq_x ds 1 ;x register
if I_flag = 2
;masking for I bit in status
flag_I_on ds 1 ;or mask to load flags
flag_I_off ds 1 ;and mask to load flags
endif
000c : zpt ;5 bytes store/modify test area
;add/subtract operand generation and result/flag prediction
000c : 00 adfc ds 1 ;carry flag before op
000d : 00 ad1 ds 1 ;operand 1 - accumulator
000e : 00 ad2 ds 1 ;operand 2 - memory / immediate
000f : 00 adrl ds 1 ;expected result bits 0-7
0010 : 00 adrh ds 1 ;expected result bit 8 (carry)
0011 : 00 adrf ds 1 ;expected flags NV0000ZC (only binary mode)
0012 : 00 sb2 ds 1 ;operand 2 complemented for subtract
0013 : zp_bss
0013 : c3824100 zp1 db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
0017 : 7f zp7f db $7f ;test pattern for compare
;logical zeropage operands
0018 : 001f7180 zpOR db 0,$1f,$71,$80 ;test pattern for OR
001c : 0fff7f80 zpAN db $0f,$ff,$7f,$80 ;test pattern for AND
0020 : ff0f8f8f zpEO db $ff,$0f,$8f,$8f ;test pattern for EOR
;indirect addressing pointers
0024 : 0802 ind1 dw abs1 ;indirect pointer to pattern in absolute memory
0026 : 0902 dw abs1+1
0028 : 0a02 dw abs1+2
002a : 0b02 dw abs1+3
002c : 0c02 dw abs7f
002e : 1001 inw1 dw abs1-$f8 ;indirect pointer for wrap-test pattern
0030 : 0302 indt dw abst ;indirect pointer to store area in absolute memory
0032 : 0402 dw abst+1
0034 : 0502 dw abst+2
0036 : 0602 dw abst+3
0038 : 0b01 inwt dw abst-$f8 ;indirect pointer for wrap-test store
003a : 3f02 indAN dw absAN ;indirect pointer to AND pattern in absolute memory
003c : 4002 dw absAN+1
003e : 4102 dw absAN+2
0040 : 4202 dw absAN+3
0042 : 4302 indEO dw absEO ;indirect pointer to EOR pattern in absolute memory
0044 : 4402 dw absEO+1
0046 : 4502 dw absEO+2
0048 : 4602 dw absEO+3
004a : 3b02 indOR dw absOR ;indirect pointer to OR pattern in absolute memory
004c : 3c02 dw absOR+1
004e : 3d02 dw absOR+2
0050 : 3e02 dw absOR+3
;add/subtract indirect pointers
0052 : 0302 adi2 dw ada2 ;indirect pointer to operand 2 in absolute memory
0054 : 0402 sbi2 dw sba2 ;indirect pointer to complemented operand 2 (SBC)
0056 : 0401 adiy2 dw ada2-$ff ;with offset for indirect indexed
0058 : 0501 sbiy2 dw sba2-$ff
005a : zp_bss_end
0200 = org data_segment
0200 : 00 test_case ds 1 ;current test number
0201 : 0000 ram_chksm ds 2 ;checksum for RAM integrity test
;add/subtract operand copy - abs tests write area
0203 : abst ;5 bytes store/modify test area
0203 : 00 ada2 ds 1 ;operand 2
0204 : 00 sba2 ds 1 ;operand 2 complemented for subtract
0205 : 000000 ds 3 ;fill remaining bytes
0208 : data_bss
0208 : c3824100 abs1 db $c3,$82,$41,0 ;test patterns for LDx BIT ROL ROR ASL LSR
020c : 7f abs7f db $7f ;test pattern for compare
;loads
020d : 80800002 fLDx db fn,fn,0,fz ;expected flags for load
;shifts
0211 : rASL ;expected result ASL & ROL -carry
0211 : 86048200 rROL db $86,$04,$82,0 ; "
0215 : 87058301 rROLc db $87,$05,$83,1 ;expected result ROL +carry
0219 : rLSR ;expected result LSR & ROR -carry
0219 : 61412000 rROR db $61,$41,$20,0 ; "
021d : e1c1a080 rRORc db $e1,$c1,$a0,$80 ;expected result ROR +carry
0221 : fASL ;expected flags for shifts
0221 : 81018002 fROL db fnc,fc,fn,fz ;no carry in
0225 : 81018000 fROLc db fnc,fc,fn,0 ;carry in
0229 : fLSR
0229 : 01000102 fROR db fc,0,fc,fz ;no carry in
022d : 81808180 fRORc db fnc,fn,fnc,fn ;carry in
;increments (decrements)
0231 : 7f80ff0001 rINC db $7f,$80,$ff,0,1 ;expected result for INC/DEC
0236 : 0080800200 fINC db 0,fn,fn,fz,0 ;expected flags for INC/DEC
;logical memory operand
023b : 001f7180 absOR db 0,$1f,$71,$80 ;test pattern for OR
023f : 0fff7f80 absAN db $0f,$ff,$7f,$80 ;test pattern for AND
0243 : ff0f8f8f absEO db $ff,$0f,$8f,$8f ;test pattern for EOR
;logical accu operand
0247 : 00f11f00 absORa db 0,$f1,$1f,0 ;test pattern for OR
024b : f0ffffff absANa db $f0,$ff,$ff,$ff ;test pattern for AND
024f : fff0f00f absEOa db $ff,$f0,$f0,$0f ;test pattern for EOR
;logical results
0253 : 00ff7f80 absrlo db 0,$ff,$7f,$80
0257 : 02800080 absflo db fz,fn,0,fn
025b : data_bss_end
code
0400 = org code_segment
0400 : d8 start cld
0401 : a2ff ldx #$ff
0403 : 9a txs
0404 : a900 lda #0 ;*** test 0 = initialize
0406 : 8d0002 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
sta range_adr ;reset self modifying code
sta tandi1
sta tandi2
sta teori1
sta teori2
sta torai1
sta torai2
sta chkdadi
sta chkdsbi
sta chkadi
sta chksbi
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 : ad0002 > 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 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
;testing relative addressing with BEQ
0415 : a0fe ldy #$fe ;testing maximum range, not -1/-2 (invalid/self adr)
0417 : range_loop
0417 : 88 dey ;next relative address
0418 : 98 tya
0419 : aa tax ;precharge count to end of loop
041a : 1003 bpl range_fw ;calculate relative address
041c : 18 clc ;avoid branch self or to relative address of branch
041d : 6902 adc #2
041f : range_fw
041f : 497f eor #$7f ;complement except sign
0421 : 8da804 sta range_adr ;load into test target
0424 : a900 lda #0 ;should set zero flag in status register
0426 : 4ca704 jmp range_op
;relative address target field with branch under test in the middle
0429 : ca dex ;-128 - max backward
042a : ca dex
042b : ca dex
042c : ca dex
042d : ca dex
042e : ca dex
042f : ca dex
0430 : ca dex
0431 : ca dex ;-120
0432 : ca dex
0433 : ca dex
0434 : ca dex
0435 : ca dex
0436 : ca dex
0437 : ca dex
0438 : ca dex
0439 : ca dex
043a : ca dex
043b : ca dex ;-110
043c : ca dex
043d : ca dex
043e : ca dex
043f : ca dex
0440 : ca dex
0441 : ca dex
0442 : ca dex
0443 : ca dex
0444 : ca dex
0445 : ca dex ;-100
0446 : ca dex
0447 : ca dex
0448 : ca dex
0449 : ca dex
044a : ca dex
044b : ca dex
044c : ca dex
044d : ca dex
044e : ca dex
044f : ca dex ;-90
0450 : ca dex
0451 : ca dex
0452 : ca dex
0453 : ca dex
0454 : ca dex
0455 : ca dex
0456 : ca dex
0457 : ca dex
0458 : ca dex
0459 : ca dex ;-80
045a : ca dex
045b : ca dex
045c : ca dex
045d : ca dex
045e : ca dex
045f : ca dex
0460 : ca dex
0461 : ca dex
0462 : ca dex
0463 : ca dex ;-70
0464 : ca dex
0465 : ca dex
0466 : ca dex
0467 : ca dex
0468 : ca dex
0469 : ca dex
046a : ca dex
046b : ca dex
046c : ca dex
046d : ca dex ;-60
046e : ca dex
046f : ca dex
0470 : ca dex
0471 : ca dex
0472 : ca dex
0473 : ca dex
0474 : ca dex
0475 : ca dex
0476 : ca dex
0477 : ca dex ;-50
0478 : ca dex
0479 : ca dex
047a : ca dex
047b : ca dex
047c : ca dex
047d : ca dex
047e : ca dex
047f : ca dex
0480 : ca dex
0481 : ca dex ;-40
0482 : ca dex
0483 : ca dex
0484 : ca dex
0485 : ca dex
0486 : ca dex
0487 : ca dex
0488 : ca dex
0489 : ca dex
048a : ca dex
048b : ca dex ;-30
048c : ca dex
048d : ca dex
048e : ca dex
048f : ca dex
0490 : ca dex
0491 : ca dex
0492 : ca dex
0493 : ca dex
0494 : ca dex
0495 : ca dex ;-20
0496 : ca dex
0497 : ca dex
0498 : ca dex
0499 : ca dex
049a : ca dex
049b : ca dex
049c : ca dex
049d : ca dex
049e : ca dex
049f : ca dex ;-10
04a0 : ca dex
04a1 : ca dex
04a2 : ca dex
04a3 : ca dex
04a4 : ca dex
04a5 : ca dex
04a6 : ca dex ;-3
04a7 : range_op ;test target with zero flag=0, z=1 if previous dex
04a8 = range_adr = *+1 ;modifiable relative address
04a7 : f03e beq *+64 ;if called without modification
04a9 : ca dex ;+0
04aa : ca dex
04ab : ca dex
04ac : ca dex
04ad : ca dex
04ae : ca dex
04af : ca dex
04b0 : ca dex
04b1 : ca dex
04b2 : ca dex
04b3 : ca dex ;+10
04b4 : ca dex
04b5 : ca dex
04b6 : ca dex
04b7 : ca dex
04b8 : ca dex
04b9 : ca dex
04ba : ca dex
04bb : ca dex
04bc : ca dex
04bd : ca dex ;+20
04be : ca dex
04bf : ca dex
04c0 : ca dex
04c1 : ca dex
04c2 : ca dex
04c3 : ca dex
04c4 : ca dex
04c5 : ca dex
04c6 : ca dex
04c7 : ca dex ;+30
04c8 : ca dex
04c9 : ca dex
04ca : ca dex
04cb : ca dex
04cc : ca dex
04cd : ca dex
04ce : ca dex
04cf : ca dex
04d0 : ca dex
04d1 : ca dex ;+40
04d2 : ca dex
04d3 : ca dex
04d4 : ca dex
04d5 : ca dex
04d6 : ca dex
04d7 : ca dex
04d8 : ca dex
04d9 : ca dex
04da : ca dex
04db : ca dex ;+50
04dc : ca dex
04dd : ca dex
04de : ca dex
04df : ca dex
04e0 : ca dex
04e1 : ca dex
04e2 : ca dex
04e3 : ca dex
04e4 : ca dex
04e5 : ca dex ;+60
04e6 : ca dex
04e7 : ca dex
04e8 : ca dex
04e9 : ca dex
04ea : ca dex
04eb : ca dex
04ec : ca dex
04ed : ca dex
04ee : ca dex
04ef : ca dex ;+70
04f0 : ca dex
04f1 : ca dex
04f2 : ca dex
04f3 : ca dex
04f4 : ca dex
04f5 : ca dex
04f6 : ca dex
04f7 : ca dex
04f8 : ca dex
04f9 : ca dex ;+80
04fa : ca dex
04fb : ca dex
04fc : ca dex
04fd : ca dex
04fe : ca dex
04ff : ca dex
0500 : ca dex
0501 : ca dex
0502 : ca dex
0503 : ca dex ;+90
0504 : ca dex
0505 : ca dex
0506 : ca dex
0507 : ca dex
0508 : ca dex
0509 : ca dex
050a : ca dex
050b : ca dex
050c : ca dex
050d : ca dex ;+100
050e : ca dex
050f : ca dex
0510 : ca dex
0511 : ca dex
0512 : ca dex
0513 : ca dex
0514 : ca dex
0515 : ca dex
0516 : ca dex
0517 : ca dex ;+110
0518 : ca dex
0519 : ca dex
051a : ca dex
051b : ca dex
051c : ca dex
051d : ca dex
051e : ca dex
051f : ca dex
0520 : ca dex
0521 : ca dex ;+120
0522 : ca dex
0523 : ca dex
0524 : ca dex
0525 : ca dex
0526 : ca dex
0527 : ca dex
0528 : f003 beq range_ok ;+127 - max forward
trap ; bad range
052a : 4c2a05 > jmp * ;failed anyway
052d : range_ok
052d : c000 cpy #0
052f : f003 beq range_end
0531 : 4c1704 jmp range_loop
0534 : range_end ;range test successful
next_test
0534 : ad0002 > lda test_case ;previous test
0537 : c901 > cmp #test_num
> trap_ne ;test is out of sequence
0539 : d0fe > bne * ;failed not equal (non zero)
>
0002 = >test_num = test_num + 1
053b : a902 > lda #test_num ;*** next tests' number
053d : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
;partial test BNE & CMP, CPX, CPY immediate
0540 : c001 cpy #1 ;testing BNE true
0542 : d003 bne test_bne
trap
0544 : 4c4405 > jmp * ;failed anyway
0547 : test_bne
0547 : a900 lda #0
0549 : c900 cmp #0 ;test compare immediate
trap_ne
054b : d0fe > bne * ;failed not equal (non zero)
trap_cc
054d : 90fe > bcc * ;failed carry clear
trap_mi
054f : 30fe > bmi * ;failed minus (bit 7 set)
0551 : c901 cmp #1
trap_eq
0553 : f0fe > beq * ;failed equal (zero)
trap_cs
0555 : b0fe > bcs * ;failed carry set
trap_pl
0557 : 10fe > bpl * ;failed plus (bit 7 clear)
0559 : aa tax
055a : e000 cpx #0 ;test compare x immediate
trap_ne
055c : d0fe > bne * ;failed not equal (non zero)
trap_cc
055e : 90fe > bcc * ;failed carry clear
trap_mi
0560 : 30fe > bmi * ;failed minus (bit 7 set)
0562 : e001 cpx #1
trap_eq
0564 : f0fe > beq * ;failed equal (zero)
trap_cs
0566 : b0fe > bcs * ;failed carry set
trap_pl
0568 : 10fe > bpl * ;failed plus (bit 7 clear)
056a : a8 tay
056b : c000 cpy #0 ;test compare y immediate
trap_ne
056d : d0fe > bne * ;failed not equal (non zero)
trap_cc
056f : 90fe > bcc * ;failed carry clear
trap_mi
0571 : 30fe > bmi * ;failed minus (bit 7 set)
0573 : c001 cpy #1
trap_eq
0575 : f0fe > beq * ;failed equal (zero)
trap_cs
0577 : b0fe > bcs * ;failed carry set
trap_pl
0579 : 10fe > bpl * ;failed plus (bit 7 clear)
next_test
057b : ad0002 > lda test_case ;previous test
057e : c902 > cmp #test_num
> trap_ne ;test is out of sequence
0580 : d0fe > bne * ;failed not equal (non zero)
>
0003 = >test_num = test_num + 1
0582 : a903 > lda #test_num ;*** next tests' number
0584 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
;testing stack operations PHA PHP PLA PLP
0587 : a2ff ldx #$ff ;initialize stack
0589 : 9a txs
058a : a955 lda #$55
058c : 48 pha
058d : a9aa lda #$aa
058f : 48 pha
0590 : cdfe01 cmp $1fe ;on stack ?
trap_ne
0593 : d0fe > bne * ;failed not equal (non zero)
0595 : ba tsx
0596 : 8a txa ;overwrite accu
0597 : c9fd cmp #$fd ;sp decremented?
trap_ne
0599 : d0fe > bne * ;failed not equal (non zero)
059b : 68 pla
059c : c9aa cmp #$aa ;successful retreived from stack?
trap_ne
059e : d0fe > bne * ;failed not equal (non zero)
05a0 : 68 pla
05a1 : c955 cmp #$55
trap_ne
05a3 : d0fe > bne * ;failed not equal (non zero)
05a5 : cdff01 cmp $1ff ;remains on stack?
trap_ne
05a8 : d0fe > bne * ;failed not equal (non zero)
05aa : ba tsx
05ab : e0ff cpx #$ff ;sp incremented?
trap_ne
05ad : d0fe > bne * ;failed not equal (non zero)
next_test
05af : ad0002 > lda test_case ;previous test
05b2 : c903 > cmp #test_num
> trap_ne ;test is out of sequence
05b4 : d0fe > bne * ;failed not equal (non zero)
>
0004 = >test_num = test_num + 1
05b6 : a904 > lda #test_num ;*** next tests' number
05b8 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
;testing branch decisions BPL BMI BVC BVS BCC BCS BNE BEQ
set_stat $ff ;all on
> load_flag $ff
05bb : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
05bd : 48 > pha ;use stack to load status
05be : 28 > plp
05bf : 101a bpl nbr1 ;branches should not be taken
05c1 : 501b bvc nbr2
05c3 : 901c bcc nbr3
05c5 : d01d bne nbr4
05c7 : 3003 bmi br1 ;branches should be taken
trap
05c9 : 4cc905 > jmp * ;failed anyway
05cc : 7003 br1 bvs br2
trap
05ce : 4cce05 > jmp * ;failed anyway
05d1 : b003 br2 bcs br3
trap
05d3 : 4cd305 > jmp * ;failed anyway
05d6 : f00f br3 beq br4
trap
05d8 : 4cd805 > jmp * ;failed anyway
05db : nbr1
trap ;previous bpl taken
05db : 4cdb05 > jmp * ;failed anyway
05de : nbr2
trap ;previous bvc taken
05de : 4cde05 > jmp * ;failed anyway
05e1 : nbr3
trap ;previous bcc taken
05e1 : 4ce105 > jmp * ;failed anyway
05e4 : nbr4
trap ;previous bne taken
05e4 : 4ce405 > jmp * ;failed anyway
05e7 : 08 br4 php
05e8 : ba tsx
05e9 : e0fe cpx #$fe ;sp after php?
trap_ne
05eb : d0fe > bne * ;failed not equal (non zero)
05ed : 68 pla
cmp_flag $ff ;returned all flags on?
05ee : c9ff > cmp #($ff |fao)&m8 ;expected flags + always on bits
trap_ne
05f0 : d0fe > bne * ;failed not equal (non zero)
05f2 : ba tsx
05f3 : e0ff cpx #$ff ;sp after php?
trap_ne
05f5 : d0fe > bne * ;failed not equal (non zero)
set_stat 0 ;all off
> load_flag 0
05f7 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
05f9 : 48 > pha ;use stack to load status
05fa : 28 > plp
05fb : 301a bmi nbr11 ;branches should not be taken
05fd : 701b bvs nbr12
05ff : b01c bcs nbr13
0601 : f01d beq nbr14
0603 : 1003 bpl br11 ;branches should be taken
trap
0605 : 4c0506 > jmp * ;failed anyway
0608 : 5003 br11 bvc br12
trap
060a : 4c0a06 > jmp * ;failed anyway
060d : 9003 br12 bcc br13
trap
060f : 4c0f06 > jmp * ;failed anyway
0612 : d00f br13 bne br14
trap
0614 : 4c1406 > jmp * ;failed anyway
0617 : nbr11
trap ;previous bmi taken
0617 : 4c1706 > jmp * ;failed anyway
061a : nbr12
trap ;previous bvs taken
061a : 4c1a06 > jmp * ;failed anyway
061d : nbr13
trap ;previous bcs taken
061d : 4c1d06 > jmp * ;failed anyway
0620 : nbr14
trap ;previous beq taken
0620 : 4c2006 > jmp * ;failed anyway
0623 : 08 br14 php
0624 : 68 pla
cmp_flag 0 ;flags off except break (pushed by sw) + reserved?
0625 : c930 > cmp #(0 |fao)&m8 ;expected flags + always on bits
trap_ne
0627 : d0fe > bne * ;failed not equal (non zero)
;crosscheck flags
set_stat zero
> load_flag zero
0629 : a902 > lda #zero ;allow test to change I-flag (no mask)
>
062b : 48 > pha ;use stack to load status
062c : 28 > plp
062d : d002 bne brzs1
062f : f003 beq brzs2
0631 : brzs1
trap ;branch zero/non zero
0631 : 4c3106 > jmp * ;failed anyway
0634 : b002 brzs2 bcs brzs3
0636 : 9003 bcc brzs4
0638 : brzs3
trap ;branch carry/no carry
0638 : 4c3806 > jmp * ;failed anyway
063b : 3002 brzs4 bmi brzs5
063d : 1003 bpl brzs6
063f : brzs5
trap ;branch minus/plus
063f : 4c3f06 > jmp * ;failed anyway
0642 : 7002 brzs6 bvs brzs7
0644 : 5003 bvc brzs8
0646 : brzs7
trap ;branch overflow/no overflow
0646 : 4c4606 > jmp * ;failed anyway
0649 : brzs8
set_stat carry
> load_flag carry
0649 : a901 > lda #carry ;allow test to change I-flag (no mask)
>
064b : 48 > pha ;use stack to load status
064c : 28 > plp
064d : f002 beq brcs1
064f : d003 bne brcs2
0651 : brcs1
trap ;branch zero/non zero
0651 : 4c5106 > jmp * ;failed anyway
0654 : 9002 brcs2 bcc brcs3
0656 : b003 bcs brcs4
0658 : brcs3
trap ;branch carry/no carry
0658 : 4c5806 > jmp * ;failed anyway
065b : 3002 brcs4 bmi brcs5
065d : 1003 bpl brcs6
065f : brcs5
trap ;branch minus/plus
065f : 4c5f06 > jmp * ;failed anyway
0662 : 7002 brcs6 bvs brcs7
0664 : 5003 bvc brcs8
0666 : brcs7
trap ;branch overflow/no overflow
0666 : 4c6606 > jmp * ;failed anyway
0669 : brcs8
set_stat minus
> load_flag minus
0669 : a980 > lda #minus ;allow test to change I-flag (no mask)
>
066b : 48 > pha ;use stack to load status
066c : 28 > plp
066d : f002 beq brmi1
066f : d003 bne brmi2
0671 : brmi1
trap ;branch zero/non zero
0671 : 4c7106 > jmp * ;failed anyway
0674 : b002 brmi2 bcs brmi3
0676 : 9003 bcc brmi4
0678 : brmi3
trap ;branch carry/no carry
0678 : 4c7806 > jmp * ;failed anyway
067b : 1002 brmi4 bpl brmi5
067d : 3003 bmi brmi6
067f : brmi5
trap ;branch minus/plus
067f : 4c7f06 > jmp * ;failed anyway
0682 : 7002 brmi6 bvs brmi7
0684 : 5003 bvc brmi8
0686 : brmi7
trap ;branch overflow/no overflow
0686 : 4c8606 > jmp * ;failed anyway
0689 : brmi8
set_stat overfl
> load_flag overfl
0689 : a940 > lda #overfl ;allow test to change I-flag (no mask)
>
068b : 48 > pha ;use stack to load status
068c : 28 > plp
068d : f002 beq brvs1
068f : d003 bne brvs2
0691 : brvs1
trap ;branch zero/non zero
0691 : 4c9106 > jmp * ;failed anyway
0694 : b002 brvs2 bcs brvs3
0696 : 9003 bcc brvs4
0698 : brvs3
trap ;branch carry/no carry
0698 : 4c9806 > jmp * ;failed anyway
069b : 3002 brvs4 bmi brvs5
069d : 1003 bpl brvs6
069f : brvs5
trap ;branch minus/plus
069f : 4c9f06 > jmp * ;failed anyway
06a2 : 5002 brvs6 bvc brvs7
06a4 : 7003 bvs brvs8
06a6 : brvs7
trap ;branch overflow/no overflow
06a6 : 4ca606 > jmp * ;failed anyway
06a9 : brvs8
set_stat $ff-zero
> load_flag $ff-zero
06a9 : a9fd > lda #$ff-zero ;allow test to change I-flag (no mask)
>
06ab : 48 > pha ;use stack to load status
06ac : 28 > plp
06ad : f002 beq brzc1
06af : d003 bne brzc2
06b1 : brzc1
trap ;branch zero/non zero
06b1 : 4cb106 > jmp * ;failed anyway
06b4 : 9002 brzc2 bcc brzc3
06b6 : b003 bcs brzc4
06b8 : brzc3
trap ;branch carry/no carry
06b8 : 4cb806 > jmp * ;failed anyway
06bb : 1002 brzc4 bpl brzc5
06bd : 3003 bmi brzc6
06bf : brzc5
trap ;branch minus/plus
06bf : 4cbf06 > jmp * ;failed anyway
06c2 : 5002 brzc6 bvc brzc7
06c4 : 7003 bvs brzc8
06c6 : brzc7
trap ;branch overflow/no overflow
06c6 : 4cc606 > jmp * ;failed anyway
06c9 : brzc8
set_stat $ff-carry
> load_flag $ff-carry
06c9 : a9fe > lda #$ff-carry ;allow test to change I-flag (no mask)
>
06cb : 48 > pha ;use stack to load status
06cc : 28 > plp
06cd : d002 bne brcc1
06cf : f003 beq brcc2
06d1 : brcc1
trap ;branch zero/non zero
06d1 : 4cd106 > jmp * ;failed anyway
06d4 : b002 brcc2 bcs brcc3
06d6 : 9003 bcc brcc4
06d8 : brcc3
trap ;branch carry/no carry
06d8 : 4cd806 > jmp * ;failed anyway
06db : 1002 brcc4 bpl brcc5
06dd : 3003 bmi brcc6
06df : brcc5
trap ;branch minus/plus
06df : 4cdf06 > jmp * ;failed anyway
06e2 : 5002 brcc6 bvc brcc7
06e4 : 7003 bvs brcc8
06e6 : brcc7
trap ;branch overflow/no overflow
06e6 : 4ce606 > jmp * ;failed anyway
06e9 : brcc8
set_stat $ff-minus
> load_flag $ff-minus
06e9 : a97f > lda #$ff-minus ;allow test to change I-flag (no mask)
>
06eb : 48 > pha ;use stack to load status
06ec : 28 > plp
06ed : d002 bne brpl1
06ef : f003 beq brpl2
06f1 : brpl1
trap ;branch zero/non zero
06f1 : 4cf106 > jmp * ;failed anyway
06f4 : 9002 brpl2 bcc brpl3
06f6 : b003 bcs brpl4
06f8 : brpl3
trap ;branch carry/no carry
06f8 : 4cf806 > jmp * ;failed anyway
06fb : 3002 brpl4 bmi brpl5
06fd : 1003 bpl brpl6
06ff : brpl5
trap ;branch minus/plus
06ff : 4cff06 > jmp * ;failed anyway
0702 : 5002 brpl6 bvc brpl7
0704 : 7003 bvs brpl8
0706 : brpl7
trap ;branch overflow/no overflow
0706 : 4c0607 > jmp * ;failed anyway
0709 : brpl8
set_stat $ff-overfl
> load_flag $ff-overfl
0709 : a9bf > lda #$ff-overfl ;allow test to change I-flag (no mask)
>
070b : 48 > pha ;use stack to load status
070c : 28 > plp
070d : d002 bne brvc1
070f : f003 beq brvc2
0711 : brvc1
trap ;branch zero/non zero
0711 : 4c1107 > jmp * ;failed anyway
0714 : 9002 brvc2 bcc brvc3
0716 : b003 bcs brvc4
0718 : brvc3
trap ;branch carry/no carry
0718 : 4c1807 > jmp * ;failed anyway
071b : 1002 brvc4 bpl brvc5
071d : 3003 bmi brvc6
071f : brvc5
trap ;branch minus/plus
071f : 4c1f07 > jmp * ;failed anyway
0722 : 7002 brvc6 bvs brvc7
0724 : 5003 bvc brvc8
0726 : brvc7
trap ;branch overflow/no overflow
0726 : 4c2607 > jmp * ;failed anyway
0729 : brvc8
next_test
0729 : ad0002 > lda test_case ;previous test
072c : c904 > cmp #test_num
> trap_ne ;test is out of sequence
072e : d0fe > bne * ;failed not equal (non zero)
>
0005 = >test_num = test_num + 1
0730 : a905 > lda #test_num ;*** next tests' number
0732 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; test PHA does not alter flags or accumulator but PLA does
0735 : a255 ldx #$55 ;x & y protected
0737 : a0aa ldy #$aa
set_a 1,$ff ;push
> load_flag $ff
0739 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
073b : 48 > pha ;use stack to load status
073c : a901 > lda #1 ;precharge accu
073e : 28 > plp
073f : 48 pha
tst_a 1,$ff
0740 : 08 > php ;save flags
0741 : c901 > cmp #1 ;test result
> trap_ne
0743 : d0fe > bne * ;failed not equal (non zero)
>
0745 : 68 > pla ;load status
0746 : 48 > pha
> cmp_flag $ff
0747 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0749 : d0fe > bne * ;failed not equal (non zero)
>
074b : 28 > plp ;restore status
set_a 0,0
> load_flag 0
074c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
074e : 48 > pha ;use stack to load status
074f : a900 > lda #0 ;precharge accu
0751 : 28 > plp
0752 : 48 pha
tst_a 0,0
0753 : 08 > php ;save flags
0754 : c900 > cmp #0 ;test result
> trap_ne
0756 : d0fe > bne * ;failed not equal (non zero)
>
0758 : 68 > pla ;load status
0759 : 48 > pha
> cmp_flag 0
075a : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
075c : d0fe > bne * ;failed not equal (non zero)
>
075e : 28 > plp ;restore status
set_a $ff,$ff
> load_flag $ff
075f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0761 : 48 > pha ;use stack to load status
0762 : a9ff > lda #$ff ;precharge accu
0764 : 28 > plp
0765 : 48 pha
tst_a $ff,$ff
0766 : 08 > php ;save flags
0767 : c9ff > cmp #$ff ;test result
> trap_ne
0769 : d0fe > bne * ;failed not equal (non zero)
>
076b : 68 > pla ;load status
076c : 48 > pha
> cmp_flag $ff
076d : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
076f : d0fe > bne * ;failed not equal (non zero)
>
0771 : 28 > plp ;restore status
set_a 1,0
> load_flag 0
0772 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0774 : 48 > pha ;use stack to load status
0775 : a901 > lda #1 ;precharge accu
0777 : 28 > plp
0778 : 48 pha
tst_a 1,0
0779 : 08 > php ;save flags
077a : c901 > cmp #1 ;test result
> trap_ne
077c : d0fe > bne * ;failed not equal (non zero)
>
077e : 68 > pla ;load status
077f : 48 > pha
> cmp_flag 0
0780 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0782 : d0fe > bne * ;failed not equal (non zero)
>
0784 : 28 > plp ;restore status
set_a 0,$ff
> load_flag $ff
0785 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0787 : 48 > pha ;use stack to load status
0788 : a900 > lda #0 ;precharge accu
078a : 28 > plp
078b : 48 pha
tst_a 0,$ff
078c : 08 > php ;save flags
078d : c900 > cmp #0 ;test result
> trap_ne
078f : d0fe > bne * ;failed not equal (non zero)
>
0791 : 68 > pla ;load status
0792 : 48 > pha
> cmp_flag $ff
0793 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0795 : d0fe > bne * ;failed not equal (non zero)
>
0797 : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
0798 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
079a : 48 > pha ;use stack to load status
079b : a9ff > lda #$ff ;precharge accu
079d : 28 > plp
079e : 48 pha
tst_a $ff,0
079f : 08 > php ;save flags
07a0 : c9ff > cmp #$ff ;test result
> trap_ne
07a2 : d0fe > bne * ;failed not equal (non zero)
>
07a4 : 68 > pla ;load status
07a5 : 48 > pha
> cmp_flag 0
07a6 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07a8 : d0fe > bne * ;failed not equal (non zero)
>
07aa : 28 > plp ;restore status
set_a 0,$ff ;pull
> load_flag $ff
07ab : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
07ad : 48 > pha ;use stack to load status
07ae : a900 > lda #0 ;precharge accu
07b0 : 28 > plp
07b1 : 68 pla
tst_a $ff,$ff-zero
07b2 : 08 > php ;save flags
07b3 : c9ff > cmp #$ff ;test result
> trap_ne
07b5 : d0fe > bne * ;failed not equal (non zero)
>
07b7 : 68 > pla ;load status
07b8 : 48 > pha
> cmp_flag $ff-zero
07b9 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07bb : d0fe > bne * ;failed not equal (non zero)
>
07bd : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
07be : a900 > lda #0 ;allow test to change I-flag (no mask)
>
07c0 : 48 > pha ;use stack to load status
07c1 : a9ff > lda #$ff ;precharge accu
07c3 : 28 > plp
07c4 : 68 pla
tst_a 0,zero
07c5 : 08 > php ;save flags
07c6 : c900 > cmp #0 ;test result
> trap_ne
07c8 : d0fe > bne * ;failed not equal (non zero)
>
07ca : 68 > pla ;load status
07cb : 48 > pha
> cmp_flag zero
07cc : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07ce : d0fe > bne * ;failed not equal (non zero)
>
07d0 : 28 > plp ;restore status
set_a $fe,$ff
> load_flag $ff
07d1 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
07d3 : 48 > pha ;use stack to load status
07d4 : a9fe > lda #$fe ;precharge accu
07d6 : 28 > plp
07d7 : 68 pla
tst_a 1,$ff-zero-minus
07d8 : 08 > php ;save flags
07d9 : c901 > cmp #1 ;test result
> trap_ne
07db : d0fe > bne * ;failed not equal (non zero)
>
07dd : 68 > pla ;load status
07de : 48 > pha
> cmp_flag $ff-zero-minus
07df : c97d > cmp #($ff-zero-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07e1 : d0fe > bne * ;failed not equal (non zero)
>
07e3 : 28 > plp ;restore status
set_a 0,0
> load_flag 0
07e4 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
07e6 : 48 > pha ;use stack to load status
07e7 : a900 > lda #0 ;precharge accu
07e9 : 28 > plp
07ea : 68 pla
tst_a $ff,minus
07eb : 08 > php ;save flags
07ec : c9ff > cmp #$ff ;test result
> trap_ne
07ee : d0fe > bne * ;failed not equal (non zero)
>
07f0 : 68 > pla ;load status
07f1 : 48 > pha
> cmp_flag minus
07f2 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
07f4 : d0fe > bne * ;failed not equal (non zero)
>
07f6 : 28 > plp ;restore status
set_a $ff,$ff
> load_flag $ff
07f7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
07f9 : 48 > pha ;use stack to load status
07fa : a9ff > lda #$ff ;precharge accu
07fc : 28 > plp
07fd : 68 pla
tst_a 0,$ff-minus
07fe : 08 > php ;save flags
07ff : c900 > cmp #0 ;test result
> trap_ne
0801 : d0fe > bne * ;failed not equal (non zero)
>
0803 : 68 > pla ;load status
0804 : 48 > pha
> cmp_flag $ff-minus
0805 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0807 : d0fe > bne * ;failed not equal (non zero)
>
0809 : 28 > plp ;restore status
set_a $fe,0
> load_flag 0
080a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
080c : 48 > pha ;use stack to load status
080d : a9fe > lda #$fe ;precharge accu
080f : 28 > plp
0810 : 68 pla
tst_a 1,0
0811 : 08 > php ;save flags
0812 : c901 > cmp #1 ;test result
> trap_ne
0814 : d0fe > bne * ;failed not equal (non zero)
>
0816 : 68 > pla ;load status
0817 : 48 > pha
> cmp_flag 0
0818 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
081a : d0fe > bne * ;failed not equal (non zero)
>
081c : 28 > plp ;restore status
081d : e055 cpx #$55 ;x & y unchanged?
trap_ne
081f : d0fe > bne * ;failed not equal (non zero)
0821 : c0aa cpy #$aa
trap_ne
0823 : d0fe > bne * ;failed not equal (non zero)
next_test
0825 : ad0002 > lda test_case ;previous test
0828 : c905 > cmp #test_num
> trap_ne ;test is out of sequence
082a : d0fe > bne * ;failed not equal (non zero)
>
0006 = >test_num = test_num + 1
082c : a906 > lda #test_num ;*** next tests' number
082e : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; partial pretest EOR #
set_a $3c,0
> load_flag 0
0831 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0833 : 48 > pha ;use stack to load status
0834 : a93c > lda #$3c ;precharge accu
0836 : 28 > plp
0837 : 49c3 eor #$c3
tst_a $ff,fn
0839 : 08 > php ;save flags
083a : c9ff > cmp #$ff ;test result
> trap_ne
083c : d0fe > bne * ;failed not equal (non zero)
>
083e : 68 > pla ;load status
083f : 48 > pha
> cmp_flag fn
0840 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0842 : d0fe > bne * ;failed not equal (non zero)
>
0844 : 28 > plp ;restore status
set_a $c3,0
> load_flag 0
0845 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0847 : 48 > pha ;use stack to load status
0848 : a9c3 > lda #$c3 ;precharge accu
084a : 28 > plp
084b : 49c3 eor #$c3
tst_a 0,fz
084d : 08 > php ;save flags
084e : c900 > cmp #0 ;test result
> trap_ne
0850 : d0fe > bne * ;failed not equal (non zero)
>
0852 : 68 > pla ;load status
0853 : 48 > pha
> cmp_flag fz
0854 : c932 > cmp #(fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0856 : d0fe > bne * ;failed not equal (non zero)
>
0858 : 28 > plp ;restore status
next_test
0859 : ad0002 > lda test_case ;previous test
085c : c906 > cmp #test_num
> trap_ne ;test is out of sequence
085e : d0fe > bne * ;failed not equal (non zero)
>
0007 = >test_num = test_num + 1
0860 : a907 > lda #test_num ;*** next tests' number
0862 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; PC modifying instructions except branches (NOP, JMP, JSR, RTS, BRK, RTI)
; testing NOP
0865 : a224 ldx #$24
0867 : a042 ldy #$42
set_a $18,0
> load_flag 0
0869 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
086b : 48 > pha ;use stack to load status
086c : a918 > lda #$18 ;precharge accu
086e : 28 > plp
086f : ea nop
tst_a $18,0
0870 : 08 > php ;save flags
0871 : c918 > cmp #$18 ;test result
> trap_ne
0873 : d0fe > bne * ;failed not equal (non zero)
>
0875 : 68 > pla ;load status
0876 : 48 > pha
> cmp_flag 0
0877 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0879 : d0fe > bne * ;failed not equal (non zero)
>
087b : 28 > plp ;restore status
087c : e024 cpx #$24
trap_ne
087e : d0fe > bne * ;failed not equal (non zero)
0880 : c042 cpy #$42
trap_ne
0882 : d0fe > bne * ;failed not equal (non zero)
0884 : a2db ldx #$db
0886 : a0bd ldy #$bd
set_a $e7,$ff
> load_flag $ff
0888 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
088a : 48 > pha ;use stack to load status
088b : a9e7 > lda #$e7 ;precharge accu
088d : 28 > plp
088e : ea nop
tst_a $e7,$ff
088f : 08 > php ;save flags
0890 : c9e7 > cmp #$e7 ;test result
> trap_ne
0892 : d0fe > bne * ;failed not equal (non zero)
>
0894 : 68 > pla ;load status
0895 : 48 > pha
> cmp_flag $ff
0896 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0898 : d0fe > bne * ;failed not equal (non zero)
>
089a : 28 > plp ;restore status
089b : e0db cpx #$db
trap_ne
089d : d0fe > bne * ;failed not equal (non zero)
089f : c0bd cpy #$bd
trap_ne
08a1 : d0fe > bne * ;failed not equal (non zero)
next_test
08a3 : ad0002 > lda test_case ;previous test
08a6 : c907 > cmp #test_num
> trap_ne ;test is out of sequence
08a8 : d0fe > bne * ;failed not equal (non zero)
>
0008 = >test_num = test_num + 1
08aa : a908 > lda #test_num ;*** next tests' number
08ac : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; jump absolute
set_stat $0
> load_flag $0
08af : a900 > lda #$0 ;allow test to change I-flag (no mask)
>
08b1 : 48 > pha ;use stack to load status
08b2 : 28 > plp
08b3 : a946 lda #'F'
08b5 : a241 ldx #'A'
08b7 : a052 ldy #'R' ;N=0, V=0, Z=0, C=0
08b9 : 4c1b36 jmp test_far
08bc : ea nop
08bd : ea nop
trap_ne ;runover protection
08be : d0fe > bne * ;failed not equal (non zero)
08c0 : e8 inx
08c1 : e8 inx
08c2 : far_ret
trap_eq ;returned flags OK?
08c2 : f0fe > beq * ;failed equal (zero)
trap_pl
08c4 : 10fe > bpl * ;failed plus (bit 7 clear)
trap_cc
08c6 : 90fe > bcc * ;failed carry clear
trap_vc
08c8 : 50fe > bvc * ;failed overflow clear
08ca : c9ec cmp #('F'^$aa) ;returned registers OK?
trap_ne
08cc : d0fe > bne * ;failed not equal (non zero)
08ce : e042 cpx #('A'+1)
trap_ne
08d0 : d0fe > bne * ;failed not equal (non zero)
08d2 : c04f cpy #('R'-3)
trap_ne
08d4 : d0fe > bne * ;failed not equal (non zero)
08d6 : ca dex
08d7 : c8 iny
08d8 : c8 iny
08d9 : c8 iny
08da : 49aa eor #$aa ;N=0, V=1, Z=0, C=1
08dc : 4ce508 jmp test_near
08df : ea nop
08e0 : ea nop
trap_ne ;runover protection
08e1 : d0fe > bne * ;failed not equal (non zero)
08e3 : e8 inx
08e4 : e8 inx
08e5 : test_near
trap_eq ;passed flags OK?
08e5 : f0fe > beq * ;failed equal (zero)
trap_mi
08e7 : 30fe > bmi * ;failed minus (bit 7 set)
trap_cc
08e9 : 90fe > bcc * ;failed carry clear
trap_vc
08eb : 50fe > bvc * ;failed overflow clear
08ed : c946 cmp #'F' ;passed registers OK?
trap_ne
08ef : d0fe > bne * ;failed not equal (non zero)
08f1 : e041 cpx #'A'
trap_ne
08f3 : d0fe > bne * ;failed not equal (non zero)
08f5 : c052 cpy #'R'
trap_ne
08f7 : d0fe > bne * ;failed not equal (non zero)
next_test
08f9 : ad0002 > lda test_case ;previous test
08fc : c908 > cmp #test_num
> trap_ne ;test is out of sequence
08fe : d0fe > bne * ;failed not equal (non zero)
>
0009 = >test_num = test_num + 1
0900 : a909 > lda #test_num ;*** next tests' number
0902 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; jump indirect
set_stat 0
> load_flag 0
0905 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0907 : 48 > pha ;use stack to load status
0908 : 28 > plp
0909 : a949 lda #'I'
090b : a24e ldx #'N'
090d : a044 ldy #'D' ;N=0, V=0, Z=0, C=0
090f : 6c4a36 jmp (ptr_tst_ind)
0912 : ea nop
trap_ne ;runover protection
0913 : d0fe > bne * ;failed not equal (non zero)
0915 : 88 dey
0916 : 88 dey
0917 : ind_ret
0917 : 08 php ;either SP or Y count will fail, if we do not hit
0918 : 88 dey
0919 : 88 dey
091a : 88 dey
091b : 28 plp
trap_eq ;returned flags OK?
091c : f0fe > beq * ;failed equal (zero)
trap_pl
091e : 10fe > bpl * ;failed plus (bit 7 clear)
trap_cc
0920 : 90fe > bcc * ;failed carry clear
trap_vc
0922 : 50fe > bvc * ;failed overflow clear
0924 : c9e3 cmp #('I'^$aa) ;returned registers OK?
trap_ne
0926 : d0fe > bne * ;failed not equal (non zero)
0928 : e04f cpx #('N'+1)
trap_ne
092a : d0fe > bne * ;failed not equal (non zero)
092c : c03e cpy #('D'-6)
trap_ne
092e : d0fe > bne * ;failed not equal (non zero)
0930 : ba tsx ;SP check
0931 : e0ff cpx #$ff
trap_ne
0933 : d0fe > bne * ;failed not equal (non zero)
next_test
0935 : ad0002 > lda test_case ;previous test
0938 : c909 > cmp #test_num
> trap_ne ;test is out of sequence
093a : d0fe > bne * ;failed not equal (non zero)
>
000a = >test_num = test_num + 1
093c : a90a > lda #test_num ;*** next tests' number
093e : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; jump subroutine & return from subroutine
set_stat 0
> load_flag 0
0941 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0943 : 48 > pha ;use stack to load status
0944 : 28 > plp
0945 : a94a lda #'J'
0947 : a253 ldx #'S'
0949 : a052 ldy #'R' ;N=0, V=0, Z=0, C=0
094b : 208636 jsr test_jsr
094d = jsr_ret = *-1 ;last address of jsr = return address
094e : 08 php ;either SP or Y count will fail, if we do not hit
094f : 88 dey
0950 : 88 dey
0951 : 88 dey
0952 : 28 plp
trap_eq ;returned flags OK?
0953 : f0fe > beq * ;failed equal (zero)
trap_pl
0955 : 10fe > bpl * ;failed plus (bit 7 clear)
trap_cc
0957 : 90fe > bcc * ;failed carry clear
trap_vc
0959 : 50fe > bvc * ;failed overflow clear
095b : c9e0 cmp #('J'^$aa) ;returned registers OK?
trap_ne
095d : d0fe > bne * ;failed not equal (non zero)
095f : e054 cpx #('S'+1)
trap_ne
0961 : d0fe > bne * ;failed not equal (non zero)
0963 : c04c cpy #('R'-6)
trap_ne
0965 : d0fe > bne * ;failed not equal (non zero)
0967 : ba tsx ;sp?
0968 : e0ff cpx #$ff
trap_ne
096a : d0fe > bne * ;failed not equal (non zero)
next_test
096c : ad0002 > lda test_case ;previous test
096f : c90a > cmp #test_num
> trap_ne ;test is out of sequence
0971 : d0fe > bne * ;failed not equal (non zero)
>
000b = >test_num = test_num + 1
0973 : a90b > lda #test_num ;*** next tests' number
0975 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; break & return from interrupt
if ROM_vectors = 1
set_stat 0
> load_flag 0
0978 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
097a : 48 > pha ;use stack to load status
097b : 28 > plp
097c : a942 lda #'B'
097e : a252 ldx #'R'
0980 : a04b ldy #'K' ;N=0, V=0, Z=0, C=0
0982 : 00 brk
else
lda #hi brk_ret ;emulated break
pha
lda #lo brk_ret
pha
lda #fao ;set break & unused on stack
pha
set_stat intdis
lda #'B'
ldx #'R'
ldy #'K' ;N=0, V=0, Z=0, C=0
jmp irq_trap
endif
0983 : 88 dey ;should not be executed
0984 : brk_ret ;address of break return
0984 : 08 php ;either SP or Y count will fail, if we do not hit
0985 : 88 dey
0986 : 88 dey
0987 : 88 dey
0988 : c9e8 cmp #('B'^$aa) ;returned registers OK?
trap_ne
098a : d0fe > bne * ;failed not equal (non zero)
098c : e053 cpx #('R'+1)
trap_ne
098e : d0fe > bne * ;failed not equal (non zero)
0990 : c045 cpy #('K'-6)
trap_ne
0992 : d0fe > bne * ;failed not equal (non zero)
0994 : 68 pla ;returned flags OK (unchanged)?
cmp_flag 0
0995 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
trap_ne
0997 : d0fe > bne * ;failed not equal (non zero)
0999 : ba tsx ;sp?
099a : e0ff cpx #$ff
trap_ne
099c : d0fe > bne * ;failed not equal (non zero)
next_test
099e : ad0002 > lda test_case ;previous test
09a1 : c90b > cmp #test_num
> trap_ne ;test is out of sequence
09a3 : d0fe > bne * ;failed not equal (non zero)
>
000c = >test_num = test_num + 1
09a5 : a90c > lda #test_num ;*** next tests' number
09a7 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; test set and clear flags CLC CLI CLD CLV SEC SEI SED
set_stat $ff
> load_flag $ff
09aa : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
09ac : 48 > pha ;use stack to load status
09ad : 28 > plp
09ae : 18 clc
tst_stat $ff-carry
09af : 08 > php ;save status
09b0 : 68 > pla ;use stack to retrieve status
09b1 : 48 > pha
> cmp_flag $ff-carry
09b2 : c9fe > cmp #($ff-carry|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09b4 : d0fe > bne * ;failed not equal (non zero)
>
09b6 : 28 > plp ;restore status
09b7 : 38 sec
tst_stat $ff
09b8 : 08 > php ;save status
09b9 : 68 > pla ;use stack to retrieve status
09ba : 48 > pha
> cmp_flag $ff
09bb : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09bd : d0fe > bne * ;failed not equal (non zero)
>
09bf : 28 > plp ;restore status
if I_flag = 3
09c0 : 58 cli
tst_stat $ff-intdis
09c1 : 08 > php ;save status
09c2 : 68 > pla ;use stack to retrieve status
09c3 : 48 > pha
> cmp_flag $ff-intdis
09c4 : c9fb > cmp #($ff-intdis|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09c6 : d0fe > bne * ;failed not equal (non zero)
>
09c8 : 28 > plp ;restore status
09c9 : 78 sei
tst_stat $ff
09ca : 08 > php ;save status
09cb : 68 > pla ;use stack to retrieve status
09cc : 48 > pha
> cmp_flag $ff
09cd : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09cf : d0fe > bne * ;failed not equal (non zero)
>
09d1 : 28 > plp ;restore status
endif
09d2 : d8 cld
tst_stat $ff-decmode
09d3 : 08 > php ;save status
09d4 : 68 > pla ;use stack to retrieve status
09d5 : 48 > pha
> cmp_flag $ff-decmode
09d6 : c9f7 > cmp #($ff-decmode|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09d8 : d0fe > bne * ;failed not equal (non zero)
>
09da : 28 > plp ;restore status
09db : f8 sed
tst_stat $ff
09dc : 08 > php ;save status
09dd : 68 > pla ;use stack to retrieve status
09de : 48 > pha
> cmp_flag $ff
09df : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09e1 : d0fe > bne * ;failed not equal (non zero)
>
09e3 : 28 > plp ;restore status
09e4 : b8 clv
tst_stat $ff-overfl
09e5 : 08 > php ;save status
09e6 : 68 > pla ;use stack to retrieve status
09e7 : 48 > pha
> cmp_flag $ff-overfl
09e8 : c9bf > cmp #($ff-overfl|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09ea : d0fe > bne * ;failed not equal (non zero)
>
09ec : 28 > plp ;restore status
set_stat 0
> load_flag 0
09ed : a900 > lda #0 ;allow test to change I-flag (no mask)
>
09ef : 48 > pha ;use stack to load status
09f0 : 28 > plp
tst_stat 0
09f1 : 08 > php ;save status
09f2 : 68 > pla ;use stack to retrieve status
09f3 : 48 > pha
> cmp_flag 0
09f4 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09f6 : d0fe > bne * ;failed not equal (non zero)
>
09f8 : 28 > plp ;restore status
09f9 : 38 sec
tst_stat carry
09fa : 08 > php ;save status
09fb : 68 > pla ;use stack to retrieve status
09fc : 48 > pha
> cmp_flag carry
09fd : c931 > cmp #(carry|fao)&m8 ;expected flags + always on bits
>
> trap_ne
09ff : d0fe > bne * ;failed not equal (non zero)
>
0a01 : 28 > plp ;restore status
0a02 : 18 clc
tst_stat 0
0a03 : 08 > php ;save status
0a04 : 68 > pla ;use stack to retrieve status
0a05 : 48 > pha
> cmp_flag 0
0a06 : c930 > cmp #(0 |fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a08 : d0fe > bne * ;failed not equal (non zero)
>
0a0a : 28 > plp ;restore status
if I_flag = 3
0a0b : 78 sei
tst_stat intdis
0a0c : 08 > php ;save status
0a0d : 68 > pla ;use stack to retrieve status
0a0e : 48 > pha
> cmp_flag intdis
0a0f : c934 > cmp #(intdis|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a11 : d0fe > bne * ;failed not equal (non zero)
>
0a13 : 28 > plp ;restore status
0a14 : 58 cli
tst_stat 0
0a15 : 08 > php ;save status
0a16 : 68 > pla ;use stack to retrieve status
0a17 : 48 > pha
> cmp_flag 0
0a18 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a1a : d0fe > bne * ;failed not equal (non zero)
>
0a1c : 28 > plp ;restore status
endif
0a1d : f8 sed
tst_stat decmode
0a1e : 08 > php ;save status
0a1f : 68 > pla ;use stack to retrieve status
0a20 : 48 > pha
> cmp_flag decmode
0a21 : c938 > cmp #(decmode|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a23 : d0fe > bne * ;failed not equal (non zero)
>
0a25 : 28 > plp ;restore status
0a26 : d8 cld
tst_stat 0
0a27 : 08 > php ;save status
0a28 : 68 > pla ;use stack to retrieve status
0a29 : 48 > pha
> cmp_flag 0
0a2a : c930 > cmp #(0 |fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a2c : d0fe > bne * ;failed not equal (non zero)
>
0a2e : 28 > plp ;restore status
set_stat overfl
> load_flag overfl
0a2f : a940 > lda #overfl ;allow test to change I-flag (no mask)
>
0a31 : 48 > pha ;use stack to load status
0a32 : 28 > plp
tst_stat overfl
0a33 : 08 > php ;save status
0a34 : 68 > pla ;use stack to retrieve status
0a35 : 48 > pha
> cmp_flag overfl
0a36 : c970 > cmp #(overfl|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a38 : d0fe > bne * ;failed not equal (non zero)
>
0a3a : 28 > plp ;restore status
0a3b : b8 clv
tst_stat 0
0a3c : 08 > php ;save status
0a3d : 68 > pla ;use stack to retrieve 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
next_test
0a44 : ad0002 > lda test_case ;previous test
0a47 : c90c > cmp #test_num
> trap_ne ;test is out of sequence
0a49 : d0fe > bne * ;failed not equal (non zero)
>
000d = >test_num = test_num + 1
0a4b : a90d > lda #test_num ;*** next tests' number
0a4d : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing index register increment/decrement and transfer
; INX INY DEX DEY TAX TXA TAY TYA
0a50 : a2fe ldx #$fe
set_stat $ff
> load_flag $ff
0a52 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0a54 : 48 > pha ;use stack to load status
0a55 : 28 > plp
0a56 : e8 inx ;ff
tst_x $ff,$ff-zero
0a57 : 08 > php ;save flags
0a58 : e0ff > cpx #$ff ;test result
> trap_ne
0a5a : d0fe > bne * ;failed not equal (non zero)
>
0a5c : 68 > pla ;load status
0a5d : 48 > pha
> cmp_flag $ff-zero
0a5e : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a60 : d0fe > bne * ;failed not equal (non zero)
>
0a62 : 28 > plp ;restore status
0a63 : e8 inx ;00
tst_x 0,$ff-minus
0a64 : 08 > php ;save flags
0a65 : e000 > cpx #0 ;test result
> trap_ne
0a67 : d0fe > bne * ;failed not equal (non zero)
>
0a69 : 68 > pla ;load status
0a6a : 48 > pha
> cmp_flag $ff-minus
0a6b : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a6d : d0fe > bne * ;failed not equal (non zero)
>
0a6f : 28 > plp ;restore status
0a70 : e8 inx ;01
tst_x 1,$ff-minus-zero
0a71 : 08 > php ;save flags
0a72 : e001 > cpx #1 ;test result
> trap_ne
0a74 : d0fe > bne * ;failed not equal (non zero)
>
0a76 : 68 > pla ;load status
0a77 : 48 > pha
> cmp_flag $ff-minus-zero
0a78 : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a7a : d0fe > bne * ;failed not equal (non zero)
>
0a7c : 28 > plp ;restore status
0a7d : ca dex ;00
tst_x 0,$ff-minus
0a7e : 08 > php ;save flags
0a7f : e000 > cpx #0 ;test result
> trap_ne
0a81 : d0fe > bne * ;failed not equal (non zero)
>
0a83 : 68 > pla ;load status
0a84 : 48 > pha
> cmp_flag $ff-minus
0a85 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a87 : d0fe > bne * ;failed not equal (non zero)
>
0a89 : 28 > plp ;restore status
0a8a : ca dex ;ff
tst_x $ff,$ff-zero
0a8b : 08 > php ;save flags
0a8c : e0ff > cpx #$ff ;test result
> trap_ne
0a8e : d0fe > bne * ;failed not equal (non zero)
>
0a90 : 68 > pla ;load status
0a91 : 48 > pha
> cmp_flag $ff-zero
0a92 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0a94 : d0fe > bne * ;failed not equal (non zero)
>
0a96 : 28 > plp ;restore status
0a97 : ca dex ;fe
set_stat 0
> load_flag 0
0a98 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0a9a : 48 > pha ;use stack to load status
0a9b : 28 > plp
0a9c : e8 inx ;ff
tst_x $ff,minus
0a9d : 08 > php ;save flags
0a9e : e0ff > cpx #$ff ;test result
> trap_ne
0aa0 : d0fe > bne * ;failed not equal (non zero)
>
0aa2 : 68 > pla ;load status
0aa3 : 48 > pha
> cmp_flag minus
0aa4 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0aa6 : d0fe > bne * ;failed not equal (non zero)
>
0aa8 : 28 > plp ;restore status
0aa9 : e8 inx ;00
tst_x 0,zero
0aaa : 08 > php ;save flags
0aab : e000 > cpx #0 ;test result
> trap_ne
0aad : d0fe > bne * ;failed not equal (non zero)
>
0aaf : 68 > pla ;load status
0ab0 : 48 > pha
> cmp_flag zero
0ab1 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ab3 : d0fe > bne * ;failed not equal (non zero)
>
0ab5 : 28 > plp ;restore status
0ab6 : e8 inx ;01
tst_x 1,0
0ab7 : 08 > php ;save flags
0ab8 : e001 > cpx #1 ;test result
> trap_ne
0aba : d0fe > bne * ;failed not equal (non zero)
>
0abc : 68 > pla ;load status
0abd : 48 > pha
> cmp_flag 0
0abe : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ac0 : d0fe > bne * ;failed not equal (non zero)
>
0ac2 : 28 > plp ;restore status
0ac3 : ca dex ;00
tst_x 0,zero
0ac4 : 08 > php ;save flags
0ac5 : e000 > cpx #0 ;test result
> trap_ne
0ac7 : d0fe > bne * ;failed not equal (non zero)
>
0ac9 : 68 > pla ;load status
0aca : 48 > pha
> cmp_flag zero
0acb : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0acd : d0fe > bne * ;failed not equal (non zero)
>
0acf : 28 > plp ;restore status
0ad0 : ca dex ;ff
tst_x $ff,minus
0ad1 : 08 > php ;save flags
0ad2 : e0ff > cpx #$ff ;test result
> trap_ne
0ad4 : d0fe > bne * ;failed not equal (non zero)
>
0ad6 : 68 > pla ;load status
0ad7 : 48 > pha
> cmp_flag minus
0ad8 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ada : d0fe > bne * ;failed not equal (non zero)
>
0adc : 28 > plp ;restore status
0add : a0fe ldy #$fe
set_stat $ff
> load_flag $ff
0adf : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0ae1 : 48 > pha ;use stack to load status
0ae2 : 28 > plp
0ae3 : c8 iny ;ff
tst_y $ff,$ff-zero
0ae4 : 08 > php ;save flags
0ae5 : c0ff > cpy #$ff ;test result
> trap_ne
0ae7 : d0fe > bne * ;failed not equal (non zero)
>
0ae9 : 68 > pla ;load status
0aea : 48 > pha
> cmp_flag $ff-zero
0aeb : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0aed : d0fe > bne * ;failed not equal (non zero)
>
0aef : 28 > plp ;restore status
0af0 : c8 iny ;00
tst_y 0,$ff-minus
0af1 : 08 > php ;save flags
0af2 : c000 > cpy #0 ;test result
> trap_ne
0af4 : d0fe > bne * ;failed not equal (non zero)
>
0af6 : 68 > pla ;load status
0af7 : 48 > pha
> cmp_flag $ff-minus
0af8 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0afa : d0fe > bne * ;failed not equal (non zero)
>
0afc : 28 > plp ;restore status
0afd : c8 iny ;01
tst_y 1,$ff-minus-zero
0afe : 08 > php ;save flags
0aff : c001 > cpy #1 ;test result
> trap_ne
0b01 : d0fe > bne * ;failed not equal (non zero)
>
0b03 : 68 > pla ;load status
0b04 : 48 > pha
> cmp_flag $ff-minus-zero
0b05 : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b07 : d0fe > bne * ;failed not equal (non zero)
>
0b09 : 28 > plp ;restore status
0b0a : 88 dey ;00
tst_y 0,$ff-minus
0b0b : 08 > php ;save flags
0b0c : c000 > cpy #0 ;test result
> trap_ne
0b0e : d0fe > bne * ;failed not equal (non zero)
>
0b10 : 68 > pla ;load status
0b11 : 48 > pha
> cmp_flag $ff-minus
0b12 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b14 : d0fe > bne * ;failed not equal (non zero)
>
0b16 : 28 > plp ;restore status
0b17 : 88 dey ;ff
tst_y $ff,$ff-zero
0b18 : 08 > php ;save flags
0b19 : c0ff > cpy #$ff ;test result
> trap_ne
0b1b : d0fe > bne * ;failed not equal (non zero)
>
0b1d : 68 > pla ;load status
0b1e : 48 > pha
> cmp_flag $ff-zero
0b1f : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b21 : d0fe > bne * ;failed not equal (non zero)
>
0b23 : 28 > plp ;restore status
0b24 : 88 dey ;fe
set_stat 0
> load_flag 0
0b25 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0b27 : 48 > pha ;use stack to load status
0b28 : 28 > plp
0b29 : c8 iny ;ff
tst_y $ff,0+minus
0b2a : 08 > php ;save flags
0b2b : c0ff > cpy #$ff ;test result
> trap_ne
0b2d : d0fe > bne * ;failed not equal (non zero)
>
0b2f : 68 > pla ;load status
0b30 : 48 > pha
> cmp_flag 0+minus
0b31 : c9b0 > cmp #(0+minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b33 : d0fe > bne * ;failed not equal (non zero)
>
0b35 : 28 > plp ;restore status
0b36 : c8 iny ;00
tst_y 0,zero
0b37 : 08 > php ;save flags
0b38 : c000 > cpy #0 ;test result
> trap_ne
0b3a : d0fe > bne * ;failed not equal (non zero)
>
0b3c : 68 > pla ;load status
0b3d : 48 > pha
> cmp_flag zero
0b3e : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b40 : d0fe > bne * ;failed not equal (non zero)
>
0b42 : 28 > plp ;restore status
0b43 : c8 iny ;01
tst_y 1,0
0b44 : 08 > php ;save flags
0b45 : c001 > cpy #1 ;test result
> trap_ne
0b47 : d0fe > bne * ;failed not equal (non zero)
>
0b49 : 68 > pla ;load status
0b4a : 48 > pha
> cmp_flag 0
0b4b : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b4d : d0fe > bne * ;failed not equal (non zero)
>
0b4f : 28 > plp ;restore status
0b50 : 88 dey ;00
tst_y 0,zero
0b51 : 08 > php ;save flags
0b52 : c000 > cpy #0 ;test result
> trap_ne
0b54 : d0fe > bne * ;failed not equal (non zero)
>
0b56 : 68 > pla ;load status
0b57 : 48 > pha
> cmp_flag zero
0b58 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b5a : d0fe > bne * ;failed not equal (non zero)
>
0b5c : 28 > plp ;restore status
0b5d : 88 dey ;ff
tst_y $ff,minus
0b5e : 08 > php ;save flags
0b5f : c0ff > cpy #$ff ;test result
> trap_ne
0b61 : d0fe > bne * ;failed not equal (non zero)
>
0b63 : 68 > pla ;load status
0b64 : 48 > pha
> cmp_flag minus
0b65 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b67 : d0fe > bne * ;failed not equal (non zero)
>
0b69 : 28 > plp ;restore status
0b6a : a2ff ldx #$ff
set_stat $ff
> load_flag $ff
0b6c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0b6e : 48 > pha ;use stack to load status
0b6f : 28 > plp
0b70 : 8a txa
tst_a $ff,$ff-zero
0b71 : 08 > php ;save flags
0b72 : c9ff > cmp #$ff ;test result
> trap_ne
0b74 : d0fe > bne * ;failed not equal (non zero)
>
0b76 : 68 > pla ;load status
0b77 : 48 > pha
> cmp_flag $ff-zero
0b78 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b7a : d0fe > bne * ;failed not equal (non zero)
>
0b7c : 28 > plp ;restore status
0b7d : 08 php
0b7e : e8 inx ;00
0b7f : 28 plp
0b80 : 8a txa
tst_a 0,$ff-minus
0b81 : 08 > php ;save flags
0b82 : c900 > cmp #0 ;test result
> trap_ne
0b84 : d0fe > bne * ;failed not equal (non zero)
>
0b86 : 68 > pla ;load status
0b87 : 48 > pha
> cmp_flag $ff-minus
0b88 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b8a : d0fe > bne * ;failed not equal (non zero)
>
0b8c : 28 > plp ;restore status
0b8d : 08 php
0b8e : e8 inx ;01
0b8f : 28 plp
0b90 : 8a txa
tst_a 1,$ff-minus-zero
0b91 : 08 > php ;save flags
0b92 : c901 > cmp #1 ;test result
> trap_ne
0b94 : d0fe > bne * ;failed not equal (non zero)
>
0b96 : 68 > pla ;load status
0b97 : 48 > pha
> cmp_flag $ff-minus-zero
0b98 : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0b9a : d0fe > bne * ;failed not equal (non zero)
>
0b9c : 28 > plp ;restore status
set_stat 0
> load_flag 0
0b9d : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0b9f : 48 > pha ;use stack to load status
0ba0 : 28 > plp
0ba1 : 8a txa
tst_a 1,0
0ba2 : 08 > php ;save flags
0ba3 : c901 > cmp #1 ;test result
> trap_ne
0ba5 : d0fe > bne * ;failed not equal (non zero)
>
0ba7 : 68 > pla ;load status
0ba8 : 48 > pha
> cmp_flag 0
0ba9 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bab : d0fe > bne * ;failed not equal (non zero)
>
0bad : 28 > plp ;restore status
0bae : 08 php
0baf : ca dex ;00
0bb0 : 28 plp
0bb1 : 8a txa
tst_a 0,zero
0bb2 : 08 > php ;save flags
0bb3 : c900 > cmp #0 ;test result
> trap_ne
0bb5 : d0fe > bne * ;failed not equal (non zero)
>
0bb7 : 68 > pla ;load status
0bb8 : 48 > pha
> cmp_flag zero
0bb9 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bbb : d0fe > bne * ;failed not equal (non zero)
>
0bbd : 28 > plp ;restore status
0bbe : 08 php
0bbf : ca dex ;ff
0bc0 : 28 plp
0bc1 : 8a txa
tst_a $ff,minus
0bc2 : 08 > php ;save flags
0bc3 : c9ff > cmp #$ff ;test result
> trap_ne
0bc5 : d0fe > bne * ;failed not equal (non zero)
>
0bc7 : 68 > pla ;load status
0bc8 : 48 > pha
> cmp_flag minus
0bc9 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bcb : d0fe > bne * ;failed not equal (non zero)
>
0bcd : 28 > plp ;restore status
0bce : a0ff ldy #$ff
set_stat $ff
> load_flag $ff
0bd0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0bd2 : 48 > pha ;use stack to load status
0bd3 : 28 > plp
0bd4 : 98 tya
tst_a $ff,$ff-zero
0bd5 : 08 > php ;save flags
0bd6 : c9ff > cmp #$ff ;test result
> trap_ne
0bd8 : d0fe > bne * ;failed not equal (non zero)
>
0bda : 68 > pla ;load status
0bdb : 48 > pha
> cmp_flag $ff-zero
0bdc : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bde : d0fe > bne * ;failed not equal (non zero)
>
0be0 : 28 > plp ;restore status
0be1 : 08 php
0be2 : c8 iny ;00
0be3 : 28 plp
0be4 : 98 tya
tst_a 0,$ff-minus
0be5 : 08 > php ;save flags
0be6 : c900 > cmp #0 ;test result
> trap_ne
0be8 : d0fe > bne * ;failed not equal (non zero)
>
0bea : 68 > pla ;load status
0beb : 48 > pha
> cmp_flag $ff-minus
0bec : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bee : d0fe > bne * ;failed not equal (non zero)
>
0bf0 : 28 > plp ;restore status
0bf1 : 08 php
0bf2 : c8 iny ;01
0bf3 : 28 plp
0bf4 : 98 tya
tst_a 1,$ff-minus-zero
0bf5 : 08 > php ;save flags
0bf6 : c901 > cmp #1 ;test result
> trap_ne
0bf8 : d0fe > bne * ;failed not equal (non zero)
>
0bfa : 68 > pla ;load status
0bfb : 48 > pha
> cmp_flag $ff-minus-zero
0bfc : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0bfe : d0fe > bne * ;failed not equal (non zero)
>
0c00 : 28 > plp ;restore status
set_stat 0
> load_flag 0
0c01 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0c03 : 48 > pha ;use stack to load status
0c04 : 28 > plp
0c05 : 98 tya
tst_a 1,0
0c06 : 08 > php ;save flags
0c07 : c901 > cmp #1 ;test result
> trap_ne
0c09 : d0fe > bne * ;failed not equal (non zero)
>
0c0b : 68 > pla ;load status
0c0c : 48 > pha
> cmp_flag 0
0c0d : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c0f : d0fe > bne * ;failed not equal (non zero)
>
0c11 : 28 > plp ;restore status
0c12 : 08 php
0c13 : 88 dey ;00
0c14 : 28 plp
0c15 : 98 tya
tst_a 0,zero
0c16 : 08 > php ;save flags
0c17 : c900 > cmp #0 ;test result
> trap_ne
0c19 : d0fe > bne * ;failed not equal (non zero)
>
0c1b : 68 > pla ;load status
0c1c : 48 > pha
> cmp_flag zero
0c1d : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c1f : d0fe > bne * ;failed not equal (non zero)
>
0c21 : 28 > plp ;restore status
0c22 : 08 php
0c23 : 88 dey ;ff
0c24 : 28 plp
0c25 : 98 tya
tst_a $ff,minus
0c26 : 08 > php ;save flags
0c27 : c9ff > cmp #$ff ;test result
> trap_ne
0c29 : d0fe > bne * ;failed not equal (non zero)
>
0c2b : 68 > pla ;load status
0c2c : 48 > pha
> cmp_flag minus
0c2d : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c2f : d0fe > bne * ;failed not equal (non zero)
>
0c31 : 28 > plp ;restore status
load_flag $ff
0c32 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
0c34 : 48 pha
0c35 : a2ff ldx #$ff ;ff
0c37 : 8a txa
0c38 : 28 plp
0c39 : a8 tay
tst_y $ff,$ff-zero
0c3a : 08 > php ;save flags
0c3b : c0ff > cpy #$ff ;test result
> trap_ne
0c3d : d0fe > bne * ;failed not equal (non zero)
>
0c3f : 68 > pla ;load status
0c40 : 48 > pha
> cmp_flag $ff-zero
0c41 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c43 : d0fe > bne * ;failed not equal (non zero)
>
0c45 : 28 > plp ;restore status
0c46 : 08 php
0c47 : e8 inx ;00
0c48 : 8a txa
0c49 : 28 plp
0c4a : a8 tay
tst_y 0,$ff-minus
0c4b : 08 > php ;save flags
0c4c : c000 > cpy #0 ;test result
> trap_ne
0c4e : d0fe > bne * ;failed not equal (non zero)
>
0c50 : 68 > pla ;load status
0c51 : 48 > pha
> cmp_flag $ff-minus
0c52 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c54 : d0fe > bne * ;failed not equal (non zero)
>
0c56 : 28 > plp ;restore status
0c57 : 08 php
0c58 : e8 inx ;01
0c59 : 8a txa
0c5a : 28 plp
0c5b : a8 tay
tst_y 1,$ff-minus-zero
0c5c : 08 > php ;save flags
0c5d : c001 > cpy #1 ;test result
> trap_ne
0c5f : d0fe > bne * ;failed not equal (non zero)
>
0c61 : 68 > pla ;load status
0c62 : 48 > pha
> cmp_flag $ff-minus-zero
0c63 : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c65 : d0fe > bne * ;failed not equal (non zero)
>
0c67 : 28 > plp ;restore status
load_flag 0
0c68 : a900 > lda #0 ;allow test to change I-flag (no mask)
0c6a : 48 pha
0c6b : a900 lda #0
0c6d : 8a txa
0c6e : 28 plp
0c6f : a8 tay
tst_y 1,0
0c70 : 08 > php ;save flags
0c71 : c001 > cpy #1 ;test result
> trap_ne
0c73 : d0fe > bne * ;failed not equal (non zero)
>
0c75 : 68 > pla ;load status
0c76 : 48 > pha
> cmp_flag 0
0c77 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c79 : d0fe > bne * ;failed not equal (non zero)
>
0c7b : 28 > plp ;restore status
0c7c : 08 php
0c7d : ca dex ;00
0c7e : 8a txa
0c7f : 28 plp
0c80 : a8 tay
tst_y 0,zero
0c81 : 08 > php ;save flags
0c82 : c000 > cpy #0 ;test result
> trap_ne
0c84 : d0fe > bne * ;failed not equal (non zero)
>
0c86 : 68 > pla ;load status
0c87 : 48 > pha
> cmp_flag zero
0c88 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c8a : d0fe > bne * ;failed not equal (non zero)
>
0c8c : 28 > plp ;restore status
0c8d : 08 php
0c8e : ca dex ;ff
0c8f : 8a txa
0c90 : 28 plp
0c91 : a8 tay
tst_y $ff,minus
0c92 : 08 > php ;save flags
0c93 : c0ff > cpy #$ff ;test result
> trap_ne
0c95 : d0fe > bne * ;failed not equal (non zero)
>
0c97 : 68 > pla ;load status
0c98 : 48 > pha
> cmp_flag minus
0c99 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0c9b : d0fe > bne * ;failed not equal (non zero)
>
0c9d : 28 > plp ;restore status
load_flag $ff
0c9e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
0ca0 : 48 pha
0ca1 : a0ff ldy #$ff ;ff
0ca3 : 98 tya
0ca4 : 28 plp
0ca5 : aa tax
tst_x $ff,$ff-zero
0ca6 : 08 > php ;save flags
0ca7 : e0ff > cpx #$ff ;test result
> trap_ne
0ca9 : d0fe > bne * ;failed not equal (non zero)
>
0cab : 68 > pla ;load status
0cac : 48 > pha
> cmp_flag $ff-zero
0cad : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0caf : d0fe > bne * ;failed not equal (non zero)
>
0cb1 : 28 > plp ;restore status
0cb2 : 08 php
0cb3 : c8 iny ;00
0cb4 : 98 tya
0cb5 : 28 plp
0cb6 : aa tax
tst_x 0,$ff-minus
0cb7 : 08 > php ;save flags
0cb8 : e000 > cpx #0 ;test result
> trap_ne
0cba : d0fe > bne * ;failed not equal (non zero)
>
0cbc : 68 > pla ;load status
0cbd : 48 > pha
> cmp_flag $ff-minus
0cbe : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cc0 : d0fe > bne * ;failed not equal (non zero)
>
0cc2 : 28 > plp ;restore status
0cc3 : 08 php
0cc4 : c8 iny ;01
0cc5 : 98 tya
0cc6 : 28 plp
0cc7 : aa tax
tst_x 1,$ff-minus-zero
0cc8 : 08 > php ;save flags
0cc9 : e001 > cpx #1 ;test result
> trap_ne
0ccb : d0fe > bne * ;failed not equal (non zero)
>
0ccd : 68 > pla ;load status
0cce : 48 > pha
> cmp_flag $ff-minus-zero
0ccf : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cd1 : d0fe > bne * ;failed not equal (non zero)
>
0cd3 : 28 > plp ;restore status
load_flag 0
0cd4 : a900 > lda #0 ;allow test to change I-flag (no mask)
0cd6 : 48 pha
0cd7 : a900 lda #0 ;preset status
0cd9 : 98 tya
0cda : 28 plp
0cdb : aa tax
tst_x 1,0
0cdc : 08 > php ;save flags
0cdd : e001 > cpx #1 ;test result
> trap_ne
0cdf : d0fe > bne * ;failed not equal (non zero)
>
0ce1 : 68 > pla ;load status
0ce2 : 48 > pha
> cmp_flag 0
0ce3 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0ce5 : d0fe > bne * ;failed not equal (non zero)
>
0ce7 : 28 > plp ;restore status
0ce8 : 08 php
0ce9 : 88 dey ;00
0cea : 98 tya
0ceb : 28 plp
0cec : aa tax
tst_x 0,zero
0ced : 08 > php ;save flags
0cee : e000 > cpx #0 ;test result
> trap_ne
0cf0 : d0fe > bne * ;failed not equal (non zero)
>
0cf2 : 68 > pla ;load status
0cf3 : 48 > pha
> cmp_flag zero
0cf4 : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0cf6 : d0fe > bne * ;failed not equal (non zero)
>
0cf8 : 28 > plp ;restore status
0cf9 : 08 php
0cfa : 88 dey ;ff
0cfb : 98 tya
0cfc : 28 plp
0cfd : aa tax
tst_x $ff,minus
0cfe : 08 > php ;save flags
0cff : e0ff > cpx #$ff ;test result
> trap_ne
0d01 : d0fe > bne * ;failed not equal (non zero)
>
0d03 : 68 > pla ;load status
0d04 : 48 > pha
> cmp_flag minus
0d05 : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
>
> trap_ne
0d07 : d0fe > bne * ;failed not equal (non zero)
>
0d09 : 28 > plp ;restore status
next_test
0d0a : ad0002 > lda test_case ;previous test
0d0d : c90d > cmp #test_num
> trap_ne ;test is out of sequence
0d0f : d0fe > bne * ;failed not equal (non zero)
>
000e = >test_num = test_num + 1
0d11 : a90e > lda #test_num ;*** next tests' number
0d13 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
;TSX sets NZ - TXS does not
0d16 : a201 ldx #1 ;01
set_stat $ff
> load_flag $ff
0d18 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d1a : 48 > pha ;use stack to load status
0d1b : 28 > plp
0d1c : 9a txs
0d1d : 08 php
0d1e : ad0101 lda $101
cmp_flag $ff
0d21 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
trap_ne
0d23 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0d25 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d27 : 48 > pha ;use stack to load status
0d28 : 28 > plp
0d29 : 9a txs
0d2a : 08 php
0d2b : ad0101 lda $101
cmp_flag 0
0d2e : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
trap_ne
0d30 : d0fe > bne * ;failed not equal (non zero)
0d32 : ca dex ;00
set_stat $ff
> load_flag $ff
0d33 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d35 : 48 > pha ;use stack to load status
0d36 : 28 > plp
0d37 : 9a txs
0d38 : 08 php
0d39 : ad0001 lda $100
cmp_flag $ff
0d3c : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
trap_ne
0d3e : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0d40 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d42 : 48 > pha ;use stack to load status
0d43 : 28 > plp
0d44 : 9a txs
0d45 : 08 php
0d46 : ad0001 lda $100
cmp_flag 0
0d49 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
trap_ne
0d4b : d0fe > bne * ;failed not equal (non zero)
0d4d : ca dex ;ff
set_stat $ff
> load_flag $ff
0d4e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d50 : 48 > pha ;use stack to load status
0d51 : 28 > plp
0d52 : 9a txs
0d53 : 08 php
0d54 : adff01 lda $1ff
cmp_flag $ff
0d57 : c9ff > cmp #($ff|fao)&m8 ;expected flags + always on bits
trap_ne
0d59 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0d5b : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0d5d : 48 > pha ;use stack to load status
0d5e : 28 > plp
0d5f : 9a txs
0d60 : 08 php
0d61 : adff01 lda $1ff
cmp_flag 0
0d64 : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
0d66 : a201 ldx #1
0d68 : 9a txs ;sp=01
set_stat $ff
> load_flag $ff
0d69 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d6b : 48 > pha ;use stack to load status
0d6c : 28 > plp
0d6d : ba tsx ;clears Z, N
0d6e : 08 php ;sp=00
0d6f : e001 cpx #1
trap_ne
0d71 : d0fe > bne * ;failed not equal (non zero)
0d73 : ad0101 lda $101
cmp_flag $ff-minus-zero
0d76 : c97d > cmp #($ff-minus-zero|fao)&m8 ;expected flags + always on bits
trap_ne
0d78 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
0d7a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0d7c : 48 > pha ;use stack to load status
0d7d : 28 > plp
0d7e : ba tsx ;clears N, sets Z
0d7f : 08 php ;sp=ff
0d80 : e000 cpx #0
trap_ne
0d82 : d0fe > bne * ;failed not equal (non zero)
0d84 : ad0001 lda $100
cmp_flag $ff-minus
0d87 : c97f > cmp #($ff-minus|fao)&m8 ;expected flags + always on bits
trap_ne
0d89 : d0fe > bne * ;failed not equal (non zero)
set_stat $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 : 28 > plp
0d8f : ba tsx ;clears N, sets Z
0d90 : 08 php ;sp=fe
0d91 : e0ff cpx #$ff
trap_ne
0d93 : d0fe > bne * ;failed not equal (non zero)
0d95 : adff01 lda $1ff
cmp_flag $ff-zero
0d98 : c9fd > cmp #($ff-zero|fao)&m8 ;expected flags + always on bits
trap_ne
0d9a : d0fe > bne * ;failed not equal (non zero)
0d9c : a201 ldx #1
0d9e : 9a txs ;sp=01
set_stat 0
> load_flag 0
0d9f : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0da1 : 48 > pha ;use stack to load status
0da2 : 28 > plp
0da3 : ba tsx ;clears Z, N
0da4 : 08 php ;sp=00
0da5 : e001 cpx #1
trap_ne
0da7 : d0fe > bne * ;failed not equal (non zero)
0da9 : ad0101 lda $101
cmp_flag 0
0dac : c930 > cmp #(0|fao)&m8 ;expected flags + always on bits
trap_ne
0dae : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0db0 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0db2 : 48 > pha ;use stack to load status
0db3 : 28 > plp
0db4 : ba tsx ;clears N, sets Z
0db5 : 08 php ;sp=ff
0db6 : e000 cpx #0
trap_ne
0db8 : d0fe > bne * ;failed not equal (non zero)
0dba : ad0001 lda $100
cmp_flag zero
0dbd : c932 > cmp #(zero|fao)&m8 ;expected flags + always on bits
trap_ne
0dbf : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0dc1 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0dc3 : 48 > pha ;use stack to load status
0dc4 : 28 > plp
0dc5 : ba tsx ;clears N, sets Z
0dc6 : 08 php ;sp=fe
0dc7 : e0ff cpx #$ff
trap_ne
0dc9 : d0fe > bne * ;failed not equal (non zero)
0dcb : adff01 lda $1ff
cmp_flag minus
0dce : c9b0 > cmp #(minus|fao)&m8 ;expected flags + always on bits
trap_ne
0dd0 : d0fe > bne * ;failed not equal (non zero)
0dd2 : 68 pla ;sp=ff
next_test
0dd3 : ad0002 > lda test_case ;previous test
0dd6 : c90e > cmp #test_num
> trap_ne ;test is out of sequence
0dd8 : d0fe > bne * ;failed not equal (non zero)
>
000f = >test_num = test_num + 1
0dda : a90f > lda #test_num ;*** next tests' number
0ddc : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing index register load & store LDY LDX STY STX all addressing modes
; LDX / STX - zp,y / abs,y
0ddf : a003 ldy #3
0de1 : tldx
set_stat 0
> load_flag 0
0de1 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0de3 : 48 > pha ;use stack to load status
0de4 : 28 > plp
0de5 : b613 ldx zp1,y
0de7 : 08 php ;test stores do not alter flags
0de8 : 8a txa
0de9 : 49c3 eor #$c3
0deb : 28 plp
0dec : 990302 sta abst,y
0def : 08 php ;flags after load/store sequence
0df0 : 49c3 eor #$c3
0df2 : d90802 cmp abs1,y ;test result
trap_ne
0df5 : d0fe > bne * ;failed not equal (non zero)
0df7 : 68 pla ;load status
eor_flag 0
0df8 : 4930 > eor #0|fao ;invert expected flags + always on bits
0dfa : d90d02 cmp fLDx,y ;test flags
trap_ne
0dfd : d0fe > bne * ;failed not equal (non zero)
0dff : 88 dey
0e00 : 10df bpl tldx
0e02 : a003 ldy #3
0e04 : tldx1
set_stat $ff
> load_flag $ff
0e04 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e06 : 48 > pha ;use stack to load status
0e07 : 28 > plp
0e08 : b613 ldx zp1,y
0e0a : 08 php ;test stores do not alter flags
0e0b : 8a txa
0e0c : 49c3 eor #$c3
0e0e : 28 plp
0e0f : 990302 sta abst,y
0e12 : 08 php ;flags after load/store sequence
0e13 : 49c3 eor #$c3
0e15 : d90802 cmp abs1,y ;test result
trap_ne
0e18 : d0fe > bne * ;failed not equal (non zero)
0e1a : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
0e1b : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
0e1d : d90d02 cmp fLDx,y ;test flags
trap_ne
0e20 : d0fe > bne * ;failed not equal (non zero)
0e22 : 88 dey
0e23 : 10df bpl tldx1
0e25 : a003 ldy #3
0e27 : tldx2
set_stat 0
> load_flag 0
0e27 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0e29 : 48 > pha ;use stack to load status
0e2a : 28 > plp
0e2b : be0802 ldx abs1,y
0e2e : 08 php ;test stores do not alter flags
0e2f : 8a txa
0e30 : 49c3 eor #$c3
0e32 : aa tax
0e33 : 28 plp
0e34 : 960c stx zpt,y
0e36 : 08 php ;flags after load/store sequence
0e37 : 49c3 eor #$c3
0e39 : d91300 cmp zp1,y ;test result
trap_ne
0e3c : d0fe > bne * ;failed not equal (non zero)
0e3e : 68 pla ;load status
eor_flag 0
0e3f : 4930 > eor #0|fao ;invert expected flags + always on bits
0e41 : d90d02 cmp fLDx,y ;test flags
trap_ne
0e44 : d0fe > bne * ;failed not equal (non zero)
0e46 : 88 dey
0e47 : 10de bpl tldx2
0e49 : a003 ldy #3
0e4b : tldx3
set_stat $ff
> load_flag $ff
0e4b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0e4d : 48 > pha ;use stack to load status
0e4e : 28 > plp
0e4f : be0802 ldx abs1,y
0e52 : 08 php ;test stores do not alter flags
0e53 : 8a txa
0e54 : 49c3 eor #$c3
0e56 : aa tax
0e57 : 28 plp
0e58 : 960c stx zpt,y
0e5a : 08 php ;flags after load/store sequence
0e5b : 49c3 eor #$c3
0e5d : d91300 cmp zp1,y ;test result
trap_ne
0e60 : d0fe > bne * ;failed not equal (non zero)
0e62 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
0e63 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
0e65 : d90d02 cmp fLDx,y ;test flags
trap_ne
0e68 : d0fe > bne * ;failed not equal (non zero)
0e6a : 88 dey
0e6b : 10de bpl tldx3
0e6d : a003 ldy #3 ;testing store result
0e6f : a200 ldx #0
0e71 : b90c00 tstx lda zpt,y
0e74 : 49c3 eor #$c3
0e76 : d91300 cmp zp1,y
trap_ne ;store to zp data
0e79 : d0fe > bne * ;failed not equal (non zero)
0e7b : 960c stx zpt,y ;clear
0e7d : b90302 lda abst,y
0e80 : 49c3 eor #$c3
0e82 : d90802 cmp abs1,y
trap_ne ;store to abs data
0e85 : d0fe > bne * ;failed not equal (non zero)
0e87 : 8a txa
0e88 : 990302 sta abst,y ;clear
0e8b : 88 dey
0e8c : 10e3 bpl tstx
next_test
0e8e : ad0002 > lda test_case ;previous test
0e91 : c90f > cmp #test_num
> trap_ne ;test is out of sequence
0e93 : d0fe > bne * ;failed not equal (non zero)
>
0010 = >test_num = test_num + 1
0e95 : a910 > lda #test_num ;*** next tests' number
0e97 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; indexed wraparound test (only zp should wrap)
0e9a : a0fd ldy #3+$fa
0e9c : b619 tldx4 ldx zp1-$fa&$ff,y ;wrap on indexed zp
0e9e : 8a txa
0e9f : 990901 sta abst-$fa,y ;no STX abs,y!
0ea2 : 88 dey
0ea3 : c0fa cpy #$fa
0ea5 : b0f5 bcs tldx4
0ea7 : a0fd ldy #3+$fa
0ea9 : be0e01 tldx5 ldx abs1-$fa,y ;no wrap on indexed abs
0eac : 9612 stx zpt-$fa&$ff,y
0eae : 88 dey
0eaf : c0fa cpy #$fa
0eb1 : b0f6 bcs tldx5
0eb3 : a003 ldy #3 ;testing wraparound result
0eb5 : a200 ldx #0
0eb7 : b90c00 tstx1 lda zpt,y
0eba : d91300 cmp zp1,y
trap_ne ;store to zp data
0ebd : d0fe > bne * ;failed not equal (non zero)
0ebf : 960c stx zpt,y ;clear
0ec1 : b90302 lda abst,y
0ec4 : d90802 cmp abs1,y
trap_ne ;store to abs data
0ec7 : d0fe > bne * ;failed not equal (non zero)
0ec9 : 8a txa
0eca : 990302 sta abst,y ;clear
0ecd : 88 dey
0ece : 10e7 bpl tstx1
next_test
0ed0 : ad0002 > lda test_case ;previous test
0ed3 : c910 > cmp #test_num
> trap_ne ;test is out of sequence
0ed5 : d0fe > bne * ;failed not equal (non zero)
>
0011 = >test_num = test_num + 1
0ed7 : a911 > lda #test_num ;*** next tests' number
0ed9 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; LDY / STY - zp,x / abs,x
0edc : a203 ldx #3
0ede : tldy
set_stat 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 : 28 > plp
0ee2 : b413 ldy zp1,x
0ee4 : 08 php ;test stores do not alter flags
0ee5 : 98 tya
0ee6 : 49c3 eor #$c3
0ee8 : 28 plp
0ee9 : 9d0302 sta abst,x
0eec : 08 php ;flags after load/store sequence
0eed : 49c3 eor #$c3
0eef : dd0802 cmp abs1,x ;test result
trap_ne
0ef2 : d0fe > bne * ;failed not equal (non zero)
0ef4 : 68 pla ;load status
eor_flag 0
0ef5 : 4930 > eor #0|fao ;invert expected flags + always on bits
0ef7 : dd0d02 cmp fLDx,x ;test flags
trap_ne
0efa : d0fe > bne * ;failed not equal (non zero)
0efc : ca dex
0efd : 10df bpl tldy
0eff : a203 ldx #3
0f01 : tldy1
set_stat $ff
> load_flag $ff
0f01 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0f03 : 48 > pha ;use stack to load status
0f04 : 28 > plp
0f05 : b413 ldy zp1,x
0f07 : 08 php ;test stores do not alter flags
0f08 : 98 tya
0f09 : 49c3 eor #$c3
0f0b : 28 plp
0f0c : 9d0302 sta abst,x
0f0f : 08 php ;flags after load/store sequence
0f10 : 49c3 eor #$c3
0f12 : dd0802 cmp abs1,x ;test result
trap_ne
0f15 : d0fe > bne * ;failed not equal (non zero)
0f17 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
0f18 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
0f1a : dd0d02 cmp fLDx,x ;test flags
trap_ne
0f1d : d0fe > bne * ;failed not equal (non zero)
0f1f : ca dex
0f20 : 10df bpl tldy1
0f22 : a203 ldx #3
0f24 : tldy2
set_stat 0
> load_flag 0
0f24 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0f26 : 48 > pha ;use stack to load status
0f27 : 28 > plp
0f28 : bc0802 ldy abs1,x
0f2b : 08 php ;test stores do not alter flags
0f2c : 98 tya
0f2d : 49c3 eor #$c3
0f2f : a8 tay
0f30 : 28 plp
0f31 : 940c sty zpt,x
0f33 : 08 php ;flags after load/store sequence
0f34 : 49c3 eor #$c3
0f36 : d513 cmp zp1,x ;test result
trap_ne
0f38 : d0fe > bne * ;failed not equal (non zero)
0f3a : 68 pla ;load status
eor_flag 0
0f3b : 4930 > eor #0|fao ;invert expected flags + always on bits
0f3d : dd0d02 cmp fLDx,x ;test flags
trap_ne
0f40 : d0fe > bne * ;failed not equal (non zero)
0f42 : ca dex
0f43 : 10df bpl tldy2
0f45 : a203 ldx #3
0f47 : tldy3
set_stat $ff
> load_flag $ff
0f47 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
0f49 : 48 > pha ;use stack to load status
0f4a : 28 > plp
0f4b : bc0802 ldy abs1,x
0f4e : 08 php ;test stores do not alter flags
0f4f : 98 tya
0f50 : 49c3 eor #$c3
0f52 : a8 tay
0f53 : 28 plp
0f54 : 940c sty zpt,x
0f56 : 08 php ;flags after load/store sequence
0f57 : 49c3 eor #$c3
0f59 : d513 cmp zp1,x ;test result
trap_ne
0f5b : d0fe > bne * ;failed not equal (non zero)
0f5d : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
0f5e : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
0f60 : dd0d02 cmp fLDx,x ;test flags
trap_ne
0f63 : d0fe > bne * ;failed not equal (non zero)
0f65 : ca dex
0f66 : 10df bpl tldy3
0f68 : a203 ldx #3 ;testing store result
0f6a : a000 ldy #0
0f6c : b50c tsty lda zpt,x
0f6e : 49c3 eor #$c3
0f70 : d513 cmp zp1,x
trap_ne ;store to zp,x data
0f72 : d0fe > bne * ;failed not equal (non zero)
0f74 : 940c sty zpt,x ;clear
0f76 : bd0302 lda abst,x
0f79 : 49c3 eor #$c3
0f7b : dd0802 cmp abs1,x
trap_ne ;store to abs,x data
0f7e : d0fe > bne * ;failed not equal (non zero)
0f80 : 8a txa
0f81 : 9d0302 sta abst,x ;clear
0f84 : ca dex
0f85 : 10e5 bpl tsty
next_test
0f87 : ad0002 > lda test_case ;previous test
0f8a : c911 > cmp #test_num
> trap_ne ;test is out of sequence
0f8c : d0fe > bne * ;failed not equal (non zero)
>
0012 = >test_num = test_num + 1
0f8e : a912 > lda #test_num ;*** next tests' number
0f90 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; indexed wraparound test (only zp should wrap)
0f93 : a2fd ldx #3+$fa
0f95 : b419 tldy4 ldy zp1-$fa&$ff,x ;wrap on indexed zp
0f97 : 98 tya
0f98 : 9d0901 sta abst-$fa,x ;no STX abs,x!
0f9b : ca dex
0f9c : e0fa cpx #$fa
0f9e : b0f5 bcs tldy4
0fa0 : a2fd ldx #3+$fa
0fa2 : bc0e01 tldy5 ldy abs1-$fa,x ;no wrap on indexed abs
0fa5 : 9412 sty zpt-$fa&$ff,x
0fa7 : ca dex
0fa8 : e0fa cpx #$fa
0faa : b0f6 bcs tldy5
0fac : a203 ldx #3 ;testing wraparound result
0fae : a000 ldy #0
0fb0 : b50c tsty1 lda zpt,x
0fb2 : d513 cmp zp1,x
trap_ne ;store to zp,x data
0fb4 : d0fe > bne * ;failed not equal (non zero)
0fb6 : 940c sty zpt,x ;clear
0fb8 : bd0302 lda abst,x
0fbb : dd0802 cmp abs1,x
trap_ne ;store to abs,x data
0fbe : d0fe > bne * ;failed not equal (non zero)
0fc0 : 8a txa
0fc1 : 9d0302 sta abst,x ;clear
0fc4 : ca dex
0fc5 : 10e9 bpl tsty1
next_test
0fc7 : ad0002 > lda test_case ;previous test
0fca : c912 > cmp #test_num
> trap_ne ;test is out of sequence
0fcc : d0fe > bne * ;failed not equal (non zero)
>
0013 = >test_num = test_num + 1
0fce : a913 > lda #test_num ;*** next tests' number
0fd0 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; LDX / STX - zp / abs / #
set_stat 0
> load_flag 0
0fd3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0fd5 : 48 > pha ;use stack to load status
0fd6 : 28 > plp
0fd7 : a613 ldx zp1
0fd9 : 08 php ;test stores do not alter flags
0fda : 8a txa
0fdb : 49c3 eor #$c3
0fdd : aa tax
0fde : 28 plp
0fdf : 8e0302 stx abst
0fe2 : 08 php ;flags after load/store sequence
0fe3 : 49c3 eor #$c3
0fe5 : aa tax
0fe6 : e0c3 cpx #$c3 ;test result
trap_ne
0fe8 : d0fe > bne * ;failed not equal (non zero)
0fea : 68 pla ;load status
eor_flag 0
0feb : 4930 > eor #0|fao ;invert expected flags + always on bits
0fed : cd0d02 cmp fLDx ;test flags
trap_ne
0ff0 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
0ff2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
0ff4 : 48 > pha ;use stack to load status
0ff5 : 28 > plp
0ff6 : a614 ldx zp1+1
0ff8 : 08 php ;test stores do not alter flags
0ff9 : 8a txa
0ffa : 49c3 eor #$c3
0ffc : aa tax
0ffd : 28 plp
0ffe : 8e0402 stx abst+1
1001 : 08 php ;flags after load/store sequence
1002 : 49c3 eor #$c3
1004 : aa tax
1005 : e082 cpx #$82 ;test result
trap_ne
1007 : d0fe > bne * ;failed not equal (non zero)
1009 : 68 pla ;load status
eor_flag 0
100a : 4930 > eor #0|fao ;invert expected flags + always on bits
100c : cd0e02 cmp fLDx+1 ;test flags
trap_ne
100f : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1011 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1013 : 48 > pha ;use stack to load status
1014 : 28 > plp
1015 : a615 ldx zp1+2
1017 : 08 php ;test stores do not alter flags
1018 : 8a txa
1019 : 49c3 eor #$c3
101b : aa tax
101c : 28 plp
101d : 8e0502 stx abst+2
1020 : 08 php ;flags after load/store sequence
1021 : 49c3 eor #$c3
1023 : aa tax
1024 : e041 cpx #$41 ;test result
trap_ne
1026 : d0fe > bne * ;failed not equal (non zero)
1028 : 68 pla ;load status
eor_flag 0
1029 : 4930 > eor #0|fao ;invert expected flags + always on bits
102b : cd0f02 cmp fLDx+2 ;test flags
trap_ne
102e : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1030 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1032 : 48 > pha ;use stack to load status
1033 : 28 > plp
1034 : a616 ldx zp1+3
1036 : 08 php ;test stores do not alter flags
1037 : 8a txa
1038 : 49c3 eor #$c3
103a : aa tax
103b : 28 plp
103c : 8e0602 stx abst+3
103f : 08 php ;flags after load/store sequence
1040 : 49c3 eor #$c3
1042 : aa tax
1043 : e000 cpx #0 ;test result
trap_ne
1045 : d0fe > bne * ;failed not equal (non zero)
1047 : 68 pla ;load status
eor_flag 0
1048 : 4930 > eor #0|fao ;invert expected flags + always on bits
104a : cd1002 cmp fLDx+3 ;test flags
trap_ne
104d : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
104f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1051 : 48 > pha ;use stack to load status
1052 : 28 > plp
1053 : a613 ldx zp1
1055 : 08 php ;test stores do not alter flags
1056 : 8a txa
1057 : 49c3 eor #$c3
1059 : aa tax
105a : 28 plp
105b : 8e0302 stx abst
105e : 08 php ;flags after load/store sequence
105f : 49c3 eor #$c3
1061 : aa tax
1062 : e0c3 cpx #$c3 ;test result
trap_ne ;
1064 : d0fe > bne * ;failed not equal (non zero)
1066 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1067 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1069 : cd0d02 cmp fLDx ;test flags
trap_ne
106c : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
106e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1070 : 48 > pha ;use stack to load status
1071 : 28 > plp
1072 : a614 ldx zp1+1
1074 : 08 php ;test stores do not alter flags
1075 : 8a txa
1076 : 49c3 eor #$c3
1078 : aa tax
1079 : 28 plp
107a : 8e0402 stx abst+1
107d : 08 php ;flags after load/store sequence
107e : 49c3 eor #$c3
1080 : aa tax
1081 : e082 cpx #$82 ;test result
trap_ne
1083 : d0fe > bne * ;failed not equal (non zero)
1085 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1086 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1088 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
108b : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
108d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
108f : 48 > pha ;use stack to load status
1090 : 28 > plp
1091 : a615 ldx zp1+2
1093 : 08 php ;test stores do not alter flags
1094 : 8a txa
1095 : 49c3 eor #$c3
1097 : aa tax
1098 : 28 plp
1099 : 8e0502 stx abst+2
109c : 08 php ;flags after load/store sequence
109d : 49c3 eor #$c3
109f : aa tax
10a0 : e041 cpx #$41 ;test result
trap_ne ;
10a2 : d0fe > bne * ;failed not equal (non zero)
10a4 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
10a5 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
10a7 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
10aa : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
10ac : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
10ae : 48 > pha ;use stack to load status
10af : 28 > plp
10b0 : a616 ldx zp1+3
10b2 : 08 php ;test stores do not alter flags
10b3 : 8a txa
10b4 : 49c3 eor #$c3
10b6 : aa tax
10b7 : 28 plp
10b8 : 8e0602 stx abst+3
10bb : 08 php ;flags after load/store sequence
10bc : 49c3 eor #$c3
10be : aa tax
10bf : e000 cpx #0 ;test result
trap_ne
10c1 : d0fe > bne * ;failed not equal (non zero)
10c3 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
10c4 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
10c6 : cd1002 cmp fLDx+3 ;test flags
trap_ne
10c9 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
10cb : a900 > lda #0 ;allow test to change I-flag (no mask)
>
10cd : 48 > pha ;use stack to load status
10ce : 28 > plp
10cf : ae0802 ldx abs1
10d2 : 08 php ;test stores do not alter flags
10d3 : 8a txa
10d4 : 49c3 eor #$c3
10d6 : aa tax
10d7 : 28 plp
10d8 : 860c stx zpt
10da : 08 php ;flags after load/store sequence
10db : 49c3 eor #$c3
10dd : c513 cmp zp1 ;test result
trap_ne
10df : d0fe > bne * ;failed not equal (non zero)
10e1 : 68 pla ;load status
eor_flag 0
10e2 : 4930 > eor #0|fao ;invert expected flags + always on bits
10e4 : cd0d02 cmp fLDx ;test flags
trap_ne
10e7 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
10e9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
10eb : 48 > pha ;use stack to load status
10ec : 28 > plp
10ed : ae0902 ldx abs1+1
10f0 : 08 php ;test stores do not alter flags
10f1 : 8a txa
10f2 : 49c3 eor #$c3
10f4 : aa tax
10f5 : 28 plp
10f6 : 860d stx zpt+1
10f8 : 08 php ;flags after load/store sequence
10f9 : 49c3 eor #$c3
10fb : c514 cmp zp1+1 ;test result
trap_ne
10fd : d0fe > bne * ;failed not equal (non zero)
10ff : 68 pla ;load status
eor_flag 0
1100 : 4930 > eor #0|fao ;invert expected flags + always on bits
1102 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1105 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1107 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1109 : 48 > pha ;use stack to load status
110a : 28 > plp
110b : ae0a02 ldx abs1+2
110e : 08 php ;test stores do not alter flags
110f : 8a txa
1110 : 49c3 eor #$c3
1112 : aa tax
1113 : 28 plp
1114 : 860e stx zpt+2
1116 : 08 php ;flags after load/store sequence
1117 : 49c3 eor #$c3
1119 : c515 cmp zp1+2 ;test result
trap_ne
111b : d0fe > bne * ;failed not equal (non zero)
111d : 68 pla ;load status
eor_flag 0
111e : 4930 > eor #0|fao ;invert expected flags + always on bits
1120 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1123 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1125 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1127 : 48 > pha ;use stack to load status
1128 : 28 > plp
1129 : ae0b02 ldx abs1+3
112c : 08 php ;test stores do not alter flags
112d : 8a txa
112e : 49c3 eor #$c3
1130 : aa tax
1131 : 28 plp
1132 : 860f stx zpt+3
1134 : 08 php ;flags after load/store sequence
1135 : 49c3 eor #$c3
1137 : c516 cmp zp1+3 ;test result
trap_ne
1139 : d0fe > bne * ;failed not equal (non zero)
113b : 68 pla ;load status
eor_flag 0
113c : 4930 > eor #0|fao ;invert expected flags + always on bits
113e : cd1002 cmp fLDx+3 ;test flags
trap_ne
1141 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1143 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1145 : 48 > pha ;use stack to load status
1146 : 28 > plp
1147 : ae0802 ldx abs1
114a : 08 php ;test stores do not alter flags
114b : 8a txa
114c : 49c3 eor #$c3
114e : aa tax
114f : 28 plp
1150 : 860c stx zpt
1152 : 08 php ;flags after load/store sequence
1153 : 49c3 eor #$c3
1155 : aa tax
1156 : e413 cpx zp1 ;test result
trap_ne
1158 : d0fe > bne * ;failed not equal (non zero)
115a : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
115b : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
115d : cd0d02 cmp fLDx ;test flags
trap_ne
1160 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1162 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1164 : 48 > pha ;use stack to load status
1165 : 28 > plp
1166 : ae0902 ldx abs1+1
1169 : 08 php ;test stores do not alter flags
116a : 8a txa
116b : 49c3 eor #$c3
116d : aa tax
116e : 28 plp
116f : 860d stx zpt+1
1171 : 08 php ;flags after load/store sequence
1172 : 49c3 eor #$c3
1174 : aa tax
1175 : e414 cpx zp1+1 ;test result
trap_ne
1177 : d0fe > bne * ;failed not equal (non zero)
1179 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
117a : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
117c : cd0e02 cmp fLDx+1 ;test flags
trap_ne
117f : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1181 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1183 : 48 > pha ;use stack to load status
1184 : 28 > plp
1185 : ae0a02 ldx abs1+2
1188 : 08 php ;test stores do not alter flags
1189 : 8a txa
118a : 49c3 eor #$c3
118c : aa tax
118d : 28 plp
118e : 860e stx zpt+2
1190 : 08 php ;flags after load/store sequence
1191 : 49c3 eor #$c3
1193 : aa tax
1194 : e415 cpx zp1+2 ;test result
trap_ne
1196 : d0fe > bne * ;failed not equal (non zero)
1198 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1199 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
119b : cd0f02 cmp fLDx+2 ;test flags
trap_ne
119e : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
11a0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
11a2 : 48 > pha ;use stack to load status
11a3 : 28 > plp
11a4 : ae0b02 ldx abs1+3
11a7 : 08 php ;test stores do not alter flags
11a8 : 8a txa
11a9 : 49c3 eor #$c3
11ab : aa tax
11ac : 28 plp
11ad : 860f stx zpt+3
11af : 08 php ;flags after load/store sequence
11b0 : 49c3 eor #$c3
11b2 : aa tax
11b3 : e416 cpx zp1+3 ;test result
trap_ne
11b5 : d0fe > bne * ;failed not equal (non zero)
11b7 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
11b8 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
11ba : cd1002 cmp fLDx+3 ;test flags
trap_ne
11bd : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
11bf : a900 > lda #0 ;allow test to change I-flag (no mask)
>
11c1 : 48 > pha ;use stack to load status
11c2 : 28 > plp
11c3 : a2c3 ldx #$c3
11c5 : 08 php
11c6 : ec0802 cpx abs1 ;test result
trap_ne
11c9 : d0fe > bne * ;failed not equal (non zero)
11cb : 68 pla ;load status
eor_flag 0
11cc : 4930 > eor #0|fao ;invert expected flags + always on bits
11ce : cd0d02 cmp fLDx ;test flags
trap_ne
11d1 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
11d3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
11d5 : 48 > pha ;use stack to load status
11d6 : 28 > plp
11d7 : a282 ldx #$82
11d9 : 08 php
11da : ec0902 cpx abs1+1 ;test result
trap_ne
11dd : d0fe > bne * ;failed not equal (non zero)
11df : 68 pla ;load status
eor_flag 0
11e0 : 4930 > eor #0|fao ;invert expected flags + always on bits
11e2 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
11e5 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
11e7 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
11e9 : 48 > pha ;use stack to load status
11ea : 28 > plp
11eb : a241 ldx #$41
11ed : 08 php
11ee : ec0a02 cpx abs1+2 ;test result
trap_ne
11f1 : d0fe > bne * ;failed not equal (non zero)
11f3 : 68 pla ;load status
eor_flag 0
11f4 : 4930 > eor #0|fao ;invert expected flags + always on bits
11f6 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
11f9 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
11fb : a900 > lda #0 ;allow test to change I-flag (no mask)
>
11fd : 48 > pha ;use stack to load status
11fe : 28 > plp
11ff : a200 ldx #0
1201 : 08 php
1202 : ec0b02 cpx abs1+3 ;test result
trap_ne
1205 : d0fe > bne * ;failed not equal (non zero)
1207 : 68 pla ;load status
eor_flag 0
1208 : 4930 > eor #0|fao ;invert expected flags + always on bits
120a : cd1002 cmp fLDx+3 ;test flags
trap_ne
120d : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
120f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1211 : 48 > pha ;use stack to load status
1212 : 28 > plp
1213 : a2c3 ldx #$c3
1215 : 08 php
1216 : ec0802 cpx abs1 ;test result
trap_ne
1219 : d0fe > bne * ;failed not equal (non zero)
121b : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
121c : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
121e : cd0d02 cmp fLDx ;test flags
trap_ne
1221 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1223 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1225 : 48 > pha ;use stack to load status
1226 : 28 > plp
1227 : a282 ldx #$82
1229 : 08 php
122a : ec0902 cpx abs1+1 ;test result
trap_ne
122d : d0fe > bne * ;failed not equal (non zero)
122f : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1230 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1232 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1235 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1237 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1239 : 48 > pha ;use stack to load status
123a : 28 > plp
123b : a241 ldx #$41
123d : 08 php
123e : ec0a02 cpx abs1+2 ;test result
trap_ne
1241 : d0fe > bne * ;failed not equal (non zero)
1243 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1244 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1246 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1249 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
124b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
124d : 48 > pha ;use stack to load status
124e : 28 > plp
124f : a200 ldx #0
1251 : 08 php
1252 : ec0b02 cpx abs1+3 ;test result
trap_ne
1255 : d0fe > bne * ;failed not equal (non zero)
1257 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1258 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
125a : cd1002 cmp fLDx+3 ;test flags
trap_ne
125d : d0fe > bne * ;failed not equal (non zero)
125f : a200 ldx #0
1261 : a50c lda zpt
1263 : 49c3 eor #$c3
1265 : c513 cmp zp1
trap_ne ;store to zp data
1267 : d0fe > bne * ;failed not equal (non zero)
1269 : 860c stx zpt ;clear
126b : ad0302 lda abst
126e : 49c3 eor #$c3
1270 : cd0802 cmp abs1
trap_ne ;store to abs data
1273 : d0fe > bne * ;failed not equal (non zero)
1275 : 8e0302 stx abst ;clear
1278 : a50d lda zpt+1
127a : 49c3 eor #$c3
127c : c514 cmp zp1+1
trap_ne ;store to zp data
127e : d0fe > bne * ;failed not equal (non zero)
1280 : 860d stx zpt+1 ;clear
1282 : ad0402 lda abst+1
1285 : 49c3 eor #$c3
1287 : cd0902 cmp abs1+1
trap_ne ;store to abs data
128a : d0fe > bne * ;failed not equal (non zero)
128c : 8e0402 stx abst+1 ;clear
128f : a50e lda zpt+2
1291 : 49c3 eor #$c3
1293 : c515 cmp zp1+2
trap_ne ;store to zp data
1295 : d0fe > bne * ;failed not equal (non zero)
1297 : 860e stx zpt+2 ;clear
1299 : ad0502 lda abst+2
129c : 49c3 eor #$c3
129e : cd0a02 cmp abs1+2
trap_ne ;store to abs data
12a1 : d0fe > bne * ;failed not equal (non zero)
12a3 : 8e0502 stx abst+2 ;clear
12a6 : a50f lda zpt+3
12a8 : 49c3 eor #$c3
12aa : c516 cmp zp1+3
trap_ne ;store to zp data
12ac : d0fe > bne * ;failed not equal (non zero)
12ae : 860f stx zpt+3 ;clear
12b0 : ad0602 lda abst+3
12b3 : 49c3 eor #$c3
12b5 : cd0b02 cmp abs1+3
trap_ne ;store to abs data
12b8 : d0fe > bne * ;failed not equal (non zero)
12ba : 8e0602 stx abst+3 ;clear
next_test
12bd : ad0002 > lda test_case ;previous test
12c0 : c913 > cmp #test_num
> trap_ne ;test is out of sequence
12c2 : d0fe > bne * ;failed not equal (non zero)
>
0014 = >test_num = test_num + 1
12c4 : a914 > lda #test_num ;*** next tests' number
12c6 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; LDY / STY - zp / abs / #
set_stat 0
> load_flag 0
12c9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
12cb : 48 > pha ;use stack to load status
12cc : 28 > plp
12cd : a413 ldy zp1
12cf : 08 php ;test stores do not alter flags
12d0 : 98 tya
12d1 : 49c3 eor #$c3
12d3 : a8 tay
12d4 : 28 plp
12d5 : 8c0302 sty abst
12d8 : 08 php ;flags after load/store sequence
12d9 : 49c3 eor #$c3
12db : a8 tay
12dc : c0c3 cpy #$c3 ;test result
trap_ne
12de : d0fe > bne * ;failed not equal (non zero)
12e0 : 68 pla ;load status
eor_flag 0
12e1 : 4930 > eor #0|fao ;invert expected flags + always on bits
12e3 : cd0d02 cmp fLDx ;test flags
trap_ne
12e6 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
12e8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
12ea : 48 > pha ;use stack to load status
12eb : 28 > plp
12ec : a414 ldy zp1+1
12ee : 08 php ;test stores do not alter flags
12ef : 98 tya
12f0 : 49c3 eor #$c3
12f2 : a8 tay
12f3 : 28 plp
12f4 : 8c0402 sty abst+1
12f7 : 08 php ;flags after load/store sequence
12f8 : 49c3 eor #$c3
12fa : a8 tay
12fb : c082 cpy #$82 ;test result
trap_ne
12fd : d0fe > bne * ;failed not equal (non zero)
12ff : 68 pla ;load status
eor_flag 0
1300 : 4930 > eor #0|fao ;invert expected flags + always on bits
1302 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1305 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1307 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1309 : 48 > pha ;use stack to load status
130a : 28 > plp
130b : a415 ldy zp1+2
130d : 08 php ;test stores do not alter flags
130e : 98 tya
130f : 49c3 eor #$c3
1311 : a8 tay
1312 : 28 plp
1313 : 8c0502 sty abst+2
1316 : 08 php ;flags after load/store sequence
1317 : 49c3 eor #$c3
1319 : a8 tay
131a : c041 cpy #$41 ;test result
trap_ne
131c : d0fe > bne * ;failed not equal (non zero)
131e : 68 pla ;load status
eor_flag 0
131f : 4930 > eor #0|fao ;invert expected flags + always on bits
1321 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1324 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1326 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1328 : 48 > pha ;use stack to load status
1329 : 28 > plp
132a : a416 ldy zp1+3
132c : 08 php ;test stores do not alter flags
132d : 98 tya
132e : 49c3 eor #$c3
1330 : a8 tay
1331 : 28 plp
1332 : 8c0602 sty abst+3
1335 : 08 php ;flags after load/store sequence
1336 : 49c3 eor #$c3
1338 : a8 tay
1339 : c000 cpy #0 ;test result
trap_ne
133b : d0fe > bne * ;failed not equal (non zero)
133d : 68 pla ;load status
eor_flag 0
133e : 4930 > eor #0|fao ;invert expected flags + always on bits
1340 : cd1002 cmp fLDx+3 ;test flags
trap_ne
1343 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1345 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1347 : 48 > pha ;use stack to load status
1348 : 28 > plp
1349 : a413 ldy zp1
134b : 08 php ;test stores do not alter flags
134c : 98 tya
134d : 49c3 eor #$c3
134f : a8 tay
1350 : 28 plp
1351 : 8c0302 sty abst
1354 : 08 php ;flags after load/store sequence
1355 : 49c3 eor #$c3
1357 : a8 tay
1358 : c0c3 cpy #$c3 ;test result
trap_ne
135a : d0fe > bne * ;failed not equal (non zero)
135c : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
135d : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
135f : cd0d02 cmp fLDx ;test flags
trap_ne
1362 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1364 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1366 : 48 > pha ;use stack to load status
1367 : 28 > plp
1368 : a414 ldy zp1+1
136a : 08 php ;test stores do not alter flags
136b : 98 tya
136c : 49c3 eor #$c3
136e : a8 tay
136f : 28 plp
1370 : 8c0402 sty abst+1
1373 : 08 php ;flags after load/store sequence
1374 : 49c3 eor #$c3
1376 : a8 tay
1377 : c082 cpy #$82 ;test result
trap_ne
1379 : d0fe > bne * ;failed not equal (non zero)
137b : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
137c : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
137e : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1381 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1383 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1385 : 48 > pha ;use stack to load status
1386 : 28 > plp
1387 : a415 ldy zp1+2
1389 : 08 php ;test stores do not alter flags
138a : 98 tya
138b : 49c3 eor #$c3
138d : a8 tay
138e : 28 plp
138f : 8c0502 sty abst+2
1392 : 08 php ;flags after load/store sequence
1393 : 49c3 eor #$c3
1395 : a8 tay
1396 : c041 cpy #$41 ;test result
trap_ne
1398 : d0fe > bne * ;failed not equal (non zero)
139a : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
139b : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
139d : cd0f02 cmp fLDx+2 ;test flags
trap_ne
13a0 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
13a2 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
13a4 : 48 > pha ;use stack to load status
13a5 : 28 > plp
13a6 : a416 ldy zp1+3
13a8 : 08 php ;test stores do not alter flags
13a9 : 98 tya
13aa : 49c3 eor #$c3
13ac : a8 tay
13ad : 28 plp
13ae : 8c0602 sty abst+3
13b1 : 08 php ;flags after load/store sequence
13b2 : 49c3 eor #$c3
13b4 : a8 tay
13b5 : c000 cpy #0 ;test result
trap_ne
13b7 : d0fe > bne * ;failed not equal (non zero)
13b9 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
13ba : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
13bc : cd1002 cmp fLDx+3 ;test flags
trap_ne
13bf : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
13c1 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
13c3 : 48 > pha ;use stack to load status
13c4 : 28 > plp
13c5 : ac0802 ldy abs1
13c8 : 08 php ;test stores do not alter flags
13c9 : 98 tya
13ca : 49c3 eor #$c3
13cc : a8 tay
13cd : 28 plp
13ce : 840c sty zpt
13d0 : 08 php ;flags after load/store sequence
13d1 : 49c3 eor #$c3
13d3 : a8 tay
13d4 : c413 cpy zp1 ;test result
trap_ne
13d6 : d0fe > bne * ;failed not equal (non zero)
13d8 : 68 pla ;load status
eor_flag 0
13d9 : 4930 > eor #0|fao ;invert expected flags + always on bits
13db : cd0d02 cmp fLDx ;test flags
trap_ne
13de : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
13e0 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
13e2 : 48 > pha ;use stack to load status
13e3 : 28 > plp
13e4 : ac0902 ldy abs1+1
13e7 : 08 php ;test stores do not alter flags
13e8 : 98 tya
13e9 : 49c3 eor #$c3
13eb : a8 tay
13ec : 28 plp
13ed : 840d sty zpt+1
13ef : 08 php ;flags after load/store sequence
13f0 : 49c3 eor #$c3
13f2 : a8 tay
13f3 : c414 cpy zp1+1 ;test result
trap_ne
13f5 : d0fe > bne * ;failed not equal (non zero)
13f7 : 68 pla ;load status
eor_flag 0
13f8 : 4930 > eor #0|fao ;invert expected flags + always on bits
13fa : cd0e02 cmp fLDx+1 ;test flags
trap_ne
13fd : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
13ff : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1401 : 48 > pha ;use stack to load status
1402 : 28 > plp
1403 : ac0a02 ldy abs1+2
1406 : 08 php ;test stores do not alter flags
1407 : 98 tya
1408 : 49c3 eor #$c3
140a : a8 tay
140b : 28 plp
140c : 840e sty zpt+2
140e : 08 php ;flags after load/store sequence
140f : 49c3 eor #$c3
1411 : a8 tay
1412 : c415 cpy zp1+2 ;test result
trap_ne
1414 : d0fe > bne * ;failed not equal (non zero)
1416 : 68 pla ;load status
eor_flag 0
1417 : 4930 > eor #0|fao ;invert expected flags + always on bits
1419 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
141c : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
141e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1420 : 48 > pha ;use stack to load status
1421 : 28 > plp
1422 : ac0b02 ldy abs1+3
1425 : 08 php ;test stores do not alter flags
1426 : 98 tya
1427 : 49c3 eor #$c3
1429 : a8 tay
142a : 28 plp
142b : 840f sty zpt+3
142d : 08 php ;flags after load/store sequence
142e : 49c3 eor #$c3
1430 : a8 tay
1431 : c416 cpy zp1+3 ;test result
trap_ne
1433 : d0fe > bne * ;failed not equal (non zero)
1435 : 68 pla ;load status
eor_flag 0
1436 : 4930 > eor #0|fao ;invert expected flags + always on bits
1438 : cd1002 cmp fLDx+3 ;test flags
trap_ne
143b : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
143d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
143f : 48 > pha ;use stack to load status
1440 : 28 > plp
1441 : ac0802 ldy abs1
1444 : 08 php ;test stores do not alter flags
1445 : 98 tya
1446 : 49c3 eor #$c3
1448 : a8 tay
1449 : 28 plp
144a : 840c sty zpt
144c : 08 php ;flags after load/store sequence
144d : 49c3 eor #$c3
144f : a8 tay
1450 : c513 cmp zp1 ;test result
trap_ne
1452 : d0fe > bne * ;failed not equal (non zero)
1454 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1455 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1457 : cd0d02 cmp fLDx ;test flags
trap_ne
145a : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
145c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
145e : 48 > pha ;use stack to load status
145f : 28 > plp
1460 : ac0902 ldy abs1+1
1463 : 08 php ;test stores do not alter flags
1464 : 98 tya
1465 : 49c3 eor #$c3
1467 : a8 tay
1468 : 28 plp
1469 : 840d sty zpt+1
146b : 08 php ;flags after load/store sequence
146c : 49c3 eor #$c3
146e : a8 tay
146f : c514 cmp zp1+1 ;test result
trap_ne
1471 : d0fe > bne * ;failed not equal (non zero)
1473 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1474 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1476 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1479 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
147b : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
147d : 48 > pha ;use stack to load status
147e : 28 > plp
147f : ac0a02 ldy abs1+2
1482 : 08 php ;test stores do not alter flags
1483 : 98 tya
1484 : 49c3 eor #$c3
1486 : a8 tay
1487 : 28 plp
1488 : 840e sty zpt+2
148a : 08 php ;flags after load/store sequence
148b : 49c3 eor #$c3
148d : a8 tay
148e : c515 cmp zp1+2 ;test result
trap_ne
1490 : d0fe > bne * ;failed not equal (non zero)
1492 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1493 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1495 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1498 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
149a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
149c : 48 > pha ;use stack to load status
149d : 28 > plp
149e : ac0b02 ldy abs1+3
14a1 : 08 php ;test stores do not alter flags
14a2 : 98 tya
14a3 : 49c3 eor #$c3
14a5 : a8 tay
14a6 : 28 plp
14a7 : 840f sty zpt+3
14a9 : 08 php ;flags after load/store sequence
14aa : 49c3 eor #$c3
14ac : a8 tay
14ad : c516 cmp zp1+3 ;test result
trap_ne
14af : d0fe > bne * ;failed not equal (non zero)
14b1 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
14b2 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
14b4 : cd1002 cmp fLDx+3 ;test flags
trap_ne
14b7 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
14b9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
14bb : 48 > pha ;use stack to load status
14bc : 28 > plp
14bd : a0c3 ldy #$c3
14bf : 08 php
14c0 : cc0802 cpy abs1 ;test result
trap_ne
14c3 : d0fe > bne * ;failed not equal (non zero)
14c5 : 68 pla ;load status
eor_flag 0
14c6 : 4930 > eor #0|fao ;invert expected flags + always on bits
14c8 : cd0d02 cmp fLDx ;test flags
trap_ne
14cb : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
14cd : a900 > lda #0 ;allow test to change I-flag (no mask)
>
14cf : 48 > pha ;use stack to load status
14d0 : 28 > plp
14d1 : a082 ldy #$82
14d3 : 08 php
14d4 : cc0902 cpy abs1+1 ;test result
trap_ne
14d7 : d0fe > bne * ;failed not equal (non zero)
14d9 : 68 pla ;load status
eor_flag 0
14da : 4930 > eor #0|fao ;invert expected flags + always on bits
14dc : cd0e02 cmp fLDx+1 ;test flags
trap_ne
14df : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
14e1 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
14e3 : 48 > pha ;use stack to load status
14e4 : 28 > plp
14e5 : a041 ldy #$41
14e7 : 08 php
14e8 : cc0a02 cpy abs1+2 ;test result
trap_ne
14eb : d0fe > bne * ;failed not equal (non zero)
14ed : 68 pla ;load status
eor_flag 0
14ee : 4930 > eor #0|fao ;invert expected flags + always on bits
14f0 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
14f3 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
14f5 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
14f7 : 48 > pha ;use stack to load status
14f8 : 28 > plp
14f9 : a000 ldy #0
14fb : 08 php
14fc : cc0b02 cpy abs1+3 ;test result
trap_ne
14ff : d0fe > bne * ;failed not equal (non zero)
1501 : 68 pla ;load status
eor_flag 0
1502 : 4930 > eor #0|fao ;invert expected flags + always on bits
1504 : cd1002 cmp fLDx+3 ;test flags
trap_ne
1507 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1509 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
150b : 48 > pha ;use stack to load status
150c : 28 > plp
150d : a0c3 ldy #$c3
150f : 08 php
1510 : cc0802 cpy abs1 ;test result
trap_ne
1513 : d0fe > bne * ;failed not equal (non zero)
1515 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1516 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1518 : cd0d02 cmp fLDx ;test flags
trap_ne
151b : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
151d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
151f : 48 > pha ;use stack to load status
1520 : 28 > plp
1521 : a082 ldy #$82
1523 : 08 php
1524 : cc0902 cpy abs1+1 ;test result
trap_ne
1527 : d0fe > bne * ;failed not equal (non zero)
1529 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
152a : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
152c : cd0e02 cmp fLDx+1 ;test flags
trap_ne
152f : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1531 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1533 : 48 > pha ;use stack to load status
1534 : 28 > plp
1535 : a041 ldy #$41
1537 : 08 php
1538 : cc0a02 cpy abs1+2 ;test result
trap_ne
153b : d0fe > bne * ;failed not equal (non zero)
153d : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
153e : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1540 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1543 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1545 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1547 : 48 > pha ;use stack to load status
1548 : 28 > plp
1549 : a000 ldy #0
154b : 08 php
154c : cc0b02 cpy abs1+3 ;test result
trap_ne
154f : d0fe > bne * ;failed not equal (non zero)
1551 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1552 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1554 : cd1002 cmp fLDx+3 ;test flags
trap_ne
1557 : d0fe > bne * ;failed not equal (non zero)
1559 : a000 ldy #0
155b : a50c lda zpt
155d : 49c3 eor #$c3
155f : c513 cmp zp1
trap_ne ;store to zp data
1561 : d0fe > bne * ;failed not equal (non zero)
1563 : 840c sty zpt ;clear
1565 : ad0302 lda abst
1568 : 49c3 eor #$c3
156a : cd0802 cmp abs1
trap_ne ;store to abs data
156d : d0fe > bne * ;failed not equal (non zero)
156f : 8c0302 sty abst ;clear
1572 : a50d lda zpt+1
1574 : 49c3 eor #$c3
1576 : c514 cmp zp1+1
trap_ne ;store to zp+1 data
1578 : d0fe > bne * ;failed not equal (non zero)
157a : 840d sty zpt+1 ;clear
157c : ad0402 lda abst+1
157f : 49c3 eor #$c3
1581 : cd0902 cmp abs1+1
trap_ne ;store to abs+1 data
1584 : d0fe > bne * ;failed not equal (non zero)
1586 : 8c0402 sty abst+1 ;clear
1589 : a50e lda zpt+2
158b : 49c3 eor #$c3
158d : c515 cmp zp1+2
trap_ne ;store to zp+2 data
158f : d0fe > bne * ;failed not equal (non zero)
1591 : 840e sty zpt+2 ;clear
1593 : ad0502 lda abst+2
1596 : 49c3 eor #$c3
1598 : cd0a02 cmp abs1+2
trap_ne ;store to abs+2 data
159b : d0fe > bne * ;failed not equal (non zero)
159d : 8c0502 sty abst+2 ;clear
15a0 : a50f lda zpt+3
15a2 : 49c3 eor #$c3
15a4 : c516 cmp zp1+3
trap_ne ;store to zp+3 data
15a6 : d0fe > bne * ;failed not equal (non zero)
15a8 : 840f sty zpt+3 ;clear
15aa : ad0602 lda abst+3
15ad : 49c3 eor #$c3
15af : cd0b02 cmp abs1+3
trap_ne ;store to abs+3 data
15b2 : d0fe > bne * ;failed not equal (non zero)
15b4 : 8c0602 sty abst+3 ;clear
next_test
15b7 : ad0002 > lda test_case ;previous test
15ba : c914 > cmp #test_num
> trap_ne ;test is out of sequence
15bc : d0fe > bne * ;failed not equal (non zero)
>
0015 = >test_num = test_num + 1
15be : a915 > lda #test_num ;*** next tests' number
15c0 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing load / store accumulator LDA / STA all addressing modes
; LDA / STA - zp,x / abs,x
15c3 : a203 ldx #3
15c5 : tldax
set_stat 0
> load_flag 0
15c5 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
15c7 : 48 > pha ;use stack to load status
15c8 : 28 > plp
15c9 : b513 lda zp1,x
15cb : 08 php ;test stores do not alter flags
15cc : 49c3 eor #$c3
15ce : 28 plp
15cf : 9d0302 sta abst,x
15d2 : 08 php ;flags after load/store sequence
15d3 : 49c3 eor #$c3
15d5 : dd0802 cmp abs1,x ;test result
trap_ne
15d8 : d0fe > bne * ;failed not equal (non zero)
15da : 68 pla ;load status
eor_flag 0
15db : 4930 > eor #0|fao ;invert expected flags + always on bits
15dd : dd0d02 cmp fLDx,x ;test flags
trap_ne
15e0 : d0fe > bne * ;failed not equal (non zero)
15e2 : ca dex
15e3 : 10e0 bpl tldax
15e5 : a203 ldx #3
15e7 : tldax1
set_stat $ff
> load_flag $ff
15e7 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
15e9 : 48 > pha ;use stack to load status
15ea : 28 > plp
15eb : b513 lda zp1,x
15ed : 08 php ;test stores do not alter flags
15ee : 49c3 eor #$c3
15f0 : 28 plp
15f1 : 9d0302 sta abst,x
15f4 : 08 php ;flags after load/store sequence
15f5 : 49c3 eor #$c3
15f7 : dd0802 cmp abs1,x ;test result
trap_ne
15fa : d0fe > bne * ;failed not equal (non zero)
15fc : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
15fd : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
15ff : dd0d02 cmp fLDx,x ;test flags
trap_ne
1602 : d0fe > bne * ;failed not equal (non zero)
1604 : ca dex
1605 : 10e0 bpl tldax1
1607 : a203 ldx #3
1609 : tldax2
set_stat 0
> load_flag 0
1609 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
160b : 48 > pha ;use stack to load status
160c : 28 > plp
160d : bd0802 lda abs1,x
1610 : 08 php ;test stores do not alter flags
1611 : 49c3 eor #$c3
1613 : 28 plp
1614 : 950c sta zpt,x
1616 : 08 php ;flags after load/store sequence
1617 : 49c3 eor #$c3
1619 : d513 cmp zp1,x ;test result
trap_ne
161b : d0fe > bne * ;failed not equal (non zero)
161d : 68 pla ;load status
eor_flag 0
161e : 4930 > eor #0|fao ;invert expected flags + always on bits
1620 : dd0d02 cmp fLDx,x ;test flags
trap_ne
1623 : d0fe > bne * ;failed not equal (non zero)
1625 : ca dex
1626 : 10e1 bpl tldax2
1628 : a203 ldx #3
162a : tldax3
set_stat $ff
> load_flag $ff
162a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
162c : 48 > pha ;use stack to load status
162d : 28 > plp
162e : bd0802 lda abs1,x
1631 : 08 php ;test stores do not alter flags
1632 : 49c3 eor #$c3
1634 : 28 plp
1635 : 950c sta zpt,x
1637 : 08 php ;flags after load/store sequence
1638 : 49c3 eor #$c3
163a : d513 cmp zp1,x ;test result
trap_ne
163c : d0fe > bne * ;failed not equal (non zero)
163e : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
163f : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1641 : dd0d02 cmp fLDx,x ;test flags
trap_ne
1644 : d0fe > bne * ;failed not equal (non zero)
1646 : ca dex
1647 : 10e1 bpl tldax3
1649 : a203 ldx #3 ;testing store result
164b : a000 ldy #0
164d : b50c tstax lda zpt,x
164f : 49c3 eor #$c3
1651 : d513 cmp zp1,x
trap_ne ;store to zp,x data
1653 : d0fe > bne * ;failed not equal (non zero)
1655 : 940c sty zpt,x ;clear
1657 : bd0302 lda abst,x
165a : 49c3 eor #$c3
165c : dd0802 cmp abs1,x
trap_ne ;store to abs,x data
165f : d0fe > bne * ;failed not equal (non zero)
1661 : 8a txa
1662 : 9d0302 sta abst,x ;clear
1665 : ca dex
1666 : 10e5 bpl tstax
next_test
1668 : ad0002 > lda test_case ;previous test
166b : c915 > cmp #test_num
> trap_ne ;test is out of sequence
166d : d0fe > bne * ;failed not equal (non zero)
>
0016 = >test_num = test_num + 1
166f : a916 > lda #test_num ;*** next tests' number
1671 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; LDA / STA - (zp),y / abs,y / (zp,x)
1674 : a003 ldy #3
1676 : tlday
set_stat 0
> load_flag 0
1676 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1678 : 48 > pha ;use stack to load status
1679 : 28 > plp
167a : b124 lda (ind1),y
167c : 08 php ;test stores do not alter flags
167d : 49c3 eor #$c3
167f : 28 plp
1680 : 990302 sta abst,y
1683 : 08 php ;flags after load/store sequence
1684 : 49c3 eor #$c3
1686 : d90802 cmp abs1,y ;test result
trap_ne
1689 : d0fe > bne * ;failed not equal (non zero)
168b : 68 pla ;load status
eor_flag 0
168c : 4930 > eor #0|fao ;invert expected flags + always on bits
168e : d90d02 cmp fLDx,y ;test flags
trap_ne
1691 : d0fe > bne * ;failed not equal (non zero)
1693 : 88 dey
1694 : 10e0 bpl tlday
1696 : a003 ldy #3
1698 : tlday1
set_stat $ff
> load_flag $ff
1698 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
169a : 48 > pha ;use stack to load status
169b : 28 > plp
169c : b124 lda (ind1),y
169e : 08 php ;test stores do not alter flags
169f : 49c3 eor #$c3
16a1 : 28 plp
16a2 : 990302 sta abst,y
16a5 : 08 php ;flags after load/store sequence
16a6 : 49c3 eor #$c3
16a8 : d90802 cmp abs1,y ;test result
trap_ne
16ab : d0fe > bne * ;failed not equal (non zero)
16ad : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
16ae : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
16b0 : d90d02 cmp fLDx,y ;test flags
trap_ne
16b3 : d0fe > bne * ;failed not equal (non zero)
16b5 : 88 dey
16b6 : 10e0 bpl tlday1
16b8 : a003 ldy #3 ;testing store result
16ba : a200 ldx #0
16bc : b90302 tstay lda abst,y
16bf : 49c3 eor #$c3
16c1 : d90802 cmp abs1,y
trap_ne ;store to abs data
16c4 : d0fe > bne * ;failed not equal (non zero)
16c6 : 8a txa
16c7 : 990302 sta abst,y ;clear
16ca : 88 dey
16cb : 10ef bpl tstay
16cd : a003 ldy #3
16cf : tlday2
set_stat 0
> load_flag 0
16cf : a900 > lda #0 ;allow test to change I-flag (no mask)
>
16d1 : 48 > pha ;use stack to load status
16d2 : 28 > plp
16d3 : b90802 lda abs1,y
16d6 : 08 php ;test stores do not alter flags
16d7 : 49c3 eor #$c3
16d9 : 28 plp
16da : 9130 sta (indt),y
16dc : 08 php ;flags after load/store sequence
16dd : 49c3 eor #$c3
16df : d124 cmp (ind1),y ;test result
trap_ne
16e1 : d0fe > bne * ;failed not equal (non zero)
16e3 : 68 pla ;load status
eor_flag 0
16e4 : 4930 > eor #0|fao ;invert expected flags + always on bits
16e6 : d90d02 cmp fLDx,y ;test flags
trap_ne
16e9 : d0fe > bne * ;failed not equal (non zero)
16eb : 88 dey
16ec : 10e1 bpl tlday2
16ee : a003 ldy #3
16f0 : tlday3
set_stat $ff
> load_flag $ff
16f0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
16f2 : 48 > pha ;use stack to load status
16f3 : 28 > plp
16f4 : b90802 lda abs1,y
16f7 : 08 php ;test stores do not alter flags
16f8 : 49c3 eor #$c3
16fa : 28 plp
16fb : 9130 sta (indt),y
16fd : 08 php ;flags after load/store sequence
16fe : 49c3 eor #$c3
1700 : d124 cmp (ind1),y ;test result
trap_ne
1702 : d0fe > bne * ;failed not equal (non zero)
1704 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1705 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1707 : d90d02 cmp fLDx,y ;test flags
trap_ne
170a : d0fe > bne * ;failed not equal (non zero)
170c : 88 dey
170d : 10e1 bpl tlday3
170f : a003 ldy #3 ;testing store result
1711 : a200 ldx #0
1713 : b90302 tstay1 lda abst,y
1716 : 49c3 eor #$c3
1718 : d90802 cmp abs1,y
trap_ne ;store to abs data
171b : d0fe > bne * ;failed not equal (non zero)
171d : 8a txa
171e : 990302 sta abst,y ;clear
1721 : 88 dey
1722 : 10ef bpl tstay1
1724 : a206 ldx #6
1726 : a003 ldy #3
1728 : tldax4
set_stat 0
> load_flag 0
1728 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
172a : 48 > pha ;use stack to load status
172b : 28 > plp
172c : a124 lda (ind1,x)
172e : 08 php ;test stores do not alter flags
172f : 49c3 eor #$c3
1731 : 28 plp
1732 : 8130 sta (indt,x)
1734 : 08 php ;flags after load/store sequence
1735 : 49c3 eor #$c3
1737 : d90802 cmp abs1,y ;test result
trap_ne
173a : d0fe > bne * ;failed not equal (non zero)
173c : 68 pla ;load status
eor_flag 0
173d : 4930 > eor #0|fao ;invert expected flags + always on bits
173f : d90d02 cmp fLDx,y ;test flags
trap_ne
1742 : d0fe > bne * ;failed not equal (non zero)
1744 : ca dex
1745 : ca dex
1746 : 88 dey
1747 : 10df bpl tldax4
1749 : a206 ldx #6
174b : a003 ldy #3
174d : tldax5
set_stat $ff
> load_flag $ff
174d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
174f : 48 > pha ;use stack to load status
1750 : 28 > plp
1751 : a124 lda (ind1,x)
1753 : 08 php ;test stores do not alter flags
1754 : 49c3 eor #$c3
1756 : 28 plp
1757 : 8130 sta (indt,x)
1759 : 08 php ;flags after load/store sequence
175a : 49c3 eor #$c3
175c : d90802 cmp abs1,y ;test result
trap_ne
175f : d0fe > bne * ;failed not equal (non zero)
1761 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1762 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1764 : d90d02 cmp fLDx,y ;test flags
trap_ne
1767 : d0fe > bne * ;failed not equal (non zero)
1769 : ca dex
176a : ca dex
176b : 88 dey
176c : 10df bpl tldax5
176e : a003 ldy #3 ;testing store result
1770 : a200 ldx #0
1772 : b90302 tstay2 lda abst,y
1775 : 49c3 eor #$c3
1777 : d90802 cmp abs1,y
trap_ne ;store to abs data
177a : d0fe > bne * ;failed not equal (non zero)
177c : 8a txa
177d : 990302 sta abst,y ;clear
1780 : 88 dey
1781 : 10ef bpl tstay2
next_test
1783 : ad0002 > lda test_case ;previous test
1786 : c916 > cmp #test_num
> trap_ne ;test is out of sequence
1788 : d0fe > bne * ;failed not equal (non zero)
>
0017 = >test_num = test_num + 1
178a : a917 > lda #test_num ;*** next tests' number
178c : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; indexed wraparound test (only zp should wrap)
178f : a2fd ldx #3+$fa
1791 : b519 tldax6 lda zp1-$fa&$ff,x ;wrap on indexed zp
1793 : 9d0901 sta abst-$fa,x ;no STX abs,x!
1796 : ca dex
1797 : e0fa cpx #$fa
1799 : b0f6 bcs tldax6
179b : a2fd ldx #3+$fa
179d : bd0e01 tldax7 lda abs1-$fa,x ;no wrap on indexed abs
17a0 : 9512 sta zpt-$fa&$ff,x
17a2 : ca dex
17a3 : e0fa cpx #$fa
17a5 : b0f6 bcs tldax7
17a7 : a203 ldx #3 ;testing wraparound result
17a9 : a000 ldy #0
17ab : b50c tstax1 lda zpt,x
17ad : d513 cmp zp1,x
trap_ne ;store to zp,x data
17af : d0fe > bne * ;failed not equal (non zero)
17b1 : 940c sty zpt,x ;clear
17b3 : bd0302 lda abst,x
17b6 : dd0802 cmp abs1,x
trap_ne ;store to abs,x data
17b9 : d0fe > bne * ;failed not equal (non zero)
17bb : 8a txa
17bc : 9d0302 sta abst,x ;clear
17bf : ca dex
17c0 : 10e9 bpl tstax1
17c2 : a0fb ldy #3+$f8
17c4 : a2fe ldx #6+$f8
17c6 : a12c tlday4 lda (ind1-$f8&$ff,x) ;wrap on indexed zp indirect
17c8 : 990b01 sta abst-$f8,y
17cb : ca dex
17cc : ca dex
17cd : 88 dey
17ce : c0f8 cpy #$f8
17d0 : b0f4 bcs tlday4
17d2 : a003 ldy #3 ;testing wraparound result
17d4 : a200 ldx #0
17d6 : b90302 tstay4 lda abst,y
17d9 : d90802 cmp abs1,y
trap_ne ;store to abs data
17dc : d0fe > bne * ;failed not equal (non zero)
17de : 8a txa
17df : 990302 sta abst,y ;clear
17e2 : 88 dey
17e3 : 10f1 bpl tstay4
17e5 : a0fb ldy #3+$f8
17e7 : b91001 tlday5 lda abs1-$f8,y ;no wrap on indexed abs
17ea : 9138 sta (inwt),y
17ec : 88 dey
17ed : c0f8 cpy #$f8
17ef : b0f6 bcs tlday5
17f1 : a003 ldy #3 ;testing wraparound result
17f3 : a200 ldx #0
17f5 : b90302 tstay5 lda abst,y
17f8 : d90802 cmp abs1,y
trap_ne ;store to abs data
17fb : d0fe > bne * ;failed not equal (non zero)
17fd : 8a txa
17fe : 990302 sta abst,y ;clear
1801 : 88 dey
1802 : 10f1 bpl tstay5
1804 : a0fb ldy #3+$f8
1806 : a2fe ldx #6+$f8
1808 : b12e tlday6 lda (inw1),y ;no wrap on zp indirect indexed
180a : 8138 sta (indt-$f8&$ff,x)
180c : ca dex
180d : ca dex
180e : 88 dey
180f : c0f8 cpy #$f8
1811 : b0f5 bcs tlday6
1813 : a003 ldy #3 ;testing wraparound result
1815 : a200 ldx #0
1817 : b90302 tstay6 lda abst,y
181a : d90802 cmp abs1,y
trap_ne ;store to abs data
181d : d0fe > bne * ;failed not equal (non zero)
181f : 8a txa
1820 : 990302 sta abst,y ;clear
1823 : 88 dey
1824 : 10f1 bpl tstay6
next_test
1826 : ad0002 > lda test_case ;previous test
1829 : c917 > cmp #test_num
> trap_ne ;test is out of sequence
182b : d0fe > bne * ;failed not equal (non zero)
>
0018 = >test_num = test_num + 1
182d : a918 > lda #test_num ;*** next tests' number
182f : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; LDA / STA - zp / abs / #
set_stat 0
> load_flag 0
1832 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1834 : 48 > pha ;use stack to load status
1835 : 28 > plp
1836 : a513 lda zp1
1838 : 08 php ;test stores do not alter flags
1839 : 49c3 eor #$c3
183b : 28 plp
183c : 8d0302 sta abst
183f : 08 php ;flags after load/store sequence
1840 : 49c3 eor #$c3
1842 : c9c3 cmp #$c3 ;test result
trap_ne
1844 : d0fe > bne * ;failed not equal (non zero)
1846 : 68 pla ;load status
eor_flag 0
1847 : 4930 > eor #0|fao ;invert expected flags + always on bits
1849 : cd0d02 cmp fLDx ;test flags
trap_ne
184c : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
184e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1850 : 48 > pha ;use stack to load status
1851 : 28 > plp
1852 : a514 lda zp1+1
1854 : 08 php ;test stores do not alter flags
1855 : 49c3 eor #$c3
1857 : 28 plp
1858 : 8d0402 sta abst+1
185b : 08 php ;flags after load/store sequence
185c : 49c3 eor #$c3
185e : c982 cmp #$82 ;test result
trap_ne
1860 : d0fe > bne * ;failed not equal (non zero)
1862 : 68 pla ;load status
eor_flag 0
1863 : 4930 > eor #0|fao ;invert expected flags + always on bits
1865 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1868 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
186a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
186c : 48 > pha ;use stack to load status
186d : 28 > plp
186e : a515 lda zp1+2
1870 : 08 php ;test stores do not alter flags
1871 : 49c3 eor #$c3
1873 : 28 plp
1874 : 8d0502 sta abst+2
1877 : 08 php ;flags after load/store sequence
1878 : 49c3 eor #$c3
187a : c941 cmp #$41 ;test result
trap_ne
187c : d0fe > bne * ;failed not equal (non zero)
187e : 68 pla ;load status
eor_flag 0
187f : 4930 > eor #0|fao ;invert expected flags + always on bits
1881 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1884 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1886 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1888 : 48 > pha ;use stack to load status
1889 : 28 > plp
188a : a516 lda zp1+3
188c : 08 php ;test stores do not alter flags
188d : 49c3 eor #$c3
188f : 28 plp
1890 : 8d0602 sta abst+3
1893 : 08 php ;flags after load/store sequence
1894 : 49c3 eor #$c3
1896 : c900 cmp #0 ;test result
trap_ne
1898 : d0fe > bne * ;failed not equal (non zero)
189a : 68 pla ;load status
eor_flag 0
189b : 4930 > eor #0|fao ;invert expected flags + always on bits
189d : cd1002 cmp fLDx+3 ;test flags
trap_ne
18a0 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
18a2 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
18a4 : 48 > pha ;use stack to load status
18a5 : 28 > plp
18a6 : a513 lda zp1
18a8 : 08 php ;test stores do not alter flags
18a9 : 49c3 eor #$c3
18ab : 28 plp
18ac : 8d0302 sta abst
18af : 08 php ;flags after load/store sequence
18b0 : 49c3 eor #$c3
18b2 : c9c3 cmp #$c3 ;test result
trap_ne
18b4 : d0fe > bne * ;failed not equal (non zero)
18b6 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
18b7 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
18b9 : cd0d02 cmp fLDx ;test flags
trap_ne
18bc : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
18be : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
18c0 : 48 > pha ;use stack to load status
18c1 : 28 > plp
18c2 : a514 lda zp1+1
18c4 : 08 php ;test stores do not alter flags
18c5 : 49c3 eor #$c3
18c7 : 28 plp
18c8 : 8d0402 sta abst+1
18cb : 08 php ;flags after load/store sequence
18cc : 49c3 eor #$c3
18ce : c982 cmp #$82 ;test result
trap_ne
18d0 : d0fe > bne * ;failed not equal (non zero)
18d2 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
18d3 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
18d5 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
18d8 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
18da : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
18dc : 48 > pha ;use stack to load status
18dd : 28 > plp
18de : a515 lda zp1+2
18e0 : 08 php ;test stores do not alter flags
18e1 : 49c3 eor #$c3
18e3 : 28 plp
18e4 : 8d0502 sta abst+2
18e7 : 08 php ;flags after load/store sequence
18e8 : 49c3 eor #$c3
18ea : c941 cmp #$41 ;test result
trap_ne
18ec : d0fe > bne * ;failed not equal (non zero)
18ee : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
18ef : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
18f1 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
18f4 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
18f6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
18f8 : 48 > pha ;use stack to load status
18f9 : 28 > plp
18fa : a516 lda zp1+3
18fc : 08 php ;test stores do not alter flags
18fd : 49c3 eor #$c3
18ff : 28 plp
1900 : 8d0602 sta abst+3
1903 : 08 php ;flags after load/store sequence
1904 : 49c3 eor #$c3
1906 : c900 cmp #0 ;test result
trap_ne
1908 : d0fe > bne * ;failed not equal (non zero)
190a : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
190b : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
190d : cd1002 cmp fLDx+3 ;test flags
trap_ne
1910 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1912 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1914 : 48 > pha ;use stack to load status
1915 : 28 > plp
1916 : ad0802 lda abs1
1919 : 08 php ;test stores do not alter flags
191a : 49c3 eor #$c3
191c : 28 plp
191d : 850c sta zpt
191f : 08 php ;flags after load/store sequence
1920 : 49c3 eor #$c3
1922 : c513 cmp zp1 ;test result
trap_ne
1924 : d0fe > bne * ;failed not equal (non zero)
1926 : 68 pla ;load status
eor_flag 0
1927 : 4930 > eor #0|fao ;invert expected flags + always on bits
1929 : cd0d02 cmp fLDx ;test flags
trap_ne
192c : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
192e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1930 : 48 > pha ;use stack to load status
1931 : 28 > plp
1932 : ad0902 lda abs1+1
1935 : 08 php ;test stores do not alter flags
1936 : 49c3 eor #$c3
1938 : 28 plp
1939 : 850d sta zpt+1
193b : 08 php ;flags after load/store sequence
193c : 49c3 eor #$c3
193e : c514 cmp zp1+1 ;test result
trap_ne
1940 : d0fe > bne * ;failed not equal (non zero)
1942 : 68 pla ;load status
eor_flag 0
1943 : 4930 > eor #0|fao ;invert expected flags + always on bits
1945 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1948 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
194a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
194c : 48 > pha ;use stack to load status
194d : 28 > plp
194e : ad0a02 lda abs1+2
1951 : 08 php ;test stores do not alter flags
1952 : 49c3 eor #$c3
1954 : 28 plp
1955 : 850e sta zpt+2
1957 : 08 php ;flags after load/store sequence
1958 : 49c3 eor #$c3
195a : c515 cmp zp1+2 ;test result
trap_ne
195c : d0fe > bne * ;failed not equal (non zero)
195e : 68 pla ;load status
eor_flag 0
195f : 4930 > eor #0|fao ;invert expected flags + always on bits
1961 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1964 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1966 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1968 : 48 > pha ;use stack to load status
1969 : 28 > plp
196a : ad0b02 lda abs1+3
196d : 08 php ;test stores do not alter flags
196e : 49c3 eor #$c3
1970 : 28 plp
1971 : 850f sta zpt+3
1973 : 08 php ;flags after load/store sequence
1974 : 49c3 eor #$c3
1976 : c516 cmp zp1+3 ;test result
trap_ne
1978 : d0fe > bne * ;failed not equal (non zero)
197a : 68 pla ;load status
eor_flag 0
197b : 4930 > eor #0|fao ;invert expected flags + always on bits
197d : cd1002 cmp fLDx+3 ;test flags
trap_ne
1980 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1982 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1984 : 48 > pha ;use stack to load status
1985 : 28 > plp
1986 : ad0802 lda abs1
1989 : 08 php ;test stores do not alter flags
198a : 49c3 eor #$c3
198c : 28 plp
198d : 850c sta zpt
198f : 08 php ;flags after load/store sequence
1990 : 49c3 eor #$c3
1992 : c513 cmp zp1 ;test result
trap_ne
1994 : d0fe > bne * ;failed not equal (non zero)
1996 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1997 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1999 : cd0d02 cmp fLDx ;test flags
trap_ne
199c : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
199e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
19a0 : 48 > pha ;use stack to load status
19a1 : 28 > plp
19a2 : ad0902 lda abs1+1
19a5 : 08 php ;test stores do not alter flags
19a6 : 49c3 eor #$c3
19a8 : 28 plp
19a9 : 850d sta zpt+1
19ab : 08 php ;flags after load/store sequence
19ac : 49c3 eor #$c3
19ae : c514 cmp zp1+1 ;test result
trap_ne
19b0 : d0fe > bne * ;failed not equal (non zero)
19b2 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
19b3 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
19b5 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
19b8 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
19ba : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
19bc : 48 > pha ;use stack to load status
19bd : 28 > plp
19be : ad0a02 lda abs1+2
19c1 : 08 php ;test stores do not alter flags
19c2 : 49c3 eor #$c3
19c4 : 28 plp
19c5 : 850e sta zpt+2
19c7 : 08 php ;flags after load/store sequence
19c8 : 49c3 eor #$c3
19ca : c515 cmp zp1+2 ;test result
trap_ne
19cc : d0fe > bne * ;failed not equal (non zero)
19ce : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
19cf : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
19d1 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
19d4 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
19d6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
19d8 : 48 > pha ;use stack to load status
19d9 : 28 > plp
19da : ad0b02 lda abs1+3
19dd : 08 php ;test stores do not alter flags
19de : 49c3 eor #$c3
19e0 : 28 plp
19e1 : 850f sta zpt+3
19e3 : 08 php ;flags after load/store sequence
19e4 : 49c3 eor #$c3
19e6 : c516 cmp zp1+3 ;test result
trap_ne
19e8 : d0fe > bne * ;failed not equal (non zero)
19ea : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
19eb : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
19ed : cd1002 cmp fLDx+3 ;test flags
trap_ne
19f0 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
19f2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
19f4 : 48 > pha ;use stack to load status
19f5 : 28 > plp
19f6 : a9c3 lda #$c3
19f8 : 08 php
19f9 : cd0802 cmp abs1 ;test result
trap_ne
19fc : d0fe > bne * ;failed not equal (non zero)
19fe : 68 pla ;load status
eor_flag 0
19ff : 4930 > eor #0|fao ;invert expected flags + always on bits
1a01 : cd0d02 cmp fLDx ;test flags
trap_ne
1a04 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1a06 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1a08 : 48 > pha ;use stack to load status
1a09 : 28 > plp
1a0a : a982 lda #$82
1a0c : 08 php
1a0d : cd0902 cmp abs1+1 ;test result
trap_ne
1a10 : d0fe > bne * ;failed not equal (non zero)
1a12 : 68 pla ;load status
eor_flag 0
1a13 : 4930 > eor #0|fao ;invert expected flags + always on bits
1a15 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1a18 : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1a1a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1a1c : 48 > pha ;use stack to load status
1a1d : 28 > plp
1a1e : a941 lda #$41
1a20 : 08 php
1a21 : cd0a02 cmp abs1+2 ;test result
trap_ne
1a24 : d0fe > bne * ;failed not equal (non zero)
1a26 : 68 pla ;load status
eor_flag 0
1a27 : 4930 > eor #0|fao ;invert expected flags + always on bits
1a29 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1a2c : d0fe > bne * ;failed not equal (non zero)
set_stat 0
> load_flag 0
1a2e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1a30 : 48 > pha ;use stack to load status
1a31 : 28 > plp
1a32 : a900 lda #0
1a34 : 08 php
1a35 : cd0b02 cmp abs1+3 ;test result
trap_ne
1a38 : d0fe > bne * ;failed not equal (non zero)
1a3a : 68 pla ;load status
eor_flag 0
1a3b : 4930 > eor #0|fao ;invert expected flags + always on bits
1a3d : cd1002 cmp fLDx+3 ;test flags
trap_ne
1a40 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1a42 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1a44 : 48 > pha ;use stack to load status
1a45 : 28 > plp
1a46 : a9c3 lda #$c3
1a48 : 08 php
1a49 : cd0802 cmp abs1 ;test result
trap_ne
1a4c : d0fe > bne * ;failed not equal (non zero)
1a4e : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1a4f : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1a51 : cd0d02 cmp fLDx ;test flags
trap_ne
1a54 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1a56 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1a58 : 48 > pha ;use stack to load status
1a59 : 28 > plp
1a5a : a982 lda #$82
1a5c : 08 php
1a5d : cd0902 cmp abs1+1 ;test result
trap_ne
1a60 : d0fe > bne * ;failed not equal (non zero)
1a62 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1a63 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1a65 : cd0e02 cmp fLDx+1 ;test flags
trap_ne
1a68 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1a6a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1a6c : 48 > pha ;use stack to load status
1a6d : 28 > plp
1a6e : a941 lda #$41
1a70 : 08 php
1a71 : cd0a02 cmp abs1+2 ;test result
trap_ne
1a74 : d0fe > bne * ;failed not equal (non zero)
1a76 : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1a77 : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1a79 : cd0f02 cmp fLDx+2 ;test flags
trap_ne
1a7c : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
1a7e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1a80 : 48 > pha ;use stack to load status
1a81 : 28 > plp
1a82 : a900 lda #0
1a84 : 08 php
1a85 : cd0b02 cmp abs1+3 ;test result
trap_ne
1a88 : d0fe > bne * ;failed not equal (non zero)
1a8a : 68 pla ;load status
eor_flag lo~fnz ;mask bits not altered
1a8b : 497d > eor #lo~fnz |fao ;invert expected flags + always on bits
1a8d : cd1002 cmp fLDx+3 ;test flags
trap_ne
1a90 : d0fe > bne * ;failed not equal (non zero)
1a92 : a200 ldx #0
1a94 : a50c lda zpt
1a96 : 49c3 eor #$c3
1a98 : c513 cmp zp1
trap_ne ;store to zp data
1a9a : d0fe > bne * ;failed not equal (non zero)
1a9c : 860c stx zpt ;clear
1a9e : ad0302 lda abst
1aa1 : 49c3 eor #$c3
1aa3 : cd0802 cmp abs1
trap_ne ;store to abs data
1aa6 : d0fe > bne * ;failed not equal (non zero)
1aa8 : 8e0302 stx abst ;clear
1aab : a50d lda zpt+1
1aad : 49c3 eor #$c3
1aaf : c514 cmp zp1+1
trap_ne ;store to zp data
1ab1 : d0fe > bne * ;failed not equal (non zero)
1ab3 : 860d stx zpt+1 ;clear
1ab5 : ad0402 lda abst+1
1ab8 : 49c3 eor #$c3
1aba : cd0902 cmp abs1+1
trap_ne ;store to abs data
1abd : d0fe > bne * ;failed not equal (non zero)
1abf : 8e0402 stx abst+1 ;clear
1ac2 : a50e lda zpt+2
1ac4 : 49c3 eor #$c3
1ac6 : c515 cmp zp1+2
trap_ne ;store to zp data
1ac8 : d0fe > bne * ;failed not equal (non zero)
1aca : 860e stx zpt+2 ;clear
1acc : ad0502 lda abst+2
1acf : 49c3 eor #$c3
1ad1 : cd0a02 cmp abs1+2
trap_ne ;store to abs data
1ad4 : d0fe > bne * ;failed not equal (non zero)
1ad6 : 8e0502 stx abst+2 ;clear
1ad9 : a50f lda zpt+3
1adb : 49c3 eor #$c3
1add : c516 cmp zp1+3
trap_ne ;store to zp data
1adf : d0fe > bne * ;failed not equal (non zero)
1ae1 : 860f stx zpt+3 ;clear
1ae3 : ad0602 lda abst+3
1ae6 : 49c3 eor #$c3
1ae8 : cd0b02 cmp abs1+3
trap_ne ;store to abs data
1aeb : d0fe > bne * ;failed not equal (non zero)
1aed : 8e0602 stx abst+3 ;clear
next_test
1af0 : ad0002 > lda test_case ;previous test
1af3 : c918 > cmp #test_num
> trap_ne ;test is out of sequence
1af5 : d0fe > bne * ;failed not equal (non zero)
>
0019 = >test_num = test_num + 1
1af7 : a919 > lda #test_num ;*** next tests' number
1af9 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing bit test & compares BIT CPX CPY CMP all addressing modes
; BIT - zp / abs
set_a $ff,0
> load_flag 0
1afc : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1afe : 48 > pha ;use stack to load status
1aff : a9ff > lda #$ff ;precharge accu
1b01 : 28 > plp
1b02 : 2416 bit zp1+3 ;00 - should set Z / clear NV
tst_a $ff,fz
1b04 : 08 > php ;save flags
1b05 : c9ff > cmp #$ff ;test result
> trap_ne
1b07 : d0fe > bne * ;failed not equal (non zero)
>
1b09 : 68 > pla ;load status
1b0a : 48 > pha
> cmp_flag fz
1b0b : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b0d : d0fe > bne * ;failed not equal (non zero)
>
1b0f : 28 > plp ;restore status
set_a 1,0
> load_flag 0
1b10 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b12 : 48 > pha ;use stack to load status
1b13 : a901 > lda #1 ;precharge accu
1b15 : 28 > plp
1b16 : 2415 bit zp1+2 ;41 - should set V (M6) / clear NZ
tst_a 1,fv
1b18 : 08 > php ;save flags
1b19 : c901 > cmp #1 ;test result
> trap_ne
1b1b : d0fe > bne * ;failed not equal (non zero)
>
1b1d : 68 > pla ;load status
1b1e : 48 > pha
> cmp_flag fv
1b1f : c970 > cmp #(fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b21 : d0fe > bne * ;failed not equal (non zero)
>
1b23 : 28 > plp ;restore status
set_a 1,0
> load_flag 0
1b24 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b26 : 48 > pha ;use stack to load status
1b27 : a901 > lda #1 ;precharge accu
1b29 : 28 > plp
1b2a : 2414 bit zp1+1 ;82 - should set N (M7) & Z / clear V
tst_a 1,fnz
1b2c : 08 > php ;save flags
1b2d : c901 > cmp #1 ;test result
> trap_ne
1b2f : d0fe > bne * ;failed not equal (non zero)
>
1b31 : 68 > pla ;load status
1b32 : 48 > pha
> cmp_flag fnz
1b33 : c9b2 > cmp #(fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b35 : d0fe > bne * ;failed not equal (non zero)
>
1b37 : 28 > plp ;restore status
set_a 1,0
> load_flag 0
1b38 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b3a : 48 > pha ;use stack to load status
1b3b : a901 > lda #1 ;precharge accu
1b3d : 28 > plp
1b3e : 2413 bit zp1 ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,fnv
1b40 : 08 > php ;save flags
1b41 : c901 > cmp #1 ;test result
> trap_ne
1b43 : d0fe > bne * ;failed not equal (non zero)
>
1b45 : 68 > pla ;load status
1b46 : 48 > pha
> cmp_flag fnv
1b47 : c9f0 > cmp #(fnv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b49 : d0fe > bne * ;failed not equal (non zero)
>
1b4b : 28 > plp ;restore status
set_a $ff,$ff
> load_flag $ff
1b4c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1b4e : 48 > pha ;use stack to load status
1b4f : a9ff > lda #$ff ;precharge accu
1b51 : 28 > plp
1b52 : 2416 bit zp1+3 ;00 - should set Z / clear NV
tst_a $ff,~fnv
1b54 : 08 > php ;save flags
1b55 : c9ff > cmp #$ff ;test result
> trap_ne
1b57 : d0fe > bne * ;failed not equal (non zero)
>
1b59 : 68 > pla ;load status
1b5a : 48 > pha
> cmp_flag ~fnv
1b5b : c93f > cmp #(~fnv |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b5d : d0fe > bne * ;failed not equal (non zero)
>
1b5f : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1b60 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1b62 : 48 > pha ;use stack to load status
1b63 : a901 > lda #1 ;precharge accu
1b65 : 28 > plp
1b66 : 2415 bit zp1+2 ;41 - should set V (M6) / clear NZ
tst_a 1,~fnz
1b68 : 08 > php ;save flags
1b69 : c901 > cmp #1 ;test result
> trap_ne
1b6b : d0fe > bne * ;failed not equal (non zero)
>
1b6d : 68 > pla ;load status
1b6e : 48 > pha
> cmp_flag ~fnz
1b6f : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b71 : d0fe > bne * ;failed not equal (non zero)
>
1b73 : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1b74 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1b76 : 48 > pha ;use stack to load status
1b77 : a901 > lda #1 ;precharge accu
1b79 : 28 > plp
1b7a : 2414 bit zp1+1 ;82 - should set N (M7) & Z / clear V
tst_a 1,~fv
1b7c : 08 > php ;save flags
1b7d : c901 > cmp #1 ;test result
> trap_ne
1b7f : d0fe > bne * ;failed not equal (non zero)
>
1b81 : 68 > pla ;load status
1b82 : 48 > pha
> cmp_flag ~fv
1b83 : c9bf > cmp #(~fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b85 : d0fe > bne * ;failed not equal (non zero)
>
1b87 : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1b88 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1b8a : 48 > pha ;use stack to load status
1b8b : a901 > lda #1 ;precharge accu
1b8d : 28 > plp
1b8e : 2413 bit zp1 ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,~fz
1b90 : 08 > php ;save flags
1b91 : c901 > cmp #1 ;test result
> trap_ne
1b93 : d0fe > bne * ;failed not equal (non zero)
>
1b95 : 68 > pla ;load status
1b96 : 48 > pha
> cmp_flag ~fz
1b97 : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1b99 : d0fe > bne * ;failed not equal (non zero)
>
1b9b : 28 > plp ;restore status
set_a $ff,0
> load_flag 0
1b9c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1b9e : 48 > pha ;use stack to load status
1b9f : a9ff > lda #$ff ;precharge accu
1ba1 : 28 > plp
1ba2 : 2c0b02 bit abs1+3 ;00 - should set Z / clear NV
tst_a $ff,fz
1ba5 : 08 > php ;save flags
1ba6 : c9ff > cmp #$ff ;test result
> trap_ne
1ba8 : d0fe > bne * ;failed not equal (non zero)
>
1baa : 68 > pla ;load status
1bab : 48 > pha
> cmp_flag fz
1bac : c932 > cmp #(fz |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1bae : d0fe > bne * ;failed not equal (non zero)
>
1bb0 : 28 > plp ;restore status
set_a 1,0
> load_flag 0
1bb1 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1bb3 : 48 > pha ;use stack to load status
1bb4 : a901 > lda #1 ;precharge accu
1bb6 : 28 > plp
1bb7 : 2c0a02 bit abs1+2 ;41 - should set V (M6) / clear NZ
tst_a 1,fv
1bba : 08 > php ;save flags
1bbb : c901 > cmp #1 ;test result
> trap_ne
1bbd : d0fe > bne * ;failed not equal (non zero)
>
1bbf : 68 > pla ;load status
1bc0 : 48 > pha
> cmp_flag fv
1bc1 : c970 > cmp #(fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1bc3 : d0fe > bne * ;failed not equal (non zero)
>
1bc5 : 28 > plp ;restore status
set_a 1,0
> load_flag 0
1bc6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1bc8 : 48 > pha ;use stack to load status
1bc9 : a901 > lda #1 ;precharge accu
1bcb : 28 > plp
1bcc : 2c0902 bit abs1+1 ;82 - should set N (M7) & Z / clear V
tst_a 1,fnz
1bcf : 08 > php ;save flags
1bd0 : c901 > cmp #1 ;test result
> trap_ne
1bd2 : d0fe > bne * ;failed not equal (non zero)
>
1bd4 : 68 > pla ;load status
1bd5 : 48 > pha
> cmp_flag fnz
1bd6 : c9b2 > cmp #(fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1bd8 : d0fe > bne * ;failed not equal (non zero)
>
1bda : 28 > plp ;restore status
set_a 1,0
> load_flag 0
1bdb : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1bdd : 48 > pha ;use stack to load status
1bde : a901 > lda #1 ;precharge accu
1be0 : 28 > plp
1be1 : 2c0802 bit abs1 ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,fnv
1be4 : 08 > php ;save flags
1be5 : c901 > cmp #1 ;test result
> trap_ne
1be7 : d0fe > bne * ;failed not equal (non zero)
>
1be9 : 68 > pla ;load status
1bea : 48 > pha
> cmp_flag fnv
1beb : c9f0 > cmp #(fnv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1bed : d0fe > bne * ;failed not equal (non zero)
>
1bef : 28 > plp ;restore status
set_a $ff,$ff
> load_flag $ff
1bf0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1bf2 : 48 > pha ;use stack to load status
1bf3 : a9ff > lda #$ff ;precharge accu
1bf5 : 28 > plp
1bf6 : 2c0b02 bit abs1+3 ;00 - should set Z / clear NV
tst_a $ff,~fnv
1bf9 : 08 > php ;save flags
1bfa : c9ff > cmp #$ff ;test result
> trap_ne
1bfc : d0fe > bne * ;failed not equal (non zero)
>
1bfe : 68 > pla ;load status
1bff : 48 > pha
> cmp_flag ~fnv
1c00 : c93f > cmp #(~fnv |fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c02 : d0fe > bne * ;failed not equal (non zero)
>
1c04 : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1c05 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1c07 : 48 > pha ;use stack to load status
1c08 : a901 > lda #1 ;precharge accu
1c0a : 28 > plp
1c0b : 2c0a02 bit abs1+2 ;41 - should set V (M6) / clear NZ
tst_a 1,~fnz
1c0e : 08 > php ;save flags
1c0f : c901 > cmp #1 ;test result
> trap_ne
1c11 : d0fe > bne * ;failed not equal (non zero)
>
1c13 : 68 > pla ;load status
1c14 : 48 > pha
> cmp_flag ~fnz
1c15 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c17 : d0fe > bne * ;failed not equal (non zero)
>
1c19 : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1c1a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1c1c : 48 > pha ;use stack to load status
1c1d : a901 > lda #1 ;precharge accu
1c1f : 28 > plp
1c20 : 2c0902 bit abs1+1 ;82 - should set N (M7) & Z / clear V
tst_a 1,~fv
1c23 : 08 > php ;save flags
1c24 : c901 > cmp #1 ;test result
> trap_ne
1c26 : d0fe > bne * ;failed not equal (non zero)
>
1c28 : 68 > pla ;load status
1c29 : 48 > pha
> cmp_flag ~fv
1c2a : c9bf > cmp #(~fv|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c2c : d0fe > bne * ;failed not equal (non zero)
>
1c2e : 28 > plp ;restore status
set_a 1,$ff
> load_flag $ff
1c2f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1c31 : 48 > pha ;use stack to load status
1c32 : a901 > lda #1 ;precharge accu
1c34 : 28 > plp
1c35 : 2c0802 bit abs1 ;c3 - should set N (M7) & V (M6) / clear Z
tst_a 1,~fz
1c38 : 08 > php ;save flags
1c39 : c901 > cmp #1 ;test result
> trap_ne
1c3b : d0fe > bne * ;failed not equal (non zero)
>
1c3d : 68 > pla ;load status
1c3e : 48 > pha
> cmp_flag ~fz
1c3f : c9fd > cmp #(~fz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c41 : d0fe > bne * ;failed not equal (non zero)
>
1c43 : 28 > plp ;restore status
next_test
1c44 : ad0002 > lda test_case ;previous test
1c47 : c919 > cmp #test_num
> trap_ne ;test is out of sequence
1c49 : d0fe > bne * ;failed not equal (non zero)
>
001a = >test_num = test_num + 1
1c4b : a91a > lda #test_num ;*** next tests' number
1c4d : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; CPX - zp / abs / #
set_x $80,0
> load_flag 0
1c50 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1c52 : 48 > pha ;use stack to load status
1c53 : a280 > ldx #$80 ;precharge index x
1c55 : 28 > plp
1c56 : e417 cpx zp7f
tst_stat fc
1c58 : 08 > php ;save status
1c59 : 68 > pla ;use stack to retrieve status
1c5a : 48 > pha
> cmp_flag fc
1c5b : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c5d : d0fe > bne * ;failed not equal (non zero)
>
1c5f : 28 > plp ;restore status
1c60 : ca dex
1c61 : e417 cpx zp7f
tst_stat fzc
1c63 : 08 > php ;save status
1c64 : 68 > pla ;use stack to retrieve status
1c65 : 48 > pha
> cmp_flag fzc
1c66 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c68 : d0fe > bne * ;failed not equal (non zero)
>
1c6a : 28 > plp ;restore status
1c6b : ca dex
1c6c : e417 cpx zp7f
tst_x $7e,fn
1c6e : 08 > php ;save flags
1c6f : e07e > cpx #$7e ;test result
> trap_ne
1c71 : d0fe > bne * ;failed not equal (non zero)
>
1c73 : 68 > pla ;load status
1c74 : 48 > pha
> cmp_flag fn
1c75 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c77 : d0fe > bne * ;failed not equal (non zero)
>
1c79 : 28 > plp ;restore status
set_x $80,$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 : a280 > ldx #$80 ;precharge index x
1c7f : 28 > plp
1c80 : e417 cpx zp7f
tst_stat ~fnz
1c82 : 08 > php ;save status
1c83 : 68 > pla ;use stack to retrieve status
1c84 : 48 > pha
> cmp_flag ~fnz
1c85 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c87 : d0fe > bne * ;failed not equal (non zero)
>
1c89 : 28 > plp ;restore status
1c8a : ca dex
1c8b : e417 cpx zp7f
tst_stat ~fn
1c8d : 08 > php ;save status
1c8e : 68 > pla ;use stack to retrieve status
1c8f : 48 > pha
> cmp_flag ~fn
1c90 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1c92 : d0fe > bne * ;failed not equal (non zero)
>
1c94 : 28 > plp ;restore status
1c95 : ca dex
1c96 : e417 cpx zp7f
tst_x $7e,~fzc
1c98 : 08 > php ;save flags
1c99 : e07e > cpx #$7e ;test result
> trap_ne
1c9b : d0fe > bne * ;failed not equal (non zero)
>
1c9d : 68 > pla ;load status
1c9e : 48 > pha
> cmp_flag ~fzc
1c9f : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ca1 : d0fe > bne * ;failed not equal (non zero)
>
1ca3 : 28 > plp ;restore status
set_x $80,0
> load_flag 0
1ca4 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1ca6 : 48 > pha ;use stack to load status
1ca7 : a280 > ldx #$80 ;precharge index x
1ca9 : 28 > plp
1caa : ec0c02 cpx abs7f
tst_stat fc
1cad : 08 > php ;save status
1cae : 68 > pla ;use stack to retrieve status
1caf : 48 > pha
> cmp_flag fc
1cb0 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1cb2 : d0fe > bne * ;failed not equal (non zero)
>
1cb4 : 28 > plp ;restore status
1cb5 : ca dex
1cb6 : ec0c02 cpx abs7f
tst_stat fzc
1cb9 : 08 > php ;save status
1cba : 68 > pla ;use stack to retrieve status
1cbb : 48 > pha
> cmp_flag fzc
1cbc : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1cbe : d0fe > bne * ;failed not equal (non zero)
>
1cc0 : 28 > plp ;restore status
1cc1 : ca dex
1cc2 : ec0c02 cpx abs7f
tst_x $7e,fn
1cc5 : 08 > php ;save flags
1cc6 : e07e > cpx #$7e ;test result
> trap_ne
1cc8 : d0fe > bne * ;failed not equal (non zero)
>
1cca : 68 > pla ;load status
1ccb : 48 > pha
> cmp_flag fn
1ccc : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1cce : d0fe > bne * ;failed not equal (non zero)
>
1cd0 : 28 > plp ;restore status
set_x $80,$ff
> load_flag $ff
1cd1 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1cd3 : 48 > pha ;use stack to load status
1cd4 : a280 > ldx #$80 ;precharge index x
1cd6 : 28 > plp
1cd7 : ec0c02 cpx abs7f
tst_stat ~fnz
1cda : 08 > php ;save status
1cdb : 68 > pla ;use stack to retrieve status
1cdc : 48 > pha
> cmp_flag ~fnz
1cdd : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1cdf : d0fe > bne * ;failed not equal (non zero)
>
1ce1 : 28 > plp ;restore status
1ce2 : ca dex
1ce3 : ec0c02 cpx abs7f
tst_stat ~fn
1ce6 : 08 > php ;save status
1ce7 : 68 > pla ;use stack to retrieve status
1ce8 : 48 > pha
> cmp_flag ~fn
1ce9 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ceb : d0fe > bne * ;failed not equal (non zero)
>
1ced : 28 > plp ;restore status
1cee : ca dex
1cef : ec0c02 cpx abs7f
tst_x $7e,~fzc
1cf2 : 08 > php ;save flags
1cf3 : e07e > cpx #$7e ;test result
> trap_ne
1cf5 : d0fe > bne * ;failed not equal (non zero)
>
1cf7 : 68 > pla ;load status
1cf8 : 48 > pha
> cmp_flag ~fzc
1cf9 : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1cfb : d0fe > bne * ;failed not equal (non zero)
>
1cfd : 28 > plp ;restore status
set_x $80,0
> load_flag 0
1cfe : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1d00 : 48 > pha ;use stack to load status
1d01 : a280 > ldx #$80 ;precharge index x
1d03 : 28 > plp
1d04 : e07f cpx #$7f
tst_stat fc
1d06 : 08 > php ;save status
1d07 : 68 > pla ;use stack to retrieve status
1d08 : 48 > pha
> cmp_flag fc
1d09 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d0b : d0fe > bne * ;failed not equal (non zero)
>
1d0d : 28 > plp ;restore status
1d0e : ca dex
1d0f : e07f cpx #$7f
tst_stat fzc
1d11 : 08 > php ;save status
1d12 : 68 > pla ;use stack to retrieve status
1d13 : 48 > pha
> cmp_flag fzc
1d14 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d16 : d0fe > bne * ;failed not equal (non zero)
>
1d18 : 28 > plp ;restore status
1d19 : ca dex
1d1a : e07f cpx #$7f
tst_x $7e,fn
1d1c : 08 > php ;save flags
1d1d : e07e > cpx #$7e ;test result
> trap_ne
1d1f : d0fe > bne * ;failed not equal (non zero)
>
1d21 : 68 > pla ;load status
1d22 : 48 > pha
> cmp_flag fn
1d23 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d25 : d0fe > bne * ;failed not equal (non zero)
>
1d27 : 28 > plp ;restore status
set_x $80,$ff
> load_flag $ff
1d28 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1d2a : 48 > pha ;use stack to load status
1d2b : a280 > ldx #$80 ;precharge index x
1d2d : 28 > plp
1d2e : e07f cpx #$7f
tst_stat ~fnz
1d30 : 08 > php ;save status
1d31 : 68 > pla ;use stack to retrieve status
1d32 : 48 > pha
> cmp_flag ~fnz
1d33 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d35 : d0fe > bne * ;failed not equal (non zero)
>
1d37 : 28 > plp ;restore status
1d38 : ca dex
1d39 : e07f cpx #$7f
tst_stat ~fn
1d3b : 08 > php ;save status
1d3c : 68 > pla ;use stack to retrieve status
1d3d : 48 > pha
> cmp_flag ~fn
1d3e : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d40 : d0fe > bne * ;failed not equal (non zero)
>
1d42 : 28 > plp ;restore status
1d43 : ca dex
1d44 : e07f cpx #$7f
tst_x $7e,~fzc
1d46 : 08 > php ;save flags
1d47 : e07e > cpx #$7e ;test result
> trap_ne
1d49 : d0fe > bne * ;failed not equal (non zero)
>
1d4b : 68 > pla ;load status
1d4c : 48 > pha
> cmp_flag ~fzc
1d4d : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d4f : d0fe > bne * ;failed not equal (non zero)
>
1d51 : 28 > plp ;restore status
next_test
1d52 : ad0002 > lda test_case ;previous test
1d55 : c91a > cmp #test_num
> trap_ne ;test is out of sequence
1d57 : d0fe > bne * ;failed not equal (non zero)
>
001b = >test_num = test_num + 1
1d59 : a91b > lda #test_num ;*** next tests' number
1d5b : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; CPY - zp / abs / #
set_y $80,0
> load_flag 0
1d5e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1d60 : 48 > pha ;use stack to load status
1d61 : a080 > ldy #$80 ;precharge index y
1d63 : 28 > plp
1d64 : c417 cpy zp7f
tst_stat fc
1d66 : 08 > php ;save status
1d67 : 68 > pla ;use stack to retrieve status
1d68 : 48 > pha
> cmp_flag fc
1d69 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d6b : d0fe > bne * ;failed not equal (non zero)
>
1d6d : 28 > plp ;restore status
1d6e : 88 dey
1d6f : c417 cpy zp7f
tst_stat fzc
1d71 : 08 > php ;save status
1d72 : 68 > pla ;use stack to retrieve status
1d73 : 48 > pha
> cmp_flag fzc
1d74 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d76 : d0fe > bne * ;failed not equal (non zero)
>
1d78 : 28 > plp ;restore status
1d79 : 88 dey
1d7a : c417 cpy zp7f
tst_y $7e,fn
1d7c : 08 > php ;save flags
1d7d : c07e > cpy #$7e ;test result
> trap_ne
1d7f : d0fe > bne * ;failed not equal (non zero)
>
1d81 : 68 > pla ;load status
1d82 : 48 > pha
> cmp_flag fn
1d83 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d85 : d0fe > bne * ;failed not equal (non zero)
>
1d87 : 28 > plp ;restore status
set_y $80,$ff
> load_flag $ff
1d88 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1d8a : 48 > pha ;use stack to load status
1d8b : a080 > ldy #$80 ;precharge index y
1d8d : 28 > plp
1d8e : c417 cpy zp7f
tst_stat ~fnz
1d90 : 08 > php ;save status
1d91 : 68 > pla ;use stack to retrieve status
1d92 : 48 > pha
> cmp_flag ~fnz
1d93 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1d95 : d0fe > bne * ;failed not equal (non zero)
>
1d97 : 28 > plp ;restore status
1d98 : 88 dey
1d99 : c417 cpy zp7f
tst_stat ~fn
1d9b : 08 > php ;save status
1d9c : 68 > pla ;use stack to retrieve status
1d9d : 48 > pha
> cmp_flag ~fn
1d9e : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1da0 : d0fe > bne * ;failed not equal (non zero)
>
1da2 : 28 > plp ;restore status
1da3 : 88 dey
1da4 : c417 cpy zp7f
tst_y $7e,~fzc
1da6 : 08 > php ;save flags
1da7 : c07e > cpy #$7e ;test result
> trap_ne
1da9 : d0fe > bne * ;failed not equal (non zero)
>
1dab : 68 > pla ;load status
1dac : 48 > pha
> cmp_flag ~fzc
1dad : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1daf : d0fe > bne * ;failed not equal (non zero)
>
1db1 : 28 > plp ;restore status
set_y $80,0
> load_flag 0
1db2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1db4 : 48 > pha ;use stack to load status
1db5 : a080 > ldy #$80 ;precharge index y
1db7 : 28 > plp
1db8 : cc0c02 cpy abs7f
tst_stat fc
1dbb : 08 > php ;save status
1dbc : 68 > pla ;use stack to retrieve status
1dbd : 48 > pha
> cmp_flag fc
1dbe : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1dc0 : d0fe > bne * ;failed not equal (non zero)
>
1dc2 : 28 > plp ;restore status
1dc3 : 88 dey
1dc4 : cc0c02 cpy abs7f
tst_stat fzc
1dc7 : 08 > php ;save status
1dc8 : 68 > pla ;use stack to retrieve status
1dc9 : 48 > pha
> cmp_flag fzc
1dca : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1dcc : d0fe > bne * ;failed not equal (non zero)
>
1dce : 28 > plp ;restore status
1dcf : 88 dey
1dd0 : cc0c02 cpy abs7f
tst_y $7e,fn
1dd3 : 08 > php ;save flags
1dd4 : c07e > cpy #$7e ;test result
> trap_ne
1dd6 : d0fe > bne * ;failed not equal (non zero)
>
1dd8 : 68 > pla ;load status
1dd9 : 48 > pha
> cmp_flag fn
1dda : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ddc : d0fe > bne * ;failed not equal (non zero)
>
1dde : 28 > plp ;restore status
set_y $80,$ff
> load_flag $ff
1ddf : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1de1 : 48 > pha ;use stack to load status
1de2 : a080 > ldy #$80 ;precharge index y
1de4 : 28 > plp
1de5 : cc0c02 cpy abs7f
tst_stat ~fnz
1de8 : 08 > php ;save status
1de9 : 68 > pla ;use stack to retrieve status
1dea : 48 > pha
> cmp_flag ~fnz
1deb : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ded : d0fe > bne * ;failed not equal (non zero)
>
1def : 28 > plp ;restore status
1df0 : 88 dey
1df1 : cc0c02 cpy abs7f
tst_stat ~fn
1df4 : 08 > php ;save status
1df5 : 68 > pla ;use stack to retrieve status
1df6 : 48 > pha
> cmp_flag ~fn
1df7 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1df9 : d0fe > bne * ;failed not equal (non zero)
>
1dfb : 28 > plp ;restore status
1dfc : 88 dey
1dfd : cc0c02 cpy abs7f
tst_y $7e,~fzc
1e00 : 08 > php ;save flags
1e01 : c07e > cpy #$7e ;test result
> trap_ne
1e03 : d0fe > bne * ;failed not equal (non zero)
>
1e05 : 68 > pla ;load status
1e06 : 48 > pha
> cmp_flag ~fzc
1e07 : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e09 : d0fe > bne * ;failed not equal (non zero)
>
1e0b : 28 > plp ;restore status
set_y $80,0
> load_flag 0
1e0c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1e0e : 48 > pha ;use stack to load status
1e0f : a080 > ldy #$80 ;precharge index y
1e11 : 28 > plp
1e12 : c07f cpy #$7f
tst_stat fc
1e14 : 08 > php ;save status
1e15 : 68 > pla ;use stack to retrieve status
1e16 : 48 > pha
> cmp_flag fc
1e17 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e19 : d0fe > bne * ;failed not equal (non zero)
>
1e1b : 28 > plp ;restore status
1e1c : 88 dey
1e1d : c07f cpy #$7f
tst_stat fzc
1e1f : 08 > php ;save status
1e20 : 68 > pla ;use stack to retrieve status
1e21 : 48 > pha
> cmp_flag fzc
1e22 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e24 : d0fe > bne * ;failed not equal (non zero)
>
1e26 : 28 > plp ;restore status
1e27 : 88 dey
1e28 : c07f cpy #$7f
tst_y $7e,fn
1e2a : 08 > php ;save flags
1e2b : c07e > cpy #$7e ;test result
> trap_ne
1e2d : d0fe > bne * ;failed not equal (non zero)
>
1e2f : 68 > pla ;load status
1e30 : 48 > pha
> cmp_flag fn
1e31 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e33 : d0fe > bne * ;failed not equal (non zero)
>
1e35 : 28 > plp ;restore status
set_y $80,$ff
> load_flag $ff
1e36 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1e38 : 48 > pha ;use stack to load status
1e39 : a080 > ldy #$80 ;precharge index y
1e3b : 28 > plp
1e3c : c07f cpy #$7f
tst_stat ~fnz
1e3e : 08 > php ;save status
1e3f : 68 > pla ;use stack to retrieve status
1e40 : 48 > pha
> cmp_flag ~fnz
1e41 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e43 : d0fe > bne * ;failed not equal (non zero)
>
1e45 : 28 > plp ;restore status
1e46 : 88 dey
1e47 : c07f cpy #$7f
tst_stat ~fn
1e49 : 08 > php ;save status
1e4a : 68 > pla ;use stack to retrieve status
1e4b : 48 > pha
> cmp_flag ~fn
1e4c : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e4e : d0fe > bne * ;failed not equal (non zero)
>
1e50 : 28 > plp ;restore status
1e51 : 88 dey
1e52 : c07f cpy #$7f
tst_y $7e,~fzc
1e54 : 08 > php ;save flags
1e55 : c07e > cpy #$7e ;test result
> trap_ne
1e57 : d0fe > bne * ;failed not equal (non zero)
>
1e59 : 68 > pla ;load status
1e5a : 48 > pha
> cmp_flag ~fzc
1e5b : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e5d : d0fe > bne * ;failed not equal (non zero)
>
1e5f : 28 > plp ;restore status
next_test
1e60 : ad0002 > lda test_case ;previous test
1e63 : c91b > cmp #test_num
> trap_ne ;test is out of sequence
1e65 : d0fe > bne * ;failed not equal (non zero)
>
001c = >test_num = test_num + 1
1e67 : a91c > lda #test_num ;*** next tests' number
1e69 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; CMP - zp / abs / #
set_a $80,0
> load_flag 0
1e6c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1e6e : 48 > pha ;use stack to load status
1e6f : a980 > lda #$80 ;precharge accu
1e71 : 28 > plp
1e72 : c517 cmp zp7f
tst_a $80,fc
1e74 : 08 > php ;save flags
1e75 : c980 > cmp #$80 ;test result
> trap_ne
1e77 : d0fe > bne * ;failed not equal (non zero)
>
1e79 : 68 > pla ;load status
1e7a : 48 > pha
> cmp_flag fc
1e7b : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e7d : d0fe > bne * ;failed not equal (non zero)
>
1e7f : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
1e80 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1e82 : 48 > pha ;use stack to load status
1e83 : a97f > lda #$7f ;precharge accu
1e85 : 28 > plp
1e86 : c517 cmp zp7f
tst_a $7f,fzc
1e88 : 08 > php ;save flags
1e89 : c97f > cmp #$7f ;test result
> trap_ne
1e8b : d0fe > bne * ;failed not equal (non zero)
>
1e8d : 68 > pla ;load status
1e8e : 48 > pha
> cmp_flag fzc
1e8f : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1e91 : d0fe > bne * ;failed not equal (non zero)
>
1e93 : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
1e94 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1e96 : 48 > pha ;use stack to load status
1e97 : a97e > lda #$7e ;precharge accu
1e99 : 28 > plp
1e9a : c517 cmp zp7f
tst_a $7e,fn
1e9c : 08 > php ;save flags
1e9d : c97e > cmp #$7e ;test result
> trap_ne
1e9f : d0fe > bne * ;failed not equal (non zero)
>
1ea1 : 68 > pla ;load status
1ea2 : 48 > pha
> cmp_flag fn
1ea3 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ea5 : d0fe > bne * ;failed not equal (non zero)
>
1ea7 : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
1ea8 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1eaa : 48 > pha ;use stack to load status
1eab : a980 > lda #$80 ;precharge accu
1ead : 28 > plp
1eae : c517 cmp zp7f
tst_a $80,~fnz
1eb0 : 08 > php ;save flags
1eb1 : c980 > cmp #$80 ;test result
> trap_ne
1eb3 : d0fe > bne * ;failed not equal (non zero)
>
1eb5 : 68 > pla ;load status
1eb6 : 48 > pha
> cmp_flag ~fnz
1eb7 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1eb9 : d0fe > bne * ;failed not equal (non zero)
>
1ebb : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
1ebc : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1ebe : 48 > pha ;use stack to load status
1ebf : a97f > lda #$7f ;precharge accu
1ec1 : 28 > plp
1ec2 : c517 cmp zp7f
tst_a $7f,~fn
1ec4 : 08 > php ;save flags
1ec5 : c97f > cmp #$7f ;test result
> trap_ne
1ec7 : d0fe > bne * ;failed not equal (non zero)
>
1ec9 : 68 > pla ;load status
1eca : 48 > pha
> cmp_flag ~fn
1ecb : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ecd : d0fe > bne * ;failed not equal (non zero)
>
1ecf : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
1ed0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1ed2 : 48 > pha ;use stack to load status
1ed3 : a97e > lda #$7e ;precharge accu
1ed5 : 28 > plp
1ed6 : c517 cmp zp7f
tst_a $7e,~fzc
1ed8 : 08 > php ;save flags
1ed9 : c97e > cmp #$7e ;test result
> trap_ne
1edb : d0fe > bne * ;failed not equal (non zero)
>
1edd : 68 > pla ;load status
1ede : 48 > pha
> cmp_flag ~fzc
1edf : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ee1 : d0fe > bne * ;failed not equal (non zero)
>
1ee3 : 28 > plp ;restore status
set_a $80,0
> load_flag 0
1ee4 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1ee6 : 48 > pha ;use stack to load status
1ee7 : a980 > lda #$80 ;precharge accu
1ee9 : 28 > plp
1eea : cd0c02 cmp abs7f
tst_a $80,fc
1eed : 08 > php ;save flags
1eee : c980 > cmp #$80 ;test result
> trap_ne
1ef0 : d0fe > bne * ;failed not equal (non zero)
>
1ef2 : 68 > pla ;load status
1ef3 : 48 > pha
> cmp_flag fc
1ef4 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1ef6 : d0fe > bne * ;failed not equal (non zero)
>
1ef8 : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
1ef9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1efb : 48 > pha ;use stack to load status
1efc : a97f > lda #$7f ;precharge accu
1efe : 28 > plp
1eff : cd0c02 cmp abs7f
tst_a $7f,fzc
1f02 : 08 > php ;save flags
1f03 : c97f > cmp #$7f ;test result
> trap_ne
1f05 : d0fe > bne * ;failed not equal (non zero)
>
1f07 : 68 > pla ;load status
1f08 : 48 > pha
> cmp_flag fzc
1f09 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f0b : d0fe > bne * ;failed not equal (non zero)
>
1f0d : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
1f0e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1f10 : 48 > pha ;use stack to load status
1f11 : a97e > lda #$7e ;precharge accu
1f13 : 28 > plp
1f14 : cd0c02 cmp abs7f
tst_a $7e,fn
1f17 : 08 > php ;save flags
1f18 : c97e > cmp #$7e ;test result
> trap_ne
1f1a : d0fe > bne * ;failed not equal (non zero)
>
1f1c : 68 > pla ;load status
1f1d : 48 > pha
> cmp_flag fn
1f1e : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f20 : d0fe > bne * ;failed not equal (non zero)
>
1f22 : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
1f23 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1f25 : 48 > pha ;use stack to load status
1f26 : a980 > lda #$80 ;precharge accu
1f28 : 28 > plp
1f29 : cd0c02 cmp abs7f
tst_a $80,~fnz
1f2c : 08 > php ;save flags
1f2d : c980 > cmp #$80 ;test result
> trap_ne
1f2f : d0fe > bne * ;failed not equal (non zero)
>
1f31 : 68 > pla ;load status
1f32 : 48 > pha
> cmp_flag ~fnz
1f33 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f35 : d0fe > bne * ;failed not equal (non zero)
>
1f37 : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
1f38 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1f3a : 48 > pha ;use stack to load status
1f3b : a97f > lda #$7f ;precharge accu
1f3d : 28 > plp
1f3e : cd0c02 cmp abs7f
tst_a $7f,~fn
1f41 : 08 > php ;save flags
1f42 : c97f > cmp #$7f ;test result
> trap_ne
1f44 : d0fe > bne * ;failed not equal (non zero)
>
1f46 : 68 > pla ;load status
1f47 : 48 > pha
> cmp_flag ~fn
1f48 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f4a : d0fe > bne * ;failed not equal (non zero)
>
1f4c : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
1f4d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1f4f : 48 > pha ;use stack to load status
1f50 : a97e > lda #$7e ;precharge accu
1f52 : 28 > plp
1f53 : cd0c02 cmp abs7f
tst_a $7e,~fzc
1f56 : 08 > php ;save flags
1f57 : c97e > cmp #$7e ;test result
> trap_ne
1f59 : d0fe > bne * ;failed not equal (non zero)
>
1f5b : 68 > pla ;load status
1f5c : 48 > pha
> cmp_flag ~fzc
1f5d : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f5f : d0fe > bne * ;failed not equal (non zero)
>
1f61 : 28 > plp ;restore status
set_a $80,0
> load_flag 0
1f62 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1f64 : 48 > pha ;use stack to load status
1f65 : a980 > lda #$80 ;precharge accu
1f67 : 28 > plp
1f68 : c97f cmp #$7f
tst_a $80,fc
1f6a : 08 > php ;save flags
1f6b : c980 > cmp #$80 ;test result
> trap_ne
1f6d : d0fe > bne * ;failed not equal (non zero)
>
1f6f : 68 > pla ;load status
1f70 : 48 > pha
> cmp_flag fc
1f71 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f73 : d0fe > bne * ;failed not equal (non zero)
>
1f75 : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
1f76 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1f78 : 48 > pha ;use stack to load status
1f79 : a97f > lda #$7f ;precharge accu
1f7b : 28 > plp
1f7c : c97f cmp #$7f
tst_a $7f,fzc
1f7e : 08 > php ;save flags
1f7f : c97f > cmp #$7f ;test result
> trap_ne
1f81 : d0fe > bne * ;failed not equal (non zero)
>
1f83 : 68 > pla ;load status
1f84 : 48 > pha
> cmp_flag fzc
1f85 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f87 : d0fe > bne * ;failed not equal (non zero)
>
1f89 : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
1f8a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1f8c : 48 > pha ;use stack to load status
1f8d : a97e > lda #$7e ;precharge accu
1f8f : 28 > plp
1f90 : c97f cmp #$7f
tst_a $7e,fn
1f92 : 08 > php ;save flags
1f93 : c97e > cmp #$7e ;test result
> trap_ne
1f95 : d0fe > bne * ;failed not equal (non zero)
>
1f97 : 68 > pla ;load status
1f98 : 48 > pha
> cmp_flag fn
1f99 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1f9b : d0fe > bne * ;failed not equal (non zero)
>
1f9d : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
1f9e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1fa0 : 48 > pha ;use stack to load status
1fa1 : a980 > lda #$80 ;precharge accu
1fa3 : 28 > plp
1fa4 : c97f cmp #$7f
tst_a $80,~fnz
1fa6 : 08 > php ;save flags
1fa7 : c980 > cmp #$80 ;test result
> trap_ne
1fa9 : d0fe > bne * ;failed not equal (non zero)
>
1fab : 68 > pla ;load status
1fac : 48 > pha
> cmp_flag ~fnz
1fad : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1faf : d0fe > bne * ;failed not equal (non zero)
>
1fb1 : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
1fb2 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1fb4 : 48 > pha ;use stack to load status
1fb5 : a97f > lda #$7f ;precharge accu
1fb7 : 28 > plp
1fb8 : c97f cmp #$7f
tst_a $7f,~fn
1fba : 08 > php ;save flags
1fbb : c97f > cmp #$7f ;test result
> trap_ne
1fbd : d0fe > bne * ;failed not equal (non zero)
>
1fbf : 68 > pla ;load status
1fc0 : 48 > pha
> cmp_flag ~fn
1fc1 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1fc3 : d0fe > bne * ;failed not equal (non zero)
>
1fc5 : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
1fc6 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
1fc8 : 48 > pha ;use stack to load status
1fc9 : a97e > lda #$7e ;precharge accu
1fcb : 28 > plp
1fcc : c97f cmp #$7f
tst_a $7e,~fzc
1fce : 08 > php ;save flags
1fcf : c97e > cmp #$7e ;test result
> trap_ne
1fd1 : d0fe > bne * ;failed not equal (non zero)
>
1fd3 : 68 > pla ;load status
1fd4 : 48 > pha
> cmp_flag ~fzc
1fd5 : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1fd7 : d0fe > bne * ;failed not equal (non zero)
>
1fd9 : 28 > plp ;restore status
1fda : a204 ldx #4 ;with indexing by X
set_a $80,0
> load_flag 0
1fdc : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1fde : 48 > pha ;use stack to load status
1fdf : a980 > lda #$80 ;precharge accu
1fe1 : 28 > plp
1fe2 : d513 cmp zp1,x
tst_a $80,fc
1fe4 : 08 > php ;save flags
1fe5 : c980 > cmp #$80 ;test result
> trap_ne
1fe7 : d0fe > bne * ;failed not equal (non zero)
>
1fe9 : 68 > pla ;load status
1fea : 48 > pha
> cmp_flag fc
1feb : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
1fed : d0fe > bne * ;failed not equal (non zero)
>
1fef : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
1ff0 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
1ff2 : 48 > pha ;use stack to load status
1ff3 : a97f > lda #$7f ;precharge accu
1ff5 : 28 > plp
1ff6 : d513 cmp zp1,x
tst_a $7f,fzc
1ff8 : 08 > php ;save flags
1ff9 : c97f > cmp #$7f ;test result
> trap_ne
1ffb : d0fe > bne * ;failed not equal (non zero)
>
1ffd : 68 > pla ;load status
1ffe : 48 > pha
> cmp_flag fzc
1fff : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2001 : d0fe > bne * ;failed not equal (non zero)
>
2003 : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
2004 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2006 : 48 > pha ;use stack to load status
2007 : a97e > lda #$7e ;precharge accu
2009 : 28 > plp
200a : d513 cmp zp1,x
tst_a $7e,fn
200c : 08 > php ;save flags
200d : c97e > cmp #$7e ;test result
> trap_ne
200f : d0fe > bne * ;failed not equal (non zero)
>
2011 : 68 > pla ;load status
2012 : 48 > pha
> cmp_flag fn
2013 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2015 : d0fe > bne * ;failed not equal (non zero)
>
2017 : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
2018 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
201a : 48 > pha ;use stack to load status
201b : a980 > lda #$80 ;precharge accu
201d : 28 > plp
201e : d513 cmp zp1,x
tst_a $80,~fnz
2020 : 08 > php ;save flags
2021 : c980 > cmp #$80 ;test result
> trap_ne
2023 : d0fe > bne * ;failed not equal (non zero)
>
2025 : 68 > pla ;load status
2026 : 48 > pha
> cmp_flag ~fnz
2027 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2029 : d0fe > bne * ;failed not equal (non zero)
>
202b : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
202c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
202e : 48 > pha ;use stack to load status
202f : a97f > lda #$7f ;precharge accu
2031 : 28 > plp
2032 : d513 cmp zp1,x
tst_a $7f,~fn
2034 : 08 > php ;save flags
2035 : c97f > cmp #$7f ;test result
> trap_ne
2037 : d0fe > bne * ;failed not equal (non zero)
>
2039 : 68 > pla ;load status
203a : 48 > pha
> cmp_flag ~fn
203b : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
203d : d0fe > bne * ;failed not equal (non zero)
>
203f : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
2040 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2042 : 48 > pha ;use stack to load status
2043 : a97e > lda #$7e ;precharge accu
2045 : 28 > plp
2046 : d513 cmp zp1,x
tst_a $7e,~fzc
2048 : 08 > php ;save flags
2049 : c97e > cmp #$7e ;test result
> trap_ne
204b : d0fe > bne * ;failed not equal (non zero)
>
204d : 68 > pla ;load status
204e : 48 > pha
> cmp_flag ~fzc
204f : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2051 : d0fe > bne * ;failed not equal (non zero)
>
2053 : 28 > plp ;restore status
set_a $80,0
> load_flag 0
2054 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2056 : 48 > pha ;use stack to load status
2057 : a980 > lda #$80 ;precharge accu
2059 : 28 > plp
205a : dd0802 cmp abs1,x
tst_a $80,fc
205d : 08 > php ;save flags
205e : c980 > cmp #$80 ;test result
> trap_ne
2060 : d0fe > bne * ;failed not equal (non zero)
>
2062 : 68 > pla ;load status
2063 : 48 > pha
> cmp_flag fc
2064 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2066 : d0fe > bne * ;failed not equal (non zero)
>
2068 : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
2069 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
206b : 48 > pha ;use stack to load status
206c : a97f > lda #$7f ;precharge accu
206e : 28 > plp
206f : dd0802 cmp abs1,x
tst_a $7f,fzc
2072 : 08 > php ;save flags
2073 : c97f > cmp #$7f ;test result
> trap_ne
2075 : d0fe > bne * ;failed not equal (non zero)
>
2077 : 68 > pla ;load status
2078 : 48 > pha
> cmp_flag fzc
2079 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
207b : d0fe > bne * ;failed not equal (non zero)
>
207d : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
207e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2080 : 48 > pha ;use stack to load status
2081 : a97e > lda #$7e ;precharge accu
2083 : 28 > plp
2084 : dd0802 cmp abs1,x
tst_a $7e,fn
2087 : 08 > php ;save flags
2088 : c97e > cmp #$7e ;test result
> trap_ne
208a : d0fe > bne * ;failed not equal (non zero)
>
208c : 68 > pla ;load status
208d : 48 > pha
> cmp_flag fn
208e : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2090 : d0fe > bne * ;failed not equal (non zero)
>
2092 : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
2093 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2095 : 48 > pha ;use stack to load status
2096 : a980 > lda #$80 ;precharge accu
2098 : 28 > plp
2099 : dd0802 cmp abs1,x
tst_a $80,~fnz
209c : 08 > php ;save flags
209d : c980 > cmp #$80 ;test result
> trap_ne
209f : d0fe > bne * ;failed not equal (non zero)
>
20a1 : 68 > pla ;load status
20a2 : 48 > pha
> cmp_flag ~fnz
20a3 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20a5 : d0fe > bne * ;failed not equal (non zero)
>
20a7 : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
20a8 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
20aa : 48 > pha ;use stack to load status
20ab : a97f > lda #$7f ;precharge accu
20ad : 28 > plp
20ae : dd0802 cmp abs1,x
tst_a $7f,~fn
20b1 : 08 > php ;save flags
20b2 : c97f > cmp #$7f ;test result
> trap_ne
20b4 : d0fe > bne * ;failed not equal (non zero)
>
20b6 : 68 > pla ;load status
20b7 : 48 > pha
> cmp_flag ~fn
20b8 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20ba : d0fe > bne * ;failed not equal (non zero)
>
20bc : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
20bd : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
20bf : 48 > pha ;use stack to load status
20c0 : a97e > lda #$7e ;precharge accu
20c2 : 28 > plp
20c3 : dd0802 cmp abs1,x
tst_a $7e,~fzc
20c6 : 08 > php ;save flags
20c7 : c97e > cmp #$7e ;test result
> trap_ne
20c9 : d0fe > bne * ;failed not equal (non zero)
>
20cb : 68 > pla ;load status
20cc : 48 > pha
> cmp_flag ~fzc
20cd : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20cf : d0fe > bne * ;failed not equal (non zero)
>
20d1 : 28 > plp ;restore status
20d2 : a004 ldy #4 ;with indexing by Y
20d4 : a208 ldx #8 ;with indexed indirect
set_a $80,0
> load_flag 0
20d6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
20d8 : 48 > pha ;use stack to load status
20d9 : a980 > lda #$80 ;precharge accu
20db : 28 > plp
20dc : d90802 cmp abs1,y
tst_a $80,fc
20df : 08 > php ;save flags
20e0 : c980 > cmp #$80 ;test result
> trap_ne
20e2 : d0fe > bne * ;failed not equal (non zero)
>
20e4 : 68 > pla ;load status
20e5 : 48 > pha
> cmp_flag fc
20e6 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20e8 : d0fe > bne * ;failed not equal (non zero)
>
20ea : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
20eb : a900 > lda #0 ;allow test to change I-flag (no mask)
>
20ed : 48 > pha ;use stack to load status
20ee : a97f > lda #$7f ;precharge accu
20f0 : 28 > plp
20f1 : d90802 cmp abs1,y
tst_a $7f,fzc
20f4 : 08 > php ;save flags
20f5 : c97f > cmp #$7f ;test result
> trap_ne
20f7 : d0fe > bne * ;failed not equal (non zero)
>
20f9 : 68 > pla ;load status
20fa : 48 > pha
> cmp_flag fzc
20fb : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
20fd : d0fe > bne * ;failed not equal (non zero)
>
20ff : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
2100 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2102 : 48 > pha ;use stack to load status
2103 : a97e > lda #$7e ;precharge accu
2105 : 28 > plp
2106 : d90802 cmp abs1,y
tst_a $7e,fn
2109 : 08 > php ;save flags
210a : c97e > cmp #$7e ;test result
> trap_ne
210c : d0fe > bne * ;failed not equal (non zero)
>
210e : 68 > pla ;load status
210f : 48 > pha
> cmp_flag fn
2110 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2112 : d0fe > bne * ;failed not equal (non zero)
>
2114 : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
2115 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2117 : 48 > pha ;use stack to load status
2118 : a980 > lda #$80 ;precharge accu
211a : 28 > plp
211b : d90802 cmp abs1,y
tst_a $80,~fnz
211e : 08 > php ;save flags
211f : c980 > cmp #$80 ;test result
> trap_ne
2121 : d0fe > bne * ;failed not equal (non zero)
>
2123 : 68 > pla ;load status
2124 : 48 > pha
> cmp_flag ~fnz
2125 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2127 : d0fe > bne * ;failed not equal (non zero)
>
2129 : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
212a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
212c : 48 > pha ;use stack to load status
212d : a97f > lda #$7f ;precharge accu
212f : 28 > plp
2130 : d90802 cmp abs1,y
tst_a $7f,~fn
2133 : 08 > php ;save flags
2134 : c97f > cmp #$7f ;test result
> trap_ne
2136 : d0fe > bne * ;failed not equal (non zero)
>
2138 : 68 > pla ;load status
2139 : 48 > pha
> cmp_flag ~fn
213a : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
213c : d0fe > bne * ;failed not equal (non zero)
>
213e : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
213f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2141 : 48 > pha ;use stack to load status
2142 : a97e > lda #$7e ;precharge accu
2144 : 28 > plp
2145 : d90802 cmp abs1,y
tst_a $7e,~fzc
2148 : 08 > php ;save flags
2149 : c97e > cmp #$7e ;test result
> trap_ne
214b : d0fe > bne * ;failed not equal (non zero)
>
214d : 68 > pla ;load status
214e : 48 > pha
> cmp_flag ~fzc
214f : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2151 : d0fe > bne * ;failed not equal (non zero)
>
2153 : 28 > plp ;restore status
set_a $80,0
> load_flag 0
2154 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2156 : 48 > pha ;use stack to load status
2157 : a980 > lda #$80 ;precharge accu
2159 : 28 > plp
215a : c124 cmp (ind1,x)
tst_a $80,fc
215c : 08 > php ;save flags
215d : c980 > cmp #$80 ;test result
> trap_ne
215f : d0fe > bne * ;failed not equal (non zero)
>
2161 : 68 > pla ;load status
2162 : 48 > pha
> cmp_flag fc
2163 : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2165 : d0fe > bne * ;failed not equal (non zero)
>
2167 : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
2168 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
216a : 48 > pha ;use stack to load status
216b : a97f > lda #$7f ;precharge accu
216d : 28 > plp
216e : c124 cmp (ind1,x)
tst_a $7f,fzc
2170 : 08 > php ;save flags
2171 : c97f > cmp #$7f ;test result
> trap_ne
2173 : d0fe > bne * ;failed not equal (non zero)
>
2175 : 68 > pla ;load status
2176 : 48 > pha
> cmp_flag fzc
2177 : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2179 : d0fe > bne * ;failed not equal (non zero)
>
217b : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
217c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
217e : 48 > pha ;use stack to load status
217f : a97e > lda #$7e ;precharge accu
2181 : 28 > plp
2182 : c124 cmp (ind1,x)
tst_a $7e,fn
2184 : 08 > php ;save flags
2185 : c97e > cmp #$7e ;test result
> trap_ne
2187 : d0fe > bne * ;failed not equal (non zero)
>
2189 : 68 > pla ;load status
218a : 48 > pha
> cmp_flag fn
218b : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
218d : d0fe > bne * ;failed not equal (non zero)
>
218f : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
2190 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2192 : 48 > pha ;use stack to load status
2193 : a980 > lda #$80 ;precharge accu
2195 : 28 > plp
2196 : c124 cmp (ind1,x)
tst_a $80,~fnz
2198 : 08 > php ;save flags
2199 : c980 > cmp #$80 ;test result
> trap_ne
219b : d0fe > bne * ;failed not equal (non zero)
>
219d : 68 > pla ;load status
219e : 48 > pha
> cmp_flag ~fnz
219f : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
21a1 : d0fe > bne * ;failed not equal (non zero)
>
21a3 : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
21a4 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
21a6 : 48 > pha ;use stack to load status
21a7 : a97f > lda #$7f ;precharge accu
21a9 : 28 > plp
21aa : c124 cmp (ind1,x)
tst_a $7f,~fn
21ac : 08 > php ;save flags
21ad : c97f > cmp #$7f ;test result
> trap_ne
21af : d0fe > bne * ;failed not equal (non zero)
>
21b1 : 68 > pla ;load status
21b2 : 48 > pha
> cmp_flag ~fn
21b3 : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
21b5 : d0fe > bne * ;failed not equal (non zero)
>
21b7 : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
21b8 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
21ba : 48 > pha ;use stack to load status
21bb : a97e > lda #$7e ;precharge accu
21bd : 28 > plp
21be : c124 cmp (ind1,x)
tst_a $7e,~fzc
21c0 : 08 > php ;save flags
21c1 : c97e > cmp #$7e ;test result
> trap_ne
21c3 : d0fe > bne * ;failed not equal (non zero)
>
21c5 : 68 > pla ;load status
21c6 : 48 > pha
> cmp_flag ~fzc
21c7 : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
21c9 : d0fe > bne * ;failed not equal (non zero)
>
21cb : 28 > plp ;restore status
set_a $80,0
> load_flag 0
21cc : a900 > lda #0 ;allow test to change I-flag (no mask)
>
21ce : 48 > pha ;use stack to load status
21cf : a980 > lda #$80 ;precharge accu
21d1 : 28 > plp
21d2 : d124 cmp (ind1),y
tst_a $80,fc
21d4 : 08 > php ;save flags
21d5 : c980 > cmp #$80 ;test result
> trap_ne
21d7 : d0fe > bne * ;failed not equal (non zero)
>
21d9 : 68 > pla ;load status
21da : 48 > pha
> cmp_flag fc
21db : c931 > cmp #(fc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
21dd : d0fe > bne * ;failed not equal (non zero)
>
21df : 28 > plp ;restore status
set_a $7f,0
> load_flag 0
21e0 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
21e2 : 48 > pha ;use stack to load status
21e3 : a97f > lda #$7f ;precharge accu
21e5 : 28 > plp
21e6 : d124 cmp (ind1),y
tst_a $7f,fzc
21e8 : 08 > php ;save flags
21e9 : c97f > cmp #$7f ;test result
> trap_ne
21eb : d0fe > bne * ;failed not equal (non zero)
>
21ed : 68 > pla ;load status
21ee : 48 > pha
> cmp_flag fzc
21ef : c933 > cmp #(fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
21f1 : d0fe > bne * ;failed not equal (non zero)
>
21f3 : 28 > plp ;restore status
set_a $7e,0
> load_flag 0
21f4 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
21f6 : 48 > pha ;use stack to load status
21f7 : a97e > lda #$7e ;precharge accu
21f9 : 28 > plp
21fa : d124 cmp (ind1),y
tst_a $7e,fn
21fc : 08 > php ;save flags
21fd : c97e > cmp #$7e ;test result
> trap_ne
21ff : d0fe > bne * ;failed not equal (non zero)
>
2201 : 68 > pla ;load status
2202 : 48 > pha
> cmp_flag fn
2203 : c9b0 > cmp #(fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2205 : d0fe > bne * ;failed not equal (non zero)
>
2207 : 28 > plp ;restore status
set_a $80,$ff
> load_flag $ff
2208 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
220a : 48 > pha ;use stack to load status
220b : a980 > lda #$80 ;precharge accu
220d : 28 > plp
220e : d124 cmp (ind1),y
tst_a $80,~fnz
2210 : 08 > php ;save flags
2211 : c980 > cmp #$80 ;test result
> trap_ne
2213 : d0fe > bne * ;failed not equal (non zero)
>
2215 : 68 > pla ;load status
2216 : 48 > pha
> cmp_flag ~fnz
2217 : c97d > cmp #(~fnz|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2219 : d0fe > bne * ;failed not equal (non zero)
>
221b : 28 > plp ;restore status
set_a $7f,$ff
> load_flag $ff
221c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
221e : 48 > pha ;use stack to load status
221f : a97f > lda #$7f ;precharge accu
2221 : 28 > plp
2222 : d124 cmp (ind1),y
tst_a $7f,~fn
2224 : 08 > php ;save flags
2225 : c97f > cmp #$7f ;test result
> trap_ne
2227 : d0fe > bne * ;failed not equal (non zero)
>
2229 : 68 > pla ;load status
222a : 48 > pha
> cmp_flag ~fn
222b : c97f > cmp #(~fn|fao)&m8 ;expected flags + always on bits
>
> trap_ne
222d : d0fe > bne * ;failed not equal (non zero)
>
222f : 28 > plp ;restore status
set_a $7e,$ff
> load_flag $ff
2230 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2232 : 48 > pha ;use stack to load status
2233 : a97e > lda #$7e ;precharge accu
2235 : 28 > plp
2236 : d124 cmp (ind1),y
tst_a $7e,~fzc
2238 : 08 > php ;save flags
2239 : c97e > cmp #$7e ;test result
> trap_ne
223b : d0fe > bne * ;failed not equal (non zero)
>
223d : 68 > pla ;load status
223e : 48 > pha
> cmp_flag ~fzc
223f : c9fc > cmp #(~fzc|fao)&m8 ;expected flags + always on bits
>
> trap_ne
2241 : d0fe > bne * ;failed not equal (non zero)
>
2243 : 28 > plp ;restore status
next_test
2244 : ad0002 > lda test_case ;previous test
2247 : c91c > cmp #test_num
> trap_ne ;test is out of sequence
2249 : d0fe > bne * ;failed not equal (non zero)
>
001d = >test_num = test_num + 1
224b : a91d > lda #test_num ;*** next tests' number
224d : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing shifts - ASL LSR ROL ROR all addressing modes
; shifts - accumulator
2250 : a203 ldx #3
2252 : tasl
set_ax zp1,0
> load_flag 0
2252 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2254 : 48 > pha ;use stack to load status
2255 : b513 > lda zp1,x ;precharge accu
2257 : 28 > plp
2258 : 0a asl a
tst_ax rASL,fASL,0
2259 : 08 > php ;save flags
225a : dd1102 > cmp rASL,x ;test result
> trap_ne
225d : d0fe > bne * ;failed not equal (non zero)
>
225f : 68 > pla ;load status
> eor_flag 0
2260 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2262 : dd2102 > cmp fASL,x ;test flags
> trap_ne ;
2265 : d0fe > bne * ;failed not equal (non zero)
>
2267 : ca dex
2268 : 10e8 bpl tasl
226a : a203 ldx #3
226c : tasl1
set_ax zp1,$ff
> load_flag $ff
226c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
226e : 48 > pha ;use stack to load status
226f : b513 > lda zp1,x ;precharge accu
2271 : 28 > plp
2272 : 0a asl a
tst_ax rASL,fASL,$ff-fnzc
2273 : 08 > php ;save flags
2274 : dd1102 > cmp rASL,x ;test result
> trap_ne
2277 : d0fe > bne * ;failed not equal (non zero)
>
2279 : 68 > pla ;load status
> eor_flag $ff-fnzc
227a : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
227c : dd2102 > cmp fASL,x ;test flags
> trap_ne ;
227f : d0fe > bne * ;failed not equal (non zero)
>
2281 : ca dex
2282 : 10e8 bpl tasl1
2284 : a203 ldx #3
2286 : tlsr
set_ax zp1,0
> load_flag 0
2286 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2288 : 48 > pha ;use stack to load status
2289 : b513 > lda zp1,x ;precharge accu
228b : 28 > plp
228c : 4a lsr a
tst_ax rLSR,fLSR,0
228d : 08 > php ;save flags
228e : dd1902 > cmp rLSR,x ;test result
> trap_ne
2291 : d0fe > bne * ;failed not equal (non zero)
>
2293 : 68 > pla ;load status
> eor_flag 0
2294 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2296 : dd2902 > cmp fLSR,x ;test flags
> trap_ne ;
2299 : d0fe > bne * ;failed not equal (non zero)
>
229b : ca dex
229c : 10e8 bpl tlsr
229e : a203 ldx #3
22a0 : tlsr1
set_ax zp1,$ff
> load_flag $ff
22a0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
22a2 : 48 > pha ;use stack to load status
22a3 : b513 > lda zp1,x ;precharge accu
22a5 : 28 > plp
22a6 : 4a lsr a
tst_ax rLSR,fLSR,$ff-fnzc
22a7 : 08 > php ;save flags
22a8 : dd1902 > cmp rLSR,x ;test result
> trap_ne
22ab : d0fe > bne * ;failed not equal (non zero)
>
22ad : 68 > pla ;load status
> eor_flag $ff-fnzc
22ae : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
22b0 : dd2902 > cmp fLSR,x ;test flags
> trap_ne ;
22b3 : d0fe > bne * ;failed not equal (non zero)
>
22b5 : ca dex
22b6 : 10e8 bpl tlsr1
22b8 : a203 ldx #3
22ba : trol
set_ax zp1,0
> load_flag 0
22ba : a900 > lda #0 ;allow test to change I-flag (no mask)
>
22bc : 48 > pha ;use stack to load status
22bd : b513 > lda zp1,x ;precharge accu
22bf : 28 > plp
22c0 : 2a rol a
tst_ax rROL,fROL,0
22c1 : 08 > php ;save flags
22c2 : dd1102 > cmp rROL,x ;test result
> trap_ne
22c5 : d0fe > bne * ;failed not equal (non zero)
>
22c7 : 68 > pla ;load status
> eor_flag 0
22c8 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
22ca : dd2102 > cmp fROL,x ;test flags
> trap_ne ;
22cd : d0fe > bne * ;failed not equal (non zero)
>
22cf : ca dex
22d0 : 10e8 bpl trol
22d2 : a203 ldx #3
22d4 : trol1
set_ax zp1,$ff-fc
> load_flag $ff-fc
22d4 : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
22d6 : 48 > pha ;use stack to load status
22d7 : b513 > lda zp1,x ;precharge accu
22d9 : 28 > plp
22da : 2a rol a
tst_ax rROL,fROL,$ff-fnzc
22db : 08 > php ;save flags
22dc : dd1102 > cmp rROL,x ;test result
> trap_ne
22df : d0fe > bne * ;failed not equal (non zero)
>
22e1 : 68 > pla ;load status
> eor_flag $ff-fnzc
22e2 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
22e4 : dd2102 > cmp fROL,x ;test flags
> trap_ne ;
22e7 : d0fe > bne * ;failed not equal (non zero)
>
22e9 : ca dex
22ea : 10e8 bpl trol1
22ec : a203 ldx #3
22ee : trolc
set_ax zp1,fc
> load_flag fc
22ee : a901 > lda #fc ;allow test to change I-flag (no mask)
>
22f0 : 48 > pha ;use stack to load status
22f1 : b513 > lda zp1,x ;precharge accu
22f3 : 28 > plp
22f4 : 2a rol a
tst_ax rROLc,fROLc,0
22f5 : 08 > php ;save flags
22f6 : dd1502 > cmp rROLc,x ;test result
> trap_ne
22f9 : d0fe > bne * ;failed not equal (non zero)
>
22fb : 68 > pla ;load status
> eor_flag 0
22fc : 4930 > eor #0|fao ;invert expected flags + always on bits
>
22fe : dd2502 > cmp fROLc,x ;test flags
> trap_ne ;
2301 : d0fe > bne * ;failed not equal (non zero)
>
2303 : ca dex
2304 : 10e8 bpl trolc
2306 : a203 ldx #3
2308 : trolc1
set_ax zp1,$ff
> load_flag $ff
2308 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
230a : 48 > pha ;use stack to load status
230b : b513 > lda zp1,x ;precharge accu
230d : 28 > plp
230e : 2a rol a
tst_ax rROLc,fROLc,$ff-fnzc
230f : 08 > php ;save flags
2310 : dd1502 > cmp rROLc,x ;test result
> trap_ne
2313 : d0fe > bne * ;failed not equal (non zero)
>
2315 : 68 > pla ;load status
> eor_flag $ff-fnzc
2316 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2318 : dd2502 > cmp fROLc,x ;test flags
> trap_ne ;
231b : d0fe > bne * ;failed not equal (non zero)
>
231d : ca dex
231e : 10e8 bpl trolc1
2320 : a203 ldx #3
2322 : tror
set_ax zp1,0
> load_flag 0
2322 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2324 : 48 > pha ;use stack to load status
2325 : b513 > lda zp1,x ;precharge accu
2327 : 28 > plp
2328 : 6a ror a
tst_ax rROR,fROR,0
2329 : 08 > php ;save flags
232a : dd1902 > cmp rROR,x ;test result
> trap_ne
232d : d0fe > bne * ;failed not equal (non zero)
>
232f : 68 > pla ;load status
> eor_flag 0
2330 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2332 : dd2902 > cmp fROR,x ;test flags
> trap_ne ;
2335 : d0fe > bne * ;failed not equal (non zero)
>
2337 : ca dex
2338 : 10e8 bpl tror
233a : a203 ldx #3
233c : tror1
set_ax zp1,$ff-fc
> load_flag $ff-fc
233c : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
233e : 48 > pha ;use stack to load status
233f : b513 > lda zp1,x ;precharge accu
2341 : 28 > plp
2342 : 6a ror a
tst_ax rROR,fROR,$ff-fnzc
2343 : 08 > php ;save flags
2344 : dd1902 > cmp rROR,x ;test result
> trap_ne
2347 : d0fe > bne * ;failed not equal (non zero)
>
2349 : 68 > pla ;load status
> eor_flag $ff-fnzc
234a : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
234c : dd2902 > cmp fROR,x ;test flags
> trap_ne ;
234f : d0fe > bne * ;failed not equal (non zero)
>
2351 : ca dex
2352 : 10e8 bpl tror1
2354 : a203 ldx #3
2356 : trorc
set_ax zp1,fc
> load_flag fc
2356 : a901 > lda #fc ;allow test to change I-flag (no mask)
>
2358 : 48 > pha ;use stack to load status
2359 : b513 > lda zp1,x ;precharge accu
235b : 28 > plp
235c : 6a ror a
tst_ax rRORc,fRORc,0
235d : 08 > php ;save flags
235e : dd1d02 > cmp rRORc,x ;test result
> trap_ne
2361 : d0fe > bne * ;failed not equal (non zero)
>
2363 : 68 > pla ;load status
> eor_flag 0
2364 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2366 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne ;
2369 : d0fe > bne * ;failed not equal (non zero)
>
236b : ca dex
236c : 10e8 bpl trorc
236e : a203 ldx #3
2370 : trorc1
set_ax zp1,$ff
> load_flag $ff
2370 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2372 : 48 > pha ;use stack to load status
2373 : b513 > lda zp1,x ;precharge accu
2375 : 28 > plp
2376 : 6a ror a
tst_ax rRORc,fRORc,$ff-fnzc
2377 : 08 > php ;save flags
2378 : dd1d02 > cmp rRORc,x ;test result
> trap_ne
237b : d0fe > bne * ;failed not equal (non zero)
>
237d : 68 > pla ;load status
> eor_flag $ff-fnzc
237e : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2380 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne ;
2383 : d0fe > bne * ;failed not equal (non zero)
>
2385 : ca dex
2386 : 10e8 bpl trorc1
next_test
2388 : ad0002 > lda test_case ;previous test
238b : c91d > cmp #test_num
> trap_ne ;test is out of sequence
238d : d0fe > bne * ;failed not equal (non zero)
>
001e = >test_num = test_num + 1
238f : a91e > lda #test_num ;*** next tests' number
2391 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; shifts - zeropage
2394 : a203 ldx #3
2396 : tasl2
set_z zp1,0
> load_flag 0
2396 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2398 : 48 > pha ;use stack to load status
2399 : b513 > lda zp1,x ;load to zeropage
239b : 850c > sta zpt
239d : 28 > plp
239e : 060c asl zpt
tst_z rASL,fASL,0
23a0 : 08 > php ;save flags
23a1 : a50c > lda zpt
23a3 : dd1102 > cmp rASL,x ;test result
> trap_ne
23a6 : d0fe > bne * ;failed not equal (non zero)
>
23a8 : 68 > pla ;load status
> eor_flag 0
23a9 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
23ab : dd2102 > cmp fASL,x ;test flags
> trap_ne
23ae : d0fe > bne * ;failed not equal (non zero)
>
23b0 : ca dex
23b1 : 10e3 bpl tasl2
23b3 : a203 ldx #3
23b5 : tasl3
set_z zp1,$ff
> load_flag $ff
23b5 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
23b7 : 48 > pha ;use stack to load status
23b8 : b513 > lda zp1,x ;load to zeropage
23ba : 850c > sta zpt
23bc : 28 > plp
23bd : 060c asl zpt
tst_z rASL,fASL,$ff-fnzc
23bf : 08 > php ;save flags
23c0 : a50c > lda zpt
23c2 : dd1102 > cmp rASL,x ;test result
> trap_ne
23c5 : d0fe > bne * ;failed not equal (non zero)
>
23c7 : 68 > pla ;load status
> eor_flag $ff-fnzc
23c8 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
23ca : dd2102 > cmp fASL,x ;test flags
> trap_ne
23cd : d0fe > bne * ;failed not equal (non zero)
>
23cf : ca dex
23d0 : 10e3 bpl tasl3
23d2 : a203 ldx #3
23d4 : tlsr2
set_z zp1,0
> load_flag 0
23d4 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
23d6 : 48 > pha ;use stack to load status
23d7 : b513 > lda zp1,x ;load to zeropage
23d9 : 850c > sta zpt
23db : 28 > plp
23dc : 460c lsr zpt
tst_z rLSR,fLSR,0
23de : 08 > php ;save flags
23df : a50c > lda zpt
23e1 : dd1902 > cmp rLSR,x ;test result
> trap_ne
23e4 : d0fe > bne * ;failed not equal (non zero)
>
23e6 : 68 > pla ;load status
> eor_flag 0
23e7 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
23e9 : dd2902 > cmp fLSR,x ;test flags
> trap_ne
23ec : d0fe > bne * ;failed not equal (non zero)
>
23ee : ca dex
23ef : 10e3 bpl tlsr2
23f1 : a203 ldx #3
23f3 : tlsr3
set_z zp1,$ff
> load_flag $ff
23f3 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
23f5 : 48 > pha ;use stack to load status
23f6 : b513 > lda zp1,x ;load to zeropage
23f8 : 850c > sta zpt
23fa : 28 > plp
23fb : 460c lsr zpt
tst_z rLSR,fLSR,$ff-fnzc
23fd : 08 > php ;save flags
23fe : a50c > lda zpt
2400 : dd1902 > cmp rLSR,x ;test result
> trap_ne
2403 : d0fe > bne * ;failed not equal (non zero)
>
2405 : 68 > pla ;load status
> eor_flag $ff-fnzc
2406 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2408 : dd2902 > cmp fLSR,x ;test flags
> trap_ne
240b : d0fe > bne * ;failed not equal (non zero)
>
240d : ca dex
240e : 10e3 bpl tlsr3
2410 : a203 ldx #3
2412 : trol2
set_z zp1,0
> load_flag 0
2412 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2414 : 48 > pha ;use stack to load status
2415 : b513 > lda zp1,x ;load to zeropage
2417 : 850c > sta zpt
2419 : 28 > plp
241a : 260c rol zpt
tst_z rROL,fROL,0
241c : 08 > php ;save flags
241d : a50c > lda zpt
241f : dd1102 > cmp rROL,x ;test result
> trap_ne
2422 : d0fe > bne * ;failed not equal (non zero)
>
2424 : 68 > pla ;load status
> eor_flag 0
2425 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2427 : dd2102 > cmp fROL,x ;test flags
> trap_ne
242a : d0fe > bne * ;failed not equal (non zero)
>
242c : ca dex
242d : 10e3 bpl trol2
242f : a203 ldx #3
2431 : trol3
set_z zp1,$ff-fc
> load_flag $ff-fc
2431 : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
2433 : 48 > pha ;use stack to load status
2434 : b513 > lda zp1,x ;load to zeropage
2436 : 850c > sta zpt
2438 : 28 > plp
2439 : 260c rol zpt
tst_z rROL,fROL,$ff-fnzc
243b : 08 > php ;save flags
243c : a50c > lda zpt
243e : dd1102 > cmp rROL,x ;test result
> trap_ne
2441 : d0fe > bne * ;failed not equal (non zero)
>
2443 : 68 > pla ;load status
> eor_flag $ff-fnzc
2444 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2446 : dd2102 > cmp fROL,x ;test flags
> trap_ne
2449 : d0fe > bne * ;failed not equal (non zero)
>
244b : ca dex
244c : 10e3 bpl trol3
244e : a203 ldx #3
2450 : trolc2
set_z zp1,fc
> load_flag fc
2450 : a901 > lda #fc ;allow test to change I-flag (no mask)
>
2452 : 48 > pha ;use stack to load status
2453 : b513 > lda zp1,x ;load to zeropage
2455 : 850c > sta zpt
2457 : 28 > plp
2458 : 260c rol zpt
tst_z rROLc,fROLc,0
245a : 08 > php ;save flags
245b : a50c > lda zpt
245d : dd1502 > cmp rROLc,x ;test result
> trap_ne
2460 : d0fe > bne * ;failed not equal (non zero)
>
2462 : 68 > pla ;load status
> eor_flag 0
2463 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2465 : dd2502 > cmp fROLc,x ;test flags
> trap_ne
2468 : d0fe > bne * ;failed not equal (non zero)
>
246a : ca dex
246b : 10e3 bpl trolc2
246d : a203 ldx #3
246f : trolc3
set_z zp1,$ff
> load_flag $ff
246f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2471 : 48 > pha ;use stack to load status
2472 : b513 > lda zp1,x ;load to zeropage
2474 : 850c > sta zpt
2476 : 28 > plp
2477 : 260c rol zpt
tst_z rROLc,fROLc,$ff-fnzc
2479 : 08 > php ;save flags
247a : a50c > lda zpt
247c : dd1502 > cmp rROLc,x ;test result
> trap_ne
247f : d0fe > bne * ;failed not equal (non zero)
>
2481 : 68 > pla ;load status
> eor_flag $ff-fnzc
2482 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2484 : dd2502 > cmp fROLc,x ;test flags
> trap_ne
2487 : d0fe > bne * ;failed not equal (non zero)
>
2489 : ca dex
248a : 10e3 bpl trolc3
248c : a203 ldx #3
248e : tror2
set_z zp1,0
> load_flag 0
248e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2490 : 48 > pha ;use stack to load status
2491 : b513 > lda zp1,x ;load to zeropage
2493 : 850c > sta zpt
2495 : 28 > plp
2496 : 660c ror zpt
tst_z rROR,fROR,0
2498 : 08 > php ;save flags
2499 : a50c > lda zpt
249b : dd1902 > cmp rROR,x ;test result
> trap_ne
249e : d0fe > bne * ;failed not equal (non zero)
>
24a0 : 68 > pla ;load status
> eor_flag 0
24a1 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
24a3 : dd2902 > cmp fROR,x ;test flags
> trap_ne
24a6 : d0fe > bne * ;failed not equal (non zero)
>
24a8 : ca dex
24a9 : 10e3 bpl tror2
24ab : a203 ldx #3
24ad : tror3
set_z zp1,$ff-fc
> load_flag $ff-fc
24ad : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
24af : 48 > pha ;use stack to load status
24b0 : b513 > lda zp1,x ;load to zeropage
24b2 : 850c > sta zpt
24b4 : 28 > plp
24b5 : 660c ror zpt
tst_z rROR,fROR,$ff-fnzc
24b7 : 08 > php ;save flags
24b8 : a50c > lda zpt
24ba : dd1902 > cmp rROR,x ;test result
> trap_ne
24bd : d0fe > bne * ;failed not equal (non zero)
>
24bf : 68 > pla ;load status
> eor_flag $ff-fnzc
24c0 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
24c2 : dd2902 > cmp fROR,x ;test flags
> trap_ne
24c5 : d0fe > bne * ;failed not equal (non zero)
>
24c7 : ca dex
24c8 : 10e3 bpl tror3
24ca : a203 ldx #3
24cc : trorc2
set_z zp1,fc
> load_flag fc
24cc : a901 > lda #fc ;allow test to change I-flag (no mask)
>
24ce : 48 > pha ;use stack to load status
24cf : b513 > lda zp1,x ;load to zeropage
24d1 : 850c > sta zpt
24d3 : 28 > plp
24d4 : 660c ror zpt
tst_z rRORc,fRORc,0
24d6 : 08 > php ;save flags
24d7 : a50c > lda zpt
24d9 : dd1d02 > cmp rRORc,x ;test result
> trap_ne
24dc : d0fe > bne * ;failed not equal (non zero)
>
24de : 68 > pla ;load status
> eor_flag 0
24df : 4930 > eor #0|fao ;invert expected flags + always on bits
>
24e1 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
24e4 : d0fe > bne * ;failed not equal (non zero)
>
24e6 : ca dex
24e7 : 10e3 bpl trorc2
24e9 : a203 ldx #3
24eb : trorc3
set_z zp1,$ff
> load_flag $ff
24eb : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
24ed : 48 > pha ;use stack to load status
24ee : b513 > lda zp1,x ;load to zeropage
24f0 : 850c > sta zpt
24f2 : 28 > plp
24f3 : 660c ror zpt
tst_z rRORc,fRORc,$ff-fnzc
24f5 : 08 > php ;save flags
24f6 : a50c > lda zpt
24f8 : dd1d02 > cmp rRORc,x ;test result
> trap_ne
24fb : d0fe > bne * ;failed not equal (non zero)
>
24fd : 68 > pla ;load status
> eor_flag $ff-fnzc
24fe : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2500 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
2503 : d0fe > bne * ;failed not equal (non zero)
>
2505 : ca dex
2506 : 10e3 bpl trorc3
next_test
2508 : ad0002 > lda test_case ;previous test
250b : c91e > cmp #test_num
> trap_ne ;test is out of sequence
250d : d0fe > bne * ;failed not equal (non zero)
>
001f = >test_num = test_num + 1
250f : a91f > lda #test_num ;*** next tests' number
2511 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; shifts - absolute
2514 : a203 ldx #3
2516 : tasl4
set_abs zp1,0
> load_flag 0
2516 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2518 : 48 > pha ;use stack to load status
2519 : b513 > lda zp1,x ;load to memory
251b : 8d0302 > sta abst
251e : 28 > plp
251f : 0e0302 asl abst
tst_abs rASL,fASL,0
2522 : 08 > php ;save flags
2523 : ad0302 > lda abst
2526 : dd1102 > cmp rASL,x ;test result
> trap_ne
2529 : d0fe > bne * ;failed not equal (non zero)
>
252b : 68 > pla ;load status
> eor_flag 0
252c : 4930 > eor #0|fao ;invert expected flags + always on bits
>
252e : dd2102 > cmp fASL,x ;test flags
> trap_ne
2531 : d0fe > bne * ;failed not equal (non zero)
>
2533 : ca dex
2534 : 10e0 bpl tasl4
2536 : a203 ldx #3
2538 : tasl5
set_abs zp1,$ff
> load_flag $ff
2538 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
253a : 48 > pha ;use stack to load status
253b : b513 > lda zp1,x ;load to memory
253d : 8d0302 > sta abst
2540 : 28 > plp
2541 : 0e0302 asl abst
tst_abs rASL,fASL,$ff-fnzc
2544 : 08 > php ;save flags
2545 : ad0302 > lda abst
2548 : dd1102 > cmp rASL,x ;test result
> trap_ne
254b : d0fe > bne * ;failed not equal (non zero)
>
254d : 68 > pla ;load status
> eor_flag $ff-fnzc
254e : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2550 : dd2102 > cmp fASL,x ;test flags
> trap_ne
2553 : d0fe > bne * ;failed not equal (non zero)
>
2555 : ca dex
2556 : 10e0 bpl tasl5
2558 : a203 ldx #3
255a : tlsr4
set_abs zp1,0
> load_flag 0
255a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
255c : 48 > pha ;use stack to load status
255d : b513 > lda zp1,x ;load to memory
255f : 8d0302 > sta abst
2562 : 28 > plp
2563 : 4e0302 lsr abst
tst_abs rLSR,fLSR,0
2566 : 08 > php ;save flags
2567 : ad0302 > lda abst
256a : dd1902 > cmp rLSR,x ;test result
> trap_ne
256d : d0fe > bne * ;failed not equal (non zero)
>
256f : 68 > pla ;load status
> eor_flag 0
2570 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2572 : dd2902 > cmp fLSR,x ;test flags
> trap_ne
2575 : d0fe > bne * ;failed not equal (non zero)
>
2577 : ca dex
2578 : 10e0 bpl tlsr4
257a : a203 ldx #3
257c : tlsr5
set_abs zp1,$ff
> load_flag $ff
257c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
257e : 48 > pha ;use stack to load status
257f : b513 > lda zp1,x ;load to memory
2581 : 8d0302 > sta abst
2584 : 28 > plp
2585 : 4e0302 lsr abst
tst_abs rLSR,fLSR,$ff-fnzc
2588 : 08 > php ;save flags
2589 : ad0302 > lda abst
258c : dd1902 > cmp rLSR,x ;test result
> trap_ne
258f : d0fe > bne * ;failed not equal (non zero)
>
2591 : 68 > pla ;load status
> eor_flag $ff-fnzc
2592 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2594 : dd2902 > cmp fLSR,x ;test flags
> trap_ne
2597 : d0fe > bne * ;failed not equal (non zero)
>
2599 : ca dex
259a : 10e0 bpl tlsr5
259c : a203 ldx #3
259e : trol4
set_abs zp1,0
> load_flag 0
259e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
25a0 : 48 > pha ;use stack to load status
25a1 : b513 > lda zp1,x ;load to memory
25a3 : 8d0302 > sta abst
25a6 : 28 > plp
25a7 : 2e0302 rol abst
tst_abs rROL,fROL,0
25aa : 08 > php ;save flags
25ab : ad0302 > lda abst
25ae : dd1102 > cmp rROL,x ;test result
> trap_ne
25b1 : d0fe > bne * ;failed not equal (non zero)
>
25b3 : 68 > pla ;load status
> eor_flag 0
25b4 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
25b6 : dd2102 > cmp fROL,x ;test flags
> trap_ne
25b9 : d0fe > bne * ;failed not equal (non zero)
>
25bb : ca dex
25bc : 10e0 bpl trol4
25be : a203 ldx #3
25c0 : trol5
set_abs zp1,$ff-fc
> load_flag $ff-fc
25c0 : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
25c2 : 48 > pha ;use stack to load status
25c3 : b513 > lda zp1,x ;load to memory
25c5 : 8d0302 > sta abst
25c8 : 28 > plp
25c9 : 2e0302 rol abst
tst_abs rROL,fROL,$ff-fnzc
25cc : 08 > php ;save flags
25cd : ad0302 > lda abst
25d0 : dd1102 > cmp rROL,x ;test result
> trap_ne
25d3 : d0fe > bne * ;failed not equal (non zero)
>
25d5 : 68 > pla ;load status
> eor_flag $ff-fnzc
25d6 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
25d8 : dd2102 > cmp fROL,x ;test flags
> trap_ne
25db : d0fe > bne * ;failed not equal (non zero)
>
25dd : ca dex
25de : 10e0 bpl trol5
25e0 : a203 ldx #3
25e2 : trolc4
set_abs zp1,fc
> load_flag fc
25e2 : a901 > lda #fc ;allow test to change I-flag (no mask)
>
25e4 : 48 > pha ;use stack to load status
25e5 : b513 > lda zp1,x ;load to memory
25e7 : 8d0302 > sta abst
25ea : 28 > plp
25eb : 2e0302 rol abst
tst_abs rROLc,fROLc,0
25ee : 08 > php ;save flags
25ef : ad0302 > lda abst
25f2 : dd1502 > cmp rROLc,x ;test result
> trap_ne
25f5 : d0fe > bne * ;failed not equal (non zero)
>
25f7 : 68 > pla ;load status
> eor_flag 0
25f8 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
25fa : dd2502 > cmp fROLc,x ;test flags
> trap_ne
25fd : d0fe > bne * ;failed not equal (non zero)
>
25ff : ca dex
2600 : 10e0 bpl trolc4
2602 : a203 ldx #3
2604 : trolc5
set_abs zp1,$ff
> load_flag $ff
2604 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2606 : 48 > pha ;use stack to load status
2607 : b513 > lda zp1,x ;load to memory
2609 : 8d0302 > sta abst
260c : 28 > plp
260d : 2e0302 rol abst
tst_abs rROLc,fROLc,$ff-fnzc
2610 : 08 > php ;save flags
2611 : ad0302 > lda abst
2614 : dd1502 > cmp rROLc,x ;test result
> trap_ne
2617 : d0fe > bne * ;failed not equal (non zero)
>
2619 : 68 > pla ;load status
> eor_flag $ff-fnzc
261a : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
261c : dd2502 > cmp fROLc,x ;test flags
> trap_ne
261f : d0fe > bne * ;failed not equal (non zero)
>
2621 : ca dex
2622 : 10e0 bpl trolc5
2624 : a203 ldx #3
2626 : tror4
set_abs zp1,0
> load_flag 0
2626 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2628 : 48 > pha ;use stack to load status
2629 : b513 > lda zp1,x ;load to memory
262b : 8d0302 > sta abst
262e : 28 > plp
262f : 6e0302 ror abst
tst_abs rROR,fROR,0
2632 : 08 > php ;save flags
2633 : ad0302 > lda abst
2636 : dd1902 > cmp rROR,x ;test result
> trap_ne
2639 : d0fe > bne * ;failed not equal (non zero)
>
263b : 68 > pla ;load status
> eor_flag 0
263c : 4930 > eor #0|fao ;invert expected flags + always on bits
>
263e : dd2902 > cmp fROR,x ;test flags
> trap_ne
2641 : d0fe > bne * ;failed not equal (non zero)
>
2643 : ca dex
2644 : 10e0 bpl tror4
2646 : a203 ldx #3
2648 : tror5
set_abs zp1,$ff-fc
> load_flag $ff-fc
2648 : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
264a : 48 > pha ;use stack to load status
264b : b513 > lda zp1,x ;load to memory
264d : 8d0302 > sta abst
2650 : 28 > plp
2651 : 6e0302 ror abst
tst_abs rROR,fROR,$ff-fnzc
2654 : 08 > php ;save flags
2655 : ad0302 > lda abst
2658 : dd1902 > cmp rROR,x ;test result
> trap_ne
265b : d0fe > bne * ;failed not equal (non zero)
>
265d : 68 > pla ;load status
> eor_flag $ff-fnzc
265e : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2660 : dd2902 > cmp fROR,x ;test flags
> trap_ne
2663 : d0fe > bne * ;failed not equal (non zero)
>
2665 : ca dex
2666 : 10e0 bpl tror5
2668 : a203 ldx #3
266a : trorc4
set_abs zp1,fc
> load_flag fc
266a : a901 > lda #fc ;allow test to change I-flag (no mask)
>
266c : 48 > pha ;use stack to load status
266d : b513 > lda zp1,x ;load to memory
266f : 8d0302 > sta abst
2672 : 28 > plp
2673 : 6e0302 ror abst
tst_abs rRORc,fRORc,0
2676 : 08 > php ;save flags
2677 : ad0302 > lda abst
267a : dd1d02 > cmp rRORc,x ;test result
> trap_ne
267d : d0fe > bne * ;failed not equal (non zero)
>
267f : 68 > pla ;load status
> eor_flag 0
2680 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2682 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
2685 : d0fe > bne * ;failed not equal (non zero)
>
2687 : ca dex
2688 : 10e0 bpl trorc4
268a : a203 ldx #3
268c : trorc5
set_abs zp1,$ff
> load_flag $ff
268c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
268e : 48 > pha ;use stack to load status
268f : b513 > lda zp1,x ;load to memory
2691 : 8d0302 > sta abst
2694 : 28 > plp
2695 : 6e0302 ror abst
tst_abs rRORc,fRORc,$ff-fnzc
2698 : 08 > php ;save flags
2699 : ad0302 > lda abst
269c : dd1d02 > cmp rRORc,x ;test result
> trap_ne
269f : d0fe > bne * ;failed not equal (non zero)
>
26a1 : 68 > pla ;load status
> eor_flag $ff-fnzc
26a2 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
26a4 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
26a7 : d0fe > bne * ;failed not equal (non zero)
>
26a9 : ca dex
26aa : 10e0 bpl trorc5
next_test
26ac : ad0002 > lda test_case ;previous test
26af : c91f > cmp #test_num
> trap_ne ;test is out of sequence
26b1 : d0fe > bne * ;failed not equal (non zero)
>
0020 = >test_num = test_num + 1
26b3 : a920 > lda #test_num ;*** next tests' number
26b5 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; shifts - zp indexed
26b8 : a203 ldx #3
26ba : tasl6
set_zx zp1,0
> load_flag 0
26ba : a900 > lda #0 ;allow test to change I-flag (no mask)
>
26bc : 48 > pha ;use stack to load status
26bd : b513 > lda zp1,x ;load to indexed zeropage
26bf : 950c > sta zpt,x
26c1 : 28 > plp
26c2 : 160c asl zpt,x
tst_zx rASL,fASL,0
26c4 : 08 > php ;save flags
26c5 : b50c > lda zpt,x
26c7 : dd1102 > cmp rASL,x ;test result
> trap_ne
26ca : d0fe > bne * ;failed not equal (non zero)
>
26cc : 68 > pla ;load status
> eor_flag 0
26cd : 4930 > eor #0|fao ;invert expected flags + always on bits
>
26cf : dd2102 > cmp fASL,x ;test flags
> trap_ne
26d2 : d0fe > bne * ;failed not equal (non zero)
>
26d4 : ca dex
26d5 : 10e3 bpl tasl6
26d7 : a203 ldx #3
26d9 : tasl7
set_zx zp1,$ff
> load_flag $ff
26d9 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
26db : 48 > pha ;use stack to load status
26dc : b513 > lda zp1,x ;load to indexed zeropage
26de : 950c > sta zpt,x
26e0 : 28 > plp
26e1 : 160c asl zpt,x
tst_zx rASL,fASL,$ff-fnzc
26e3 : 08 > php ;save flags
26e4 : b50c > lda zpt,x
26e6 : dd1102 > cmp rASL,x ;test result
> trap_ne
26e9 : d0fe > bne * ;failed not equal (non zero)
>
26eb : 68 > pla ;load status
> eor_flag $ff-fnzc
26ec : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
26ee : dd2102 > cmp fASL,x ;test flags
> trap_ne
26f1 : d0fe > bne * ;failed not equal (non zero)
>
26f3 : ca dex
26f4 : 10e3 bpl tasl7
26f6 : a203 ldx #3
26f8 : tlsr6
set_zx zp1,0
> load_flag 0
26f8 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
26fa : 48 > pha ;use stack to load status
26fb : b513 > lda zp1,x ;load to indexed zeropage
26fd : 950c > sta zpt,x
26ff : 28 > plp
2700 : 560c lsr zpt,x
tst_zx rLSR,fLSR,0
2702 : 08 > php ;save flags
2703 : b50c > lda zpt,x
2705 : dd1902 > cmp rLSR,x ;test result
> trap_ne
2708 : d0fe > bne * ;failed not equal (non zero)
>
270a : 68 > pla ;load status
> eor_flag 0
270b : 4930 > eor #0|fao ;invert expected flags + always on bits
>
270d : dd2902 > cmp fLSR,x ;test flags
> trap_ne
2710 : d0fe > bne * ;failed not equal (non zero)
>
2712 : ca dex
2713 : 10e3 bpl tlsr6
2715 : a203 ldx #3
2717 : tlsr7
set_zx zp1,$ff
> load_flag $ff
2717 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2719 : 48 > pha ;use stack to load status
271a : b513 > lda zp1,x ;load to indexed zeropage
271c : 950c > sta zpt,x
271e : 28 > plp
271f : 560c lsr zpt,x
tst_zx rLSR,fLSR,$ff-fnzc
2721 : 08 > php ;save flags
2722 : b50c > lda zpt,x
2724 : dd1902 > cmp rLSR,x ;test result
> trap_ne
2727 : d0fe > bne * ;failed not equal (non zero)
>
2729 : 68 > pla ;load status
> eor_flag $ff-fnzc
272a : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
272c : dd2902 > cmp fLSR,x ;test flags
> trap_ne
272f : d0fe > bne * ;failed not equal (non zero)
>
2731 : ca dex
2732 : 10e3 bpl tlsr7
2734 : a203 ldx #3
2736 : trol6
set_zx zp1,0
> load_flag 0
2736 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2738 : 48 > pha ;use stack to load status
2739 : b513 > lda zp1,x ;load to indexed zeropage
273b : 950c > sta zpt,x
273d : 28 > plp
273e : 360c rol zpt,x
tst_zx rROL,fROL,0
2740 : 08 > php ;save flags
2741 : b50c > lda zpt,x
2743 : dd1102 > cmp rROL,x ;test result
> trap_ne
2746 : d0fe > bne * ;failed not equal (non zero)
>
2748 : 68 > pla ;load status
> eor_flag 0
2749 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
274b : dd2102 > cmp fROL,x ;test flags
> trap_ne
274e : d0fe > bne * ;failed not equal (non zero)
>
2750 : ca dex
2751 : 10e3 bpl trol6
2753 : a203 ldx #3
2755 : trol7
set_zx zp1,$ff-fc
> load_flag $ff-fc
2755 : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
2757 : 48 > pha ;use stack to load status
2758 : b513 > lda zp1,x ;load to indexed zeropage
275a : 950c > sta zpt,x
275c : 28 > plp
275d : 360c rol zpt,x
tst_zx rROL,fROL,$ff-fnzc
275f : 08 > php ;save flags
2760 : b50c > lda zpt,x
2762 : dd1102 > cmp rROL,x ;test result
> trap_ne
2765 : d0fe > bne * ;failed not equal (non zero)
>
2767 : 68 > pla ;load status
> eor_flag $ff-fnzc
2768 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
276a : dd2102 > cmp fROL,x ;test flags
> trap_ne
276d : d0fe > bne * ;failed not equal (non zero)
>
276f : ca dex
2770 : 10e3 bpl trol7
2772 : a203 ldx #3
2774 : trolc6
set_zx zp1,fc
> load_flag fc
2774 : a901 > lda #fc ;allow test to change I-flag (no mask)
>
2776 : 48 > pha ;use stack to load status
2777 : b513 > lda zp1,x ;load to indexed zeropage
2779 : 950c > sta zpt,x
277b : 28 > plp
277c : 360c rol zpt,x
tst_zx rROLc,fROLc,0
277e : 08 > php ;save flags
277f : b50c > lda zpt,x
2781 : dd1502 > cmp rROLc,x ;test result
> trap_ne
2784 : d0fe > bne * ;failed not equal (non zero)
>
2786 : 68 > pla ;load status
> eor_flag 0
2787 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2789 : dd2502 > cmp fROLc,x ;test flags
> trap_ne
278c : d0fe > bne * ;failed not equal (non zero)
>
278e : ca dex
278f : 10e3 bpl trolc6
2791 : a203 ldx #3
2793 : trolc7
set_zx zp1,$ff
> load_flag $ff
2793 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2795 : 48 > pha ;use stack to load status
2796 : b513 > lda zp1,x ;load to indexed zeropage
2798 : 950c > sta zpt,x
279a : 28 > plp
279b : 360c rol zpt,x
tst_zx rROLc,fROLc,$ff-fnzc
279d : 08 > php ;save flags
279e : b50c > lda zpt,x
27a0 : dd1502 > cmp rROLc,x ;test result
> trap_ne
27a3 : d0fe > bne * ;failed not equal (non zero)
>
27a5 : 68 > pla ;load status
> eor_flag $ff-fnzc
27a6 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
27a8 : dd2502 > cmp fROLc,x ;test flags
> trap_ne
27ab : d0fe > bne * ;failed not equal (non zero)
>
27ad : ca dex
27ae : 10e3 bpl trolc7
27b0 : a203 ldx #3
27b2 : tror6
set_zx zp1,0
> load_flag 0
27b2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
27b4 : 48 > pha ;use stack to load status
27b5 : b513 > lda zp1,x ;load to indexed zeropage
27b7 : 950c > sta zpt,x
27b9 : 28 > plp
27ba : 760c ror zpt,x
tst_zx rROR,fROR,0
27bc : 08 > php ;save flags
27bd : b50c > lda zpt,x
27bf : dd1902 > cmp rROR,x ;test result
> trap_ne
27c2 : d0fe > bne * ;failed not equal (non zero)
>
27c4 : 68 > pla ;load status
> eor_flag 0
27c5 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
27c7 : dd2902 > cmp fROR,x ;test flags
> trap_ne
27ca : d0fe > bne * ;failed not equal (non zero)
>
27cc : ca dex
27cd : 10e3 bpl tror6
27cf : a203 ldx #3
27d1 : tror7
set_zx zp1,$ff-fc
> load_flag $ff-fc
27d1 : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
27d3 : 48 > pha ;use stack to load status
27d4 : b513 > lda zp1,x ;load to indexed zeropage
27d6 : 950c > sta zpt,x
27d8 : 28 > plp
27d9 : 760c ror zpt,x
tst_zx rROR,fROR,$ff-fnzc
27db : 08 > php ;save flags
27dc : b50c > lda zpt,x
27de : dd1902 > cmp rROR,x ;test result
> trap_ne
27e1 : d0fe > bne * ;failed not equal (non zero)
>
27e3 : 68 > pla ;load status
> eor_flag $ff-fnzc
27e4 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
27e6 : dd2902 > cmp fROR,x ;test flags
> trap_ne
27e9 : d0fe > bne * ;failed not equal (non zero)
>
27eb : ca dex
27ec : 10e3 bpl tror7
27ee : a203 ldx #3
27f0 : trorc6
set_zx zp1,fc
> load_flag fc
27f0 : a901 > lda #fc ;allow test to change I-flag (no mask)
>
27f2 : 48 > pha ;use stack to load status
27f3 : b513 > lda zp1,x ;load to indexed zeropage
27f5 : 950c > sta zpt,x
27f7 : 28 > plp
27f8 : 760c ror zpt,x
tst_zx rRORc,fRORc,0
27fa : 08 > php ;save flags
27fb : b50c > lda zpt,x
27fd : dd1d02 > cmp rRORc,x ;test result
> trap_ne
2800 : d0fe > bne * ;failed not equal (non zero)
>
2802 : 68 > pla ;load status
> eor_flag 0
2803 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2805 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
2808 : d0fe > bne * ;failed not equal (non zero)
>
280a : ca dex
280b : 10e3 bpl trorc6
280d : a203 ldx #3
280f : trorc7
set_zx zp1,$ff
> load_flag $ff
280f : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2811 : 48 > pha ;use stack to load status
2812 : b513 > lda zp1,x ;load to indexed zeropage
2814 : 950c > sta zpt,x
2816 : 28 > plp
2817 : 760c ror zpt,x
tst_zx rRORc,fRORc,$ff-fnzc
2819 : 08 > php ;save flags
281a : b50c > lda zpt,x
281c : dd1d02 > cmp rRORc,x ;test result
> trap_ne
281f : d0fe > bne * ;failed not equal (non zero)
>
2821 : 68 > pla ;load status
> eor_flag $ff-fnzc
2822 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2824 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
2827 : d0fe > bne * ;failed not equal (non zero)
>
2829 : ca dex
282a : 10e3 bpl trorc7
next_test
282c : ad0002 > lda test_case ;previous test
282f : c920 > cmp #test_num
> trap_ne ;test is out of sequence
2831 : d0fe > bne * ;failed not equal (non zero)
>
0021 = >test_num = test_num + 1
2833 : a921 > lda #test_num ;*** next tests' number
2835 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; shifts - abs indexed
2838 : a203 ldx #3
283a : tasl8
set_absx zp1,0
> load_flag 0
283a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
283c : 48 > pha ;use stack to load status
283d : b513 > lda zp1,x ;load to indexed memory
283f : 9d0302 > sta abst,x
2842 : 28 > plp
2843 : 1e0302 asl abst,x
tst_absx rASL,fASL,0
2846 : 08 > php ;save flags
2847 : bd0302 > lda abst,x
284a : dd1102 > cmp rASL,x ;test result
> trap_ne
284d : d0fe > bne * ;failed not equal (non zero)
>
284f : 68 > pla ;load status
> eor_flag 0
2850 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2852 : dd2102 > cmp fASL,x ;test flags
> trap_ne
2855 : d0fe > bne * ;failed not equal (non zero)
>
2857 : ca dex
2858 : 10e0 bpl tasl8
285a : a203 ldx #3
285c : tasl9
set_absx zp1,$ff
> load_flag $ff
285c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
285e : 48 > pha ;use stack to load status
285f : b513 > lda zp1,x ;load to indexed memory
2861 : 9d0302 > sta abst,x
2864 : 28 > plp
2865 : 1e0302 asl abst,x
tst_absx rASL,fASL,$ff-fnzc
2868 : 08 > php ;save flags
2869 : bd0302 > lda abst,x
286c : dd1102 > cmp rASL,x ;test result
> trap_ne
286f : d0fe > bne * ;failed not equal (non zero)
>
2871 : 68 > pla ;load status
> eor_flag $ff-fnzc
2872 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2874 : dd2102 > cmp fASL,x ;test flags
> trap_ne
2877 : d0fe > bne * ;failed not equal (non zero)
>
2879 : ca dex
287a : 10e0 bpl tasl9
287c : a203 ldx #3
287e : tlsr8
set_absx zp1,0
> load_flag 0
287e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2880 : 48 > pha ;use stack to load status
2881 : b513 > lda zp1,x ;load to indexed memory
2883 : 9d0302 > sta abst,x
2886 : 28 > plp
2887 : 5e0302 lsr abst,x
tst_absx rLSR,fLSR,0
288a : 08 > php ;save flags
288b : bd0302 > lda abst,x
288e : dd1902 > cmp rLSR,x ;test result
> trap_ne
2891 : d0fe > bne * ;failed not equal (non zero)
>
2893 : 68 > pla ;load status
> eor_flag 0
2894 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2896 : dd2902 > cmp fLSR,x ;test flags
> trap_ne
2899 : d0fe > bne * ;failed not equal (non zero)
>
289b : ca dex
289c : 10e0 bpl tlsr8
289e : a203 ldx #3
28a0 : tlsr9
set_absx zp1,$ff
> load_flag $ff
28a0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
28a2 : 48 > pha ;use stack to load status
28a3 : b513 > lda zp1,x ;load to indexed memory
28a5 : 9d0302 > sta abst,x
28a8 : 28 > plp
28a9 : 5e0302 lsr abst,x
tst_absx rLSR,fLSR,$ff-fnzc
28ac : 08 > php ;save flags
28ad : bd0302 > lda abst,x
28b0 : dd1902 > cmp rLSR,x ;test result
> trap_ne
28b3 : d0fe > bne * ;failed not equal (non zero)
>
28b5 : 68 > pla ;load status
> eor_flag $ff-fnzc
28b6 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
28b8 : dd2902 > cmp fLSR,x ;test flags
> trap_ne
28bb : d0fe > bne * ;failed not equal (non zero)
>
28bd : ca dex
28be : 10e0 bpl tlsr9
28c0 : a203 ldx #3
28c2 : trol8
set_absx zp1,0
> load_flag 0
28c2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
28c4 : 48 > pha ;use stack to load status
28c5 : b513 > lda zp1,x ;load to indexed memory
28c7 : 9d0302 > sta abst,x
28ca : 28 > plp
28cb : 3e0302 rol abst,x
tst_absx rROL,fROL,0
28ce : 08 > php ;save flags
28cf : bd0302 > lda abst,x
28d2 : dd1102 > cmp rROL,x ;test result
> trap_ne
28d5 : d0fe > bne * ;failed not equal (non zero)
>
28d7 : 68 > pla ;load status
> eor_flag 0
28d8 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
28da : dd2102 > cmp fROL,x ;test flags
> trap_ne
28dd : d0fe > bne * ;failed not equal (non zero)
>
28df : ca dex
28e0 : 10e0 bpl trol8
28e2 : a203 ldx #3
28e4 : trol9
set_absx zp1,$ff-fc
> load_flag $ff-fc
28e4 : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
28e6 : 48 > pha ;use stack to load status
28e7 : b513 > lda zp1,x ;load to indexed memory
28e9 : 9d0302 > sta abst,x
28ec : 28 > plp
28ed : 3e0302 rol abst,x
tst_absx rROL,fROL,$ff-fnzc
28f0 : 08 > php ;save flags
28f1 : bd0302 > lda abst,x
28f4 : dd1102 > cmp rROL,x ;test result
> trap_ne
28f7 : d0fe > bne * ;failed not equal (non zero)
>
28f9 : 68 > pla ;load status
> eor_flag $ff-fnzc
28fa : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
28fc : dd2102 > cmp fROL,x ;test flags
> trap_ne
28ff : d0fe > bne * ;failed not equal (non zero)
>
2901 : ca dex
2902 : 10e0 bpl trol9
2904 : a203 ldx #3
2906 : trolc8
set_absx zp1,fc
> load_flag fc
2906 : a901 > lda #fc ;allow test to change I-flag (no mask)
>
2908 : 48 > pha ;use stack to load status
2909 : b513 > lda zp1,x ;load to indexed memory
290b : 9d0302 > sta abst,x
290e : 28 > plp
290f : 3e0302 rol abst,x
tst_absx rROLc,fROLc,0
2912 : 08 > php ;save flags
2913 : bd0302 > lda abst,x
2916 : dd1502 > cmp rROLc,x ;test result
> trap_ne
2919 : d0fe > bne * ;failed not equal (non zero)
>
291b : 68 > pla ;load status
> eor_flag 0
291c : 4930 > eor #0|fao ;invert expected flags + always on bits
>
291e : dd2502 > cmp fROLc,x ;test flags
> trap_ne
2921 : d0fe > bne * ;failed not equal (non zero)
>
2923 : ca dex
2924 : 10e0 bpl trolc8
2926 : a203 ldx #3
2928 : trolc9
set_absx zp1,$ff
> load_flag $ff
2928 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
292a : 48 > pha ;use stack to load status
292b : b513 > lda zp1,x ;load to indexed memory
292d : 9d0302 > sta abst,x
2930 : 28 > plp
2931 : 3e0302 rol abst,x
tst_absx rROLc,fROLc,$ff-fnzc
2934 : 08 > php ;save flags
2935 : bd0302 > lda abst,x
2938 : dd1502 > cmp rROLc,x ;test result
> trap_ne
293b : d0fe > bne * ;failed not equal (non zero)
>
293d : 68 > pla ;load status
> eor_flag $ff-fnzc
293e : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2940 : dd2502 > cmp fROLc,x ;test flags
> trap_ne
2943 : d0fe > bne * ;failed not equal (non zero)
>
2945 : ca dex
2946 : 10e0 bpl trolc9
2948 : a203 ldx #3
294a : tror8
set_absx zp1,0
> load_flag 0
294a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
294c : 48 > pha ;use stack to load status
294d : b513 > lda zp1,x ;load to indexed memory
294f : 9d0302 > sta abst,x
2952 : 28 > plp
2953 : 7e0302 ror abst,x
tst_absx rROR,fROR,0
2956 : 08 > php ;save flags
2957 : bd0302 > lda abst,x
295a : dd1902 > cmp rROR,x ;test result
> trap_ne
295d : d0fe > bne * ;failed not equal (non zero)
>
295f : 68 > pla ;load status
> eor_flag 0
2960 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2962 : dd2902 > cmp fROR,x ;test flags
> trap_ne
2965 : d0fe > bne * ;failed not equal (non zero)
>
2967 : ca dex
2968 : 10e0 bpl tror8
296a : a203 ldx #3
296c : tror9
set_absx zp1,$ff-fc
> load_flag $ff-fc
296c : a9fe > lda #$ff-fc ;allow test to change I-flag (no mask)
>
296e : 48 > pha ;use stack to load status
296f : b513 > lda zp1,x ;load to indexed memory
2971 : 9d0302 > sta abst,x
2974 : 28 > plp
2975 : 7e0302 ror abst,x
tst_absx rROR,fROR,$ff-fnzc
2978 : 08 > php ;save flags
2979 : bd0302 > lda abst,x
297c : dd1902 > cmp rROR,x ;test result
> trap_ne
297f : d0fe > bne * ;failed not equal (non zero)
>
2981 : 68 > pla ;load status
> eor_flag $ff-fnzc
2982 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
2984 : dd2902 > cmp fROR,x ;test flags
> trap_ne
2987 : d0fe > bne * ;failed not equal (non zero)
>
2989 : ca dex
298a : 10e0 bpl tror9
298c : a203 ldx #3
298e : trorc8
set_absx zp1,fc
> load_flag fc
298e : a901 > lda #fc ;allow test to change I-flag (no mask)
>
2990 : 48 > pha ;use stack to load status
2991 : b513 > lda zp1,x ;load to indexed memory
2993 : 9d0302 > sta abst,x
2996 : 28 > plp
2997 : 7e0302 ror abst,x
tst_absx rRORc,fRORc,0
299a : 08 > php ;save flags
299b : bd0302 > lda abst,x
299e : dd1d02 > cmp rRORc,x ;test result
> trap_ne
29a1 : d0fe > bne * ;failed not equal (non zero)
>
29a3 : 68 > pla ;load status
> eor_flag 0
29a4 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
29a6 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
29a9 : d0fe > bne * ;failed not equal (non zero)
>
29ab : ca dex
29ac : 10e0 bpl trorc8
29ae : a203 ldx #3
29b0 : trorc9
set_absx zp1,$ff
> load_flag $ff
29b0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
29b2 : 48 > pha ;use stack to load status
29b3 : b513 > lda zp1,x ;load to indexed memory
29b5 : 9d0302 > sta abst,x
29b8 : 28 > plp
29b9 : 7e0302 ror abst,x
tst_absx rRORc,fRORc,$ff-fnzc
29bc : 08 > php ;save flags
29bd : bd0302 > lda abst,x
29c0 : dd1d02 > cmp rRORc,x ;test result
> trap_ne
29c3 : d0fe > bne * ;failed not equal (non zero)
>
29c5 : 68 > pla ;load status
> eor_flag $ff-fnzc
29c6 : 497c > eor #$ff-fnzc|fao ;invert expected flags + always on bits
>
29c8 : dd2d02 > cmp fRORc,x ;test flags
> trap_ne
29cb : d0fe > bne * ;failed not equal (non zero)
>
29cd : ca dex
29ce : 10e0 bpl trorc9
next_test
29d0 : ad0002 > lda test_case ;previous test
29d3 : c921 > cmp #test_num
> trap_ne ;test is out of sequence
29d5 : d0fe > bne * ;failed not equal (non zero)
>
0022 = >test_num = test_num + 1
29d7 : a922 > lda #test_num ;*** next tests' number
29d9 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing memory increment/decrement - INC DEC all addressing modes
; zeropage
29dc : a200 ldx #0
29de : a97e lda #$7e
29e0 : 850c sta zpt
29e2 : tinc
set_stat 0
> load_flag 0
29e2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
29e4 : 48 > pha ;use stack to load status
29e5 : 28 > plp
29e6 : e60c inc zpt
tst_z rINC,fINC,0
29e8 : 08 > php ;save flags
29e9 : a50c > lda zpt
29eb : dd3102 > cmp rINC,x ;test result
> trap_ne
29ee : d0fe > bne * ;failed not equal (non zero)
>
29f0 : 68 > pla ;load status
> eor_flag 0
29f1 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
29f3 : dd3602 > cmp fINC,x ;test flags
> trap_ne
29f6 : d0fe > bne * ;failed not equal (non zero)
>
29f8 : e8 inx
29f9 : e002 cpx #2
29fb : d004 bne tinc1
29fd : a9fe lda #$fe
29ff : 850c sta zpt
2a01 : e005 tinc1 cpx #5
2a03 : d0dd bne tinc
2a05 : ca dex
2a06 : e60c inc zpt
2a08 : tdec
set_stat 0
> load_flag 0
2a08 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2a0a : 48 > pha ;use stack to load status
2a0b : 28 > plp
2a0c : c60c dec zpt
tst_z rINC,fINC,0
2a0e : 08 > php ;save flags
2a0f : a50c > lda zpt
2a11 : dd3102 > cmp rINC,x ;test result
> trap_ne
2a14 : d0fe > bne * ;failed not equal (non zero)
>
2a16 : 68 > pla ;load status
> eor_flag 0
2a17 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2a19 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2a1c : d0fe > bne * ;failed not equal (non zero)
>
2a1e : ca dex
2a1f : 300a bmi tdec1
2a21 : e001 cpx #1
2a23 : d0e3 bne tdec
2a25 : a981 lda #$81
2a27 : 850c sta zpt
2a29 : d0dd bne tdec
2a2b : tdec1
2a2b : a200 ldx #0
2a2d : a97e lda #$7e
2a2f : 850c sta zpt
2a31 : tinc10
set_stat $ff
> load_flag $ff
2a31 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2a33 : 48 > pha ;use stack to load status
2a34 : 28 > plp
2a35 : e60c inc zpt
tst_z rINC,fINC,$ff-fnz
2a37 : 08 > php ;save flags
2a38 : a50c > lda zpt
2a3a : dd3102 > cmp rINC,x ;test result
> trap_ne
2a3d : d0fe > bne * ;failed not equal (non zero)
>
2a3f : 68 > pla ;load status
> eor_flag $ff-fnz
2a40 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2a42 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2a45 : d0fe > bne * ;failed not equal (non zero)
>
2a47 : e8 inx
2a48 : e002 cpx #2
2a4a : d004 bne tinc11
2a4c : a9fe lda #$fe
2a4e : 850c sta zpt
2a50 : e005 tinc11 cpx #5
2a52 : d0dd bne tinc10
2a54 : ca dex
2a55 : e60c inc zpt
2a57 : tdec10
set_stat $ff
> load_flag $ff
2a57 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2a59 : 48 > pha ;use stack to load status
2a5a : 28 > plp
2a5b : c60c dec zpt
tst_z rINC,fINC,$ff-fnz
2a5d : 08 > php ;save flags
2a5e : a50c > lda zpt
2a60 : dd3102 > cmp rINC,x ;test result
> trap_ne
2a63 : d0fe > bne * ;failed not equal (non zero)
>
2a65 : 68 > pla ;load status
> eor_flag $ff-fnz
2a66 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2a68 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2a6b : d0fe > bne * ;failed not equal (non zero)
>
2a6d : ca dex
2a6e : 300a bmi tdec11
2a70 : e001 cpx #1
2a72 : d0e3 bne tdec10
2a74 : a981 lda #$81
2a76 : 850c sta zpt
2a78 : d0dd bne tdec10
2a7a : tdec11
next_test
2a7a : ad0002 > lda test_case ;previous test
2a7d : c922 > cmp #test_num
> trap_ne ;test is out of sequence
2a7f : d0fe > bne * ;failed not equal (non zero)
>
0023 = >test_num = test_num + 1
2a81 : a923 > lda #test_num ;*** next tests' number
2a83 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; absolute memory
2a86 : a200 ldx #0
2a88 : a97e lda #$7e
2a8a : 8d0302 sta abst
2a8d : tinc2
set_stat 0
> load_flag 0
2a8d : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2a8f : 48 > pha ;use stack to load status
2a90 : 28 > plp
2a91 : ee0302 inc abst
tst_abs rINC,fINC,0
2a94 : 08 > php ;save flags
2a95 : ad0302 > lda abst
2a98 : dd3102 > cmp rINC,x ;test result
> trap_ne
2a9b : d0fe > bne * ;failed not equal (non zero)
>
2a9d : 68 > pla ;load status
> eor_flag 0
2a9e : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2aa0 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2aa3 : d0fe > bne * ;failed not equal (non zero)
>
2aa5 : e8 inx
2aa6 : e002 cpx #2
2aa8 : d005 bne tinc3
2aaa : a9fe lda #$fe
2aac : 8d0302 sta abst
2aaf : e005 tinc3 cpx #5
2ab1 : d0da bne tinc2
2ab3 : ca dex
2ab4 : ee0302 inc abst
2ab7 : tdec2
set_stat 0
> load_flag 0
2ab7 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2ab9 : 48 > pha ;use stack to load status
2aba : 28 > plp
2abb : ce0302 dec abst
tst_abs rINC,fINC,0
2abe : 08 > php ;save flags
2abf : ad0302 > lda abst
2ac2 : dd3102 > cmp rINC,x ;test result
> trap_ne
2ac5 : d0fe > bne * ;failed not equal (non zero)
>
2ac7 : 68 > pla ;load status
> eor_flag 0
2ac8 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2aca : dd3602 > cmp fINC,x ;test flags
> trap_ne
2acd : d0fe > bne * ;failed not equal (non zero)
>
2acf : ca dex
2ad0 : 300b bmi tdec3
2ad2 : e001 cpx #1
2ad4 : d0e1 bne tdec2
2ad6 : a981 lda #$81
2ad8 : 8d0302 sta abst
2adb : d0da bne tdec2
2add : tdec3
2add : a200 ldx #0
2adf : a97e lda #$7e
2ae1 : 8d0302 sta abst
2ae4 : tinc12
set_stat $ff
> load_flag $ff
2ae4 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2ae6 : 48 > pha ;use stack to load status
2ae7 : 28 > plp
2ae8 : ee0302 inc abst
tst_abs rINC,fINC,$ff-fnz
2aeb : 08 > php ;save flags
2aec : ad0302 > lda abst
2aef : dd3102 > cmp rINC,x ;test result
> trap_ne
2af2 : d0fe > bne * ;failed not equal (non zero)
>
2af4 : 68 > pla ;load status
> eor_flag $ff-fnz
2af5 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2af7 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2afa : d0fe > bne * ;failed not equal (non zero)
>
2afc : e8 inx
2afd : e002 cpx #2
2aff : d005 bne tinc13
2b01 : a9fe lda #$fe
2b03 : 8d0302 sta abst
2b06 : e005 tinc13 cpx #5
2b08 : d0da bne tinc12
2b0a : ca dex
2b0b : ee0302 inc abst
2b0e : tdec12
set_stat $ff
> load_flag $ff
2b0e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2b10 : 48 > pha ;use stack to load status
2b11 : 28 > plp
2b12 : ce0302 dec abst
tst_abs rINC,fINC,$ff-fnz
2b15 : 08 > php ;save flags
2b16 : ad0302 > lda abst
2b19 : dd3102 > cmp rINC,x ;test result
> trap_ne
2b1c : d0fe > bne * ;failed not equal (non zero)
>
2b1e : 68 > pla ;load status
> eor_flag $ff-fnz
2b1f : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2b21 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2b24 : d0fe > bne * ;failed not equal (non zero)
>
2b26 : ca dex
2b27 : 300b bmi tdec13
2b29 : e001 cpx #1
2b2b : d0e1 bne tdec12
2b2d : a981 lda #$81
2b2f : 8d0302 sta abst
2b32 : d0da bne tdec12
2b34 : tdec13
next_test
2b34 : ad0002 > lda test_case ;previous test
2b37 : c923 > cmp #test_num
> trap_ne ;test is out of sequence
2b39 : d0fe > bne * ;failed not equal (non zero)
>
0024 = >test_num = test_num + 1
2b3b : a924 > lda #test_num ;*** next tests' number
2b3d : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; zeropage indexed
2b40 : a200 ldx #0
2b42 : a97e lda #$7e
2b44 : 950c tinc4 sta zpt,x
set_stat 0
> load_flag 0
2b46 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2b48 : 48 > pha ;use stack to load status
2b49 : 28 > plp
2b4a : f60c inc zpt,x
tst_zx rINC,fINC,0
2b4c : 08 > php ;save flags
2b4d : b50c > lda zpt,x
2b4f : dd3102 > cmp rINC,x ;test result
> trap_ne
2b52 : d0fe > bne * ;failed not equal (non zero)
>
2b54 : 68 > pla ;load status
> eor_flag 0
2b55 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2b57 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2b5a : d0fe > bne * ;failed not equal (non zero)
>
2b5c : b50c lda zpt,x
2b5e : e8 inx
2b5f : e002 cpx #2
2b61 : d002 bne tinc5
2b63 : a9fe lda #$fe
2b65 : e005 tinc5 cpx #5
2b67 : d0db bne tinc4
2b69 : ca dex
2b6a : a902 lda #2
2b6c : 950c tdec4 sta zpt,x
set_stat 0
> load_flag 0
2b6e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2b70 : 48 > pha ;use stack to load status
2b71 : 28 > plp
2b72 : d60c dec zpt,x
tst_zx rINC,fINC,0
2b74 : 08 > php ;save flags
2b75 : b50c > lda zpt,x
2b77 : dd3102 > cmp rINC,x ;test result
> trap_ne
2b7a : d0fe > bne * ;failed not equal (non zero)
>
2b7c : 68 > pla ;load status
> eor_flag 0
2b7d : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2b7f : dd3602 > cmp fINC,x ;test flags
> trap_ne
2b82 : d0fe > bne * ;failed not equal (non zero)
>
2b84 : b50c lda zpt,x
2b86 : ca dex
2b87 : 3008 bmi tdec5
2b89 : e001 cpx #1
2b8b : d0df bne tdec4
2b8d : a981 lda #$81
2b8f : d0db bne tdec4
2b91 : tdec5
2b91 : a200 ldx #0
2b93 : a97e lda #$7e
2b95 : 950c tinc14 sta zpt,x
set_stat $ff
> load_flag $ff
2b97 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2b99 : 48 > pha ;use stack to load status
2b9a : 28 > plp
2b9b : f60c inc zpt,x
tst_zx rINC,fINC,$ff-fnz
2b9d : 08 > php ;save flags
2b9e : b50c > lda zpt,x
2ba0 : dd3102 > cmp rINC,x ;test result
> trap_ne
2ba3 : d0fe > bne * ;failed not equal (non zero)
>
2ba5 : 68 > pla ;load status
> eor_flag $ff-fnz
2ba6 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2ba8 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2bab : d0fe > bne * ;failed not equal (non zero)
>
2bad : b50c lda zpt,x
2baf : e8 inx
2bb0 : e002 cpx #2
2bb2 : d002 bne tinc15
2bb4 : a9fe lda #$fe
2bb6 : e005 tinc15 cpx #5
2bb8 : d0db bne tinc14
2bba : ca dex
2bbb : a902 lda #2
2bbd : 950c tdec14 sta zpt,x
set_stat $ff
> load_flag $ff
2bbf : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2bc1 : 48 > pha ;use stack to load status
2bc2 : 28 > plp
2bc3 : d60c dec zpt,x
tst_zx rINC,fINC,$ff-fnz
2bc5 : 08 > php ;save flags
2bc6 : b50c > lda zpt,x
2bc8 : dd3102 > cmp rINC,x ;test result
> trap_ne
2bcb : d0fe > bne * ;failed not equal (non zero)
>
2bcd : 68 > pla ;load status
> eor_flag $ff-fnz
2bce : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2bd0 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2bd3 : d0fe > bne * ;failed not equal (non zero)
>
2bd5 : b50c lda zpt,x
2bd7 : ca dex
2bd8 : 3008 bmi tdec15
2bda : e001 cpx #1
2bdc : d0df bne tdec14
2bde : a981 lda #$81
2be0 : d0db bne tdec14
2be2 : tdec15
next_test
2be2 : ad0002 > lda test_case ;previous test
2be5 : c924 > cmp #test_num
> trap_ne ;test is out of sequence
2be7 : d0fe > bne * ;failed not equal (non zero)
>
0025 = >test_num = test_num + 1
2be9 : a925 > lda #test_num ;*** next tests' number
2beb : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; memory indexed
2bee : a200 ldx #0
2bf0 : a97e lda #$7e
2bf2 : 9d0302 tinc6 sta abst,x
set_stat 0
> load_flag 0
2bf5 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2bf7 : 48 > pha ;use stack to load status
2bf8 : 28 > plp
2bf9 : fe0302 inc abst,x
tst_absx rINC,fINC,0
2bfc : 08 > php ;save flags
2bfd : bd0302 > lda abst,x
2c00 : dd3102 > cmp rINC,x ;test result
> trap_ne
2c03 : d0fe > bne * ;failed not equal (non zero)
>
2c05 : 68 > pla ;load status
> eor_flag 0
2c06 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2c08 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2c0b : d0fe > bne * ;failed not equal (non zero)
>
2c0d : bd0302 lda abst,x
2c10 : e8 inx
2c11 : e002 cpx #2
2c13 : d002 bne tinc7
2c15 : a9fe lda #$fe
2c17 : e005 tinc7 cpx #5
2c19 : d0d7 bne tinc6
2c1b : ca dex
2c1c : a902 lda #2
2c1e : 9d0302 tdec6 sta abst,x
set_stat 0
> load_flag 0
2c21 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2c23 : 48 > pha ;use stack to load status
2c24 : 28 > plp
2c25 : de0302 dec abst,x
tst_absx rINC,fINC,0
2c28 : 08 > php ;save flags
2c29 : bd0302 > lda abst,x
2c2c : dd3102 > cmp rINC,x ;test result
> trap_ne
2c2f : d0fe > bne * ;failed not equal (non zero)
>
2c31 : 68 > pla ;load status
> eor_flag 0
2c32 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2c34 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2c37 : d0fe > bne * ;failed not equal (non zero)
>
2c39 : bd0302 lda abst,x
2c3c : ca dex
2c3d : 3008 bmi tdec7
2c3f : e001 cpx #1
2c41 : d0db bne tdec6
2c43 : a981 lda #$81
2c45 : d0d7 bne tdec6
2c47 : tdec7
2c47 : a200 ldx #0
2c49 : a97e lda #$7e
2c4b : 9d0302 tinc16 sta abst,x
set_stat $ff
> load_flag $ff
2c4e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2c50 : 48 > pha ;use stack to load status
2c51 : 28 > plp
2c52 : fe0302 inc abst,x
tst_absx rINC,fINC,$ff-fnz
2c55 : 08 > php ;save flags
2c56 : bd0302 > lda abst,x
2c59 : dd3102 > cmp rINC,x ;test result
> trap_ne
2c5c : d0fe > bne * ;failed not equal (non zero)
>
2c5e : 68 > pla ;load status
> eor_flag $ff-fnz
2c5f : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2c61 : dd3602 > cmp fINC,x ;test flags
> trap_ne
2c64 : d0fe > bne * ;failed not equal (non zero)
>
2c66 : bd0302 lda abst,x
2c69 : e8 inx
2c6a : e002 cpx #2
2c6c : d002 bne tinc17
2c6e : a9fe lda #$fe
2c70 : e005 tinc17 cpx #5
2c72 : d0d7 bne tinc16
2c74 : ca dex
2c75 : a902 lda #2
2c77 : 9d0302 tdec16 sta abst,x
set_stat $ff
> load_flag $ff
2c7a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2c7c : 48 > pha ;use stack to load status
2c7d : 28 > plp
2c7e : de0302 dec abst,x
tst_absx rINC,fINC,$ff-fnz
2c81 : 08 > php ;save flags
2c82 : bd0302 > lda abst,x
2c85 : dd3102 > cmp rINC,x ;test result
> trap_ne
2c88 : d0fe > bne * ;failed not equal (non zero)
>
2c8a : 68 > pla ;load status
> eor_flag $ff-fnz
2c8b : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2c8d : dd3602 > cmp fINC,x ;test flags
> trap_ne
2c90 : d0fe > bne * ;failed not equal (non zero)
>
2c92 : bd0302 lda abst,x
2c95 : ca dex
2c96 : 3008 bmi tdec17
2c98 : e001 cpx #1
2c9a : d0db bne tdec16
2c9c : a981 lda #$81
2c9e : d0d7 bne tdec16
2ca0 : tdec17
next_test
2ca0 : ad0002 > lda test_case ;previous test
2ca3 : c925 > cmp #test_num
> trap_ne ;test is out of sequence
2ca5 : d0fe > bne * ;failed not equal (non zero)
>
0026 = >test_num = test_num + 1
2ca7 : a926 > lda #test_num ;*** next tests' number
2ca9 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; testing logical instructions - AND EOR ORA all addressing modes
; AND
2cac : a203 ldx #3 ;immediate - self modifying code
2cae : b51c tand lda zpAN,x
2cb0 : 8dbb2c sta tandi1
set_ax absANa,0
> load_flag 0
2cb3 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2cb5 : 48 > pha ;use stack to load status
2cb6 : bd4b02 > lda absANa,x ;precharge accu
2cb9 : 28 > plp
2cbb = tandi1 equ *+1 ;target for immediate operand
2cba : 2963 and #99
tst_ax absrlo,absflo,0
2cbc : 08 > php ;save flags
2cbd : dd5302 > cmp absrlo,x ;test result
> trap_ne
2cc0 : d0fe > bne * ;failed not equal (non zero)
>
2cc2 : 68 > pla ;load status
> eor_flag 0
2cc3 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2cc5 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2cc8 : d0fe > bne * ;failed not equal (non zero)
>
2cca : ca dex
2ccb : 10e1 bpl tand
2ccd : a203 ldx #3
2ccf : b51c tand1 lda zpAN,x
2cd1 : 8ddc2c sta tandi2
set_ax absANa,$ff
> load_flag $ff
2cd4 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2cd6 : 48 > pha ;use stack to load status
2cd7 : bd4b02 > lda absANa,x ;precharge accu
2cda : 28 > plp
2cdc = tandi2 equ *+1 ;target for immediate operand
2cdb : 2963 and #99
tst_ax absrlo,absflo,$ff-fnz
2cdd : 08 > php ;save flags
2cde : dd5302 > cmp absrlo,x ;test result
> trap_ne
2ce1 : d0fe > bne * ;failed not equal (non zero)
>
2ce3 : 68 > pla ;load status
> eor_flag $ff-fnz
2ce4 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2ce6 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2ce9 : d0fe > bne * ;failed not equal (non zero)
>
2ceb : ca dex
2cec : 10e1 bpl tand1
2cee : a203 ldx #3 ;zp
2cf0 : b51c tand2 lda zpAN,x
2cf2 : 850c sta zpt
set_ax absANa,0
> load_flag 0
2cf4 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2cf6 : 48 > pha ;use stack to load status
2cf7 : bd4b02 > lda absANa,x ;precharge accu
2cfa : 28 > plp
2cfb : 250c and zpt
tst_ax absrlo,absflo,0
2cfd : 08 > php ;save flags
2cfe : dd5302 > cmp absrlo,x ;test result
> trap_ne
2d01 : d0fe > bne * ;failed not equal (non zero)
>
2d03 : 68 > pla ;load status
> eor_flag 0
2d04 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2d06 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2d09 : d0fe > bne * ;failed not equal (non zero)
>
2d0b : ca dex
2d0c : 10e2 bpl tand2
2d0e : a203 ldx #3
2d10 : b51c tand3 lda zpAN,x
2d12 : 850c sta zpt
set_ax absANa,$ff
> load_flag $ff
2d14 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2d16 : 48 > pha ;use stack to load status
2d17 : bd4b02 > lda absANa,x ;precharge accu
2d1a : 28 > plp
2d1b : 250c and zpt
tst_ax absrlo,absflo,$ff-fnz
2d1d : 08 > php ;save flags
2d1e : dd5302 > cmp absrlo,x ;test result
> trap_ne
2d21 : d0fe > bne * ;failed not equal (non zero)
>
2d23 : 68 > pla ;load status
> eor_flag $ff-fnz
2d24 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2d26 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2d29 : d0fe > bne * ;failed not equal (non zero)
>
2d2b : ca dex
2d2c : 10e2 bpl tand3
2d2e : a203 ldx #3 ;abs
2d30 : b51c tand4 lda zpAN,x
2d32 : 8d0302 sta abst
set_ax absANa,0
> load_flag 0
2d35 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2d37 : 48 > pha ;use stack to load status
2d38 : bd4b02 > lda absANa,x ;precharge accu
2d3b : 28 > plp
2d3c : 2d0302 and abst
tst_ax absrlo,absflo,0
2d3f : 08 > php ;save flags
2d40 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2d43 : d0fe > bne * ;failed not equal (non zero)
>
2d45 : 68 > pla ;load status
> eor_flag 0
2d46 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2d48 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2d4b : d0fe > bne * ;failed not equal (non zero)
>
2d4d : ca dex
2d4e : 10e0 bpl tand4
2d50 : a203 ldx #3
2d52 : b51c tand5 lda zpAN,x
2d54 : 8d0302 sta abst
set_ax absANa,$ff
> load_flag $ff
2d57 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2d59 : 48 > pha ;use stack to load status
2d5a : bd4b02 > lda absANa,x ;precharge accu
2d5d : 28 > plp
2d5e : 2d0302 and abst
tst_ax absrlo,absflo,$ff-fnz
2d61 : 08 > php ;save flags
2d62 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2d65 : d0fe > bne * ;failed not equal (non zero)
>
2d67 : 68 > pla ;load status
> eor_flag $ff-fnz
2d68 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2d6a : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2d6d : d0fe > bne * ;failed not equal (non zero)
>
2d6f : ca dex
2d70 : 1002 bpl tand6
2d72 : a203 ldx #3 ;zp,x
2d74 : tand6
set_ax absANa,0
> load_flag 0
2d74 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2d76 : 48 > pha ;use stack to load status
2d77 : bd4b02 > lda absANa,x ;precharge accu
2d7a : 28 > plp
2d7b : 351c and zpAN,x
tst_ax absrlo,absflo,0
2d7d : 08 > php ;save flags
2d7e : dd5302 > cmp absrlo,x ;test result
> trap_ne
2d81 : d0fe > bne * ;failed not equal (non zero)
>
2d83 : 68 > pla ;load status
> eor_flag 0
2d84 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2d86 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2d89 : d0fe > bne * ;failed not equal (non zero)
>
2d8b : ca dex
2d8c : 10e6 bpl tand6
2d8e : a203 ldx #3
2d90 : tand7
set_ax absANa,$ff
> load_flag $ff
2d90 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2d92 : 48 > pha ;use stack to load status
2d93 : bd4b02 > lda absANa,x ;precharge accu
2d96 : 28 > plp
2d97 : 351c and zpAN,x
tst_ax absrlo,absflo,$ff-fnz
2d99 : 08 > php ;save flags
2d9a : dd5302 > cmp absrlo,x ;test result
> trap_ne
2d9d : d0fe > bne * ;failed not equal (non zero)
>
2d9f : 68 > pla ;load status
> eor_flag $ff-fnz
2da0 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2da2 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2da5 : d0fe > bne * ;failed not equal (non zero)
>
2da7 : ca dex
2da8 : 10e6 bpl tand7
2daa : a203 ldx #3 ;abs,x
2dac : tand8
set_ax absANa,0
> load_flag 0
2dac : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2dae : 48 > pha ;use stack to load status
2daf : bd4b02 > lda absANa,x ;precharge accu
2db2 : 28 > plp
2db3 : 3d3f02 and absAN,x
tst_ax absrlo,absflo,0
2db6 : 08 > php ;save flags
2db7 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2dba : d0fe > bne * ;failed not equal (non zero)
>
2dbc : 68 > pla ;load status
> eor_flag 0
2dbd : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2dbf : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2dc2 : d0fe > bne * ;failed not equal (non zero)
>
2dc4 : ca dex
2dc5 : 10e5 bpl tand8
2dc7 : a203 ldx #3
2dc9 : tand9
set_ax absANa,$ff
> load_flag $ff
2dc9 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2dcb : 48 > pha ;use stack to load status
2dcc : bd4b02 > lda absANa,x ;precharge accu
2dcf : 28 > plp
2dd0 : 3d3f02 and absAN,x
tst_ax absrlo,absflo,$ff-fnz
2dd3 : 08 > php ;save flags
2dd4 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2dd7 : d0fe > bne * ;failed not equal (non zero)
>
2dd9 : 68 > pla ;load status
> eor_flag $ff-fnz
2dda : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2ddc : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2ddf : d0fe > bne * ;failed not equal (non zero)
>
2de1 : ca dex
2de2 : 10e5 bpl tand9
2de4 : a003 ldy #3 ;abs,y
2de6 : tand10
set_ay absANa,0
> load_flag 0
2de6 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2de8 : 48 > pha ;use stack to load status
2de9 : b94b02 > lda absANa,y ;precharge accu
2dec : 28 > plp
2ded : 393f02 and absAN,y
tst_ay absrlo,absflo,0
2df0 : 08 > php ;save flags
2df1 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
2df4 : d0fe > bne * ;failed not equal (non zero)
>
2df6 : 68 > pla ;load status
> eor_flag 0
2df7 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2df9 : d95702 > cmp absflo,y ;test flags
> trap_ne
2dfc : d0fe > bne * ;failed not equal (non zero)
>
2dfe : 88 dey
2dff : 10e5 bpl tand10
2e01 : a003 ldy #3
2e03 : tand11
set_ay absANa,$ff
> load_flag $ff
2e03 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2e05 : 48 > pha ;use stack to load status
2e06 : b94b02 > lda absANa,y ;precharge accu
2e09 : 28 > plp
2e0a : 393f02 and absAN,y
tst_ay absrlo,absflo,$ff-fnz
2e0d : 08 > php ;save flags
2e0e : d95302 > cmp absrlo,y ;test result
> trap_ne ;
2e11 : d0fe > bne * ;failed not equal (non zero)
>
2e13 : 68 > pla ;load status
> eor_flag $ff-fnz
2e14 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2e16 : d95702 > cmp absflo,y ;test flags
> trap_ne
2e19 : d0fe > bne * ;failed not equal (non zero)
>
2e1b : 88 dey
2e1c : 10e5 bpl tand11
2e1e : a206 ldx #6 ;(zp,x)
2e20 : a003 ldy #3
2e22 : tand12
set_ay absANa,0
> load_flag 0
2e22 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2e24 : 48 > pha ;use stack to load status
2e25 : b94b02 > lda absANa,y ;precharge accu
2e28 : 28 > plp
2e29 : 213a and (indAN,x)
tst_ay absrlo,absflo,0
2e2b : 08 > php ;save flags
2e2c : d95302 > cmp absrlo,y ;test result
> trap_ne ;
2e2f : d0fe > bne * ;failed not equal (non zero)
>
2e31 : 68 > pla ;load status
> eor_flag 0
2e32 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2e34 : d95702 > cmp absflo,y ;test flags
> trap_ne
2e37 : d0fe > bne * ;failed not equal (non zero)
>
2e39 : ca dex
2e3a : ca dex
2e3b : 88 dey
2e3c : 10e4 bpl tand12
2e3e : a206 ldx #6
2e40 : a003 ldy #3
2e42 : tand13
set_ay absANa,$ff
> load_flag $ff
2e42 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2e44 : 48 > pha ;use stack to load status
2e45 : b94b02 > lda absANa,y ;precharge accu
2e48 : 28 > plp
2e49 : 213a and (indAN,x)
tst_ay absrlo,absflo,$ff-fnz
2e4b : 08 > php ;save flags
2e4c : d95302 > cmp absrlo,y ;test result
> trap_ne ;
2e4f : d0fe > bne * ;failed not equal (non zero)
>
2e51 : 68 > pla ;load status
> eor_flag $ff-fnz
2e52 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2e54 : d95702 > cmp absflo,y ;test flags
> trap_ne
2e57 : d0fe > bne * ;failed not equal (non zero)
>
2e59 : ca dex
2e5a : ca dex
2e5b : 88 dey
2e5c : 10e4 bpl tand13
2e5e : a003 ldy #3 ;(zp),y
2e60 : tand14
set_ay absANa,0
> load_flag 0
2e60 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2e62 : 48 > pha ;use stack to load status
2e63 : b94b02 > lda absANa,y ;precharge accu
2e66 : 28 > plp
2e67 : 313a and (indAN),y
tst_ay absrlo,absflo,0
2e69 : 08 > php ;save flags
2e6a : d95302 > cmp absrlo,y ;test result
> trap_ne ;
2e6d : d0fe > bne * ;failed not equal (non zero)
>
2e6f : 68 > pla ;load status
> eor_flag 0
2e70 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2e72 : d95702 > cmp absflo,y ;test flags
> trap_ne
2e75 : d0fe > bne * ;failed not equal (non zero)
>
2e77 : 88 dey
2e78 : 10e6 bpl tand14
2e7a : a003 ldy #3
2e7c : tand15
set_ay absANa,$ff
> load_flag $ff
2e7c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2e7e : 48 > pha ;use stack to load status
2e7f : b94b02 > lda absANa,y ;precharge accu
2e82 : 28 > plp
2e83 : 313a and (indAN),y
tst_ay absrlo,absflo,$ff-fnz
2e85 : 08 > php ;save flags
2e86 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
2e89 : d0fe > bne * ;failed not equal (non zero)
>
2e8b : 68 > pla ;load status
> eor_flag $ff-fnz
2e8c : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2e8e : d95702 > cmp absflo,y ;test flags
> trap_ne
2e91 : d0fe > bne * ;failed not equal (non zero)
>
2e93 : 88 dey
2e94 : 10e6 bpl tand15
next_test
2e96 : ad0002 > lda test_case ;previous test
2e99 : c926 > cmp #test_num
> trap_ne ;test is out of sequence
2e9b : d0fe > bne * ;failed not equal (non zero)
>
0027 = >test_num = test_num + 1
2e9d : a927 > lda #test_num ;*** next tests' number
2e9f : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; EOR
2ea2 : a203 ldx #3 ;immediate - self modifying code
2ea4 : b520 teor lda zpEO,x
2ea6 : 8db12e sta teori1
set_ax absEOa,0
> load_flag 0
2ea9 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2eab : 48 > pha ;use stack to load status
2eac : bd4f02 > lda absEOa,x ;precharge accu
2eaf : 28 > plp
2eb1 = teori1 equ *+1 ;target for immediate operand
2eb0 : 4963 eor #99
tst_ax absrlo,absflo,0
2eb2 : 08 > php ;save flags
2eb3 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2eb6 : d0fe > bne * ;failed not equal (non zero)
>
2eb8 : 68 > pla ;load status
> eor_flag 0
2eb9 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2ebb : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2ebe : d0fe > bne * ;failed not equal (non zero)
>
2ec0 : ca dex
2ec1 : 10e1 bpl teor
2ec3 : a203 ldx #3
2ec5 : b520 teor1 lda zpEO,x
2ec7 : 8dd22e sta teori2
set_ax absEOa,$ff
> load_flag $ff
2eca : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2ecc : 48 > pha ;use stack to load status
2ecd : bd4f02 > lda absEOa,x ;precharge accu
2ed0 : 28 > plp
2ed2 = teori2 equ *+1 ;target for immediate operand
2ed1 : 4963 eor #99
tst_ax absrlo,absflo,$ff-fnz
2ed3 : 08 > php ;save flags
2ed4 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2ed7 : d0fe > bne * ;failed not equal (non zero)
>
2ed9 : 68 > pla ;load status
> eor_flag $ff-fnz
2eda : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2edc : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2edf : d0fe > bne * ;failed not equal (non zero)
>
2ee1 : ca dex
2ee2 : 10e1 bpl teor1
2ee4 : a203 ldx #3 ;zp
2ee6 : b520 teor2 lda zpEO,x
2ee8 : 850c sta zpt
set_ax absEOa,0
> load_flag 0
2eea : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2eec : 48 > pha ;use stack to load status
2eed : bd4f02 > lda absEOa,x ;precharge accu
2ef0 : 28 > plp
2ef1 : 450c eor zpt
tst_ax absrlo,absflo,0
2ef3 : 08 > php ;save flags
2ef4 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2ef7 : d0fe > bne * ;failed not equal (non zero)
>
2ef9 : 68 > pla ;load status
> eor_flag 0
2efa : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2efc : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2eff : d0fe > bne * ;failed not equal (non zero)
>
2f01 : ca dex
2f02 : 10e2 bpl teor2
2f04 : a203 ldx #3
2f06 : b520 teor3 lda zpEO,x
2f08 : 850c sta zpt
set_ax absEOa,$ff
> load_flag $ff
2f0a : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2f0c : 48 > pha ;use stack to load status
2f0d : bd4f02 > lda absEOa,x ;precharge accu
2f10 : 28 > plp
2f11 : 450c eor zpt
tst_ax absrlo,absflo,$ff-fnz
2f13 : 08 > php ;save flags
2f14 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2f17 : d0fe > bne * ;failed not equal (non zero)
>
2f19 : 68 > pla ;load status
> eor_flag $ff-fnz
2f1a : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2f1c : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2f1f : d0fe > bne * ;failed not equal (non zero)
>
2f21 : ca dex
2f22 : 10e2 bpl teor3
2f24 : a203 ldx #3 ;abs
2f26 : b520 teor4 lda zpEO,x
2f28 : 8d0302 sta abst
set_ax absEOa,0
> load_flag 0
2f2b : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2f2d : 48 > pha ;use stack to load status
2f2e : bd4f02 > lda absEOa,x ;precharge accu
2f31 : 28 > plp
2f32 : 4d0302 eor abst
tst_ax absrlo,absflo,0
2f35 : 08 > php ;save flags
2f36 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2f39 : d0fe > bne * ;failed not equal (non zero)
>
2f3b : 68 > pla ;load status
> eor_flag 0
2f3c : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2f3e : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2f41 : d0fe > bne * ;failed not equal (non zero)
>
2f43 : ca dex
2f44 : 10e0 bpl teor4
2f46 : a203 ldx #3
2f48 : b520 teor5 lda zpEO,x
2f4a : 8d0302 sta abst
set_ax absEOa,$ff
> load_flag $ff
2f4d : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2f4f : 48 > pha ;use stack to load status
2f50 : bd4f02 > lda absEOa,x ;precharge accu
2f53 : 28 > plp
2f54 : 4d0302 eor abst
tst_ax absrlo,absflo,$ff-fnz
2f57 : 08 > php ;save flags
2f58 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2f5b : d0fe > bne * ;failed not equal (non zero)
>
2f5d : 68 > pla ;load status
> eor_flag $ff-fnz
2f5e : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2f60 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2f63 : d0fe > bne * ;failed not equal (non zero)
>
2f65 : ca dex
2f66 : 1002 bpl teor6
2f68 : a203 ldx #3 ;zp,x
2f6a : teor6
set_ax absEOa,0
> load_flag 0
2f6a : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2f6c : 48 > pha ;use stack to load status
2f6d : bd4f02 > lda absEOa,x ;precharge accu
2f70 : 28 > plp
2f71 : 5520 eor zpEO,x
tst_ax absrlo,absflo,0
2f73 : 08 > php ;save flags
2f74 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2f77 : d0fe > bne * ;failed not equal (non zero)
>
2f79 : 68 > pla ;load status
> eor_flag 0
2f7a : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2f7c : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2f7f : d0fe > bne * ;failed not equal (non zero)
>
2f81 : ca dex
2f82 : 10e6 bpl teor6
2f84 : a203 ldx #3
2f86 : teor7
set_ax absEOa,$ff
> load_flag $ff
2f86 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2f88 : 48 > pha ;use stack to load status
2f89 : bd4f02 > lda absEOa,x ;precharge accu
2f8c : 28 > plp
2f8d : 5520 eor zpEO,x
tst_ax absrlo,absflo,$ff-fnz
2f8f : 08 > php ;save flags
2f90 : dd5302 > cmp absrlo,x ;test result
> trap_ne
2f93 : d0fe > bne * ;failed not equal (non zero)
>
2f95 : 68 > pla ;load status
> eor_flag $ff-fnz
2f96 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2f98 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2f9b : d0fe > bne * ;failed not equal (non zero)
>
2f9d : ca dex
2f9e : 10e6 bpl teor7
2fa0 : a203 ldx #3 ;abs,x
2fa2 : teor8
set_ax absEOa,0
> load_flag 0
2fa2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2fa4 : 48 > pha ;use stack to load status
2fa5 : bd4f02 > lda absEOa,x ;precharge accu
2fa8 : 28 > plp
2fa9 : 5d4302 eor absEO,x
tst_ax absrlo,absflo,0
2fac : 08 > php ;save flags
2fad : dd5302 > cmp absrlo,x ;test result
> trap_ne
2fb0 : d0fe > bne * ;failed not equal (non zero)
>
2fb2 : 68 > pla ;load status
> eor_flag 0
2fb3 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2fb5 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2fb8 : d0fe > bne * ;failed not equal (non zero)
>
2fba : ca dex
2fbb : 10e5 bpl teor8
2fbd : a203 ldx #3
2fbf : teor9
set_ax absEOa,$ff
> load_flag $ff
2fbf : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2fc1 : 48 > pha ;use stack to load status
2fc2 : bd4f02 > lda absEOa,x ;precharge accu
2fc5 : 28 > plp
2fc6 : 5d4302 eor absEO,x
tst_ax absrlo,absflo,$ff-fnz
2fc9 : 08 > php ;save flags
2fca : dd5302 > cmp absrlo,x ;test result
> trap_ne
2fcd : d0fe > bne * ;failed not equal (non zero)
>
2fcf : 68 > pla ;load status
> eor_flag $ff-fnz
2fd0 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
2fd2 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
2fd5 : d0fe > bne * ;failed not equal (non zero)
>
2fd7 : ca dex
2fd8 : 10e5 bpl teor9
2fda : a003 ldy #3 ;abs,y
2fdc : teor10
set_ay absEOa,0
> load_flag 0
2fdc : a900 > lda #0 ;allow test to change I-flag (no mask)
>
2fde : 48 > pha ;use stack to load status
2fdf : b94f02 > lda absEOa,y ;precharge accu
2fe2 : 28 > plp
2fe3 : 594302 eor absEO,y
tst_ay absrlo,absflo,0
2fe6 : 08 > php ;save flags
2fe7 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
2fea : d0fe > bne * ;failed not equal (non zero)
>
2fec : 68 > pla ;load status
> eor_flag 0
2fed : 4930 > eor #0|fao ;invert expected flags + always on bits
>
2fef : d95702 > cmp absflo,y ;test flags
> trap_ne
2ff2 : d0fe > bne * ;failed not equal (non zero)
>
2ff4 : 88 dey
2ff5 : 10e5 bpl teor10
2ff7 : a003 ldy #3
2ff9 : teor11
set_ay absEOa,$ff
> load_flag $ff
2ff9 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
2ffb : 48 > pha ;use stack to load status
2ffc : b94f02 > lda absEOa,y ;precharge accu
2fff : 28 > plp
3000 : 594302 eor absEO,y
tst_ay absrlo,absflo,$ff-fnz
3003 : 08 > php ;save flags
3004 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
3007 : d0fe > bne * ;failed not equal (non zero)
>
3009 : 68 > pla ;load status
> eor_flag $ff-fnz
300a : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
300c : d95702 > cmp absflo,y ;test flags
> trap_ne
300f : d0fe > bne * ;failed not equal (non zero)
>
3011 : 88 dey
3012 : 10e5 bpl teor11
3014 : a206 ldx #6 ;(zp,x)
3016 : a003 ldy #3
3018 : teor12
set_ay absEOa,0
> load_flag 0
3018 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
301a : 48 > pha ;use stack to load status
301b : b94f02 > lda absEOa,y ;precharge accu
301e : 28 > plp
301f : 4142 eor (indEO,x)
tst_ay absrlo,absflo,0
3021 : 08 > php ;save flags
3022 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
3025 : d0fe > bne * ;failed not equal (non zero)
>
3027 : 68 > pla ;load status
> eor_flag 0
3028 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
302a : d95702 > cmp absflo,y ;test flags
> trap_ne
302d : d0fe > bne * ;failed not equal (non zero)
>
302f : ca dex
3030 : ca dex
3031 : 88 dey
3032 : 10e4 bpl teor12
3034 : a206 ldx #6
3036 : a003 ldy #3
3038 : teor13
set_ay absEOa,$ff
> load_flag $ff
3038 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
303a : 48 > pha ;use stack to load status
303b : b94f02 > lda absEOa,y ;precharge accu
303e : 28 > plp
303f : 4142 eor (indEO,x)
tst_ay absrlo,absflo,$ff-fnz
3041 : 08 > php ;save flags
3042 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
3045 : d0fe > bne * ;failed not equal (non zero)
>
3047 : 68 > pla ;load status
> eor_flag $ff-fnz
3048 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
304a : d95702 > cmp absflo,y ;test flags
> trap_ne
304d : d0fe > bne * ;failed not equal (non zero)
>
304f : ca dex
3050 : ca dex
3051 : 88 dey
3052 : 10e4 bpl teor13
3054 : a003 ldy #3 ;(zp),y
3056 : teor14
set_ay absEOa,0
> load_flag 0
3056 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
3058 : 48 > pha ;use stack to load status
3059 : b94f02 > lda absEOa,y ;precharge accu
305c : 28 > plp
305d : 5142 eor (indEO),y
tst_ay absrlo,absflo,0
305f : 08 > php ;save flags
3060 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
3063 : d0fe > bne * ;failed not equal (non zero)
>
3065 : 68 > pla ;load status
> eor_flag 0
3066 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
3068 : d95702 > cmp absflo,y ;test flags
> trap_ne
306b : d0fe > bne * ;failed not equal (non zero)
>
306d : 88 dey
306e : 10e6 bpl teor14
3070 : a003 ldy #3
3072 : teor15
set_ay absEOa,$ff
> load_flag $ff
3072 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
3074 : 48 > pha ;use stack to load status
3075 : b94f02 > lda absEOa,y ;precharge accu
3078 : 28 > plp
3079 : 5142 eor (indEO),y
tst_ay absrlo,absflo,$ff-fnz
307b : 08 > php ;save flags
307c : d95302 > cmp absrlo,y ;test result
> trap_ne ;
307f : d0fe > bne * ;failed not equal (non zero)
>
3081 : 68 > pla ;load status
> eor_flag $ff-fnz
3082 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
3084 : d95702 > cmp absflo,y ;test flags
> trap_ne
3087 : d0fe > bne * ;failed not equal (non zero)
>
3089 : 88 dey
308a : 10e6 bpl teor15
next_test
308c : ad0002 > lda test_case ;previous test
308f : c927 > cmp #test_num
> trap_ne ;test is out of sequence
3091 : d0fe > bne * ;failed not equal (non zero)
>
0028 = >test_num = test_num + 1
3093 : a928 > lda #test_num ;*** next tests' number
3095 : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; OR
3098 : a203 ldx #3 ;immediate - self modifying code
309a : b518 tora lda zpOR,x
309c : 8da730 sta torai1
set_ax absORa,0
> load_flag 0
309f : a900 > lda #0 ;allow test to change I-flag (no mask)
>
30a1 : 48 > pha ;use stack to load status
30a2 : bd4702 > lda absORa,x ;precharge accu
30a5 : 28 > plp
30a7 = torai1 equ *+1 ;target for immediate operand
30a6 : 0963 ora #99
tst_ax absrlo,absflo,0
30a8 : 08 > php ;save flags
30a9 : dd5302 > cmp absrlo,x ;test result
> trap_ne
30ac : d0fe > bne * ;failed not equal (non zero)
>
30ae : 68 > pla ;load status
> eor_flag 0
30af : 4930 > eor #0|fao ;invert expected flags + always on bits
>
30b1 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
30b4 : d0fe > bne * ;failed not equal (non zero)
>
30b6 : ca dex
30b7 : 10e1 bpl tora
30b9 : a203 ldx #3
30bb : b518 tora1 lda zpOR,x
30bd : 8dc830 sta torai2
set_ax absORa,$ff
> load_flag $ff
30c0 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
30c2 : 48 > pha ;use stack to load status
30c3 : bd4702 > lda absORa,x ;precharge accu
30c6 : 28 > plp
30c8 = torai2 equ *+1 ;target for immediate operand
30c7 : 0963 ora #99
tst_ax absrlo,absflo,$ff-fnz
30c9 : 08 > php ;save flags
30ca : dd5302 > cmp absrlo,x ;test result
> trap_ne
30cd : d0fe > bne * ;failed not equal (non zero)
>
30cf : 68 > pla ;load status
> eor_flag $ff-fnz
30d0 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
30d2 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
30d5 : d0fe > bne * ;failed not equal (non zero)
>
30d7 : ca dex
30d8 : 10e1 bpl tora1
30da : a203 ldx #3 ;zp
30dc : b518 tora2 lda zpOR,x
30de : 850c sta zpt
set_ax absORa,0
> load_flag 0
30e0 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
30e2 : 48 > pha ;use stack to load status
30e3 : bd4702 > lda absORa,x ;precharge accu
30e6 : 28 > plp
30e7 : 050c ora zpt
tst_ax absrlo,absflo,0
30e9 : 08 > php ;save flags
30ea : dd5302 > cmp absrlo,x ;test result
> trap_ne
30ed : d0fe > bne * ;failed not equal (non zero)
>
30ef : 68 > pla ;load status
> eor_flag 0
30f0 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
30f2 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
30f5 : d0fe > bne * ;failed not equal (non zero)
>
30f7 : ca dex
30f8 : 10e2 bpl tora2
30fa : a203 ldx #3
30fc : b518 tora3 lda zpOR,x
30fe : 850c sta zpt
set_ax absORa,$ff
> load_flag $ff
3100 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
3102 : 48 > pha ;use stack to load status
3103 : bd4702 > lda absORa,x ;precharge accu
3106 : 28 > plp
3107 : 050c ora zpt
tst_ax absrlo,absflo,$ff-fnz
3109 : 08 > php ;save flags
310a : dd5302 > cmp absrlo,x ;test result
> trap_ne
310d : d0fe > bne * ;failed not equal (non zero)
>
310f : 68 > pla ;load status
> eor_flag $ff-fnz
3110 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
3112 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
3115 : d0fe > bne * ;failed not equal (non zero)
>
3117 : ca dex
3118 : 10e2 bpl tora3
311a : a203 ldx #3 ;abs
311c : b518 tora4 lda zpOR,x
311e : 8d0302 sta abst
set_ax absORa,0
> load_flag 0
3121 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
3123 : 48 > pha ;use stack to load status
3124 : bd4702 > lda absORa,x ;precharge accu
3127 : 28 > plp
3128 : 0d0302 ora abst
tst_ax absrlo,absflo,0
312b : 08 > php ;save flags
312c : dd5302 > cmp absrlo,x ;test result
> trap_ne
312f : d0fe > bne * ;failed not equal (non zero)
>
3131 : 68 > pla ;load status
> eor_flag 0
3132 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
3134 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
3137 : d0fe > bne * ;failed not equal (non zero)
>
3139 : ca dex
313a : 10e0 bpl tora4
313c : a203 ldx #3
313e : b518 tora5 lda zpOR,x
3140 : 8d0302 sta abst
set_ax absORa,$ff
> load_flag $ff
3143 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
3145 : 48 > pha ;use stack to load status
3146 : bd4702 > lda absORa,x ;precharge accu
3149 : 28 > plp
314a : 0d0302 ora abst
tst_ax absrlo,absflo,$ff-fnz
314d : 08 > php ;save flags
314e : dd5302 > cmp absrlo,x ;test result
> trap_ne
3151 : d0fe > bne * ;failed not equal (non zero)
>
3153 : 68 > pla ;load status
> eor_flag $ff-fnz
3154 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
3156 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
3159 : d0fe > bne * ;failed not equal (non zero)
>
315b : ca dex
315c : 1002 bpl tora6
315e : a203 ldx #3 ;zp,x
3160 : tora6
set_ax absORa,0
> load_flag 0
3160 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
3162 : 48 > pha ;use stack to load status
3163 : bd4702 > lda absORa,x ;precharge accu
3166 : 28 > plp
3167 : 1518 ora zpOR,x
tst_ax absrlo,absflo,0
3169 : 08 > php ;save flags
316a : dd5302 > cmp absrlo,x ;test result
> trap_ne
316d : d0fe > bne * ;failed not equal (non zero)
>
316f : 68 > pla ;load status
> eor_flag 0
3170 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
3172 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
3175 : d0fe > bne * ;failed not equal (non zero)
>
3177 : ca dex
3178 : 10e6 bpl tora6
317a : a203 ldx #3
317c : tora7
set_ax absORa,$ff
> load_flag $ff
317c : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
317e : 48 > pha ;use stack to load status
317f : bd4702 > lda absORa,x ;precharge accu
3182 : 28 > plp
3183 : 1518 ora zpOR,x
tst_ax absrlo,absflo,$ff-fnz
3185 : 08 > php ;save flags
3186 : dd5302 > cmp absrlo,x ;test result
> trap_ne
3189 : d0fe > bne * ;failed not equal (non zero)
>
318b : 68 > pla ;load status
> eor_flag $ff-fnz
318c : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
318e : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
3191 : d0fe > bne * ;failed not equal (non zero)
>
3193 : ca dex
3194 : 10e6 bpl tora7
3196 : a203 ldx #3 ;abs,x
3198 : tora8
set_ax absORa,0
> load_flag 0
3198 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
319a : 48 > pha ;use stack to load status
319b : bd4702 > lda absORa,x ;precharge accu
319e : 28 > plp
319f : 1d3b02 ora absOR,x
tst_ax absrlo,absflo,0
31a2 : 08 > php ;save flags
31a3 : dd5302 > cmp absrlo,x ;test result
> trap_ne
31a6 : d0fe > bne * ;failed not equal (non zero)
>
31a8 : 68 > pla ;load status
> eor_flag 0
31a9 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
31ab : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
31ae : d0fe > bne * ;failed not equal (non zero)
>
31b0 : ca dex
31b1 : 10e5 bpl tora8
31b3 : a203 ldx #3
31b5 : tora9
set_ax absORa,$ff
> load_flag $ff
31b5 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
31b7 : 48 > pha ;use stack to load status
31b8 : bd4702 > lda absORa,x ;precharge accu
31bb : 28 > plp
31bc : 1d3b02 ora absOR,x
tst_ax absrlo,absflo,$ff-fnz
31bf : 08 > php ;save flags
31c0 : dd5302 > cmp absrlo,x ;test result
> trap_ne
31c3 : d0fe > bne * ;failed not equal (non zero)
>
31c5 : 68 > pla ;load status
> eor_flag $ff-fnz
31c6 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
31c8 : dd5702 > cmp absflo,x ;test flags
> trap_ne ;
31cb : d0fe > bne * ;failed not equal (non zero)
>
31cd : ca dex
31ce : 10e5 bpl tora9
31d0 : a003 ldy #3 ;abs,y
31d2 : tora10
set_ay absORa,0
> load_flag 0
31d2 : a900 > lda #0 ;allow test to change I-flag (no mask)
>
31d4 : 48 > pha ;use stack to load status
31d5 : b94702 > lda absORa,y ;precharge accu
31d8 : 28 > plp
31d9 : 193b02 ora absOR,y
tst_ay absrlo,absflo,0
31dc : 08 > php ;save flags
31dd : d95302 > cmp absrlo,y ;test result
> trap_ne ;
31e0 : d0fe > bne * ;failed not equal (non zero)
>
31e2 : 68 > pla ;load status
> eor_flag 0
31e3 : 4930 > eor #0|fao ;invert expected flags + always on bits
>
31e5 : d95702 > cmp absflo,y ;test flags
> trap_ne
31e8 : d0fe > bne * ;failed not equal (non zero)
>
31ea : 88 dey
31eb : 10e5 bpl tora10
31ed : a003 ldy #3
31ef : tora11
set_ay absORa,$ff
> load_flag $ff
31ef : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
31f1 : 48 > pha ;use stack to load status
31f2 : b94702 > lda absORa,y ;precharge accu
31f5 : 28 > plp
31f6 : 193b02 ora absOR,y
tst_ay absrlo,absflo,$ff-fnz
31f9 : 08 > php ;save flags
31fa : d95302 > cmp absrlo,y ;test result
> trap_ne ;
31fd : d0fe > bne * ;failed not equal (non zero)
>
31ff : 68 > pla ;load status
> eor_flag $ff-fnz
3200 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
3202 : d95702 > cmp absflo,y ;test flags
> trap_ne
3205 : d0fe > bne * ;failed not equal (non zero)
>
3207 : 88 dey
3208 : 10e5 bpl tora11
320a : a206 ldx #6 ;(zp,x)
320c : a003 ldy #3
320e : tora12
set_ay absORa,0
> load_flag 0
320e : a900 > lda #0 ;allow test to change I-flag (no mask)
>
3210 : 48 > pha ;use stack to load status
3211 : b94702 > lda absORa,y ;precharge accu
3214 : 28 > plp
3215 : 014a ora (indOR,x)
tst_ay absrlo,absflo,0
3217 : 08 > php ;save flags
3218 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
321b : d0fe > bne * ;failed not equal (non zero)
>
321d : 68 > pla ;load status
> eor_flag 0
321e : 4930 > eor #0|fao ;invert expected flags + always on bits
>
3220 : d95702 > cmp absflo,y ;test flags
> trap_ne
3223 : d0fe > bne * ;failed not equal (non zero)
>
3225 : ca dex
3226 : ca dex
3227 : 88 dey
3228 : 10e4 bpl tora12
322a : a206 ldx #6
322c : a003 ldy #3
322e : tora13
set_ay absORa,$ff
> load_flag $ff
322e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
3230 : 48 > pha ;use stack to load status
3231 : b94702 > lda absORa,y ;precharge accu
3234 : 28 > plp
3235 : 014a ora (indOR,x)
tst_ay absrlo,absflo,$ff-fnz
3237 : 08 > php ;save flags
3238 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
323b : d0fe > bne * ;failed not equal (non zero)
>
323d : 68 > pla ;load status
> eor_flag $ff-fnz
323e : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
3240 : d95702 > cmp absflo,y ;test flags
> trap_ne
3243 : d0fe > bne * ;failed not equal (non zero)
>
3245 : ca dex
3246 : ca dex
3247 : 88 dey
3248 : 10e4 bpl tora13
324a : a003 ldy #3 ;(zp),y
324c : tora14
set_ay absORa,0
> load_flag 0
324c : a900 > lda #0 ;allow test to change I-flag (no mask)
>
324e : 48 > pha ;use stack to load status
324f : b94702 > lda absORa,y ;precharge accu
3252 : 28 > plp
3253 : 114a ora (indOR),y
tst_ay absrlo,absflo,0
3255 : 08 > php ;save flags
3256 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
3259 : d0fe > bne * ;failed not equal (non zero)
>
325b : 68 > pla ;load status
> eor_flag 0
325c : 4930 > eor #0|fao ;invert expected flags + always on bits
>
325e : d95702 > cmp absflo,y ;test flags
> trap_ne
3261 : d0fe > bne * ;failed not equal (non zero)
>
3263 : 88 dey
3264 : 10e6 bpl tora14
3266 : a003 ldy #3
3268 : tora15
set_ay absORa,$ff
> load_flag $ff
3268 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
326a : 48 > pha ;use stack to load status
326b : b94702 > lda absORa,y ;precharge accu
326e : 28 > plp
326f : 114a ora (indOR),y
tst_ay absrlo,absflo,$ff-fnz
3271 : 08 > php ;save flags
3272 : d95302 > cmp absrlo,y ;test result
> trap_ne ;
3275 : d0fe > bne * ;failed not equal (non zero)
>
3277 : 68 > pla ;load status
> eor_flag $ff-fnz
3278 : 497d > eor #$ff-fnz|fao ;invert expected flags + always on bits
>
327a : d95702 > cmp absflo,y ;test flags
> trap_ne
327d : d0fe > bne * ;failed not equal (non zero)
>
327f : 88 dey
3280 : 10e6 bpl tora15
if I_flag = 3
3282 : 58 cli
endif
next_test
3283 : ad0002 > lda test_case ;previous test
3286 : c928 > cmp #test_num
> trap_ne ;test is out of sequence
3288 : d0fe > bne * ;failed not equal (non zero)
>
0029 = >test_num = test_num + 1
328a : a929 > lda #test_num ;*** next tests' number
328c : 8d0002 > sta test_case
> ;check_ram ;uncomment to find altered RAM after each test
; full binary add/subtract test
; iterates through all combinations of operands and carry input
; uses increments/decrements to predict result & result flags
328f : d8 cld
3290 : a20e ldx #ad2 ;for indexed test
3292 : a0ff ldy #$ff ;max range
3294 : a900 lda #0 ;start with adding zeroes & no carry
3296 : 850c sta adfc ;carry in - for diag
3298 : 850d sta ad1 ;operand 1 - accumulator
329a : 850e sta ad2 ;operand 2 - memory or immediate
329c : 8d0302 sta ada2 ;non zp
329f : 850f sta adrl ;expected result bits 0-7
32a1 : 8510 sta adrh ;expected result bit 8 (carry out)
32a3 : a9ff lda #$ff ;complemented operand 2 for subtract
32a5 : 8512 sta sb2
32a7 : 8d0402 sta sba2 ;non zp
32aa : a902 lda #2 ;expected Z-flag
32ac : 8511 sta adrf
32ae : 18 tadd clc ;test with carry clear
32af : 20d034 jsr chkadd
32b2 : e60c inc adfc ;now with carry
32b4 : e60f inc adrl ;result +1
32b6 : 08 php ;save N & Z from low result
32b7 : 08 php
32b8 : 68 pla ;accu holds expected flags
32b9 : 2982 and #$82 ;mask N & Z
32bb : 28 plp
32bc : d002 bne tadd1
32be : e610 inc adrh ;result bit 8 - carry
32c0 : 0510 tadd1 ora adrh ;merge C to expected flags
32c2 : 8511 sta adrf ;save expected flags except overflow
32c4 : 38 sec ;test with carry set
32c5 : 20d034 jsr chkadd
32c8 : c60c dec adfc ;same for operand +1 but no carry
32ca : e60d inc ad1
32cc : d0e0 bne tadd ;iterate op1
32ce : a900 lda #0 ;preset result to op2 when op1 = 0
32d0 : 8510 sta adrh
32d2 : ee0302 inc ada2
32d5 : e60e inc ad2
32d7 : 08 php ;save NZ as operand 2 becomes the new result
32d8 : 68 pla
32d9 : 2982 and #$82 ;mask N00000Z0
32db : 8511 sta adrf ;no need to check carry as we are adding to 0
32dd : c612 dec sb2 ;complement subtract operand 2
32df : ce0402 dec sba2
32e2 : a50e lda ad2
32e4 : 850f sta adrl
32e6 : d0c6 bne tadd ;iterate op2
next_test
32e8 : ad0002 > lda test_case ;previous test
32eb : c929 > cmp #test_num
> trap_ne ;test is out of sequence
32ed : d0fe > bne * ;failed not equal (non zero)
>
002a = >test_num = test_num + 1
32ef : a92a > lda #test_num ;*** next tests' number
32f1 : 8d0002 > 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, N V Z flags are ignored
; iterates through all valid combinations of operands and carry input
; uses increments/decrements to predict result & carry flag
32f4 : f8 sed
32f5 : a20e ldx #ad2 ;for indexed test
32f7 : a0ff ldy #$ff ;max range
32f9 : a999 lda #$99 ;start with adding 99 to 99 with carry
32fb : 850d sta ad1 ;operand 1 - accumulator
32fd : 850e sta ad2 ;operand 2 - memory or immediate
32ff : 8d0302 sta ada2 ;non zp
3302 : 850f sta adrl ;expected result bits 0-7
3304 : a901 lda #1 ;set carry in & out
3306 : 850c sta adfc ;carry in - for diag
3308 : 8510 sta adrh ;expected result bit 8 (carry out)
330a : a900 lda #0 ;complemented operand 2 for subtract
330c : 8512 sta sb2
330e : 8d0402 sta sba2 ;non zp
3311 : 38 tdad sec ;test with carry set
3312 : 209f33 jsr chkdad
3315 : c60c dec adfc ;now with carry clear
3317 : a50f lda adrl ;decimal adjust result
3319 : d008 bne tdad1 ;skip clear carry & preset result 99 (9A-1)
331b : c610 dec adrh
331d : a999 lda #$99
331f : 850f sta adrl
3321 : d012 bne tdad3
3323 : 290f tdad1 and #$f ;lower nibble mask
3325 : d00c bne tdad2 ;no decimal adjust needed
3327 : c60f dec adrl ;decimal adjust (?0-6)
3329 : c60f dec adrl
332b : c60f dec adrl
332d : c60f dec adrl
332f : c60f dec adrl
3331 : c60f dec adrl
3333 : c60f tdad2 dec adrl ;result -1
3335 : 18 tdad3 clc ;test with carry clear
3336 : 209f33 jsr chkdad
3339 : e60c inc adfc ;same for operand -1 but with carry
333b : a50d lda ad1 ;decimal adjust operand 1
333d : f015 beq tdad5 ;iterate operand 2
333f : 290f and #$f ;lower nibble mask
3341 : d00c bne tdad4 ;skip decimal adjust
3343 : c60d dec ad1 ;decimal adjust (?0-6)
3345 : c60d dec ad1
3347 : c60d dec ad1
3349 : c60d dec ad1
334b : c60d dec ad1
334d : c60d dec ad1
334f : c60d tdad4 dec ad1 ;operand 1 -1
3351 : 4c1133 jmp tdad ;iterate op1
3354 : a999 tdad5 lda #$99 ;precharge op1 max
3356 : 850d sta ad1
3358 : a50e lda ad2 ;decimal adjust operand 2
335a : f030 beq tdad7 ;end of iteration
335c : 290f and #$f ;lower nibble mask
335e : d018 bne tdad6 ;skip decimal adjust
3360 : c60e dec ad2 ;decimal adjust (?0-6)
3362 : c60e dec ad2
3364 : c60e dec ad2
3366 : c60e dec ad2
3368 : c60e dec ad2
336a : c60e dec ad2
336c : e612 inc sb2 ;complemented decimal adjust for subtract (?9+6)
336e : e612 inc sb2
3370 : e612 inc sb2
3372 : e612 inc sb2
3374 : e612 inc sb2
3376 : e612 inc sb2
3378 : c60e tdad6 dec ad2 ;operand 2 -1
337a : e612 inc sb2 ;complemented operand for subtract
337c : a512 lda sb2
337e : 8d0402 sta sba2 ;copy as non zp operand
3381 : a50e lda ad2
3383 : 8d0302 sta ada2 ;copy as non zp operand
3386 : 850f sta adrl ;new result since op1+carry=00+carry +op2=op2
3388 : e610 inc adrh ;result carry
338a : d085 bne tdad ;iterate op2
338c : d8 tdad7 cld
338d : ad0002 lda test_case
3390 : c92a cmp #test_num
trap_ne ;previous test is out of sequence
3392 : d0fe > bne * ;failed not equal (non zero)
3394 : a9f0 lda #$f0 ;mark opcode testing complete
3396 : 8d0002 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
3399 : 4c9933 > jmp * ;test passed, no errors
; -------------
; S U C C E S S ************************************************
339c : 4c0004 jmp start ;run again
; core subroutine of the decimal add/subtract test
; *** WARNING - tests documented behavior only! ***
; only valid BCD operands are tested, N V Z flags are ignored
; iterates through all valid combinations of operands and carry input
; uses increments/decrements to predict result & carry flag
339f : chkdad
; decimal ADC / SBC zp
339f : 08 php ;save carry for subtract
33a0 : a50d lda ad1
33a2 : 650e adc ad2 ;perform add
33a4 : 08 php
33a5 : c50f cmp adrl ;check result
trap_ne ;bad result
33a7 : d0fe > bne * ;failed not equal (non zero)
33a9 : 68 pla ;check flags
33aa : 2901 and #1 ;mask carry
33ac : c510 cmp adrh
trap_ne ;bad carry
33ae : d0fe > bne * ;failed not equal (non zero)
33b0 : 28 plp
33b1 : 08 php ;save carry for next add
33b2 : a50d lda ad1
33b4 : e512 sbc sb2 ;perform subtract
33b6 : 08 php
33b7 : c50f cmp adrl ;check result
trap_ne ;bad result
33b9 : d0fe > bne * ;failed not equal (non zero)
33bb : 68 pla ;check flags
33bc : 2901 and #1 ;mask carry
33be : c510 cmp adrh
trap_ne ;bad flags
33c0 : d0fe > bne * ;failed not equal (non zero)
33c2 : 28 plp
; decimal ADC / SBC abs
33c3 : 08 php ;save carry for subtract
33c4 : a50d lda ad1
33c6 : 6d0302 adc ada2 ;perform add
33c9 : 08 php
33ca : c50f cmp adrl ;check result
trap_ne ;bad result
33cc : d0fe > bne * ;failed not equal (non zero)
33ce : 68 pla ;check flags
33cf : 2901 and #1 ;mask carry
33d1 : c510 cmp adrh
trap_ne ;bad carry
33d3 : d0fe > bne * ;failed not equal (non zero)
33d5 : 28 plp
33d6 : 08 php ;save carry for next add
33d7 : a50d lda ad1
33d9 : ed0402 sbc sba2 ;perform subtract
33dc : 08 php
33dd : c50f cmp adrl ;check result
trap_ne ;bad result
33df : d0fe > bne * ;failed not equal (non zero)
33e1 : 68 pla ;check flags
33e2 : 2901 and #1 ;mask carry
33e4 : c510 cmp adrh
trap_ne ;bad carry
33e6 : d0fe > bne * ;failed not equal (non zero)
33e8 : 28 plp
; decimal ADC / SBC #
33e9 : 08 php ;save carry for subtract
33ea : a50e lda ad2
33ec : 8df233 sta chkdadi ;self modify immediate
33ef : a50d lda ad1
33f2 = chkdadi = * + 1 ;operand of the immediate ADC
33f1 : 6900 adc #0 ;perform add
33f3 : 08 php
33f4 : c50f cmp adrl ;check result
trap_ne ;bad result
33f6 : d0fe > bne * ;failed not equal (non zero)
33f8 : 68 pla ;check flags
33f9 : 2901 and #1 ;mask carry
33fb : c510 cmp adrh
trap_ne ;bad carry
33fd : d0fe > bne * ;failed not equal (non zero)
33ff : 28 plp
3400 : 08 php ;save carry for next add
3401 : a512 lda sb2
3403 : 8d0934 sta chkdsbi ;self modify immediate
3406 : a50d lda ad1
3409 = chkdsbi = * + 1 ;operand of the immediate SBC
3408 : e900 sbc #0 ;perform subtract
340a : 08 php
340b : c50f cmp adrl ;check result
trap_ne ;bad result
340d : d0fe > bne * ;failed not equal (non zero)
340f : 68 pla ;check flags
3410 : 2901 and #1 ;mask carry
3412 : c510 cmp adrh
trap_ne ;bad carry
3414 : d0fe > bne * ;failed not equal (non zero)
3416 : 28 plp
; decimal ADC / SBC zp,x
3417 : 08 php ;save carry for subtract
3418 : a50d lda ad1
341a : 7500 adc 0,x ;perform add
341c : 08 php
341d : c50f cmp adrl ;check result
trap_ne ;bad result
341f : d0fe > bne * ;failed not equal (non zero)
3421 : 68 pla ;check flags
3422 : 2901 and #1 ;mask carry
3424 : c510 cmp adrh
trap_ne ;bad carry
3426 : d0fe > bne * ;failed not equal (non zero)
3428 : 28 plp
3429 : 08 php ;save carry for next add
342a : a50d lda ad1
342c : f504 sbc sb2-ad2,x ;perform subtract
342e : 08 php
342f : c50f cmp adrl ;check result
trap_ne ;bad result
3431 : d0fe > bne * ;failed not equal (non zero)
3433 : 68 pla ;check flags
3434 : 2901 and #1 ;mask carry
3436 : c510 cmp adrh
trap_ne ;bad carry
3438 : d0fe > bne * ;failed not equal (non zero)
343a : 28 plp
; decimal ADC / SBC abs,x
343b : 08 php ;save carry for subtract
343c : a50d lda ad1
343e : 7df501 adc ada2-ad2,x ;perform add
3441 : 08 php
3442 : c50f cmp adrl ;check result
trap_ne ;bad result
3444 : d0fe > bne * ;failed not equal (non zero)
3446 : 68 pla ;check flags
3447 : 2901 and #1 ;mask carry
3449 : c510 cmp adrh
trap_ne ;bad carry
344b : d0fe > bne * ;failed not equal (non zero)
344d : 28 plp
344e : 08 php ;save carry for next add
344f : a50d lda ad1
3451 : fdf601 sbc sba2-ad2,x ;perform subtract
3454 : 08 php
3455 : c50f cmp adrl ;check result
trap_ne ;bad result
3457 : d0fe > bne * ;failed not equal (non zero)
3459 : 68 pla ;check flags
345a : 2901 and #1 ;mask carry
345c : c510 cmp adrh
trap_ne ;bad carry
345e : d0fe > bne * ;failed not equal (non zero)
3460 : 28 plp
; decimal ADC / SBC abs,y
3461 : 08 php ;save carry for subtract
3462 : a50d lda ad1
3464 : 790401 adc ada2-$ff,y ;perform add
3467 : 08 php
3468 : c50f cmp adrl ;check result
trap_ne ;bad result
346a : d0fe > bne * ;failed not equal (non zero)
346c : 68 pla ;check flags
346d : 2901 and #1 ;mask carry
346f : c510 cmp adrh
trap_ne ;bad carry
3471 : d0fe > bne * ;failed not equal (non zero)
3473 : 28 plp
3474 : 08 php ;save carry for next add
3475 : a50d lda ad1
3477 : f90501 sbc sba2-$ff,y ;perform subtract
347a : 08 php
347b : c50f cmp adrl ;check result
trap_ne ;bad result
347d : d0fe > bne * ;failed not equal (non zero)
347f : 68 pla ;check flags
3480 : 2901 and #1 ;mask carry
3482 : c510 cmp adrh
trap_ne ;bad carry
3484 : d0fe > bne * ;failed not equal (non zero)
3486 : 28 plp
; decimal ADC / SBC (zp,x)
3487 : 08 php ;save carry for subtract
3488 : a50d lda ad1
348a : 6144 adc (lo adi2-ad2,x) ;perform add
348c : 08 php
348d : c50f cmp adrl ;check result
trap_ne ;bad result
348f : d0fe > bne * ;failed not equal (non zero)
3491 : 68 pla ;check flags
3492 : 2901 and #1 ;mask carry
3494 : c510 cmp adrh
trap_ne ;bad carry
3496 : d0fe > bne * ;failed not equal (non zero)
3498 : 28 plp
3499 : 08 php ;save carry for next add
349a : a50d lda ad1
349c : e146 sbc (lo sbi2-ad2,x) ;perform subtract
349e : 08 php
349f : c50f cmp adrl ;check result
trap_ne ;bad result
34a1 : d0fe > bne * ;failed not equal (non zero)
34a3 : 68 pla ;check flags
34a4 : 2901 and #1 ;mask carry
34a6 : c510 cmp adrh
trap_ne ;bad carry
34a8 : d0fe > bne * ;failed not equal (non zero)
34aa : 28 plp
; decimal ADC / SBC (abs),y
34ab : 08 php ;save carry for subtract
34ac : a50d lda ad1
34ae : 7156 adc (adiy2),y ;perform add
34b0 : 08 php
34b1 : c50f cmp adrl ;check result
trap_ne ;bad result
34b3 : d0fe > bne * ;failed not equal (non zero)
34b5 : 68 pla ;check flags
34b6 : 2901 and #1 ;mask carry
34b8 : c510 cmp adrh
trap_ne ;bad carry
34ba : d0fe > bne * ;failed not equal (non zero)
34bc : 28 plp
34bd : 08 php ;save carry for next add
34be : a50d lda ad1
34c0 : f158 sbc (sbiy2),y ;perform subtract
34c2 : 08 php
34c3 : c50f cmp adrl ;check result
trap_ne ;bad result
34c5 : d0fe > bne * ;failed not equal (non zero)
34c7 : 68 pla ;check flags
34c8 : 2901 and #1 ;mask carry
34ca : c510 cmp adrh
trap_ne ;bad carry
34cc : d0fe > bne * ;failed not equal (non zero)
34ce : 28 plp
34cf : 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
34d0 : a511 chkadd lda adrf ;add V-flag if overflow
34d2 : 2983 and #$83 ;keep N-----ZC / clear V
34d4 : 48 pha
34d5 : a50d lda ad1 ;test sign unequal between operands
34d7 : 450e eor ad2
34d9 : 300a bmi ckad1 ;no overflow possible - operands have different sign
34db : a50d lda ad1 ;test sign equal between operands and result
34dd : 450f eor adrl
34df : 1004 bpl ckad1 ;no overflow occured - operand and result have same sign
34e1 : 68 pla
34e2 : 0940 ora #$40 ;set V
34e4 : 48 pha
34e5 : 68 ckad1 pla
34e6 : 8511 sta adrf ;save expected flags
; binary ADC / SBC zp
34e8 : 08 php ;save carry for subtract
34e9 : a50d lda ad1
34eb : 650e adc ad2 ;perform add
34ed : 08 php
34ee : c50f cmp adrl ;check result
trap_ne ;bad result
34f0 : d0fe > bne * ;failed not equal (non zero)
34f2 : 68 pla ;check flags
34f3 : 29c3 and #$c3 ;mask NV----ZC
34f5 : c511 cmp adrf
trap_ne ;bad flags
34f7 : d0fe > bne * ;failed not equal (non zero)
34f9 : 28 plp
34fa : 08 php ;save carry for next add
34fb : a50d lda ad1
34fd : e512 sbc sb2 ;perform subtract
34ff : 08 php
3500 : c50f cmp adrl ;check result
trap_ne ;bad result
3502 : d0fe > bne * ;failed not equal (non zero)
3504 : 68 pla ;check flags
3505 : 29c3 and #$c3 ;mask NV----ZC
3507 : c511 cmp adrf
trap_ne ;bad flags
3509 : d0fe > bne * ;failed not equal (non zero)
350b : 28 plp
; binary ADC / SBC abs
350c : 08 php ;save carry for subtract
350d : a50d lda ad1
350f : 6d0302 adc ada2 ;perform add
3512 : 08 php
3513 : c50f cmp adrl ;check result
trap_ne ;bad result
3515 : d0fe > bne * ;failed not equal (non zero)
3517 : 68 pla ;check flags
3518 : 29c3 and #$c3 ;mask NV----ZC
351a : c511 cmp adrf
trap_ne ;bad flags
351c : d0fe > bne * ;failed not equal (non zero)
351e : 28 plp
351f : 08 php ;save carry for next add
3520 : a50d lda ad1
3522 : ed0402 sbc sba2 ;perform subtract
3525 : 08 php
3526 : c50f cmp adrl ;check result
trap_ne ;bad result
3528 : d0fe > bne * ;failed not equal (non zero)
352a : 68 pla ;check flags
352b : 29c3 and #$c3 ;mask NV----ZC
352d : c511 cmp adrf
trap_ne ;bad flags
352f : d0fe > bne * ;failed not equal (non zero)
3531 : 28 plp
; binary ADC / SBC #
3532 : 08 php ;save carry for subtract
3533 : a50e lda ad2
3535 : 8d3b35 sta chkadi ;self modify immediate
3538 : a50d lda ad1
353b = chkadi = * + 1 ;operand of the immediate ADC
353a : 6900 adc #0 ;perform add
353c : 08 php
353d : c50f cmp adrl ;check result
trap_ne ;bad result
353f : d0fe > bne * ;failed not equal (non zero)
3541 : 68 pla ;check flags
3542 : 29c3 and #$c3 ;mask NV----ZC
3544 : c511 cmp adrf
trap_ne ;bad flags
3546 : d0fe > bne * ;failed not equal (non zero)
3548 : 28 plp
3549 : 08 php ;save carry for next add
354a : a512 lda sb2
354c : 8d5235 sta chksbi ;self modify immediate
354f : a50d lda ad1
3552 = chksbi = * + 1 ;operand of the immediate SBC
3551 : e900 sbc #0 ;perform subtract
3553 : 08 php
3554 : c50f cmp adrl ;check result
trap_ne ;bad result
3556 : d0fe > bne * ;failed not equal (non zero)
3558 : 68 pla ;check flags
3559 : 29c3 and #$c3 ;mask NV----ZC
355b : c511 cmp adrf
trap_ne ;bad flags
355d : d0fe > bne * ;failed not equal (non zero)
355f : 28 plp
; binary ADC / SBC zp,x
3560 : 08 php ;save carry for subtract
3561 : a50d lda ad1
3563 : 7500 adc 0,x ;perform add
3565 : 08 php
3566 : c50f cmp adrl ;check result
trap_ne ;bad result
3568 : d0fe > bne * ;failed not equal (non zero)
356a : 68 pla ;check flags
356b : 29c3 and #$c3 ;mask NV----ZC
356d : c511 cmp adrf
trap_ne ;bad flags
356f : d0fe > bne * ;failed not equal (non zero)
3571 : 28 plp
3572 : 08 php ;save carry for next add
3573 : a50d lda ad1
3575 : f504 sbc sb2-ad2,x ;perform subtract
3577 : 08 php
3578 : c50f cmp adrl ;check result
trap_ne ;bad result
357a : d0fe > bne * ;failed not equal (non zero)
357c : 68 pla ;check flags
357d : 29c3 and #$c3 ;mask NV----ZC
357f : c511 cmp adrf
trap_ne ;bad flags
3581 : d0fe > bne * ;failed not equal (non zero)
3583 : 28 plp
; binary ADC / SBC abs,x
3584 : 08 php ;save carry for subtract
3585 : a50d lda ad1
3587 : 7df501 adc ada2-ad2,x ;perform add
358a : 08 php
358b : c50f cmp adrl ;check result
trap_ne ;bad result
358d : d0fe > bne * ;failed not equal (non zero)
358f : 68 pla ;check flags
3590 : 29c3 and #$c3 ;mask NV----ZC
3592 : c511 cmp adrf
trap_ne ;bad flags
3594 : d0fe > bne * ;failed not equal (non zero)
3596 : 28 plp
3597 : 08 php ;save carry for next add
3598 : a50d lda ad1
359a : fdf601 sbc sba2-ad2,x ;perform subtract
359d : 08 php
359e : c50f cmp adrl ;check result
trap_ne ;bad result
35a0 : d0fe > bne * ;failed not equal (non zero)
35a2 : 68 pla ;check flags
35a3 : 29c3 and #$c3 ;mask NV----ZC
35a5 : c511 cmp adrf
trap_ne ;bad flags
35a7 : d0fe > bne * ;failed not equal (non zero)
35a9 : 28 plp
; binary ADC / SBC abs,y
35aa : 08 php ;save carry for subtract
35ab : a50d lda ad1
35ad : 790401 adc ada2-$ff,y ;perform add
35b0 : 08 php
35b1 : c50f cmp adrl ;check result
trap_ne ;bad result
35b3 : d0fe > bne * ;failed not equal (non zero)
35b5 : 68 pla ;check flags
35b6 : 29c3 and #$c3 ;mask NV----ZC
35b8 : c511 cmp adrf
trap_ne ;bad flags
35ba : d0fe > bne * ;failed not equal (non zero)
35bc : 28 plp
35bd : 08 php ;save carry for next add
35be : a50d lda ad1
35c0 : f90501 sbc sba2-$ff,y ;perform subtract
35c3 : 08 php
35c4 : c50f cmp adrl ;check result
trap_ne ;bad result
35c6 : d0fe > bne * ;failed not equal (non zero)
35c8 : 68 pla ;check flags
35c9 : 29c3 and #$c3 ;mask NV----ZC
35cb : c511 cmp adrf
trap_ne ;bad flags
35cd : d0fe > bne * ;failed not equal (non zero)
35cf : 28 plp
; binary ADC / SBC (zp,x)
35d0 : 08 php ;save carry for subtract
35d1 : a50d lda ad1
35d3 : 6144 adc (lo adi2-ad2,x) ;perform add
35d5 : 08 php
35d6 : c50f cmp adrl ;check result
trap_ne ;bad result
35d8 : d0fe > bne * ;failed not equal (non zero)
35da : 68 pla ;check flags
35db : 29c3 and #$c3 ;mask NV----ZC
35dd : c511 cmp adrf
trap_ne ;bad flags
35df : d0fe > bne * ;failed not equal (non zero)
35e1 : 28 plp
35e2 : 08 php ;save carry for next add
35e3 : a50d lda ad1
35e5 : e146 sbc (lo sbi2-ad2,x) ;perform subtract
35e7 : 08 php
35e8 : c50f cmp adrl ;check result
trap_ne ;bad result
35ea : d0fe > bne * ;failed not equal (non zero)
35ec : 68 pla ;check flags
35ed : 29c3 and #$c3 ;mask NV----ZC
35ef : c511 cmp adrf
trap_ne ;bad flags
35f1 : d0fe > bne * ;failed not equal (non zero)
35f3 : 28 plp
; binary ADC / SBC (abs),y
35f4 : 08 php ;save carry for subtract
35f5 : a50d lda ad1
35f7 : 7156 adc (adiy2),y ;perform add
35f9 : 08 php
35fa : c50f cmp adrl ;check result
trap_ne ;bad result
35fc : d0fe > bne * ;failed not equal (non zero)
35fe : 68 pla ;check flags
35ff : 29c3 and #$c3 ;mask NV----ZC
3601 : c511 cmp adrf
trap_ne ;bad flags
3603 : d0fe > bne * ;failed not equal (non zero)
3605 : 28 plp
3606 : 08 php ;save carry for next add
3607 : a50d lda ad1
3609 : f158 sbc (sbiy2),y ;perform subtract
360b : 08 php
360c : c50f cmp adrl ;check result
trap_ne ;bad result
360e : d0fe > bne * ;failed not equal (non zero)
3610 : 68 pla ;check flags
3611 : 29c3 and #$c3 ;mask NV----ZC
3613 : c511 cmp adrf
trap_ne ;bad flags
3615 : d0fe > bne * ;failed not equal (non zero)
3617 : 28 plp
3618 : 60 rts
; target for the jump absolute test
3619 : 88 dey
361a : 88 dey
361b : test_far
361b : 08 php ;either SP or Y count will fail, if we do not hit
361c : 88 dey
361d : 88 dey
361e : 88 dey
361f : 28 plp
trap_cs ;flags loaded?
3620 : b0fe > bcs * ;failed carry set
trap_vs
3622 : 70fe > bvs * ;failed overflow set
trap_mi
3624 : 30fe > bmi * ;failed minus (bit 7 set)
trap_eq
3626 : f0fe > beq * ;failed equal (zero)
3628 : c946 cmp #'F' ;registers loaded?
trap_ne
362a : d0fe > bne * ;failed not equal (non zero)
362c : e041 cpx #'A'
trap_ne
362e : d0fe > bne * ;failed not equal (non zero)
3630 : c04f cpy #('R'-3)
trap_ne
3632 : d0fe > bne * ;failed not equal (non zero)
3634 : 48 pha ;save a,x
3635 : 8a txa
3636 : 48 pha
3637 : ba tsx
3638 : e0fd cpx #$fd ;check SP
trap_ne
363a : d0fe > bne * ;failed not equal (non zero)
363c : 68 pla ;restore x
363d : aa tax
set_stat $ff
> load_flag $ff
363e : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
3640 : 48 > pha ;use stack to load status
3641 : 28 > plp
3642 : 68 pla ;restore a
3643 : e8 inx ;return registers with modifications
3644 : 49aa eor #$aa ;N=1, V=1, Z=0, C=1
3646 : 4cc208 jmp far_ret
; target for the jump indirect test
3649 : 00 align
364a : 5336 ptr_tst_ind dw test_ind
364c : 1709 ptr_ind_ret dw ind_ret
trap ;runover protection
364e : 4c4e36 > jmp * ;failed anyway
3651 : 88 dey
3652 : 88 dey
3653 : test_ind
3653 : 08 php ;either SP or Y count will fail, if we do not hit
3654 : 88 dey
3655 : 88 dey
3656 : 88 dey
3657 : 28 plp
trap_cs ;flags loaded?
3658 : b0fe > bcs * ;failed carry set
trap_vs
365a : 70fe > bvs * ;failed overflow set
trap_mi
365c : 30fe > bmi * ;failed minus (bit 7 set)
trap_eq
365e : f0fe > beq * ;failed equal (zero)
3660 : c949 cmp #'I' ;registers loaded?
trap_ne
3662 : d0fe > bne * ;failed not equal (non zero)
3664 : e04e cpx #'N'
trap_ne
3666 : d0fe > bne * ;failed not equal (non zero)
3668 : c041 cpy #('D'-3)
trap_ne
366a : d0fe > bne * ;failed not equal (non zero)
366c : 48 pha ;save a,x
366d : 8a txa
366e : 48 pha
366f : ba tsx
3670 : e0fd cpx #$fd ;check SP
trap_ne
3672 : d0fe > bne * ;failed not equal (non zero)
3674 : 68 pla ;restore x
3675 : aa tax
set_stat $ff
> load_flag $ff
3676 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
3678 : 48 > pha ;use stack to load status
3679 : 28 > plp
367a : 68 pla ;restore a
367b : e8 inx ;return registers with modifications
367c : 49aa eor #$aa ;N=1, V=1, Z=0, C=1
367e : 6c4c36 jmp (ptr_ind_ret)
trap ;runover protection
3681 : 4c8136 > jmp * ;failed anyway
; target for the jump subroutine test
3684 : 88 dey
3685 : 88 dey
3686 : test_jsr
3686 : 08 php ;either SP or Y count will fail, if we do not hit
3687 : 88 dey
3688 : 88 dey
3689 : 88 dey
368a : 28 plp
trap_cs ;flags loaded?
368b : b0fe > bcs * ;failed carry set
trap_vs
368d : 70fe > bvs * ;failed overflow set
trap_mi
368f : 30fe > bmi * ;failed minus (bit 7 set)
trap_eq
3691 : f0fe > beq * ;failed equal (zero)
3693 : c94a cmp #'J' ;registers loaded?
trap_ne
3695 : d0fe > bne * ;failed not equal (non zero)
3697 : e053 cpx #'S'
trap_ne
3699 : d0fe > bne * ;failed not equal (non zero)
369b : c04f cpy #('R'-3)
trap_ne
369d : d0fe > bne * ;failed not equal (non zero)
369f : 48 pha ;save a,x
36a0 : 8a txa
36a1 : 48 pha
36a2 : ba tsx ;sp -4? (return addr,a,x)
36a3 : e0fb cpx #$fb
trap_ne
36a5 : d0fe > bne * ;failed not equal (non zero)
36a7 : adff01 lda $1ff ;propper return on stack
36aa : c909 cmp #hi(jsr_ret)
trap_ne
36ac : d0fe > bne * ;failed not equal (non zero)
36ae : adfe01 lda $1fe
36b1 : c94d cmp #lo(jsr_ret)
trap_ne
36b3 : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
36b5 : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
36b7 : 48 > pha ;use stack to load status
36b8 : 28 > plp
36b9 : 68 pla ;pull x,a
36ba : aa tax
36bb : 68 pla
36bc : e8 inx ;return registers with modifications
36bd : 49aa eor #$aa ;N=1, V=1, Z=0, C=1
36bf : 60 rts
trap ;runover protection
36c0 : 4cc036 > jmp * ;failed anyway
;trap in case of unexpected IRQ, NMI, BRK, RESET - BRK test target
36c3 : nmi_trap
trap ;check stack for conditions at NMI
36c3 : 4cc336 > jmp * ;failed anyway
36c6 : res_trap
trap ;unexpected RESET
36c6 : 4cc636 > jmp * ;failed anyway
36c9 : 88 dey
36ca : 88 dey
36cb : irq_trap ;BRK test or unextpected BRK or IRQ
36cb : 08 php ;either SP or Y count will fail, if we do not hit
36cc : 88 dey
36cd : 88 dey
36ce : 88 dey
;next 4 traps could be caused by unexpected BRK or IRQ
;check stack for BREAK and originating location
;possible jump/branch into weeds (uninitialized space)
36cf : c942 cmp #'B' ;registers loaded?
trap_ne
36d1 : d0fe > bne * ;failed not equal (non zero)
36d3 : e052 cpx #'R'
trap_ne
36d5 : d0fe > bne * ;failed not equal (non zero)
36d7 : c048 cpy #('K'-3)
trap_ne
36d9 : d0fe > bne * ;failed not equal (non zero)
36db : 850a sta irq_a ;save registers during break test
36dd : 860b stx irq_x
36df : ba tsx ;test break on stack
36e0 : bd0201 lda $102,x
cmp_flag 0 ;break test should have B=1
36e3 : c930 > cmp #(0 |fao)&m8 ;expected flags + always on bits
trap_ne ; - no break flag on stack
36e5 : d0fe > bne * ;failed not equal (non zero)
36e7 : 68 pla
36e8 : c934 cmp #fai ;should have added interrupt disable
trap_ne
36ea : d0fe > bne * ;failed not equal (non zero)
36ec : ba tsx
36ed : e0fc cpx #$fc ;sp -3? (return addr, flags)
trap_ne
36ef : d0fe > bne * ;failed not equal (non zero)
36f1 : adff01 lda $1ff ;propper return on stack
36f4 : c909 cmp #hi(brk_ret)
trap_ne
36f6 : d0fe > bne * ;failed not equal (non zero)
36f8 : adfe01 lda $1fe
36fb : c984 cmp #lo(brk_ret)
trap_ne
36fd : d0fe > bne * ;failed not equal (non zero)
set_stat $ff
> load_flag $ff
36ff : a9ff > lda #$ff ;allow test to change I-flag (no mask)
>
3701 : 48 > pha ;use stack to load status
3702 : 28 > plp
3703 : a60b ldx irq_x
3705 : e8 inx ;return registers with modifications
3706 : a50a lda irq_a
3708 : 49aa eor #$aa ;N=1, V=1, Z=0, C=1 but original flags should be restored
370a : 40 rti
trap ;runover protection
370b : 4c0b37 > jmp * ;failed anyway
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
if (load_data_direct = 1) & (ROM_vectors = 1)
fffa = org $fffa ;vectors
fffa : c336 dw nmi_trap
fffc : c636 dw res_trap
fffe : cb36 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 View Git Blame Copy Permalink