cc65/libsrc/apple2/filedes.s

;
; Oliver Schmidt, 30.12.2004
;
; File descriptor management for the POSIX I/O routines
;

        .include        "errno.inc"
        .include        "fcntl.inc"
        .include        "filedes.inc"

getfd:
        ; Check for handle >= 256
        cpx     #$00
        bne     error

        ; Check for handle >= MAX_FDS
        cmp     #MAX_FDS
        bcs     error

        ; Convert handle to fdtab slot
        .assert .sizeof(FD) = 4, error
        asl
        asl

        ; Check for fdtab slot in use
        tay
        lda     fdtab + FD::REF_NUM,y
        beq     error

        ; Return success
        clc
        rts

        ; Load errno code and return error
error:  lda     #EINVAL
        sec
        rts

        .data

fdtab:  .assert .sizeof(FD) = 4, error

        .byte   $80             ; STDIN_FILENO ::REF_NUM
        .byte   O_RDONLY        ; STDIN_FILENO ::FLAGS
        .addr   $0000           ; STDIN_FILENO ::BUFFER

        .byte   $80             ; STDOUT_FILENO::REF_NUM
        .byte   O_WRONLY        ; STDOUT_FILENO::FLAGS
        .addr   $0000           ; STDOUT_FILENO::BUFFER

        .byte   $80             ; STDERR_FILENO::REF_NUM
        .byte   O_WRONLY        ; STDERR_FILENO::FLAGS
        .addr   $0000           ; STDERR_FILENO::BUFFER

        .res    (MAX_FDS - 3) * .sizeof(FD)