mirror of
https://github.com/dwsJason/xrick2gs.git
synced 2024-09-28 20:55:22 +00:00
32 lines
467 B
ArmAsm
32 lines
467 B
ArmAsm
rel
|
|
dsk Main.l
|
|
|
|
; ext fbuffer
|
|
|
|
waitkey ent
|
|
clc
|
|
xce
|
|
sep #$30
|
|
|
|
; Enable SHR
|
|
|
|
ldal $e0c029
|
|
ora #$c0
|
|
stal $e0c029
|
|
|
|
; Wait Key
|
|
:lp
|
|
ldal $e0c000
|
|
bpl :lp
|
|
stal $e0c010
|
|
|
|
; Exit the App
|
|
|
|
; TODO call Prodos 16 Exit
|
|
; as rtl probably just crashes
|
|
|
|
rtl
|
|
|
|
; da fbuffer
|
|
|