Apple-2-SW/qasm
1
0
Fork 0
mirror of https://github.com/marketideas/qasm.git synced 2024-06-13 03:29:33 +00:00
Code Issues Projects Releases Wiki Activity

fix to macro operand parsing for quoted strings

Browse Source 
macro operand parsing code was a little too clever and had problems if both ' and " delimiters were present.

new code uses separate loops for handing delimited strings and raw strings, to keep things simpler and more correct.

```
xx	mac
	asc ]1
	eom

	xx '"hello"'
	xx "'hello'"
	xx 'hello'
	xx "hello"
	xx 'abc',00
	xx ff

 ```
before:
```
Assembling macstr.s

Bad operand in line: 5.

Bad operand in line: 6.
                     1 xx           mac
                     2              asc  ]1
                     3              eom
                     4
008000:              5              xx   '"hello"'
008000: 22 68 65 6C  5              asc  '"hello"'

008004: 6C 6F 22
                     5              eom
008007:              6              xx   "'hello'"
008007: A7 E8 E5 EC  6              asc  "'hello'"

00800B: EC EF A7
                     6              eom
00800E:              7              xx   'hello'
00800E: 68 65 6C 6C  7              asc  'hello'
008012: 6F
                     7              eom
008013:              8              xx   "hello"
008013: E8 E5 EC EC  8              asc  "hello"
008017: EF
                     8              eom
008018:              9              xx   'abc',00
008018: 61 62 63 00  9              asc  'abc',00
                     9              eom
00801C:              10             xx   ff
00801C: FF           10             asc  ff
                     10             eom

End of QuickASM assembly. 29 bytes, 2 errors, 22 lines, 1 symbols.

Elapsed time = < 1 second.
```

after:
```
Assembling macstr.s

                     1 xx           mac
                     2              asc  ]1
                     3              eom
                     4
008000:              5              xx   '"hello"'
008000: 22 68 65 6C  5              asc  '"hello"'
008004: 6C 6F 22
                     5              eom
008007:              6              xx   "'hello'"
008007: A7 E8 E5 EC  6              asc  "'hello'"
00800B: EC EF A7
                     6              eom
00800E:              7              xx   'hello'
00800E: 68 65 6C 6C  7              asc  'hello'
008012: 6F
                     7              eom
008013:              8              xx   "hello"
008013: E8 E5 EC EC  8              asc  "hello"
008017: EF
                     8              eom
008018:              9              xx   'abc',00
008018: 61 62 63 00  9              asc  'abc',00
                     9              eom
00801C:              10             xx   ff
00801C: FF           10             asc  ff
                     10             eom

End of QuickASM assembly. 29 bytes, 0 errors, 22 lines, 1 symbols.

Elapsed time = < 1 second.
```
This commit is contained in:
Kelvin Sherlock 2020-05-25 16:14:13 -04:00
parent e743e2a6c4
commit b4bf2c1611
1 changed files with 39 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
src/asm/asm.cond.s
View File

@ -667,66 +667,55 @@ getvars
:flush lda (lineptr),y :flush lda (lineptr),y
cmp #' ' cmp #' '
jlt :move bne :f0
beq :finy
cmp #';'
bne :first
jmp :move
:finy iny
jmp :flush
:first cmp #$22
beq :literal
cmp #$27
bne :giny
:literal sta ]lit
:giny sta macvars,x
* jsr :print
dec ]ct
inx
iny iny
:loop lda (lineptr),y bra :flush
cmp #' ' :f0
jlt :move
cmp #';'
jeq :move
:first cmp #$22
beq :q
cmp #$27
beq :q
:loop
sta macvars,x
dec ]ct
beq :badvar
iny
inx
lda (lineptr),y
cmp #' '+1
blt :done blt :done
beq :checklit
cmp #';' cmp #';'
beq :semi beq :semi
cmp ]lit
beq :littog
cmp #$27
beq :lit1
cmp #$22 cmp #$22
bne :x1 beq :q
:lit1 sta ]lit cmp #$27
:x1 xba beq :q
:sta1 lda ]ct bra :loop
beq :badvar
xba :q sta ]lit
:qloop
sta macvars,x sta macvars,x
* jsr :print dec ]ct
beq :badvar
iny iny
inx inx
dec ]ct
jmp :loop lda (lineptr),y
:checklit xba cmp #' '
lda ]lit blt :done
bne :sta1 cmp ]lit
jmp :done beq :loop
:littog xba bra :qloop
lda ]lit
bne :loff
xba
sta ]lit
xba
jmp :sta1
:loff stz ]lit
jmp :sta1
:done sec :done sec
ror ]done ror ]done
:semi xba :semi stz macvars,x
lda ]lit
bne :sta1
:next stz macvars,x
* jsr :printcr
inx inx
iny iny
dec ]ct dec ]ct