Apple-2-SW/prodos-path
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-path.git synced 2025-01-13 03:29:54 +00:00
Code Issues Projects Releases Wiki Activity

Use MLI_CALL macro

Browse Source
This commit is contained in:
Joshua Bell 2019-01-08 07:50:43 -08:00
parent ec0366bb15
commit 0115a11684
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
path.s
View File

@ -327,10 +327,8 @@ ok: sta cmd_path_buffer+1,x
notok: stx cmd_path_buffer
;; Check to see if path exists.
jsr MLI
.byte GET_FILE_INFO
page_num19 := *+1
.addr get_file_info_params
page_num19 := *+5
MLI_CALL GET_FILE_INFO, get_file_info_params
beq :+
fail: sec ; no such file - signal it's not us
@ -364,10 +362,8 @@ fail: sec ; no such file - signal it's not us
: sta open_params::io_buffer+1
;; Now try to open/read/close and invoke it
jsr MLI
.byte OPEN
page_num20 := *+1
.addr open_params
page_num20 := *+5
MLI_CALL OPEN, open_params
beq :+
jsr FREEBUFR
lda #8 ; I/O ERROR - TODO: is this used???
@ -380,10 +376,9 @@ fail: sec ; no such file - signal it's not us
sta read_params::ref_num
page_num26 := *+2
sta close_params::ref_num
jsr MLI
.byte READ
page_num21 := *+1
.addr read_params
page_num21 := *+5
MLI_CALL READ, read_params
beq :+
jsr FREEBUFR
lda #8 ; I/O ERROR - TODO: is this used???