Trailing-Edge
-
PDP-10 Archives
-
BB-5372D-BM
-
traffic/binary/tfrunv.unv
There are 3 other files named tfrunv.unv in the archive. Click here to see a list.
x
,5 @ P C3"A CSBA G2<bA G7 p #@" PRINTX A PRINTX AI$ @ &IWQ A M2%I7@ MVeA A Q|I@ & Q|R@ & [N&\A ]Vl\BA aJ&\A aJ~A A aS P!
A: POIN T B,D,C
IN "/ "* 0 aSy7 "
PTR .FI@LLR,06,05,0 ; FI`LL CHARACTER
PT R .PARAM,30,35,0 ; PARAMETERS OF @THE FIELD
PTR .`SECTN,28,27,1 ; SECTION NUMBER
PTR .NUMRD,08,35,@1 ; NUMBER CHAR.` READ
PTR .OFFS T,13,12,2 ; OFFS ET INTO RECORD
@PTR .LENG,08,20,`2 ; LENGTH OF FI ELD
PTR .COLM, 08,28,2 ; COLM #@ ON SCREEN
PTR ` .LINE,06,34,2 ; LINE # ON SCREEN
PTR .FIELD,18,@17,3 ; FIELD NAM`E PTR
PTR .VALU E,18,35,3 ; VALU E OF FIELD PTR
@PTR .LRANG,18,17,`4 ; LOWER LIMIT (RANGE)
PTR .UR ANG,18,35,4 ; UP@PER LIMIT (RANGE)`
COMMENT *
T HE FOLLOWING POIN TERS ARE USED FOR@
ACCESSING INTE`RNAL DATA BYTES - NOT ON
A FIELD BASIS
*
PT@R .ERRNM,06,05,HD`RWRD ;ERROR-LINE NUMBER
PTR .TR MS,18,23,HDRWRD ; @TERMINALS ALLOWED `
PTR .NMFLD,12, 35,HDRWRD ;# OF F IELDS IN FORM
P @TR .DATPG,09,08,H `DRWR2 ;NUMB OF DA TA PAGES
PTR .S TRPG,09,17,HDRWR2 @ ;NUMB OF STRING `PAGES
PTR .FOR M,18,35,HDRWR2 ;P OINT TO FORM NAME @
PTR .SUBTP,03, `35,PRM ;SUB-TYPE FIELD
PTR .ST R,07,00,STRING ;P @OINTER TO STRING `OF FIELDS
REMA! RK FOLLOWING ARE ! DEFINITIONS OF TE!@RMINAL TYPES
!`%%VT50==1B<35-.TT" V50>
%%VT52==1B" <35-.TTV52>
%%V"@T05==1B<35-.TTV05"`>
.TTV100=^D16
%%VT100==1B<35- .TTV100>
35-ety"A ` et{A et}"A @ e
A A gSS@ &: i;rP %P iLVP %Z f
@ &*1@ #@ d y@ Hp@ I@ I@ I$@ JZ@ K4@ Lv@ @ . S@ 0 -K @ ! 6}i<@ 7 M8@ ;-Y9@ CM8@ C} @ @ J