mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 00:08:46 +10:00
16 lines
275 B
NASM
16 lines
275 B
NASM
|
; 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
|
||
|
call stdioPutC
|
||
|
jr .loop
|