1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 02:29:52 +00:00
cc65/libsrc/telestrat/initcwd.s

32 lines
513 B
ArmAsm

;
; Jede (jede@oric.org) 24.09.2017
;
.export initcwd
.import __cwd
.include "zeropage.inc"
.include "telestrat.inc"
initcwd:
ldx #PWD_PTR
BRK_TELEMON XVARS
sta ptr1
sty ptr1+1
ldy #$00
loop:
lda (ptr1),y
beq done
sta __cwd,y
iny
bne loop
done:
sta __cwd,y
rts