2019-11-22 11:56:51 +11:00
|
|
|
; Is (HL) a double-quoted string? If yes, spit what's inside and place (HL)
|
|
|
|
|
; at char after the closing quote.
|
|
|
|
|
; Set Z if there was a string, unset otherwise.
|
|
|
|
|
spitQuoted:
|
|
|
|
|
ld a, (hl)
|
|
|
|
|
cp '"'
|
|
|
|
|
ret nz
|
|
|
|
|
inc hl
|
|
|
|
|
.loop:
|
|
|
|
|
ld a, (hl)
|
|
|
|
|
inc hl
|
|
|
|
|
cp '"'
|
|
|
|
|
ret z
|
2019-12-13 04:22:38 +11:00
|
|
|
or a
|
|
|
|
|
ret z
|
2019-11-22 11:56:51 +11:00
|
|
|
call stdioPutC
|
|
|
|
|
jr .loop
|
2019-12-13 04:22:38 +11:00
|
|
|
|
|
|
|
|
; Same as spitQuoted, but without the spitting
|
|
|
|
|
skipQuoted:
|
|
|
|
|
ld a, (hl)
|
|
|
|
|
cp '"'
|
|
|
|
|
ret nz
|
|
|
|
|
inc hl
|
|
|
|
|
.loop:
|
|
|
|
|
ld a, (hl)
|
|
|
|
|
inc hl
|
|
|
|
|
cp '"'
|
|
|
|
|
ret z
|
|
|
|
|
or a
|
|
|
|
|
ret z
|
|
|
|
|
jr .loop
|
