mirror of https://github.com/marketideas/qasm.git
69 lines
2.2 KiB
ArmAsm
69 lines
2.2 KiB
ArmAsm
; Copyright 2018 faddenSoft. All Rights Reserved.
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
|
;
|
|
; Assembler: Merlin 32
|
|
|
|
; NOTE: set assembler to 6502, undocumented instructions disabled
|
|
; NOTE: add 2011-hinting.cs to extension scripts
|
|
|
|
; It may be necessary to review the analyzer output to verify certain things.
|
|
|
|
MAGIC equ $2456 ;recognized by extension script
|
|
|
|
org $1000
|
|
|
|
dfb $03 ;undocumented (SLO), will halt analyzer
|
|
dfb $02
|
|
|
|
entry bit entry ;EDIT: add code hint to first byte
|
|
bit $11a9 ;EDIT: add code hint to middle byte (a9); creates embedded instr
|
|
|
|
nop
|
|
embed dfb $2c
|
|
innerd ldx #$ff ;EDIT: add data hint to middle byte (a2); will be ignored
|
|
nop
|
|
jsr innerd ;analyzer should follow this path
|
|
|
|
nop
|
|
dfb $2c
|
|
inneri ldx #$ff ;EDIT: add inline data hint to middle byte (a2); will be ignored
|
|
nop
|
|
jsr inneri ;analyzer should follow this path
|
|
|
|
jsr MAGIC ;next 4 bytes are inline data tagged by the
|
|
magic11 lda #$11 ; extension script -- if they show up as
|
|
ldx #$22 ; LDA/LDX, the script isn't working
|
|
|
|
jsr magic11 ;analyzer should ignore this path
|
|
|
|
jsr magic33 ;analyzer will add this path, but the target will be inline
|
|
jsr MAGIC ; data before it gets to it
|
|
magic33 lda #$33
|
|
ldx #$44
|
|
|
|
; We want to call into part2 before part1 to establish that part2 is code before the
|
|
; extension script tries to change it to inline data. The code analyzer currently uses
|
|
; a stack, so we call part 1 first, which means it will be called last.
|
|
jsr part1
|
|
jsr part2
|
|
|
|
nop
|
|
|
|
lda MAGIC ;EDIT: hint as data, format as dense hex, remove hint
|
|
|
|
jsr dataolap
|
|
|
|
rts
|
|
|
|
|
|
part1 jsr MAGIC
|
|
part2 lda #$55
|
|
ldx #$66
|
|
rts
|
|
|
|
; Make sure that data descriptors that overlap with code are ignored.
|
|
hex 818283 ;EDIT: format as 4-byte int, so it overlaps with dataolap
|
|
dataolap lda #$99
|
|
rts
|
|
|