2 ; Christian Groessler, May-2000
9 .import __do_oserror,popax,__oserror
10 .import fdtoiocb_down,__inviocb
14 jsr fdtoiocb_down ; get iocb index into X and decr. usage count
16 bne ok ; not last one -> don't close yet
27 stx __oserror ; clear system specific error code
32 closerr:jmp __do_oserror