; ; Ullrich von Bassewitz, 15.11.2002 ; ; Variables used for CBM file I/O ; .export curunit .constructor initcurunit, 30 .importzp devnum .bss curunit: .res 1 .segment "INIT" .proc initcurunit lda devnum bne @L0 lda #8 ; Default is disk sta devnum @L0: sta curunit rts .endproc