2014-01-02 18:28:22 +00:00
|
|
|
;
|
|
|
|
|
; Cassette boot file header
|
|
|
|
|
;
|
2014-02-21 21:43:44 +00:00
|
|
|
; Christian Groessler, chris@groessler.org, 2014
|
2014-01-02 18:28:22 +00:00
|
|
|
;
|
|
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
;DEBUG = 1
|
2014-01-02 18:28:22 +00:00
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
.ifndef __ATARIXL__
|
2014-01-02 18:28:22 +00:00
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
.include "atari.inc"
|
2014-01-02 18:28:22 +00:00
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
.import __BSS_RUN__, __STARTADDRESS__, _cas_init
|
|
|
|
|
.export _cas_hdr
|
2014-01-02 18:28:22 +00:00
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
.assert ((__BSS_RUN__ - __STARTADDRESS__ + 127) / 128) < $101, error, "File to big to load from cassette"
|
2014-01-02 18:28:22 +00:00
|
|
|
|
|
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
; for a description of the cassette header, see De Re Atari, appendix C
|
2014-01-02 18:28:22 +00:00
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
.segment "CASHDR"
|
2014-01-02 18:28:22 +00:00
|
|
|
|
2014-02-21 21:43:44 +00:00
|
|
|
_cas_hdr:
|
|
|
|
|
.byte 0 ; ignored
|
|
|
|
|
.byte <((__BSS_RUN__ - __STARTADDRESS__ + 127) / 128) ; # of 128-byte records to read
|
|
|
|
|
.word __STARTADDRESS__ ; load address
|
|
|
|
|
.word _cas_init ; init address
|
|
|
|
|
|
|
|
|
|
.ifdef DEBUG
|
|
|
|
|
lda #33
|
|
|
|
|
ldy #80
|
|
|
|
|
sta (SAVMSC),y
|
|
|
|
|
.endif
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.endif ; .ifdef __ATARIXL__
|
