We don't use .ifndef .else .endif
jsr setcursor
lda #12
sta ICAX1Z ; fix problems with direct call to KEYBDV
-.ifndef __ATARIXL__
- jsr @1
-.else
+.ifdef __ATARIXL__
jsr KEYBDV_handler
+.else
+ jsr @1
.endif
ldx #0
rts
.import popa, _gotoxy, cputdirect, setcursor
.importzp tmp1
-.ifndef __ATARI5200__
-CHRCODE = $12+64
-.else
+.ifdef __ATARI5200__
CHRCODE = 14
+.else
+CHRCODE = $12+64
.endif
_chlinexy:
tsx
stx SP_save
-.ifndef __ATARIXL__
+.ifdef __ATARIXL__
+
+ lda #<(__RAM_START__ + __RAM_SIZE__ + __STACKSIZE__)
+ sta sp
+ lda #>(__RAM_START__ + __RAM_SIZE__ + __STACKSIZE__)
+ sta sp+1
+
+.else
; Report memory usage
sta APPMHI+1
sta sp+1 ; setup runtime stack part 2
-.else
-
- lda #<(__RAM_START__ + __RAM_SIZE__ + __STACKSIZE__)
- sta sp
- lda #>(__RAM_START__ + __RAM_SIZE__ + __STACKSIZE__)
- sta sp+1
-
.endif
; Call module constructors
.import popa, _gotoxy, putchar, setcursor
.importzp tmp1
-.ifndef __ATARI5200__
-CHRCODE = $7C ; Vertical bar
-.else
+.ifdef __ATARI5200__
CHRCODE = 1 ; exclamation mark
+.else
+CHRCODE = $7C ; Vertical bar
.endif
_cvlinexy:
ldy #0
sty sspc+1 ; initialize stack space
-.ifndef UCASE_FILENAME
-
- sta ptr3
- stx ptr3+1
- sty sspc
-
-.else
+.ifdef UCASE_FILENAME
; uppercase first (old) name and prepend device if needed
inc sspc+1
ukok4:
+.else
+
+ sta ptr3
+ stx ptr3+1
+ sty sspc
+
.endif
; create a string on the stack with the old filename and the new filename separated by an invalid character (space in our case)