prodos-drivers/textcolors/bw.system.s

30 lines
618 B
ArmAsm
Raw Normal View History

.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 ; text: black on white
sta TBCOLOR
lda #$0f ; border: white
sta CLOCKCTL
MLI_CALL QUIT, quit_params
brk
DEFINE_QUIT_PARAMS quit_params