/
/
/
/
/
/
/
/
/
/
/COPYRIGHT  (C)		1978,1979 BY DIGITAL EQUIPMENT CORPORATION
/
/
/
/
/
/
/
/
/
/
/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
/AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
/CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
/FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
/
/THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
/UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
/(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
/SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
/
/DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
/OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
/DIGITAL.
/
/
/
/
/
/
/
/
/
/VERSION=1
/
	.TITLE SUBROUTINE REMARK

/REMARK IS A ROUTINE WHICH HANDLES THE R-TYPE RECORD
/WHEN IT OCCURS WITHOUT A ? RESPONSE.(USEFUL FOR PROVIDING
/UNSOLICITED COMMENTS TO PROVIDE ADDITIONAL PROMPTS.)
/REMARK INCREMENTS THE DIRECTORY POINTER TO THE NEXT RECORD ENTRY

	.ENTRY	RMK
	.FSECT	REMARK
	.EXTERNAL TABLE1,DIRLOC,MAIN11,MAIN12,EXITFG

RMK,	0
	CLA
	TAD	T1
	RDF
	CDF	.FLD
				/SETUP FOR RETURN
	DCA	RMK10
	CDF	TABLE1
	TAD I	EX
	SZA
	JMP	RMK3
			/AVOID NEXT OUTPUT IF EXIT FLAG IS SET
RMK10,	0
	JMP I	RMK1



RMK3,	TAD	RMK10
	DCA	.+1
	0
	JMP I	RMK2
			/RETURN TO MAIN 

RMK1,MAIN11		/LINK TO MAIN ENTRY FOR NEXT RECORD FETCH
RMK2,MAIN12		/ENTRY IN MAIN FOR NO TTY OUTPUT
T1,	CDF CIF
EX,	EXITFG