.TITLE  NML$STUFFERS



	.PSECT  $CODE$,NOWRT,2

	.ENTRY  NML$DES_STUF, ^M<R2>			   ;NML$DES_STUF, Save R2
	MOVZBL  (AP), R2				   ;(AP), R2
	MOVL    #1, R0					   ;#1, J
	BRB     2$					   ;2$
1$:	MOVAL   @4(AP)[R0], R1				   ;@STUFFTO[J], R1
	MOVL    (AP)[R0], -8(R1)			   ;(AP)[J], -8(R1)
2$:	AOBLEQ  R2, R0, 1$				   ;R2, J, 1$
	CLRL    R0					   ;R0
	RET     					   ;








	.ENTRY  NML$GET_DESC, ^M<R2,R3,R4,R5>		   ;NML$GET_DESC, Save R2,R3,R4,R5
	MOVL    4(AP), R2				   ;DESCPOINT, R2
	CMPB    3(R2), #1				   ;3(R2), #1
	BNEQ    1$					   ;1$
	MOVL    8(AP), R0				   ;DESCARRAY, R0
	MOVZBL  3(R2), (R0)				   ;3(R2), (R0)
	MOVZBL  2(R2), 4(R0)				   ;2(R2), 4(R0)
	MOVZWL  (R2), 8(R0)				   ;(R2), 8(R0)
	CLRL    12(R0)					   ;12(R0)
	MOVL    4(R2), 44(R0)				   ;4(R2), 44(R0)
	MOVL    #1, @12(AP)				   ;#1, @IERR
	BRB     6$					   ;6$
1$:	CMPB    3(R2), #4				   ;3(R2), #4
	BNEQ    5$					   ;5$
	MOVL    8(AP), R3				   ;DESCARRAY, R3
	MOVZBL  11(R2), R4				   ;11(R2), R4
	MOVL    R4, 12(R3)				   ;R4, 12(R3)
	MOVL    R4, R5					   ;R4, LOCALDIMS
	CMPL    R4, #7					   ;R4, #7
	BLEQ    2$					   ;2$
	MOVL    #11, @12(AP)				   ;#11, @IERR
	BRB     6$					   ;6$
2$:	MOVZBL  3(R2), (R3)				   ;3(R2), (R3)
	MOVZBL  2(R2), 4(R3)				   ;2(R2), 4(R3)
	MOVZWL  (R2), 8(R3)				   ;(R2), 8(R3)
	MOVL    4(R2), 44(R3)				   ;4(R2), 44(R3)
	MOVL    #1, @12(AP)				   ;#1, @IERR
	CLRL    R0					   ;J
	BRB     4$					   ;4$
3$:	MOVL    16(R2)[R0], 12(R3)[R0]			   ;16(R2)[J], 12(R3)[J]
	MOVAW   (R5)[R0], R1				   ;(LOCALDIMS)[J], R1
	MOVL    12(R2)[R1], 44(R3)[R0]			   ;12(R2)[R1], 44(R3)[J]
	MOVAW   (R5)[R0], R1				   ;(LOCALDIMS)[J], R1
	MOVL    16(R2)[R1], 72(R3)[R0]			   ;16(R2)[R1], 72(R3)[J]
4$:	AOBLEQ  R4, R0, 3$				   ;R4, J, 3$
	BRB     6$					   ;6$
5$:	MOVL    #10, @12(AP)				   ;#10, @IERR
6$:	CLRL    R0					   ;R0
	RET     					   ;


	.END