Apple-2-SW
/
qasm
mirror of https://github.com/marketideas/qasm.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge pull request #53 from ksherlock/dw-star 

qasm gs - update program counter w/in data operands
This commit is contained in:
Lane Roathe 2020-10-12 08:46:02 -07:00 committed by GitHub
parent 0fb0dc0cc1 4a380871cd
commit bdbf62fe36
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 33 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/asm/asm.1.s
View File

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

4
src/asm/asm.eval.s
View File

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

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

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

1
src/asm/asm.vars.s
View File

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