mirror of https://github.com/marketideas/qasm.git
Merge pull request #46 from ksherlock/label-15-2
qasm iigs: two more label length stragglers
This commit is contained in:
commit
b5955278c3
|
@ -1817,7 +1817,7 @@ macfind
|
|||
sta lableptr+2
|
||||
stz ]offset
|
||||
lda [lableptr]
|
||||
and #$0f
|
||||
and #label_mask
|
||||
sta ]len2
|
||||
sep $20
|
||||
ldx #$02 ;start at byte 2
|
||||
|
|
|
@ -694,7 +694,7 @@ writerel php ;must enter
|
|||
ldy #$00
|
||||
stz :offset
|
||||
lda [lableptr]
|
||||
and #$0F
|
||||
and #label_mask
|
||||
bne :stalen
|
||||
inc :main
|
||||
jmp :loop
|
||||
|
|
|
@ -262,10 +262,10 @@ offset ds 2
|
|||
*shiftct ds 2
|
||||
|
||||
|
||||
errlable ds 16,0
|
||||
errlable ds lab_size+1,0
|
||||
errpos ds 2
|
||||
|
||||
newlable ds 18,0
|
||||
newlable ds lab_size+3,0
|
||||
|
||||
segheader
|
||||
bytecnt ds 4
|
||||
|
|
|
@ -796,7 +796,7 @@ findlable
|
|||
lda lablect
|
||||
beq :notfound
|
||||
lda labstr
|
||||
and #$000F
|
||||
and #label_mask
|
||||
beq :notfound
|
||||
sta ]len1
|
||||
lda labstr+$1
|
||||
|
|
Loading…
Reference in New Issue