2014-02-01 17:26:39 -08:00
|
|
|
InitString:: ; 2ef6
|
2013-09-07 21:22:33 -07:00
|
|
|
; Init a string of length c.
|
|
|
|
|
push hl
|
|
|
|
|
jr _InitString
|
|
|
|
|
; 2ef9
|
|
|
|
|
|
2014-02-01 17:26:39 -08:00
|
|
|
InitName:: ; 2ef9
|
2013-09-07 21:22:33 -07:00
|
|
|
; Intended for names, so this function is limited to ten characters.
|
|
|
|
|
push hl
|
|
|
|
|
ld c, 10
|
2014-02-01 17:26:39 -08:00
|
|
|
_InitString:: ; 2efc
|
2013-09-07 21:22:33 -07:00
|
|
|
; if the string pointed to by hl is empty (defined as "zero or more spaces
|
|
|
|
|
; followed by a null"), then initialize it to the string pointed to by de.
|
|
|
|
|
push bc
|
|
|
|
|
.loop
|
|
|
|
|
ld a, [hli]
|
|
|
|
|
cp "@"
|
|
|
|
|
jr z, .blank
|
|
|
|
|
cp " "
|
|
|
|
|
jr nz, .notblank
|
|
|
|
|
dec c
|
|
|
|
|
jr nz, .loop
|
|
|
|
|
.blank
|
|
|
|
|
pop bc
|
|
|
|
|
ld l, e
|
|
|
|
|
ld h, d
|
|
|
|
|
pop de
|
|
|
|
|
ld b, 0
|
|
|
|
|
inc c
|
|
|
|
|
call CopyBytes
|
|
|
|
|
ret
|
2016-05-08 11:11:24 -07:00
|
|
|
|
2013-09-07 21:22:33 -07:00
|
|
|
.notblank
|
|
|
|
|
pop bc
|
|
|
|
|
pop hl
|
|
|
|
|
ret
|
|
|
|
|
; 2f17
|
