mirror of
https://github.com/cc65/cc65.git
synced 2024-06-07 23:29:39 +00:00
34 lines
812 B
ArmAsm
34 lines
812 B
ArmAsm
|
;
|
||
|
|
; Colin Leroy-Mira, 2023 <colin@colino.net>
|
||
|
|
;
|
||
|
|
|
||
|
|
.export mli_file_info
|
||
|
|
.import pushname, popname, mli_file_info_direct
|
||
|
|
.import popax
|
||
|
|
.include "zeropage.inc"
|
||
|
|
.include "errno.inc"
|
||
|
|
.include "mli.inc"
|
||
|
|
|
||
|
|
; Calls ProDOS MLI GET_FILE_INFO on the filename
|
||
|
|
; stored as C string in AX at top of stack
|
||
|
|
; Returns with carry set on error, and sets errno
|
||
|
|
mli_file_info:
|
||
|
|
; Get pathname
|
||
|
|
jsr popax
|
||
|
|
jsr pushname
|
||
|
|
bne oserr
|
||
|
|
|
||
|
|
jsr mli_file_info_direct
|
||
|
|
php ; Save return status
|
||
|
|
|
||
|
|
jsr popname ; Preserves A
|
||
|
|
|
||
|
|
plp
|
||
|
|
bcs oserr
|
||
|
|
rts
|
||
|
|
|
||
|
|
oserr:
|
||
|
|
jsr ___mappederrno
|
||
|
|
sec
|
||
|
|
rts
|