From 357f64e4e3c733d54b82bc155afc841fd8d9ee8d Mon Sep 17 00:00:00 2001 From: Colin Leroy-Mira Date: Sun, 24 Aug 2025 18:31:44 +0200 Subject: [PATCH] Address Oliver's comments --- libsrc/apple2/file_set_info.s | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/libsrc/apple2/file_set_info.s b/libsrc/apple2/file_set_info.s index 1e3cde9f8..4e1e9e541 100644 --- a/libsrc/apple2/file_set_info.s +++ b/libsrc/apple2/file_set_info.s @@ -12,25 +12,24 @@ .include "errno.inc" .include "mli.inc" -auxtype = tmp1 -type = tmp3 -mod_flag = tmp4 +new_value = ptr2 ; ptr1 is used by pushname +mod_flag = tmp1 UPDATE_TYPE = $00 -UPDATE_AUXTYPE = $FF +UPDATE_AUXTYPE = $80 _file_set_type: - sta type + sta new_value ldy #UPDATE_TYPE - sty mod_flag beq mli_update _file_set_auxtype: - sta auxtype - stx auxtype+1 + sta new_value + stx new_value+1 ldy #UPDATE_AUXTYPE - sty mod_flag mli_update: + sty mod_flag + ; Get pathname jsr popax jsr pushname @@ -48,14 +47,14 @@ mli_update: ; Update type if needed bit mod_flag bmi :+ - lda type + lda new_value sta mliparam + MLI::INFO::FILE_TYPE jmp set_info : ; Otherwise update auxtype - lda auxtype + lda new_value sta mliparam + MLI::INFO::AUX_TYPE - lda auxtype+1 + lda new_value+1 sta mliparam + MLI::INFO::AUX_TYPE+1 set_info: