; Christian Groessler, chris@groessler.org, 2013
;
-DEBUG = 1
+;DEBUG = 1
.ifdef __ATARIXL__
sta APPMHI+1
rts
-
-.ifdef DEBUG
-
-.byte "HERE ****************** HERE ***************>>>>>>"
-
-sramsize:
- .word __SHADOW_RAM_SIZE__
-
; short delay
.proc delay
lda #10
-l: jsr delay1
+@loop: jsr delay1
clc
sbc #0
- bne l
+ bne @loop
rts
delay1: ldx #0
ldy #0
-loop: dey
- bne loop
+@loop: dey
+ bne @loop
dex
- bne loop
+ bne @loop
rts
.endproc
+.ifdef DEBUG
+
+.byte "HERE ****************** HERE ***************>>>>>>"
+
+sramsize:
+ .word __SHADOW_RAM_SIZE__
+
.endif ; .ifdef DEBUG
screen_device: .byte "S:",0