Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
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