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

   1 ;
   2 ; Cassette boot file init routine
   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 start
  14         .export _cas_init
  15
  16 .segment        "ONCE"
  17
  18 _cas_init:
  19 .ifdef  DEBUG
  20         lda     #34
  21         ldy     #81
  22         sta     (SAVMSC),y
  23 .endif
  24
  25         lda     #<start
  26         sta     DOSVEC
  27         lda     #>start
  28         sta     DOSVEC+1
  29         rts
  30
  31 .endif  ; .ifdef __ATARIXL__