/
/
/
/
/
/
/
/
/
/
/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 SIZE
/THIS SERVICE ROUTINE SIZES A RECORD IN BUFFER POINTED TO BY ARG1
/UNTIL A ZERO FILL IS ENCOUNTERED.

	.ENTRY SIZ
	.FSECT SIZE
	.EXTERNAL TABLE1,ANSPTR,TTALLY,ST,UNP1,QUEPTR



/CALLING SEQUENCE:
/
/	CDF	.FLD
/	CIF	SIZ
/	JMS I	SUB
/	.
/	.
/
/	.
/SUB,SIZ
/
/WHERE:
/
SIZ,	0
			/HERE TO CALCULATE THE SIZE OF CURRENT RECORD
	TAD	F1
	RDF
	DCA	SIZ20
	CDF	TABLE1
	TAD	17
	DCA	SIZ4
	DCA	SIZ1
			/INITIALIZE LENGTH TALLY
			/SAVE AUTOINDEX
	TAD I	F2
	DCA	17
			/POINT TO TABLE TQUES
SIZ3,	TAD I	17
	SNA CLA		/ZERO FILL?
	JMP	SIZ2
			/NO. CONTINUE
	ISZ	SIZ1	/KEEP TALLY OF NUMBER OF WORDS
	JMP	SIZ3
			/YES. RETURN WITH LENGTH IN AC
SIZ2,	TAD	SIZ4
	DCA	17
			/RESTORE AUTOINDEX
	TAD	SIZ1
SIZ20,	0
	JMP I	SIZ
			/RETURN.


SIZ1,0		/TALLY OF RECORD LENGTH
SIZ4,0		/SAVE AREA FOR AUTOINDEX
F1,CDF CIF		/CDF-CIF LITERAL
F2,QUEPTR		/POINTER TO START OF TQUES