Merge pull request #62 from marketideas/inc-a

qasm - in Merlin, 'a' as an operand is ignored.
This commit is contained in:
Lane Roathe 2021-08-31 15:14:33 -07:00 committed by GitHub
commit 901ea90126
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 22 additions and 0 deletions

View File

@ -2418,7 +2418,11 @@ addmode php
beq :skipq
cmp #$22 ; "
beq :skipq
and #$5f
cmp #'A'
beq :a
jmp :index
:force8 lda #amforce8
tsb myvalue
jmp :index
@ -2435,6 +2439,14 @@ addmode php
tsb myvalue
jmp :index
* 'a' (no modifier) is ignored
:a iny
lda [lineptr],y
cmp #' '+1
jlt :zero
dey
jmp :index
* skip over quoted operand component.
:skipq sta :q
:skipq1 iny

10
testdata/3015-amacc.S vendored Normal file
View File

@ -0,0 +1,10 @@
*
* explicit a operand (inc a, etc) is dropped.
*
inc a
dec a
lsr a
asl a
rol a
ror a