1
0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
cc65/libsrc/telestrat/initcwd.s
Greg King da22c90d33 Shrank Telestrat initcwd.s by 3 bytes.
Changing when a loop test is done allowed the removal of an extra STA instruction.
2018-01-09 04:48:39 -05:00

29 lines
438 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
sta __cwd,y
beq done
iny
bne loop
done:
rts