dq 15000
WORD p_open_file,'OPEN-FILE',fasm
- ;; ( chaz* -- fd )
+ ;; ( chaz* n -- fd )
;; Open the nominated file
pushr rsi
+ add rsp,8 ; drop n ... assuming NUL-ended string
push qword 0
push qword 0
DOFORTH sys_open
next
WORD p_load_file,'LOAD-FILE'
- ;; ( chaz* -- )
+ ;; ( chaz* n -- )
dq p_open_file
dq p_dup, p_0less
BRANCH 1,p_load_file_badfile