mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-11-03 05:04:50 +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
|