git.sur5r.net Git - cc65/blob - libsrc/atari/cashdr.s

   1 ;
   2 ; Cassette boot file header
   3 ;
   4 ; Christian Groessler, chris@groessler.org, 2014
   5 ;
   6
   7 ;DEBUG   = 1
   8
   9 .ifndef __ATARIXL__
  10
  11         .include "atari.inc"
  12
  13         .import __BSS_RUN__, __STARTADDRESS__, _cas_init
  14         .export _cas_hdr
  15
  16 .assert ((__BSS_RUN__ - __STARTADDRESS__ + 127) / 128) < $101, error, "File to big to load from cassette"
  17
  18
  19 ; for a description of the cassette header, see De Re Atari, appendix C
  20
  21 .segment        "CASHDR"
  22
  23 _cas_hdr:
  24         .byte   0                       ; ignored
  25         .byte   <((__BSS_RUN__ - __STARTADDRESS__ + 127) / 128)         ; # of 128-byte records to read
  26         .word   __STARTADDRESS__        ; load address
  27         .word   _cas_init               ; init address
  28
  29 .ifdef  DEBUG
  30         lda     #33
  31         ldy     #80
  32         sta     (SAVMSC),y
  33 .endif
  34         clc
  35         rts
  36
  37 .endif  ; .ifdef __ATARIXL__