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         curunit
   8         .constructor    initcurunit, 30
   9         .importzp       devnum
  10
  11
  12 .segment "INIT"
  13
  14 curunit:
  15         .res    1
  16
  17
  18 .segment "ONCE"
  19
  20 .proc   initcurunit
  21
  22         lda     devnum
  23         bne     @L0
  24         lda     #8              ; Default is disk
  25         sta     devnum
  26 @L0:    sta     curunit
  27         rts
  28
  29 .endproc