40 lines
701 B
ArmAsm
40 lines
701 B
ArmAsm
REL
|
|
TYP $B3
|
|
DSK main.l
|
|
|
|
MX %00 ; enable 16-bit mode
|
|
|
|
; Important locations
|
|
|
|
SPEAKER EQU $E0C030
|
|
PRODOS16 EQU $E100A8
|
|
|
|
PHK
|
|
PLB
|
|
|
|
* Beep code freezes
|
|
*beep LDA SPEAKER
|
|
* LDY #1000
|
|
* LDX #1000
|
|
*loop DEX
|
|
* BNE loop
|
|
* DEY
|
|
* BNE beep
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|