17 lines
424 B
ArmAsm
17 lines
424 B
ArmAsm
;
|
|
; Colin Leroy-Mira, 2025 <colin@colino.net>
|
|
;
|
|
|
|
.export mli_set_pathname_tos
|
|
.include "zeropage.inc"
|
|
.include "mli.inc"
|
|
|
|
; Sets MLI PATHNAME parameter from TOS
|
|
mli_set_pathname_tos:
|
|
; Set pushed name from TOS
|
|
lda c_sp
|
|
ldx c_sp+1
|
|
sta mliparam + MLI::PATH::PATHNAME
|
|
stx mliparam + MLI::PATH::PATHNAME+1
|
|
rts
|