git.sur5r.net Git - cc65/blob - libsrc/cbm/filevars.s

   1 ;
   2 ; Ullrich von Bassewitz, 15.11.2002
   3 ;
   4 ; Variables used for CBM file I/O
   5 ;
   6
   7         .export         __filetype
   8         .export         __curunit
   9         .constructor    initcurunit, 30
  10         .importzp       devnum
  11
  12
  13 .data
  14
  15 __filetype:
  16         .byte   'u'             ; Create user files by default
  17
  18
  19 .bss
  20
  21 __curunit:
  22         .res    1
  23
  24
  25 .segment "INIT"
  26
  27 .proc   initcurunit
  28
  29         lda     devnum
  30         bne     @L0
  31         lda     #8              ; Default is disk
  32         sta     devnum
  33 @L0:    sta     __curunit
  34         rts
  35
  36 .endproc