2018-09-28 17:05:11 +00:00
|
|
|
; Copyright 2018 faddenSoft. All Rights Reserved.
|
|
|
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
|
|
|
|
;
|
|
|
|
|
; Assembler: Merlin 32
|
|
|
|
|
|
|
|
|
|
org $1000
|
|
|
|
|
|
2020-10-19 22:46:05 +00:00
|
|
|
start nop
|
2018-09-28 17:05:11 +00:00
|
|
|
|
2020-10-19 22:46:05 +00:00
|
|
|
; PEA/PER may want to push code addr-1; make sure that works. This
|
|
|
|
|
; is different from the way LDA works on the same address.
|
|
|
|
|
pre_addr
|
|
|
|
|
bit pre_addr
|
2018-09-28 17:05:11 +00:00
|
|
|
caddr
|
|
|
|
|
pea caddr-1 ;should base off caddr
|
|
|
|
|
per caddr-1 ;should base off caddr
|
2020-10-19 22:46:05 +00:00
|
|
|
lda caddr-1 ;should base off pre_addr
|
|
|
|
|
lda caddr ;should base off caddr
|
2018-09-28 17:05:11 +00:00
|
|
|
lda caddr+1 ;should base off caddr
|
|
|
|
|
lda caddr+2 ;should base off caddr
|
|
|
|
|
|
|
|
|
|
rts
|
