mirror of
https://github.com/a2stuff/prodos-drivers.git
synced 2024-10-10 16:23:38 +00:00
26 lines
775 B
ArmAsm
26 lines
775 B
ArmAsm
|
.setcpu "6502"
|
||
|
|
.include "apple2.inc"
|
||
|
|
|
||
|
|
.include "../inc/apple2.inc"
|
||
|
|
.include "../inc/prodos.inc"
|
||
|
|
|
||
|
|
.org SYS_ADDR
|
||
|
|
|
||
|
|
cld
|
||
|
|
bit ROMIN2
|
||
|
|
sta CLR80VID
|
||
|
|
sta CLRALTCHAR
|
||
|
|
sta CLR80COL
|
||
|
|
jsr SETVID
|
||
|
|
jsr SETKBD
|
||
|
|
jsr SETNORM
|
||
|
|
jsr INIT
|
||
|
|
jsr HOME
|
||
|
|
lda #$0f
|
||
|
|
sta $c022
|
||
|
|
lda #$0f
|
||
|
|
sta $c034
|
||
|
|
MLI_CALL QUIT, quit_params
|
||
|
|
brk
|
||
|
|
|
||
|
|
DEFINE_QUIT_PARAMS quit_params
|