- .export store_filename
- .importzp ptr1
+ .export store_filename
+ .importzp ptr1
store_filename:
- sta ptr1
- stx ptr1+1
- ldy #$0f ;store filename
-: lda (ptr1),y
- sta $027f,y
- dey
- bpl :-
- rts
+ sta ptr1
+ stx ptr1+1
+ ldy #$0f ;store filename
+: lda (ptr1),y
+ sta $027f,y
+ dey
+ bpl :-
+ rts