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

ent label-list operand should only execute on the second pass, after all labels are defined.

Browse Source
This commit is contained in:
Kelvin Sherlock 2020-01-15 21:00:16 -05:00
parent 0dcd68a402
commit 275f49e43e
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/asm/asm.opcodes.s
View File

@ -1673,8 +1673,6 @@ exdop
entop
]len equ workspace
lda passnum
bne :xit
lda macflag
bit #%01100000
beq :nomac
@ -1684,6 +1682,9 @@ entop
:nomac
lda linelable
bmi :group
* label ent - first pass only.
ldx passnum
bne :xit
asl
asl
tay
@ -1762,7 +1763,10 @@ entop
trb orgor
jmp :xit
* ent label[,label] - second pass only.
:group1 rep $30
ldx passnum
beq :xit
sep $20
ldy #$FFFF
]lup iny
@ -1806,12 +1810,9 @@ entop
lda #$ffff
sta fllast
jsr findlable
bcs :or
jsr insertlable
stz fllast
dec fllast
jcs :gerr1
:or stz :offset
bcc :gerr3
stz :offset
ldy #26 ;point to type
lda [lableptr],y
and #macvarbit.externalbit.macrobit.variablebit.localbit
@ -1837,6 +1838,9 @@ entop
:gerr rep $30
lda #badlable
jmp :gerr1
:gerr3 rep $30
lda #undeflable
jmp :gerr1
:gerr2 rep $30
lda #duplable
:gerr1 rep $30