mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 02:29:52 +00:00
154 lines
2.8 KiB
ArmAsm
154 lines
2.8 KiB
ArmAsm
;
|
|
; Atari XL startup system check
|
|
;
|
|
; This routine gets loaded prior to the main part of the executable
|
|
; and checks if the system is compatible to run the program.
|
|
; It checks whether the system is an XL type one and that enough
|
|
; memory is installed (which isn't the case for a 600XL).
|
|
; If the system doesn't qualify, the loading of the main program
|
|
; is aborted by jumping to DOSVEC.
|
|
;
|
|
; Christian Groessler, chris@groessler.org, 2013
|
|
;
|
|
|
|
DEBUG = 1
|
|
|
|
.if .defined(__ATARIXL__)
|
|
|
|
.export syschk
|
|
.import __SYSCHK_LOAD__
|
|
.import __SAVEAREA_LOAD__
|
|
|
|
.include "zeropage.inc"
|
|
.include "atari.inc"
|
|
|
|
|
|
.macro print_string text
|
|
.local start, cont
|
|
jmp cont
|
|
start: .byte text, ATEOL
|
|
cont: ldx #0 ; channel 0
|
|
lda #<start
|
|
sta ICBAL,x ; address
|
|
lda #>start
|
|
sta ICBAH,x
|
|
lda #<(cont - start)
|
|
sta ICBLL,x ; length
|
|
lda #>(cont - start)
|
|
sta ICBLH,x
|
|
lda #PUTCHR
|
|
sta ICCOM,x
|
|
jsr CIOV_org
|
|
.endmacro
|
|
.macro print_string2 addr, len
|
|
|
|
ldx #0 ; channel 0
|
|
lda #<addr
|
|
sta ICBAL,x ; address
|
|
lda #>addr
|
|
sta ICBAH,x
|
|
lda #<len
|
|
sta ICBLL,x ; length
|
|
lda #>len
|
|
sta ICBLH,x
|
|
lda #PUTCHR
|
|
sta ICCOM,x
|
|
jsr CIOV_org
|
|
|
|
.endmacro
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
; Chunk header
|
|
|
|
.segment "SYSCHKHDR"
|
|
|
|
.word __SYSCHK_LOAD__
|
|
.word trailer - 1
|
|
|
|
; ------------------------------------------------------------------------
|
|
; Actual code
|
|
|
|
.segment "SYSCHK"
|
|
|
|
syschk:
|
|
lda $fcd8 ; from ostype.s
|
|
cmp #$a2
|
|
bne is_xl
|
|
|
|
; no XL machine
|
|
print_string "This program needs an XL machine."
|
|
jmp fail
|
|
|
|
; we have an XL machine, now check memory
|
|
is_xl: lda RAMSIZ
|
|
cmp #$80
|
|
bcs sys_ok
|
|
|
|
; not enough memory
|
|
print_string "Not enough memory."
|
|
fail: jsr delay
|
|
jmp (DOSVEC)
|
|
|
|
|
|
sys_ok:
|
|
.include "xlmemchk.inc" ; calculate lowest address we will use when we move the screen buffer down
|
|
|
|
sec
|
|
lda MEMLO
|
|
sbc lowadr
|
|
lda MEMLO+1
|
|
sbc lowadr+1
|
|
bcc memlo_ok
|
|
|
|
; load address was too low
|
|
print_string2 lmemerr_txt, lmemerr_txt_len
|
|
jsr delay ; long text takes longer to read, give user additional time
|
|
jmp fail
|
|
|
|
; all is well(tm), launch the application
|
|
memlo_ok:
|
|
.ifdef DEBUG
|
|
print_string "Stage #1 OK"
|
|
jsr delay
|
|
.endif
|
|
rts
|
|
|
|
|
|
lmemerr_txt:
|
|
.byte "Not enough memory to move screen", ATEOL
|
|
.byte "memory to low memory. Consider using", ATEOL
|
|
.byte "a higher load address.", ATEOL
|
|
lmemerr_txt_len = * - lmemerr_txt
|
|
|
|
|
|
; short delay
|
|
.proc delay
|
|
|
|
lda #10
|
|
l: jsr delay1
|
|
clc
|
|
sbc #0
|
|
bne l
|
|
rts
|
|
|
|
delay1: ldx #0
|
|
ldy #0
|
|
loop: dey
|
|
bne loop
|
|
dex
|
|
bne loop
|
|
rts
|
|
|
|
.endproc
|
|
|
|
; ------------------------------------------------------------------------
|
|
; Chunk "trailer" - sets INITAD
|
|
|
|
trailer:
|
|
.word INITAD
|
|
.word INITAD+1
|
|
.word __SYSCHK_LOAD__
|
|
|
|
.endif ; .if .defined(__ATARIXL__)
|