# Pastebin a6C1J5LF
.memorymap
defaultslot  0
slotsize     $1000
slot 0       $F000 ; eeprom
.endme

.rombankmap
bankstotal  1
banksize    $1000 ; EEPROM
banks       1
.endro

.emptyfill $FF

.bank 0 slot 0
.org $0000

.db "--[[CABE:Thistle:"
	.feature at_in_identifiers
	.feature dollar_in_identifiers
	.autoimport +
	.p02
	.importzp _sp0, _sp1, _fp0, _fp1
	.importzp _r0, _r1, _r2, _r3, _r4, _r5, _r6, _r7
	.importzp _s0, _s1, _s2, _s3, _s4, _s5, _s6, _s7
	.importzp _e0, _e1, _e2, _e3, _e4, _e5, _e6, _e7
	.importzp _e8, _e9, _e10, _e11, _e12, _e13, _e14, _e15
	.importzp _e16, _e17, _e18, _e19, _e20, _e21, _e22, _e23
	.importzp _e24, _e25, _e26, _e27, _e28, _e29, _e30, _e31
	.importzp _tmp0, _tmp1
	.segment "CODE"
	.export _Z3dmattt
_Z3dmattt:
; frame size 0, pretend size 0, outgoing size 0
	ldx #$41
	stx _r2
	ldx #$e0
	stx _r3
	ldy #$00
	lda _r0
	sta (_r2),y
	lda _r1
	ldx #$42
	stx _r6
	ldx _r3
	stx _r7
	ldy #$00
	sta _tmp0
	lda _r1
	sta (_r6),y
	lda _tmp0
	ldx #$43
	stx _r6
	sta _r2
	ldy #$00
	lda _r0
	sta (_r6),y
	ldx #$44
	stx _r0
	ldx _r3
	stx _r1
	ldy #$00
	lda _r2
	sta (_r0),y
	lda #$45
	sta _r0
	stx _r1
	ldy #$00
	lda _r4
	sta (_r0),y
	lda #$46
	sta _r0
	stx _r1
	ldy #$00
	lda _r5
	sta (_r0),y
	rts
	.export main
main:
; frame size 0, pretend size 0, outgoing size 0
	ldx hello
	lda hello+1
	ldy #$41
	sty _r0
	ldy #$e0
	sty _r1
	sta _r2
	ldy #$00
	txa
	sta (_r0),y
	lda _r2
	ldy #$42
	sty _r2
	ldy _r1
	sty _r3
	ldy #$00
	sta (_r2),y
	ldy #$43
	sty _r2
	sta _r4
	ldy #$00
	txa
	sta (_r2),y
	ldx #$44
	stx _r2
	ldy #$00
	lda _r4
	sta (_r2),y
	lda #$45
	sta _r2
	lda #$0c
	ldy #$00
	sta (_r2),y
	lda #$46
	sta _r2
	lda #$00
	ldy #$00
	sta (_r2),y
	ldx #$40
	stx _r2
	ldx #$02
	sta _r5
	ldy #$00
	txa
	sta (_r2),y
	lda _r5
	sta _r0
	sta _r1
	rts
	.export hello
	.segment "RODATA"
LC@0:
	.byte "Hello World?", $0
	.segment "DATA"
hello:
	.word	LC@0
.db "]]error\"Thistle arch required.\"--"

.orga
.dw nmi
.dw reset
.dw irq