Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11i-bm_tops20_v7_0_atpch_1-22 - autopatch/tfrunv.c14
There are 3 other files named tfrunv.c14 in the archive. Click here to see a list.
 DEL 5/1	;14C1
	IF1	<PRINTX	TRAFFIC-20 VERSION 4 UNIVERSAL FILE>

 REP 20/1	;14C2
		DECEVR==236			;EDIT LEVEL
 WIT
		DECEVR==251			;EDIT LEVEL
 REP 8/2	;14C3
	;.AUTOPATCH 13
 WIT
	;.AUTOPATCH 14
	;.EDIT	251	Test for display before testing for multiple section.
	;		BCM,2-Apr-86,SPR:20-21155
	;		A:SRC TFRCOB,TFRUNV
	;
	;.EDIT	250	Use the MIN of scroll size or last element.
	;		BCM,31-Mar-86,SPR:20-21152
	;		A:SRC TFRCOB,TFRUNV
	;
	;.EDIT	247	Don't recalculate fill size in FWRITE.
	;		BCM,28-Mar-86,SPR:20-21154
	;		A:SRC TFRCOB,TFRUNV
	;
	;.EDIT	246	Only set the scroll region once.
	;		BCM,26-Mar-86,SPR:20-21153
	;		A:SRC TFRCOB,TFRUNV
	;
	;.EDIT	245	Justify fields terminated by arrow keys.
	;		BCM,11-Mar-86,SPR:20-21157
	;		A:SRC TFRCOB,TFRUNV
	;
	;.EDIT	244	Pass the version number for PRINTX's in modules.
	;		BCM,26-Feb-86,SPR:NONE
	;		A:SRC TFR,TFRCOB,TFRUNV
	;
	;.EDIT	243	Correct the max offset value calculation.
	;		BCM,26-Feb-86,SPR:20-21056
	;		A:SRC TFR,TFRUNV
	;
	;.EDIT	242	Copy back numeric string if zeros were replaced.
	;		BCM,3-Jan-86,SPR:20-00073
	;		A:SRC TFRCOB,TFRUNV
	;
	;.EDIT	241	Save register E in STRPRM.
	;		BCM,31-Dec-85,SPR:20-00072
	;		A:SRC TFRCOB,TFRUNV
	;
	;.EDIT	240	Save SFDES around VET routine call.
	;		BCM,31-Dec-85,SPR:20-21026
	;		A:SRC TFRCOB,TFRUNV
	;
	;.ENDA
	;.AUTOPATCH 13
	;.EDIT	237	.OUP20; Make sure previous blank lines get output
	;		BCM,11-Dec-85,SPR:20-21024
	;		A:SRC TFRCOB,TFRUNV
	;
 DEL 38/2	;14C4
	;.ENDA
	;.AUTOPATCH 11
 INS 57/2	;14C5
	;.ENDA
	;.AUTOPATCH 11
 INS 1/3	;14C6
		SUBTTL	VERSION MACROS
	;[244]
		DEFINE PRITXT(MOD,VER,EDT),<
			IF1,<PRINTX MOD'-20 VERSION VER'('EDT)>
			>
		DEFINE PRIVER(MOD),<
			PRITXT MOD,\DECVER,\DECEVR
			>

		PRIVER(TFRUNV)
 REP 9/7	;14C7
	TAG:	POINT	LEN,OFF,BIT
 WIT
	.'TAG:	POINT	LEN,OFF,BIT
	L'TAG==^D'LEN
 REP 17/7	;14C8
		PTR	.HDSIZ,05,11,HDRWRD+0	;HEADER SIZE
		PTR	.FDSIZ,06,17,HDRWRD+0	;FIELD DATA SIZE
		PTR	.VERSN,09,08,HDRWRD+1	;VERSION NUMBER
		PTR	.MXSEC,09,17,HDRWRD+1	;MAX SECTION NUMBER
		PTR	 .CSET,02,19,HDRWRD+1	;CHARACTER SET
		PTR	.FPARM,08,27,HDRWRD+1	;FORM PARAMETERS
		PTR	.EPARM,08,35,HDRWRD+1	;ERROR LINE PARAMETERS
		PTR	.ERRLN,05,22,HDRWRD+2	;ERROR LINE NUMBER
		PTR	.MAXLN,05,27,HDRWRD+2	;MAXIMUM LINE NUMBER
		PTR	.MAXCL,08,35,HDRWRD+2	;MAXIMUM COLUMN NUMBER
		PTR	.FORMN,18,17,HDRWRD+3	;POINTER TO FORM NAME
		PTR	.STRPT,18,35,HDRWRD+3	;POINTER TO STRINGS
		PTR	.TERMS,12,11,HDRWRD+4	;TERMINALS ALLOWED
		PTR	.INDEX,12,23,HDRWRD+4	;INDEX FIELD NUMBER
		PTR	.NMFLD,12,35,HDRWRD+4	;NUMBER OF FIELDS IN FORM
		PTR	.MLLOR,05,04,HDRWRD+5	;TOP ROW OF MULT SECT
		PTR	.MLHIR,05,09,HDRWRD+5	;LOW ROW OF MULT SECT
		PTR	.MLTDC,05,14,HDRWRD+5	;ROW COUNT FOR MULT SECT
		PTR	.MLTRC,07,21,HDRWRD+5	;REPEAT COUNT FOR MULT SECT
		PTR	.MLSEC,10,31,HDRWRD+5	;MULTIPLE SECTION NUMBER
		PTR	.MLFCT,04,35,HDRWRD+5	; # FIELDS IN MULT SECT
		PTR	.HIDSC,36,35,HDRWRD+6	;FIRST HIDDEN SECTION MASK
 WIT
		PTR	HDSIZ,05,11,HDRWRD+0	;HEADER SIZE
		PTR	FDSIZ,06,17,HDRWRD+0	;FIELD DATA SIZE
		PTR	VERSN,09,08,HDRWRD+1	;VERSION NUMBER
		PTR	MXSEC,09,17,HDRWRD+1	;MAX SECTION NUMBER
		PTR	 CSET,02,19,HDRWRD+1	;CHARACTER SET
		PTR	FPARM,08,27,HDRWRD+1	;FORM PARAMETERS
		PTR	EPARM,08,35,HDRWRD+1	;ERROR LINE PARAMETERS
		PTR	ERRLN,05,22,HDRWRD+2	;ERROR LINE NUMBER
		PTR	MAXLN,05,27,HDRWRD+2	;MAXIMUM LINE NUMBER
		PTR	MAXCL,08,35,HDRWRD+2	;MAXIMUM COLUMN NUMBER
		PTR	FORMN,18,17,HDRWRD+3	;POINTER TO FORM NAME
		PTR	STRPT,18,35,HDRWRD+3	;POINTER TO STRINGS
		PTR	TERMS,12,11,HDRWRD+4	;TERMINALS ALLOWED
		PTR	INDEX,12,23,HDRWRD+4	;INDEX FIELD NUMBER
		PTR	NMFLD,12,35,HDRWRD+4	;NUMBER OF FIELDS IN FORM
		PTR	MLLOR,05,04,HDRWRD+5	;TOP ROW OF MULT SECT
		PTR	MLHIR,05,09,HDRWRD+5	;LOW ROW OF MULT SECT
		PTR	MLTDC,05,14,HDRWRD+5	;ROW COUNT FOR MULT SECT
		PTR	MLTRC,07,21,HDRWRD+5	;REPEAT COUNT FOR MULT SECT
		PTR	MLSEC,10,31,HDRWRD+5	;MULTIPLE SECTION NUMBER
		PTR	MLFCT,04,35,HDRWRD+5	; # FIELDS IN MULT SECT
		PTR	HIDSC,36,35,HDRWRD+6	;FIRST HIDDEN SECTION MASK
 REP 42/7	;14C9
		PTR	.SPARM,36,35,0		;STATIC PARAMETERS
		PTR	.DPARM,36,35,1		;DYNAMIC PARAMETERS
		PTR	.OFFST,15,14,2		;OFFSET TO FIELD IN DATA
		PTR	 .LENG,08,22,2		;TOTAL LENGTH OF FIELD
		PTR	 .COLM,08,30,2		;STARTING COLUMN NUMBER
		PTR	 .LINE,05,35,2		;LINE NUMBER
		PTR	 .TYPE,06,13,3		;SUBFIELD TYPE (USED BY TFR)
		PTR	.LNHLP,07,20,3		;LENGTH OF HELP STRING
		PTR	.FILLR,07,27,3		;FILLER CHARACTER (ASCII)
		PTR	.NUMRD,08,35,3		;NUMBER OF CHARACTERS READ
		PTR	.FIELD,18,17,4		;POINTER TO FIELD NAME
		PTR	.VALUE,18,35,4		;POINTER TO VALUE
		PTR	.LRANG,18,17,5		;POINTER TO LOWER RANGE
		PTR	.URANG,18,35,5		;POINTER TO UPPER RANGE
		PTR	 .HELP,18,17,6		;POINTER TO HELP MESSAGE
		PTR	.TXTPT,18,35,6		;POINTER TO TEXT STRING
		PTR	.TLENG,14,13,7		;TEXT LENGTH
		PTR	.TCOLM,08,21,7		;TEXT STARTING COLUMN
		PTR	.TLINE,05,26,7		;TEXT LINE
		PTR	.TPARM,09,35,7		;TEXT PARAMETERS
		PTR	.VETNO,09,08,10		;VET ROUTINE NUMBER (1 TO 511)
		PTR	.SFSEP,09,17,10		;SUB FIELD FLAGS
		PTR	.SFDES,18,35,10		;SUB FIELD DESCRIPTOR POINTER
		PTR	.SECTN,36,35,11		;FIRST SECTION MASK WORD
 WIT
		PTR	SPARM,36,35,0		;STATIC PARAMETERS
		PTR	DPARM,36,35,1		;DYNAMIC PARAMETERS
		PTR	OFFST,15,14,2		;OFFSET TO FIELD IN DATA
		PTR	 LENG,08,22,2		;TOTAL LENGTH OF FIELD
		PTR	 COLM,08,30,2		;STARTING COLUMN NUMBER
		PTR	 LINE,05,35,2		;LINE NUMBER
		PTR	 TYPE,06,13,3		;SUBFIELD TYPE (USED BY TFR)
		PTR	LNHLP,07,20,3		;LENGTH OF HELP STRING
		PTR	FILLR,07,27,3		;FILLER CHARACTER (ASCII)
		PTR	NUMRD,08,35,3		;NUMBER OF CHARACTERS READ
		PTR	FIELD,18,17,4		;POINTER TO FIELD NAME
		PTR	VALUE,18,35,4		;POINTER TO VALUE
		PTR	LRANG,18,17,5		;POINTER TO LOWER RANGE
		PTR	URANG,18,35,5		;POINTER TO UPPER RANGE
		PTR	 HELP,18,17,6		;POINTER TO HELP MESSAGE
		PTR	TXTPT,18,35,6		;POINTER TO TEXT STRING
		PTR	TLENG,14,13,7		;TEXT LENGTH
		PTR	TCOLM,08,21,7		;TEXT STARTING COLUMN
		PTR	TLINE,05,26,7		;TEXT LINE
		PTR	TPARM,09,35,7		;TEXT PARAMETERS
		PTR	VETNO,09,08,10		;VET ROUTINE NUMBER (1 TO 511)
		PTR	SFSEP,09,17,10		;SUB FIELD FLAGS
		PTR	SFDES,18,35,10		;SUB FIELD DESCRIPTOR POINTER
		PTR	SECTN,36,35,11		;FIRST SECTION MASK WORD
 SUM 235282