another string assignment bugfix

This commit is contained in:
FeralChild64 committed 2020-07-18 14:29:30 +02:00
1 parent c50595ab2d
commit eefbaf76d8
4 files changed
+32 -8

No files matched your search

@@ -1,32 +0,0 @@
// #LAYOUT# STD * #TAKE
// #LAYOUT# * BASIC_0 #TAKE
// #LAYOUT# * * #IGNORE
//
// Helper routine to copy string descriptor, for LET command
//
#if CONFIG_MEMORY_MODEL_38K
helper_let_strdesccpy:
ldy #$02
lda (VARPNT), y
sta DSCPNT+2
dey
lda (VARPNT), y
sta DSCPNT+1
dey
// .Y is now 0 - copy the content
!:
lda (__FAC1+1),y
sta (DSCPNT+1),y
iny
cpy __FAC1+0
bne !-
rts
#endif