6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2026-01-22 17:16:21 +00:00
Code Issues 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 "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: