; IfsNameA.asm -- name server
; Copyright Xerox Corporation 1979

; Last modified July 17, 1979  11:16 AM by Taft

.ent NetDirEntryLength

	.srel

NetDirEntryLength: .NetDirEntryLength

	.nrel

; NetDirEntryLength(ndte) = ndte>>NDTE.length

; Note that this is an OEP, so it has to save ac3 in the frame

.NetDirEntryLength:
	sta 3 1 2
	mov 0 3
	lda 0 0 3
	lda 1 c377
	and 1 0
	lda 3 1 2
	jmp 1 3

c377:	377

	.end