.ORIG x3400		;;XXXXX XXXXXX
	LDR 	R6,R0,#0
	LD 	R1,HexF0	;;R1 = x00F0
	AND	R6,R6,R1	;;Loop Counter*8
	AND	R1,R1,#0	;;R1 set to zero
	STR	R1,R0,#5	;;Header Checksum set to zero
	
Loop	LDR	R2,R0,#0
	BRnzp	CTest
Back	ADD	R1,R1,R2
	ADD	R0,R0,#1	;;R0++
	ADD	R6,R6,#-8	;;Loop Counter-8
	BRp	Loop
	NOT	R1,R1		;;1's Comp R1
	RET
	
CTest	ADD	R1,R1,#0
	BRn	R1N
	ADD	R2,R2,#0
	BRn	OneN
	BRzp	Back
	
R1N	ADD	R2,R2,#0
	BRzp	OneN
	ADD	R1,R1,#1
	BRnzp	Back
	
OneN	ADD	R3,R2,R1
	BRn	Back
	ADD	R1,R1,#1
	BRnzp	Back
	
HexF0	.FILL x00F0
	.END