CORAL.MAC;2/AU=CORAL.OLD;1/-BF
\
-2,2
	.IDENT	/7.3N/
-33
;	NAPC -- SUPPORT PRE-ALLOCATED I/O PACKETS
;
%
-70,81,/;NAPC/
	CMP	R1,#I.LGTH-1	;IS THIS AN I/O PACKET?
	BNE	$ALOC1		;IF NE, NO
	MOV	$PKAVL,R2	;GET FIRST PACKET
	BEQ	$ALOC1		;IF EQ, NONE LEFT
	MOV	R2,R0		;GET STARTING ADDRESS
	MOV	(R0),$PKAVL	;RESET LINKAGE
	DECB	$PKNUM		;RESET NUMBER IN USE
	RETURN
-202,202,/;NAPC/
$ALPKT::MOV	#I.LGTH-1,R1	;GET I/O PACKET LENGTH
-222,222,/;NAPC/
$DEPKT::MOV	#I.LGTH-1,R1	;GET I/O PACKET LENGTH
-250,254,/;NAPC/
	CMP	R0,$PKTOP	;IS THIS A PRE-ALLOCATED PACKET?
	BHI	$DEAC1		;IF HI, NO - RELEASE IT
	CMP	R1,#I.LGTH-1	;IS THIS AN I/O PACKET
	BNE	$DEAC1		;IF NE, NO
-257,257,/;NAPC/
	BLOS	$DEAC1		;IF LOS, NO
-269,269,/;NAPC/
/