
;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
; a small example showing the wla 6502 syntax
; written by ville helin <vhelin@cc.hut.fi> in 1998-2003
;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

.INCLUDE "defines.i"

;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
; main
;»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

.DEFINE _CTRLA $12
.DEFINE _CTRLB $56
.DEFINE _CTRLSEL $90
.DEFINE _CTRLSTA $34

        ; @BT linked.rom
        
.BANK 0 SLOT 0	
.ORG 0

.SECTION "Beginning" FORCE

MAIN:   and     :BANKLABEL+5,x
        STA     $1234
        STA     $12
        sta     :MORE_ACTION+1
        STA     $1234, X
        STA     ($12, X)
        STA     $12, X
        DEX
        STA     ($12), Y
        STA     $1234, Y
        JMP     MORE_ACTION
.ENDS

.SECTION "Action" SEMIFREE

MORE_ACTION:
	AND	#%10101010
	AND	%10101010
	AND	1,X
	AND	%1010101010101010
	AND	$1234,X
	AND	$1234,Y
	AND	($12,X)
	AND	($12),Y
	INC	$10
	INC	$1000

.incdir "ishgsoirhegosiehrgohsoeghseorhgoe/osihgoiwehgosihegosiehgosihsjgosjdgpsojgopsgjsdjgpsgjopgodj"
.incdir ""
.incbin "defines.i"

.DB "CC>"                       ; @BT TEST-CC CC START
	.db ~1                  ; @BT FE
	.dw ~1                  ; @BT FE FF
	.db ~ONE                ; @BT FE
	.dw ~ONE                ; @BT FE FF
.DB "<CC"                       ; @BT END

.ENDS


.ORG 0
.SECTION "MACKEREL" OVERWRITE
	LSR
	LSR	A
	LSR	10,X
	LSR	1000,X
	LSR	10
	LSR	1000

        LDA     $4016
        LSR
        LDA     $4016
        LSR
        BCS     _CTRLB/2
        LDA     $4016
        LSR
        BCS     _CTRLSEL/2
        LDA     $4016
        LSR
.ENDS

.org $60
	.db	$ff,$ff
	lda	LABELI.w,x
	.db	$ff,$ff


.ORG $1000
.REPT 13
	NOP
.ENDR
	BNE	LABELI

.ORG $1066

LABELI:	NOP
	NOP
	RTS

.BANK 3 SLOT 2
.ORG 0

BANKLABEL:
	
        .RAMSECTION "vars4" bank 1 slot 4 keep
thing   db
        .ends

        .RAMSECTION "vars3" bank 1 slot 4 appendto "vars1" keep
new:    db
        .ends

        .RAMSECTION "varsX" bank 1 slot 4 keep
super:  db
        .ends
        
