mirror of
https://github.com/a2geek/afscanner.git
synced 2025-04-09 11:37:00 +00:00
34 lines
555 B
ArmAsm
Executable File
34 lines
555 B
ArmAsm
Executable File
******************************************************************************************
|
|
*
|
|
* Test Page
|
|
*
|
|
* Used for independent testing various pieces of funcionality.
|
|
*
|
|
******************************************************************************************
|
|
|
|
*
|
|
* TEST interface
|
|
*
|
|
|
|
TestInit
|
|
jsr NewPrint
|
|
asc "%v",$17,"Bottom Line? %m@ (open apple)",$00
|
|
|
|
lda #>535
|
|
ldy #<535 ; Nice odd number of lines > 256
|
|
rts
|
|
|
|
TestDisplay
|
|
sty DATA
|
|
sta DATA+1
|
|
|
|
jsr NewPrint
|
|
asc "%w"
|
|
da DATA
|
|
dfb $8D,0
|
|
rts
|
|
|
|
TestKeypress
|
|
jmp KeyboardWait
|
|
|