diff --git a/apps/basic/tok.asm b/apps/basic/tok.asm index e6adf41..afe4967 100644 --- a/apps/basic/tok.asm +++ b/apps/basic/tok.asm @@ -56,6 +56,7 @@ toEnd: cp ':' jr z, .havesep inc hl + call skipQuoted jr toEnd .havesep: inc a ; unset Z diff --git a/apps/basic/util.asm b/apps/basic/util.asm index 37bee03..0c2f831 100644 --- a/apps/basic/util.asm +++ b/apps/basic/util.asm @@ -11,5 +11,22 @@ spitQuoted: inc hl cp '"' ret z + or a + ret z call stdioPutC 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