2021-10-16 18:36:13 +00:00
|
|
|
.cpu "6502"
|
|
|
|
.enc "sg_hiascii"
|
|
|
|
.cdef $20,$7e,$a0
|
|
|
|
.enc "sg_ascii"
|
|
|
|
.cdef $20,$7e,$20
|
2021-10-28 03:23:34 +00:00
|
|
|
InW_project = $e000
|
|
|
|
|
2021-10-16 18:36:13 +00:00
|
|
|
* = $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
|
|
|
|
.null "Test AZ_ low"
|
|
|
|
jsr InAZ_test
|
|
|
|
.enc "sg_hiascii"
|
|
|
|
.null "Test AZ_ high"
|
|
|
|
jsr InA1_test
|
|
|
|
.enc "sg_ascii"
|
|
|
|
.ptext "Test A1_ low"
|
|
|
|
jsr InA1_test
|
|
|
|
.enc "sg_hiascii"
|
|
|
|
.ptext "Test A1_ high"
|
|
|
|
jsr InPZ_test
|
|
|
|
.enc "none"
|
|
|
|
.null "Test PZ",$5f
|
|
|
|
jsr InP1_test
|
|
|
|
.ptext "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
|
2021-10-28 03:23:34 +00:00
|
|
|
jmp L4000
|
2021-10-27 21:18:52 +00:00
|
|
|
|
|
|
|
.byte $80
|
|
|
|
|
|
|
|
.logical $2000
|
|
|
|
InW_test1 nop
|
|
|
|
jsr InW_test1
|
|
|
|
.word $1200
|
|
|
|
rts
|
|
|
|
|
|
|
|
.byte $80
|
|
|
|
.here
|
|
|
|
|
|
|
|
.logical $2000
|
|
|
|
InW_test2 nop
|
|
|
|
jsr InW_test2
|
|
|
|
.word $1300
|
|
|
|
rts
|
|
|
|
|
|
|
|
.byte $80
|
|
|
|
.here
|
|
|
|
|
|
|
|
.logical $2000
|
|
|
|
not_inline nop
|
|
|
|
jsr not_inline
|
|
|
|
bit not_inline
|
|
|
|
rts
|
|
|
|
|
|
|
|
.byte $81
|
|
|
|
.here
|
|
|
|
.logical $0000
|
|
|
|
InW_na_test .byte $ea
|
|
|
|
.byte $20
|
|
|
|
.byte $00
|
|
|
|
.byte $30
|
|
|
|
.byte $60
|
|
|
|
.byte $81
|
|
|
|
.here
|
|
|
|
|
2021-10-28 03:23:34 +00:00
|
|
|
.logical $4000
|
|
|
|
L4000 bit L4000
|
|
|
|
jsr InW_project
|
|
|
|
jmp _LF000
|
|
|
|
|
|
|
|
.here
|
2021-10-27 21:18:52 +00:00
|
|
|
.logical $f000
|
2021-10-28 03:23:34 +00:00
|
|
|
_LF000 jsr _LF008
|
2021-10-27 21:18:52 +00:00
|
|
|
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
|
|
|
|
.enc "sg_ascii"
|
|
|
|
.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
|
|
|
.here
|