izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-29 13:20:57 +10:00
Code Issues Releases Wiki Activity

basic: don't choke on ':' in '"' literals

Browse Source
This commit is contained in:
Virgil Dupras 2019-12-12 12:22:38 -05:00
parent 5b155a5c15
commit 43f4c5200e
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
apps/basic/tok.asm
View File

@ -56,6 +56,7 @@ toEnd:
cp ':' cp ':'
jr z, .havesep jr z, .havesep
inc hl inc hl
call skipQuoted
jr toEnd jr toEnd
.havesep: .havesep:
inc a ; unset Z inc a ; unset Z

17
apps/basic/util.asm
View File

@ -11,5 +11,22 @@ spitQuoted:
inc hl inc hl
cp '"' cp '"'
ret z ret z
or a
ret z
call stdioPutC call stdioPutC
jr .loop jr .loop
; 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