1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 16:28:05 +11:00

zasm: allow blank lines in asm source code

This commit is contained in:
Virgil Dupras 2019-04-30 16:24:45 -04:00
parent eb5c974573
commit a7635cb1ea
3 changed files with 17 additions and 2 deletions

View File

@ -24,6 +24,7 @@ main:
; to where we should write the next upcode.
parseLine:
push bc
call gotoNextNotBlankLine
call tokenize
jr nz, .error
call parseTokens

View File

@ -1,2 +1,4 @@
add a, b
inc a
; comment
add a, b ; comment
inc a ; comment
; comment

View File

@ -144,6 +144,18 @@ gotoNextLine:
call JUMP_UNSETZ
ret
; Repeatedly calls gotoNextLine until the line in (HL) points to a line that
; isn't blank or 100% comment. Sets Z if we reach a line, Unset Z if we reach
; EOF
gotoNextNotBlankLine:
call toWord
ret z ; Z set? we have a not-blank line
; Z not set? (HL) is at the end of the line or at the beginning of
; comments.
call gotoNextLine
ret nz
jr gotoNextNotBlankLine
; *** Variables ***
tokInstr: