145 lines
946 B
ArmAsm
145 lines
946 B
ArmAsm
rel
|
|
typ $B3
|
|
dsk main.l
|
|
|
|
mx %00
|
|
phk
|
|
plb
|
|
|
|
mx %11
|
|
sta $E0
|
|
pha
|
|
pha
|
|
plb
|
|
pld
|
|
sta $C000
|
|
sta $C054
|
|
|
|
mx %00
|
|
|
|
; load a char and write it to the 40 char text buffer
|
|
bois lda "B"
|
|
sta $E00400
|
|
sta $E00401
|
|
sta $E00402
|
|
jmp bois
|
|
|
|
; Important locations
|
|
SPEAKER equ $E0C030
|
|
PRODOS16 equ $E100A8
|
|
|
|
jsl PRODOS16
|
|
; This exit code is "device busy", why is it the only one
|
|
; that works?!
|
|
da $29
|
|
adrl QP
|
|
bcs ERROR
|
|
|
|
ERROR brk
|
|
|
|
QP adrl $0000
|
|
da $00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|