2021-10-16 18:36:13 +00:00
|
|
|
!cpu 6502
|
|
|
|
* = $1000
|
|
|
|
jmp L1040
|
|
|
|
|
|
|
|
InAZ_test rts
|
|
|
|
|
|
|
|
InA1_test rts
|
|
|
|
|
|
|
|
InPZ_test rts
|
|
|
|
|
|
|
|
InP1_test rts
|
|
|
|
|
|
|
|
InW_test rts
|
|
|
|
|
|
|
|
InWA_test rts
|
|
|
|
|
|
|
|
InNR_test rts
|
|
|
|
|
|
|
|
!fill 54,$00
|
|
|
|
|
|
|
|
L1040 nop
|
|
|
|
jsr InAZ_test
|
|
|
|
!text "Test AZ_ low",$00
|
|
|
|
jsr InAZ_test
|
|
|
|
!hex d4e5f3f4a0c1dadfa0e8e9e7e800
|
|
|
|
jsr InA1_test
|
|
|
|
!text $0c,"Test A1_ low"
|
|
|
|
jsr InA1_test
|
|
|
|
!hex 0dd4e5f3f4a0c1b1dfa0e8e9e7e8
|
|
|
|
jsr InPZ_test
|
|
|
|
!pet "Test PZ",$5f,$00
|
|
|
|
jsr InP1_test
|
|
|
|
!pet $08,"Test P1",$5f
|
|
|
|
jsr InW_test
|
|
|
|
!word $1234
|
|
|
|
jsr InWA_test
|
|
|
|
!word L1040
|
|
|
|
jsr @L10AD
|
|
|
|
jsr InNR_test
|
|
|
|
|
|
|
|
!byte $ea
|
|
|
|
!byte $00
|
|
|
|
|
|
|
|
@L10AD nop
|
2021-10-27 21:18:52 +00:00
|
|
|
jsr InW_test1
|
|
|
|
!word $1100
|
|
|
|
nop
|
|
|
|
jmp LF000
|
|
|
|
|
|
|
|
!byte $80
|
|
|
|
|
|
|
|
!pseudopc $2000 {
|
|
|
|
InW_test1 nop
|
|
|
|
jsr InW_test1
|
|
|
|
!word $1200
|
|
|
|
rts
|
|
|
|
|
|
|
|
!byte $80
|
|
|
|
}
|
|
|
|
|
|
|
|
!pseudopc $2000 {
|
|
|
|
InW_test2 nop
|
|
|
|
jsr InW_test2
|
|
|
|
!word $1300
|
|
|
|
rts
|
|
|
|
|
|
|
|
!byte $80
|
|
|
|
}
|
|
|
|
|
|
|
|
!pseudopc $2000 {
|
|
|
|
not_inline nop
|
|
|
|
jsr not_inline
|
|
|
|
bit not_inline
|
|
|
|
rts
|
|
|
|
|
|
|
|
!byte $81
|
|
|
|
}
|
|
|
|
!pseudopc $0000 {
|
|
|
|
InW_na_test !byte $ea
|
|
|
|
!byte $20
|
|
|
|
!byte $00
|
|
|
|
!byte $30
|
|
|
|
!byte $60
|
|
|
|
!byte $81
|
|
|
|
}
|
|
|
|
|
|
|
|
!pseudopc $f000 {
|
|
|
|
LF000 jsr @LF008
|
|
|
|
jsr @LF015
|
2021-10-16 18:36:13 +00:00
|
|
|
nop
|
|
|
|
rts
|
|
|
|
|
2021-10-27 21:18:52 +00:00
|
|
|
@LF008 jsr InA1_test
|
2021-10-16 18:36:13 +00:00
|
|
|
!byte $ff
|
|
|
|
!text "too long"
|
|
|
|
!byte $ea
|
|
|
|
|
2021-10-27 21:18:52 +00:00
|
|
|
@LF015 jsr InAZ_test
|
2021-10-16 18:36:13 +00:00
|
|
|
!text "does not end"
|
2021-10-27 21:18:52 +00:00
|
|
|
}
|