.export _open
-
+
.import addysp,popax
-
+
.importzp sp,tmp2,tmp3,tmp1
-
-
+
+
.include "telestrat.inc"
.include "errno.inc"
- .include "fcntl.inc"
+ .include "fcntl.inc"
; int open (const char* name, int flags, ...); /* May take a mode argument */
.proc _open
dey ; ...checked (it generates a c compiler warning)
dey
dey
- beq parmok ; Branch if parameter count ok
- jsr addysp ; Fix stack, throw away unused parameters
+ beq parmok ; Branch if parameter count ok
+ jsr addysp ; Fix stack, throw away unused parameters
; Parameters ok. Pop the flags and save them into tmp3
jsr popax ; Get flagss
sta tmp3 ; save flags
; Get the filename from stack and parse it. Bail out if is not ok
- jsr popax ; Get name
- ldy tmp3 ; Get flags again
- BRK_TELEMON XOPEN ; launch primitive ROM
+ jsr popax ; Get name
+ ldy tmp3 ; Get flags again
+ BRK_TELEMON XOPEN ; launch primitive ROM
rts
.endproc