; FtpMiscA.asm
; Copyright Xerox Corporation 1979
; Last modified October 16, 1977  7:28 PM by Boggs

.ent UPupChecksum

	.srel

UPupChecksum:	.UPupChecksum

	.nrel

; PupChecksum microcode interface
; microcoded replacement for PupChecksum procedure in PupAl1a.asm

.UPupChecksum:
	sta 3 1 2
	mov 0 1			; address in AC1 for microcode
	mov 0 3
	lda 3 0 3		; get pup length in bytes
	neg 3 3			; compute # words exclusive of checksum
	comzr 3 3		;  = (# bytes -1)/2
	mkzero 0 0		; init checksum
	63000			; call microcode
	lda 3 1 2
	jmp 1 3
	
	.end