42 lines
1.6 KiB
ArmAsm
42 lines
1.6 KiB
ArmAsm
****************************************
|
|
* Example *
|
|
* *
|
|
* Dagen Brock <dagenbrock@gmail.com> *
|
|
* 2020-02-10 *
|
|
****************************************
|
|
|
|
org $2000 ; start at $2000 (all ProDOS8 system files)
|
|
dsk example.system ; tell compiler what name for output file
|
|
typ $ff ; set P8 type ($ff = "SYS") for output file
|
|
|
|
MLI equ $bf00
|
|
|
|
Main ldx #0
|
|
|
|
:lp1 lda _demoStr,x
|
|
beq :doneStr
|
|
sta $400,x
|
|
inx
|
|
bne :lp1
|
|
|
|
:doneStr jsr $FD0C ; wait for key
|
|
jmp Quit
|
|
|
|
|
|
_demoStr STR "WELCOME TO THE FUTURE.",00
|
|
|
|
Quit jsr MLI ; first actual command, call ProDOS vector
|
|
dfb $65 ; with "quit" request ($65)
|
|
da QuitParm
|
|
bcs Error
|
|
brk $00 ; shouldn't ever here!
|
|
|
|
QuitParm dfb 4 ; number of parameters
|
|
dfb 0 ; standard quit type
|
|
da $0000 ; not needed when using standard quit
|
|
dfb 0 ; not used
|
|
da $0000 ; not used
|
|
|
|
|
|
Error brk $00 ; shouldn't be here either
|