File: close.s

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (29 lines) | stat: -rw-r--r-- 686 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
;
; Christian Groessler, May-2000
;
; int __fastcall__ close(int fd);
;

        .include "atari.inc"
        .export _close
        .import __do_oserror,popax,__oserror
        .import fdtoiocb_down,__inviocb

.proc   _close
        jsr     fdtoiocb_down           ; get iocb index into X and decr. usage count
        bmi     inverr
        bne     ok                      ; not last one -> don't close yet
        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