- .export _open
- .import addysp,popax
- .importzp sp,tmp2,tmp3,tmp1
+ .export _open
+
+ .import addysp,popax
+
+ .importzp sp,tmp2,tmp3,tmp1
.include "telestrat.inc"
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
-parmok: jsr popax ; Get flagss
- sta tmp3 ; save flags
+parmok:
+ 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
; jede jede@oric.org 2017-01-22
;
-
- .FEATURE c_comments,labels_without_colons,pc_assignment, loose_char_term
.export _read
.import popax
.include "zeropage.inc"
.include "telestrat.inc"
-; int read (int fd, void* buf, unsigned count);
+;int read (int fd, void* buf, unsigned count);
.proc _read
sta ptr1 ; count