mirror of https://github.com/marketideas/qasm.git
170 lines
5.0 KiB
ArmAsm
170 lines
5.0 KiB
ArmAsm
; Copyright 2019 faddenSoft. All Rights Reserved.
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
|
;
|
|
; Assembler: Merlin 32
|
|
|
|
; EDIT: the project must include the three platform symbol files.
|
|
|
|
org $1000
|
|
|
|
; make sure platform symbols don't get set for file data
|
|
; DO NOT set a user label here
|
|
Start lda Start-1 ;CodeWrap+255
|
|
ldx Start ;(auto)
|
|
ldy Start+1 ;(auto+1)
|
|
lda END ;(auto)
|
|
lda END+1 ;CodeWrap+X
|
|
lda END+8 ;CodeWrap+Y
|
|
|
|
nop
|
|
|
|
; test overlapping labels (multiple sym files)
|
|
lda $1ffe ;(no sym)
|
|
lda $1fff ;should be SameName1-1
|
|
lda $2000 ;should be SameName1
|
|
|
|
lda $200f ;(no sym)
|
|
lda $2010 ;should be SameName2-1
|
|
lda $2011 ;should be SameName2
|
|
lda $2012 ;(no sym)
|
|
|
|
lda $201f ;(no sym)
|
|
lda $2020 ;(no sym)
|
|
lda $2021 ;should be sym-1
|
|
lda $2022 ;should be SameName3
|
|
|
|
nop
|
|
|
|
; test overlapping values (multiple sym files)
|
|
lda $2100 ;should be SameValA_A
|
|
lda $2110 ;should be SameValB_A
|
|
lda $2120 ;should be SameValC_C
|
|
|
|
nop
|
|
|
|
; test overlap with project symbol
|
|
; EDIT: define project symbols ProjSym1 at $2202(4b) and ProjSim2 at $220a(1b)
|
|
lda $21fe ;(no sym)
|
|
lda $21ff ;SYM-1
|
|
lda $2200 ;ChkProj1
|
|
lda $2201 ;ChkProj1+1
|
|
lda $2202 ;ProjSym
|
|
lda $2203 ;ProjSym1+1
|
|
lda $2204 ;ProjSym1+2
|
|
lda $2205 ;ProjSym1+3
|
|
lda $2206 ;ChkProj2+2
|
|
lda $2207 ;ChkProj2+3
|
|
lda $2208 ;(no sym)
|
|
lda $2209 ;ProjSym2-1
|
|
lda $220a ;ProjSym2
|
|
lda $220b ;(no sym)
|
|
|
|
nop
|
|
|
|
; test overlapping regions, single file
|
|
lda $2ffe ;(no sym)
|
|
lda $2fff ;Over1-1
|
|
lda $3000 ;Over1
|
|
lda $3001 ;Over1+1
|
|
lda $3002 ;Over2
|
|
lda $3003 ;Over2+1
|
|
lda $3004 ;Over2+2
|
|
lda $3005 ;Over2+3
|
|
lda $3006 ;Over2a
|
|
lda $3007 ;Over3+1
|
|
lda $3008 ;Over3+2
|
|
lda $3009 ;Over3+3
|
|
lda $300a ;Over3+4
|
|
lda $300b ;Over3+5
|
|
lda $300c ;Over3+6
|
|
lda $300d ;Over1+13
|
|
lda $300e ;Over1+14
|
|
lda $300f ;Over1+15
|
|
lda $3010 ;(no sym)
|
|
|
|
nop
|
|
|
|
; test overlapping regions, multiple platform files
|
|
lda $30fe ;(no sym)
|
|
lda $30ff ;SepOver1-1
|
|
lda $3100 ;SepOver1
|
|
lda $3101 ;SepOver1+1
|
|
lda $3102 ;SepOver1+2
|
|
lda $3103 ;SepOver1+3
|
|
lda $3104 ;SepOver2+2
|
|
lda $3105 ;SepOver2+3
|
|
lda $3106 ;(no sym)
|
|
|
|
nop
|
|
|
|
; test overlap with local variable
|
|
; EDIT: create variable LocalVar at $41(2b)
|
|
ldx $3e ;(no sym)
|
|
ldx $3f ;should be OverVar-1
|
|
ldx $40 ;should be OverVar
|
|
ldx $41 ;should be LocalVar
|
|
ldx $42 ;should be LocalVar+1
|
|
ldx $43 ;should be OverVar+3
|
|
ldx $44 ;(no sym)
|
|
|
|
nop
|
|
|
|
lda $3fff ;EDIT: change to "FatConst"
|
|
lda $4000 ;(no sym)
|
|
lda $4001 ;(no sym)
|
|
|
|
; test bank wrap
|
|
lda $fff8 ;should be BankWrap+8
|
|
lda $08 ;should be BankWrap+24 or <BankWrap-232
|
|
|
|
nop
|
|
|
|
; test I/O direction
|
|
Dir equ $5000
|
|
lda Dir
|
|
lda Dir+1
|
|
ldx Dir+2
|
|
ldy Dir+3
|
|
sta Dir
|
|
sta Dir+1
|
|
stx Dir+2
|
|
sty Dir+3
|
|
|
|
nop
|
|
|
|
; test MULTI_MASK stuff
|
|
bit $c000 ;should all be AlsoMultiZero
|
|
bit $c010 ;<-- except this NonMultiOver
|
|
bit $c020
|
|
bit $c0f0
|
|
nop
|
|
bit $c001 ;should all be MultiOne
|
|
bit $c011
|
|
bit $c021
|
|
nop
|
|
bit $c002 ;should all be hex
|
|
bit $c012
|
|
bit $c022
|
|
nop
|
|
lda $c003
|
|
lda $c004 ;MultiRead
|
|
lda $c005 ;MultiRead+1
|
|
lda $c006 ;MultiRead+2
|
|
lda $c007
|
|
sta $c004
|
|
sta $c005 ;MultiWrite
|
|
sta $c006 ;MultiWrite+1
|
|
sta $c007 ;MultiWrite+2
|
|
sta $c008
|
|
nop
|
|
jsr $c005 ;MultiRead+1
|
|
nop
|
|
bit $c100 ;should all be MoreMultiZero
|
|
bit $c110 ;<-- except this AlsoMoreMultiZero
|
|
bit $c120
|
|
bit $c1f0
|
|
|
|
nop
|
|
|
|
END rts
|