cc65/libsrc/atari/casinit.s

;
; Cassette boot file init routine
;
; Christian Groessler, chris@groessler.org, 2014
;

;DEBUG   = 1

.ifndef __ATARIXL__

        .include "atari.inc"

        .import start
        .export _cas_init

.segment        "ONCE"

_cas_init:
.ifdef  DEBUG
        lda     #34
        ldy     #81
        sta     (SAVMSC),y
.endif

        lda     #<start
        sta     DOSVEC
        lda     #>start
        sta     DOSVEC+1
        rts

.endif  ; .ifdef __ATARIXL__
cleanups; split 'header' and 'init' part into two source files 2014-02-21 21:43:44 +00:00			`;`
			`; Cassette boot file init routine`
			`;`
			`; Christian Groessler, chris@groessler.org, 2014`
			`;`

			`;DEBUG = 1`

			`.ifndef __ATARIXL__`

			`.include "atari.inc"`

			`.import start`
			`.export _cas_init`

Renamed INITBSS to INIT and INIT to ONCE. The way we want to use the INITBSS segment - and especially the fact that it won't have the type bss on all ROM based targets - means that the name INITBSS is misleading. After all INIT is the best name from my perspective as it serves several purposes and therefore needs a rather generic name. Unfortunately this means that the current INIT segment needs to be renamed too. Looking for a short (ideally 4 letter) name I came up with ONCE as it contains all code (and data) accessed only once during initialization. 2016-03-06 20:26:22 +00:00			`.segment "ONCE"`
cleanups; split 'header' and 'init' part into two source files 2014-02-21 21:43:44 +00:00
			`_cas_init:`
			`.ifdef DEBUG`
			`lda #34`
			`ldy #81`
			`sta (SAVMSC),y`
			`.endif`

			`lda #<start`
			`sta DOSVEC`
			`lda #>start`
			`sta DOSVEC+1`
			`rts`

			`.endif ; .ifdef __ATARIXL__`