the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Address Oliver's comments

Browse Source
This commit is contained in:
Colin Leroy-Mira
2025-08-24 18:31:44 +02:00
committed by Oliver Schmidt
parent 86bcf32580
commit 357f64e4e3
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
libsrc/apple2/file_set_info.s
View File

@@ -12,25 +12,24 @@
.include "errno.inc" .include "errno.inc"
.include "mli.inc" .include "mli.inc"
auxtype = tmp1 new_value = ptr2 ; ptr1 is used by pushname
type = tmp3 mod_flag = tmp1
mod_flag = tmp4
UPDATE_TYPE = $00 UPDATE_TYPE = $00
UPDATE_AUXTYPE = $FF UPDATE_AUXTYPE = $80
_file_set_type: _file_set_type:
sta type sta new_value
ldy #UPDATE_TYPE ldy #UPDATE_TYPE
sty mod_flag
beq mli_update beq mli_update
_file_set_auxtype: _file_set_auxtype:
sta auxtype sta new_value
stx auxtype+1 stx new_value+1
ldy #UPDATE_AUXTYPE ldy #UPDATE_AUXTYPE
sty mod_flag
mli_update: mli_update:
sty mod_flag
; Get pathname ; Get pathname
jsr popax jsr popax
jsr pushname jsr pushname
@@ -48,14 +47,14 @@ mli_update:
; Update type if needed ; Update type if needed
bit mod_flag bit mod_flag
bmi :+ bmi :+
lda type lda new_value
sta mliparam + MLI::INFO::FILE_TYPE sta mliparam + MLI::INFO::FILE_TYPE
jmp set_info jmp set_info
: ; Otherwise update auxtype : ; Otherwise update auxtype
lda auxtype lda new_value
sta mliparam + MLI::INFO::AUX_TYPE sta mliparam + MLI::INFO::AUX_TYPE
lda auxtype+1 lda new_value+1
sta mliparam + MLI::INFO::AUX_TYPE+1 sta mliparam + MLI::INFO::AUX_TYPE+1
set_info: set_info: