36 lines
972 B
ArmAsm
36 lines
972 B
ArmAsm
.setcpu "6502"
|
|
|
|
.include "apple2.inc"
|
|
.include "apple2.mac"
|
|
|
|
.include "../inc/apple2.inc"
|
|
.include "../inc/macros.inc"
|
|
.include "../inc/prodos.inc"
|
|
|
|
;;; ************************************************************
|
|
.include "../inc/driver_preamble.inc"
|
|
;;; ************************************************************
|
|
|
|
.proc maybe_install_driver
|
|
bit ROMIN2
|
|
sta CLR80VID
|
|
sta CLRALTCHAR
|
|
sta CLR80COL
|
|
jsr SETVID
|
|
jsr SETKBD
|
|
jsr SETNORM
|
|
jsr INIT
|
|
jsr HOME
|
|
|
|
lda #$f2 ; text: white on dark blue
|
|
sta TBCOLOR
|
|
lda #$02 ; text: dark blue
|
|
sta CLOCKCTL
|
|
|
|
rts
|
|
.endproc
|
|
|
|
;;; ************************************************************
|
|
.include "../inc/driver_postamble.inc"
|
|
;;; ************************************************************
|