mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-06-06 13:29:51 +00:00
36 lines
660 B
ArmAsm
36 lines
660 B
ArmAsm
|
|
.setcpu "6502"
|
|
.include "apple2.inc"
|
|
.include "prodos.inc"
|
|
|
|
.org $2000
|
|
|
|
CLR80VID := $C00C
|
|
ROMIN2 := $C082
|
|
SETVID := $FE93
|
|
SETKBD := $FE89
|
|
INIT := $FB2F
|
|
HOME := $FC58
|
|
SETNORM := $FE84
|
|
|
|
cld
|
|
bit ROMIN2
|
|
sta CLR80VID
|
|
sta CLRALTCHAR
|
|
sta CLR80COL
|
|
jsr SETVID
|
|
jsr SETKBD
|
|
jsr SETNORM
|
|
jsr INIT
|
|
jsr HOME
|
|
|
|
MLI_CALL QUIT, quit_params
|
|
brk
|
|
|
|
quit_params:
|
|
.byte 4
|
|
.byte 0
|
|
.word 0
|
|
.byte 0
|
|
.word 0
|