dc	x.700, x.C
dc	x.7, x.1000
org = x.100
clr r1
stmem x.F002, r1
ldimm x.1000, r1
stmem x.F005, r1
ldimm x.2000, r1
stmem x.F006, r1
ldimm x.2, r1
stmem x.F004, r1
ldimm x.1, r1
stmem x.100A, r1
ldimm x.1E, r1
stmem x.F000, r1
ldimm	x.2, r1
loop1: Nop
dec	r1
bneq	loop1
loop2:	clr r2
ldmem x.100A, r1
cmp r1, r2
bneq loop2
halt
org = x.700
push r3
clr r3
stmem x.100A, r3
stmem x.F000, r3
pop r3	! F833
rti



