mirror of https://github.com/marketideas/qasm.git
Merge pull request #53 from ksherlock/dw-star
qasm gs - update program counter w/in data operands
This commit is contained in:
commit
bdbf62fe36
|
@ -1586,8 +1586,10 @@ initline php
|
|||
sta lableused
|
||||
lda objptr
|
||||
sta lineobjptr
|
||||
sta pcobjptr
|
||||
lda objptr+2
|
||||
sta lineobjptr+2
|
||||
sta pcobjptr+2
|
||||
|
||||
:xit plp
|
||||
rts
|
||||
|
|
|
@ -1285,9 +1285,9 @@ getnum php
|
|||
:xc1 jmp :doxc ;y still on stack!
|
||||
:pc iny
|
||||
rep $30
|
||||
lda lineobjptr
|
||||
lda pcobjptr
|
||||
sta val
|
||||
lda lineobjptr+$2
|
||||
lda pcobjptr+$2
|
||||
sta val+$2
|
||||
lda modeflag
|
||||
bit #relflag
|
||||
|
|
|
@ -2424,6 +2424,12 @@ dwop php
|
|||
lda lvalue+$1
|
||||
jsr putbyte
|
||||
jsr relcorrect
|
||||
rep $30
|
||||
lda objptr
|
||||
sta pcobjptr
|
||||
lda objptr+2
|
||||
sta pcobjptr+2
|
||||
sep $30
|
||||
plx
|
||||
txy
|
||||
lda (lineptr),y
|
||||
|
@ -2475,6 +2481,12 @@ dfbop php
|
|||
lda lvalue
|
||||
jsr putbyte
|
||||
jsr relcorrect
|
||||
rep $30
|
||||
lda objptr
|
||||
sta pcobjptr
|
||||
lda objptr+2
|
||||
sta pcobjptr+2
|
||||
sep $30
|
||||
plx
|
||||
txy
|
||||
lda (lineptr),y
|
||||
|
@ -2515,6 +2527,10 @@ ddbop ldx #$00
|
|||
jsr putbyte
|
||||
lda passnum
|
||||
beq :jmp
|
||||
lda objptr
|
||||
sta pcobjptr
|
||||
lda objptr+2
|
||||
sta pcobjptr+2
|
||||
lda modeflag
|
||||
bit #relflag
|
||||
beq :jmp
|
||||
|
@ -2626,6 +2642,12 @@ adrop php
|
|||
lda lvalue+2
|
||||
jsr putbyte
|
||||
jsr relcorrect
|
||||
rep $30
|
||||
lda objptr
|
||||
sta pcobjptr
|
||||
lda objptr+2
|
||||
sta pcobjptr+2
|
||||
sep $30
|
||||
plx
|
||||
txy
|
||||
lda (lineptr),y
|
||||
|
@ -2684,6 +2706,12 @@ adrlop php
|
|||
lda lvalue+$3
|
||||
jsr putbyte
|
||||
jsr relcorrect
|
||||
rep $30
|
||||
lda objptr
|
||||
sta pcobjptr
|
||||
lda objptr+2
|
||||
sta pcobjptr+2
|
||||
sep $30
|
||||
plx
|
||||
txy
|
||||
lda (lineptr),y
|
||||
|
|
|
@ -187,6 +187,7 @@ lvalue ds 4
|
|||
myvalue ds 4
|
||||
noshift ds 4
|
||||
lineobjptr ds 4
|
||||
pcobjptr ds 4
|
||||
|
||||
xreg ds 4 ;variables used by EVAL
|
||||
yreg ds 4
|
||||
|
|
Loading…
Reference in New Issue