mirror of
https://github.com/cc65/cc65.git
synced 2024-08-18 10:29:06 +00:00
17 lines
331 B
ArmAsm
17 lines
331 B
ArmAsm
; Helper function
|
|
|
|
.export store_filename
|
|
.importzp ptr1
|
|
|
|
.include "atmos.inc"
|
|
|
|
store_filename:
|
|
sta ptr1
|
|
stx ptr1+1
|
|
ldy #FNAME_LEN - 1 ; store filename
|
|
: lda (ptr1),y
|
|
sta CFILE_NAME,y
|
|
dey
|
|
bpl :-
|
|
rts
|