Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	UNIVERSAL TFRUNV - UNIVERSAL FOR TFR DATA FILE


;***COPYRIGHT (C) 1976,1977,1978 DIGITAL EQUIPMENT CORP., MAYNARD MASS.***

REMARK	VERSION NUMBER
IF1	<PRINTX TFRUNV-20 VERSION 2(110)
	 PRINTX TRAFFIC-20 UNIVERSAL SYMBOLS>

COMMENT ^
21	GENERATE NEW SYMBOLS FOR LEFT HALF OF PRM AS TEMPORARY
	BITS WHICH ARE REFRESHED FROM THE RIGHT HALF BITS ON AN
	INIT.

50	PUT IN NEW BIT (18) INTO PRM WHICH INDICATES:
		0= BLANK FILL NUMERIC
		1= ZERO FILL NUMERIC

57	FOR ALPHABETIC FIELDS USE BIT (18) IN PRM FOR
		0= SPACE NOT ALLOWED
		1= SPACE ALLOWED

102	ADD CANADIAN DATE IN THE FORM DD/MM/YY
^

	HDRWRD=604000		;HEADER WORD ADDRESS
	HDRWR2=604001		;HEADER WORD 2 ADDRESS
	  DATA=604002		;DATA BLOCKS ADDRESS
	STRING=635000		;STRING STORAGE ADDRESS

	TFRCOD==550000		;CODE MAPS TO HERE
	TFRTRM==555000		;TERMINAL CODE TO HERE


	FLDLEN=5		;LENGTH OF ONE DATA FIELD

REMARK	PARAMETER BITS (SET IN PRM)

	%ZERBL=1B18		;SET THEN ZERO FILL, ELSE BLANK FILL NUMERIC
	%SPACE=%ZERBL		;SET THEN SPACE LEGAL IN ALPHABETCS, ELSE
				;  ELSE SPACE ILLEGAL IN ALPHABETICS
	%REQD=1B19		;REQUIRED
	%FULL=1B20		;FULL FIELD MUST BE TYPED
	%PROT=1B21		;PROTECTED FROM OPERATOR
%ATRIB=%REQD+%FULL+%PROT	;ATTRIBUTES OF FIELD
	%MSDUP=1B22		;MASTER DUPED
	%PRDUP=1B23		;PREVEOUS VALUE DUPE
%DUPE=%MSDUP+%PRDUP		;DUPE CHARACTERISTI