mirror of
https://github.com/marketideas/qasm.git
synced 2024-12-26 23:29:22 +00:00
Merge pull request #62 from marketideas/inc-a
qasm - in Merlin, 'a' as an operand is ignored.
This commit is contained in:
commit
901ea90126
@ -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
10
testdata/3015-amacc.S
vendored
Normal 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
|
Loading…
Reference in New Issue
Block a user