1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
cc65/libsrc/atari/close.s
cpg 5f36ad2d53 a small optimization
git-svn-id: svn://svn.cc65.org/cc65/trunk@1007 b7a2c559-68d2-44c3-8de9-860c34a00d81
2001-10-03 15:56:42 +00:00

36 lines
533 B
ArmAsm

;
; Christian Groessler, May-2000
;
; int close(int fd);
;
.include "atari.inc"
.export _close
.import __do_oserror,popax,__oserror
.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
bmi closerr
ok: ldx #0
stx __oserror ; clear system specific error code
txa
rts
inverr: jmp __inviocb
closerr:jmp __do_oserror
.endproc