START	equ	$200

	include	"ioequ.asm"

	org	p:0
	jmp	Start
	org	p:8
	nop
	nop
	org	p:$1c
	nop
	nop
	org	p:$20
	nop
	nop
	nop
	nop
	org	p:$3c
	nop
	nop
	org	p:$40
	nop

	org	l:0
Ldata:	dc	$000000000001
	dc	$000002000003
	dc	$000004000005
	dc	$000006000007
	dc	$000008000009
	dc	$00000A00000B
	dc	$00000C00000D
	dc	$00000E00000F
	org	p:$300
Data	bsc	256,$10
	org	p:START
Start	movep	x:HCR,r0
	move	#.5,a
	move	a,X:$200
	move	#.25,b
	add	a,b		b,X:$201
	move	b,X:$202
	swi
	org	x:0
XBss	bsc	256,0
	bsc	512,1
	org	y:$fff
YBss	bsc	16,-1
	org	l:$fff
LBss	bsc	64,-2

	end	Start
