;
; Christian Groessler, May-2000
;
-; int close(int fd);
+; int __fastcall__ close(int fd);
;
.include "atari.inc"
.import fdtoiocb_down,__inviocb
.proc _close
- jsr popax
jsr fdtoiocb_down ; get iocb index into X and decr. usage count
bmi inverr
bne ok ; not last one -> don't close yet
-; asl a
-; asl a
-; asl a
-; asl a
-; tax
lda #CLOSE
sta ICCOM,x
jsr CIOV