27 lines
568 B
ArmAsm
27 lines
568 B
ArmAsm
; QUIT.SYSTEM from ProDOS-2.4.2
|
|
|
|
PRODOS_MLI := $BF00
|
|
INIT := $FB2F
|
|
HOME := $FC58
|
|
SETKBD := $FE89
|
|
SETVID := $FE93
|
|
|
|
CLR80COL := $C000
|
|
CLR80VID := $C00C
|
|
|
|
.macpack apple2
|
|
.setcpu "6502"
|
|
.org $2000
|
|
|
|
sta CLR80VID
|
|
sta CLR80COL
|
|
jsr SETVID
|
|
jsr SETKBD
|
|
jsr INIT
|
|
jsr HOME
|
|
jsr PRODOS_MLI
|
|
.byte $65 ; quit
|
|
.word THING
|
|
scrcode "By John Brooks. 9/15/2016"
|
|
THING: .byte $04, $00, $00, $00, $00, $00, $00
|