From 0115a11684e45dffae882cf28672ff1884bb6902 Mon Sep 17 00:00:00 2001 From: Joshua Bell Date: Tue, 8 Jan 2019 07:50:43 -0800 Subject: [PATCH] Use MLI_CALL macro --- path.s | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/path.s b/path.s index e687caf..a954d95 100644 --- a/path.s +++ b/path.s @@ -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???