mirror of
https://github.com/cc65/cc65.git
synced 2024-08-20 09:29:12 +00:00
It isn't necessary, since paravirt.c has a default if the mode isn't pushed onto the stack.
123 lines
2.9 KiB
ArmAsm
123 lines
2.9 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 22.11.2002
|
|
;
|
|
; FILE* __fastcall__ _fopen (const char* name, const char* mode, FILE* f);
|
|
; /* Open the specified file and fill the descriptor values into f */
|
|
;
|
|
|
|
.export __fopen
|
|
|
|
.import _open
|
|
.import pushax, incsp4, return0
|
|
.importzp sp, ptr1
|
|
|
|
|
|
.include "errno.inc"
|
|
.include "fcntl.inc"
|
|
.include "_file.inc"
|
|
|
|
|
|
; ------------------------------------------------------------------------
|
|
; Code
|
|
|
|
.proc __fopen
|
|
|
|
sta file
|
|
stx file+1 ; Save f
|
|
|
|
; Get a pointer to the mode string
|
|
|
|
ldy #1
|
|
lda (sp),y
|
|
sta ptr1+1
|
|
dey
|
|
lda (sp),y
|
|
sta ptr1
|
|
|
|
; Look at the first character in mode
|
|
|
|
ldx #$00 ; Mode will be in X
|
|
lda (ptr1),y ; Get first char from mode
|
|
cmp #'w'
|
|
bne @L1
|
|
ldx #(O_WRONLY | O_CREAT | O_TRUNC)
|
|
bne @L3
|
|
@L1: cmp #'r'
|
|
bne @L2
|
|
ldx #O_RDONLY
|
|
bne @L3
|
|
@L2: cmp #'a'
|
|
bne invmode
|
|
ldx #(O_WRONLY | O_CREAT | O_APPEND)
|
|
|
|
; Look at more chars from the mode string
|
|
|
|
@L3: iny ; Next char
|
|
beq invmode
|
|
lda (ptr1),y
|
|
beq modeok ; End of mode string reached
|
|
cmp #'+'
|
|
bne @L4
|
|
txa
|
|
ora #O_RDWR ; Always do r/w in addition to anything else
|
|
tax
|
|
bne @L3
|
|
@L4: cmp #'b'
|
|
beq @L3 ; Binary mode is ignored
|
|
|
|
; Invalid mode
|
|
|
|
invmode:
|
|
lda #EINVAL
|
|
jsr __seterrno ; Set __errno, returns zero in A
|
|
tax ; a/x = 0
|
|
jmp incsp4
|
|
|
|
; Mode string successfully parsed. Store the binary mode onto the stack in
|
|
; the same place where the mode string pointer was before. Then call open()
|
|
|
|
modeok: ldy #$00
|
|
txa ; Mode -> A
|
|
sta (sp),y
|
|
tya
|
|
iny
|
|
sta (sp),y
|
|
ldy #4 ; Size of arguments in bytes
|
|
jsr _open ; Will cleanup the stack
|
|
|
|
; Check the result of the open() call
|
|
|
|
cpx #$FF
|
|
bne openok
|
|
cmp #$FF
|
|
bne openok
|
|
jmp return0 ; Failure, errno/_oserror already set
|
|
|
|
; Open call succeeded
|
|
|
|
openok: ldy file
|
|
sty ptr1
|
|
ldy file+1
|
|
sty ptr1+1
|
|
ldy #_FILE::f_fd
|
|
sta (ptr1),y ; file->f_fd = fd;
|
|
ldy #_FILE::f_flags
|
|
lda #_FOPEN
|
|
sta (ptr1),y ; file->f_flags = _FOPEN;
|
|
|
|
; Return the pointer to the file structure
|
|
|
|
lda ptr1
|
|
ldx ptr1+1
|
|
rts
|
|
|
|
.endproc
|
|
|
|
; ------------------------------------------------------------------------
|
|
; Data
|
|
|
|
.bss
|
|
file: .res 2
|
|
|
|
|