.ORIG x3000
	AND R5, R5, #0
	AND R3, R3, #0
	ADD R3, R3, #8
	LDI R1, A
	ADD R2, R1, #0
AG	ADD R2, R2, R2
	ADD R3, R3, #-1
	BRnp AG
	LD R4, B
	AND R1, R1, R4
	NOT R1, R1
	ADD R1, R1, #1
	ADD R2, R2, R1
	BRnp NO
	ADD R5, R5, #1
NO	HALT
B	.FILL	xFF00
A	.FILL	x4000
	.END