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

Merge pull request #41 from ksherlock/ent-pass-two

Browse Source 
(qasm iigs) ent label-list operand
This commit is contained in:
Lane Roathe 2020-01-16 10:35:33 -08:00 committed by GitHub
commit 13473d448b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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