2017-09-24 19:23:44 +02:00
|
|
|
;
|
2017-09-25 21:39:57 +02:00
|
|
|
; Jede (jede@oric.org) 24.09.2017
|
2017-09-24 19:23:44 +02:00
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export initcwd
|
|
|
|
|
.import __cwd
|
|
|
|
|
|
|
|
|
|
.include "zeropage.inc"
|
|
|
|
|
.include "telestrat.inc"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
initcwd:
|
2021-03-11 09:42:14 +01:00
|
|
|
BRK_TELEMON(XGETCWD)
|
2018-01-09 04:48:39 -05:00
|
|
|
|
2017-09-25 21:39:57 +02:00
|
|
|
sta ptr1
|
|
|
|
|
sty ptr1+1
|
2018-01-09 04:48:39 -05:00
|
|
|
|
2017-09-24 19:23:44 +02:00
|
|
|
ldy #$00
|
2018-01-09 04:48:39 -05:00
|
|
|
loop:
|
2017-09-25 21:39:57 +02:00
|
|
|
lda (ptr1),y
|
2017-09-24 19:23:44 +02:00
|
|
|
sta __cwd,y
|
2018-01-09 04:48:39 -05:00
|
|
|
beq done
|
2017-09-24 19:23:44 +02:00
|
|
|
iny
|
|
|
|
|
bne loop
|
2018-01-09 04:48:39 -05:00
|
|
|
|
|
|
|
|
done:
|
2017-09-24 19:23:44 +02:00
|
|
|
rts
|
