; GateUtilA.asm
; Last modified December 27, 1981  4:15 PM by Boggs

.ent UPupChecksum
.ent NovaDiv

	.srel

UPupChecksum:	.UPupChecksum
NovaDiv:	.NovaDiv

	.nrel

.UPupChecksum:
	sta 3 1,2
	mov 0 1
	mov 0 3
	lda 3 0,3
	neg 3 3
	comzr 3 3
	mkzero 0 0
	63000
	lda 3 1,2
	jmp 1,3

.NovaDiv:
	sta 3 1,2
	sta 1 2,2
	mov 0 3
	lda 0 0,3
	lda 1 1,3
	mov 2 3
	lda 2 2,3
	div
	 nop
	mov 3 2
	sta 0 @3,2
	mov 1 0
	lda 3 1,2
	jmp 1,3