mirror of https://github.com/pret/pokecrystal.git
40 lines
581 B
NASM
40 lines
581 B
NASM
InitString:: ; 2ef6
|
|
; Init a string of length c.
|
|
push hl
|
|
jr _InitString
|
|
; 2ef9
|
|
|
|
InitName:: ; 2ef9
|
|
; Intended for names, so this function is limited to ten characters.
|
|
push hl
|
|
ld c, 10
|
|
; 2efc
|
|
|
|
_InitString:: ; 2efc
|
|
; 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
|
|
.notblank
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
; 2f17
|
|
|