Merge pull request #46 from ksherlock/label-15-2

qasm iigs: two more label length stragglers
This commit is contained in:
Lane Roathe 2020-05-25 23:10:59 -07:00 committed by GitHub
commit b5955278c3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 5 additions and 5 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -796,7 +796,7 @@ findlable
lda lablect
beq :notfound
lda labstr
and #$000F
and #label_mask
beq :notfound
sta ]len1
lda labstr+$1