FILEDES = 3 ; first free to use file descriptor
.importzp ptr1, ptr2, ptr3, tmp1
- .import addysp, popax
+ .import addysp, popax, poptr1
.import __oserror
.import _FindFile, _ReadByte
.export _open, _close, _read
@parmok:
jsr popax ; Get flags
sta tmp1
- jsr popax ; Get name
- sta ptr1
- stx ptr1+1
+ jsr popptr1 ; Get name
lda filedesc ; is there a file already open?
bne @alreadyopen