.TITLE	MESDMP - MESSAGE DUMPING ROUTINES
;
	.MCALL	CALL,RETURN,ENTER,LEAVE
	.MCALL	POCT,PSTR,PRAD50
;
CR=15
LF=12
HT=11
;
;
;
;	DMPSEQ - DUMPS MESSAGE SEQUENCE POINTED TO BY R0
;
DMPSEQ::ENTER	R0
	CALL	DMPTSK		;PRINT TASK NAME
1$:	CALL	DMPPAC		;DUMP IT
	MOV	(R0),R0		;GET NEXT PACKET
	BNE	1$		;IF ANY
	LEAVE
	RETURN
;
;
;	DMPPAC - DUMPS PACKET POINTED TO BY R0
;
DMPPAC::ENTER	R0,R1
	ADD	#6,R0		;POINT TO START OF PACKET
	MOV	#10,R1		;NUMBER OF WORDS ACROSS
	PSTR	^*<HT>*		;START OF PACKET 
1$:	POCT	(R0)+		;PRINT WORD
	PSTR	^*<HT>*
	SOB	R1,1$		;LOOP FOR REST
	PSTR	^*<CR><LF><HT>*	;NEW LINE
	MOV	#5,R1		;NUMBER OF WORDS LEFT
2$:	POCT	(R0)+
	PSTR	^*<HT>*
	SOB	R1,2$		;PRINT THEM
	PSTR	^*<CR><LF>*
	LEAVE
	RETURN
	
;
;
;	DMPMES - DUMPS MESSAGE POINTED TO BY R0
;
DMPMES::CALL	DMPTSK
	CALL	DMPPAC
	RETURN
;
;
;	DMPTSK - DUMPS TASK NAME FROM PACKET POINTED TO BY R0
;
DMPTSK::PRAD50	2(R0)
	PRAD50	4(R0)
	RETURN
;
	.END