prodos-drivers/textcolors/gsblue.system.s
2022-01-06 03:08:54 -05:00

26 lines
777 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 #$f6
sta $c022
lda #$06
sta $c034
MLI_CALL QUIT, quit_params
brk
DEFINE_QUIT_PARAMS quit_params