PDP-10 Archive: cobol/source/tcsint.unv from BB-H506D-SM

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/tcsint.unv

There is 1 other file named tcsint.unv in the archive. Click here to see a list.

x
,L@P Cuh6P Cui<Q HCukQ $$Cu|SQ 6$Cv>6P CvN8Q $HC

,WP C

,86P C

,=9P C

,J9P C

,[P C

,^P C

,h4P C

-@P C

-I:P C

.96P C

.JP CtQ HCt1Q HCtMP CtkQ $HCuMQ $HCulQP Cv
2P Cv Q HCv({Q $HC,`P C,[RP C-MP C-i;P C-kwP C.
zP C.+7P C.+;P C.81P C.97P C-j<P C.=9P C0vN8Q HC0v[ZQ $HC2hpQ $HC2!i9P C2)kxP C21i9P C21i[P C2IiQ C2Yi[P C2ai<Q $HC3ktP C3!kxP CH*P CH* P CH*@P CH*`P CH*pP CH,}P CH,,P CH,I@P CH.
`P CH.

@P CH.<P CH.<P CH.Z2P CH.\xP CH.h9P CL,,P CL,.:P CL-XP$A`CL-\uP ?CNP COP 9y<AR%ASZ>B12!<AR%ASZ>B1CP,,P CP,.:P CP-XP$BCP-\uP DYYP DYYHP DYZ(P EX2P EYRP E\zP E]P E]wP E,,P E,.:P E-XP$@ E-\uP E@ X9u<AR%BP>B12!<AR%BP>B12FYX(P FYXhP *FYXiP +FYYP FYY	P FYY
P FYY)P FYYHP 	FYYIP 
FYYKP

FYZ(P

FYZhP +FY[	P FY]IP (FYhYQ FYjtQ FYkQ FYk1Q FYkTQ 
FYlyQ G@,,}P GHrzP GHt;ZP GHu2P GHuh2P GT,,P GT,.:P 	GT-XP$D@GT-\uP'HYX6P HYX7P HYX9P HYZP HY[ZP HY\wP I-I7P I-h6P Iuh6P IukQ HIv[ZQ $HI q`7<AR%DF>B12!<AR%DF>B12I0tQ $HI0t;vQ $I0tj2Q $$I0v3Q 6$I0vyP I0v+{Q $I0vI<P I0vKQ HIP,:P IP,j<P IP,kP K

,SQ wK

,;xQ wK

,=WQ xK

,lQ yK

,lRQ xK

,lWQ zK

,mrQ yK

-XWQ zK

-YQ {K

-Z7Q {K

-[<Q |K

-\Q |K

-\}Q }K

-j3Q tK

-x6Q }K

-{xQ ~K

-|zQ ~K

-}rQ K

.>Q tK

.H6Q K

.I(Q uK

.I)Q uK

.I)Q vK

.I*Q vK tSA  K tSK t;xA  K t;xK t=WA  K t=WK tlA  K tlK tlRA  K tlRK tlWA  K tlWK tmrA  K tmrK uXWA  K uXWK uYA  K uYK uZ7A  K uZ7K u[<A  K u[<K u\A  K u\K u\}A  K u\}K uj3A  K uj3K ux6A  K ux6K u{xA  K u{xK u|zA  K u|zK u}rA  K u}rK v>A  K v>K vH6A  K vH6K vI(A  K vI(K vI)A  K vI)K vI)A  K vI)K vI*A  K vI*K$,YtP K$,[4P K$,\tP K0,\YP K0-SP K0tkQ $HK0u[Q HK0u\sP K0uh6P K0ukQ HK0vwQ $HKHuh6P KHui<Q HKHukQ $$KHu|SQ 6$KHv>6P KHvNQ HKHvN8Q $HLYX(P LYY	P LYY
P LYY)P LYYIP LYYKP LYZ(P M,:P M,=9P M,kyP M,m6P M-K{P @M-krP M.

WP M.*3P M.,9P M.-TP M.:3P M.\P  M.

RP M.

WP M.96P M

tLVP M

vi9P M& T8P M0tQ <M0t9P M0t:;P M0t=1Q 00M0t=6Q 0M0t=9P M0t=9Q 0M0tLQQ HM0tLYP M0tL[Q $HM0tjrP M0uvP M0u;0Q $HM0u;sQ HM0uZ9P M0uh6P M0uiP M0ui9P M0ui[P M0uj;P M0ukP M0ukxP M0ulQP M0ulrP M0v3Q $M0v=P M0vi9Q $0M0vzQ $M0v|P M<t81P M<uh6P M<ui<Q HM<ukQ $$M<u|SQ 6$M<v>6P M<vN8Q $HML,,P 	ML,.:P ML,[ZP ML-XP$@@ML-\uP ML.\P MT,WP MT,=9P MT,[ZP MT,y:P MT-	6P MT.3P MT.)3P MT.)9P MT.,9P MT.8;P MT.\rP N

+y <AFU%ABORTN\Y I`<NFU%CURRRENTFU%CURRRENN-m ;vFU%ENTERND[ <SFU%HELP`Nr <QFU%PAGE NYY K<YFU%REFRESHFU%REFRESHN\: <dFU%RQSN\r <HFU%RESETN\z @eFU%GETANR <\FU%SAVEN.99 @cFU%USERN

+yA  N

+yN\YA  N\YN-mA  N-mND[A  ND[NrA  NrNYYA  NYYN\:A  N\:N\rA  N\rN\zA  N\zNRA  NRN.99A  N.99P=p u@@3		
    EXPTERN EH.A			
 U$ERR==U$ERR+1	0		
    $ERRC(A)==U$ERR			
  P] u@@3		
    EXPTERN EH.A			
 U$ERR==U$ERR+1	0		
    $ERRC(A)==U$ERR			
  PYX(P PYXxP PYY	@ PYY
P PYY)P PYYHP PYYIP PYYKP PYZ(P PY[	P PY[P PY\XP PY]IP Qd`P 	Q0tP Q0t(9Q @Q0t;Q 
Q0tKQ ,Q0tKsQ $8Q0tMQ Q0tj6Q Q0tkQ &DQ0tlPQ Q0vwQ Q0v)8Q

Q0v\xP RYh:Q RYhvQ 
RYk1Q

RYk1Q RYk7Q RYltQ RYm7Q S0t^P S0v[ZQ $HS0wQ HSLuh6P SLui<Q HSLukQ $$SLu|SQ 6$SLv>6P SLvN8Q $HUakQ HUakQ $HUamQ U YP U [pP U \P UIiWQ $HUIjQ HUIkQ $HUIkyQ $HUIl8Q HUImQ HU2	lwP U6	kQ $HU6	lZQ HU6IiWQ HU6IiZQ $U6IkQ $HU6IkQ $HU6Il8Q $HU6ImQ HU6ImQ $U6yiWQ HU6yj3Q $$U6ykQ HU6ykQ $HU6ylZQ HU6ymQ $HU6ymQ 6$U?kQ HU?kQ $HU@,H:P U@-H1P U@rzQ HU@tQQ $HU@uIP U@uLtQ $HU@uMQ HU@v	tQ HU@vZP U@v98P U@v[ZP UG)lZQ $HUH-)P UH-)6P UH-)TP UH-+P UH-+0P UH-+4P UH-+7P UH-+xP UH-,:P UH--P UHt<tQ $HUHt=Q HUHt=9P UHtMP UHv

RP UHv

tQ $HUHvXhP VYYZP @VYZP VY](P VYiWQ

VYjrQ VYk2Q Yuh6P Yui<Q HYukQ $$Yu|SQ 6$Yv>6P YvN8Q $HY0tP Y0t(9Q @Y0t;Q 
Y0tKQ ,Y0tKsQ $8Y0tMQ Y0tj6Q Y0tkQ &DY0tlPQ Y0uJ:P Y0uKQ HY0vwQ $HY0v)8Q

Y0v\xP YP,WP YP,zP YP,YtP YP,d P YP.96P YP.:P YP.=P YP.=9P YPt(:Q <YPtkvQ $HYPuPQ $YPuTQ $HYPu97Q 00YPuKvQ HYPuh6P YPuhtP YPuhwP YPui<Q HYPukQ $$YPumP YPunQ HYPux\Q $HYPu|SQ 6$YPv
Q HYPv*2Q $HYPv,rQ HYPv=P YPv>6P YPvKyP YPvLYQ $YPvMQ

YPvN8Q $HYPv[ZQ $YX.HyP [PQ [&xXwP ([&xY[P >[&x\P h[&x\WP [4t:P [4t=9P [>xXwP B[>xY[P ~[>x\P h[>x\WP B[`,@P [`,bP [`,P [`,;P [`,P [`,P [`,P [`,P [`,P [`,P [`,P [`,P [`,P [`,P [`,P [`,P %[`,(9P [`,;vP B[`,<P [`,<@P b[`,I P [`,I"P [`,KP [`,MP [`,[P [`,\@P [`,\WP [`,\YP ([`,\[P [`,hqP [`,jkP [`,kP 	[`,k`P [`,m P [`,m@P [`,||P [`-P [`-P [`-`P [`-)Q [`-)6P [`-)TP [`-+P [`-+0P [`-+4P [`-+7P [`-+xP [`-,P [`-,:P [`-,BP [`-,TP [`--Q [`-IP [`-KP [`-MP [`-[ P [`-i@P [`-x`P [`-z P [`-z"P [`-|P [`.`P [`.
P [`.
zP [`.P [`. P [`.+P [`.+{P B[`.,P [`.,P [`.,4P [`.-TP 	[`.-`P

[`.8:P [`.;P [`.; P [`.;8P [`.=TP [`.=`P [`.A6P [`.A8P [`.HwP 
[`.JQ[`.JP[`.KP	I[`.L@P[`.L`Pu[`.MPu[`.NP[`.Z2P [`.h+Pu[`.kP[`.yP [`.zP [`.{0Ph[`.|Ph\rP

,xP _

,yP _

,;P _

,;P _

,;wP _

,I0P _

-KsP _

-|P _

.)6P _

.)9P _

.97P _

.:P _

.:P _

.=9P _$,+wP _$,[ZP _$,\YP _$,m@P _$-6P _$-|P _$.99P _$.Z2P _$.\P _$t\Q $8_$t;rQ @_$tKsQ H_$tj2Q $_$tkQ $8_$u6Q H_$u|Q H_$v3Q $_$vwQ H_$v[ZQ $8_@,WP _@,RP _@,QP _@,+wP _@,8:P _@,=P _@,=9P

_@,H:P _@,J3P _@,J9P

@,J;P @,Z3P @,^P @,h4P @,y P @,}P @-P @-I P @-I7P @-I9P @-I:P 
_@-Z7P _@-]6P _@-i8P _@-kzP _@-|@P _@.P _@.(7P 
J@.)6P`@.86P`@.96P`@.=P`	i@.=P`|@.=1P`@.JP`@.\P`	`

P `&(8Q `'P a

,,P a

,.:P a

-XP$Aa

-\uP a

tSP a

tkQQ $Ha

uKSQHa,Pa&VPa&XHPa&Y8Pea&\PPa&\XPa&\`PPa&]@Pa&^P:a,XX9]<AR%PK>B12!<AR%PK>B12a,t;Pa,t9WPa,uQHa,uySQsHa,v=Q$Ha,v|}Q $Ha0t9P a0t:;P a0uXwP a0u\WP a0uiP a0ui[P a0uj;P a0vZP a8,P a8,tP a8-X8P a8uh6P a8ui<Q Ha8ukQ $$a8u|SQ 6$a8v
7Q HaPv=Q HaPv]Q HaX 9a<AR%PV>B12!<AR%PV>B12ctkQ $HctkyQ Hctl8Q $Hctl:Q HcuKQ HcuiWQ $$cv2Q 6$cv Q HcvIWQ cvLPQ $HcDtl Q HcDtlQQ $HcDuLQQ HcDuh6P cDui<Q HcDuiWQ $HcDukQ $$cDulQQ HcDu|SQ 6$cDv>6P cDvIWP cDvLQP cDvN8Q $HcSP dYhYQ dYhrQ dYjQ dYjQ dYkQ 
dYk1Q dYlQ

e0tP e0t(9Q @e0t;Q 
e0tKQ ,e0tKsQ $8e0tMQ e0tj6Q e0tkQ &De0tlPQ e0vwQ e0v)8Q

e0v\xP e@,P e@,P e@,QP e@-m6P e@.;ZP e\,P e\,RP

e\,H:P e\,\YP e\,kyP e\-XP e\-+zP e\-Y9P e\-Z9P e\-k`P e\-kwP e\-xUP e\-}:P e\.9P e\.2P e\.)9P e\.-7P e\.9:P e\.:P e\.=P 	e\.=P 	e\.HrP 
e\.HyP e\.I9P 
e\.LPP

e\.LSP0g,,P0g,.:Pg-XP$A@g-\uP g,i P g,jP g,j P g,kP g,lP g,l@P g,l`P g- P g.	P g.
g0tKQ ,g0tKsQ $8g0tMQ g0tj6Q g0tkQ &Dg0tlPQ g0vwQ g0v)8Q

g0v\xP g4uh6P g4ui<Q Hg4ukQ $$g4u|SQ 6$g4v>6P g4vN8Q $Hg@ 9q<AR%SP>B12!<AR%SP>B12gB X9m<AR%SPA>B12!<AR%SPA>B1g\,(:P"g\,87P"g\-Y9P"g\-}:P"gfhX1P gfhY9P gfhYWP gfhZ9P gfh[P gfh[P gfh[SP gfh\P gfh\8P gfh]P gh,@P gh,P gh,;P gh,P gh,P gh,P gh,P gh,P gh,P gh,P gh,P gh,P gh,P gh,P gh,QP gh,(9P gh,+wP gh,;VP gh,;[P gh,<P gh,<@P bgh,=P gh,H:P gh,I P gh,KP gh,MP gh,[P gh,\@P gh,hqP gh,jkP gh,kP 
gh,k`P gh,m P gh,||P gh-P gh-P gh-`P gh-)P gh-)6P gh-)TP gh-+P gh-+0P gh-+4P gh-+7P gh-+xP gh-,P gh-,P gh-,:P gh-,TP gh--P gh-IP gh-KP gh-MP gh-MP gh-[ P gh-i@P gh-x`P gh-z P gh-|P gh.3P gh.`P gh.
zP-gh.P8gh.gP;gh.)6P;gh.+P;gh.,P=gh.,P=gh.,4P=gh.-TP=	gh.-`P=P gh.JP gh.L@P gh.L`P

gh.MPhgh.NPhgh.Z2Phgh.[PPhgh.h+Pigh.kP6gh.yPQgh/PihP ivzQ $$ii1A  ii1ii4A  ii4iiVA  iiVilA  ilil{A  il{i tH:P i$,kyP i$-J3P i$-J7P i$.	pP i$.	tP i& X P i& YP i& Y P i& Y@P i& ZP i& Z P i& [P i& \P i& \@P i& \`P i& ]@P i& ^P iHuh6P iHui<Q HiHukQ $$iHumP iHu|SQ 6$iHvHQ HiHv>6P iHvN8Q $HiL,WP iL,uP iL,wP iL,)P iL,)WP iL,+1P iL,-P iL,-P iL,8rP iL,8rP iL,8sP 	iL,<VP iL,<[P iL,J1P iL,LpP 
iL,l2P iL-mP 
iL-{zP iL.:P iL.>9P iL.H7P iL.KPP iL.MP iL.YZP 	iP*P iP*d@P iP-j7P iP-kwP ic!hqA  ic!hqj.,@Q k&  9i<AR%UID>B12!<AR%UID>B1k&!h:P k&!hPQ @k&!hvQ 
k&!iQ ,k&!iQ $8k&!iQ k&!iTQ k&!iVQ &Dk&!iYQ k&!lRQ

k&!m9P k;.92Q pkO 9Y<AR%USP>B12!<AR%USP>B1lYj7Q lYl[Q

m X9U<AR%VARY>B12!<AR%VARY>Bm0tP m0t(9Q @m0t;Q 
m0t;sP m0t;vQ $m0t=9Q 0m0tKQ ,m0tKsQ $8m0tMQ m0tj2Q $$m0tj6Q m0tkQ &Dm0tlPQ m0uPP m0uVP m0um6Q 0m0v3Q $Hm0v3Q 6$m0v
1P m0vyP m0v)8Q

m0v+{Q $m0v=Q 00m0v\xP m0viQ 00o,,P o,.:P o-XP$Io-\uQ otM6Q $Hou;0Q HouMQ $HouMP oukPP oumQ Hov
yP ov
zP ov=Q HovKPP ovMQ $Ho tP o t;P o t;ZP o tH:P o tHzQ Ho tLzP o tM6Q $Ho uK1Q $Ho uL(Q $$o uL)Q $o uL8Q 6$o uLyQ $o v2P 	o v P o v<(P o v<)P o v<QP o v=Q Ho vHWQ Ho vJQ $Ho vi9Q $Ho"}I P q,,P q,.:P q-XP$B q-\uP q0v,P q0wP Y (!^		
  T$BIHTS==B				
  IFGh B-WHOLE,<PRINTX ?BYTE SIZE OF A( LARGER THAN A WOHRD>
  IFLE B,<PhRINTX ?BYTE SIZE OF A LE 0>
E L, +"g			
  REP+8EAT A,<			
    +XP$POS==P$POS-T$BI+xTS			
    IFL P$,POS,<				
      ,8P$POS==WHOLE-T$BI,XTS		
      P$OFF,xS==P$OFFS+1			
    >
  >
	
 l h@FMX%VA62==AMX%RQI62==0 Z@=^			;CREATEZ` A BLK BASED ON N[AME$
  $BLOCK(A[ )				
  $BYTE	([@A.TYPE,HALF)		
[` $SYMDCL(A)				
  $EOB
)				 /"
  A==<P/8$POS>B5!<T$BITS>B/X11!P$OFFS	
  $$M/xAX(P$OFFS)				
X(P$OFFS)				
@ @1SZ%VA62==ASZ%RQI62==	ew 8!@0 		
  $WORhD(A,0)				
  P$ALIGN==B+A			
IGN==B+A			
3!71	}r H94			
  $WORD	(AR%A)			
  @DEFINE A<<AR%A>B12!>		
AR%A>	&L[ #8:(			
  $AL#IGN(A.ATTR)			
#h  $BYTE(A.FLAG,^$D17)		
$$BYTE($(A.FILL,AS%BYT)		
  $BYTE(A.CLEAR$h,AS%BYT)		
$BY%TE(A.FRAC,5)			
 $ENDAL
)			
exu H!w00		
  P$MXxOFF==0				
  P$TYPE==0				
  P$F8XOFF==0				
  P$XPOS==WHOLE				
 x P$IXOFF==B			
  P$OFFS==B			
8  DEFINE $$MAX(X$X)<MX%A==X$>	
  xDEFINE $$SIZ(X$)<SZ%A==X$>	
)<3!`0>
	y H \<A>_-^D30<A>_-^D30	NI x:		;SET %BYXT, %BPW, %IBP FROxM BITS/BYTE
  A %BYT==B			;THE T 8RIV PART
  A%BP XW==WHOLE/B		;INT xEGER DIVISION GIV!ES BYTES/WORD
  !8A%IBP==(44B5!<B!X>B11)		;THE WORD-!xALIGNED BYTE PTR "FOR THIS TYPE
  "8A%MSK==<-1_<B-^"XD36>>		;THE CHARACTER MASK
HARA	NI  $"1		
					
					
					
  $XIFDIF <B><REST>,$x<T$BITS==B>	
%%IFIDN <B><REST>,%8<T$BITS==P$POS>	
  $$BINRANGE(A,%xT$BITS)		
  $$IB&P(1)				
  $$SETSYM(A)			
SET	NI9 &X"Q	
					
&x					
					
'I'FN P$POS-WHOLE,<P'8$OFFS=P$OFFS+1>	
  P$POS==WHOLE		'x		
  $$BINRANGE((A,B)		
  A==P(8$OFFS				
  IFLE(X C,<
    P$OFFS(x==P$OFFS+1			
  )  P$FXOFF==P$OFFS)8			
  >					
  )XIFG C,<
    $$I)xBP(C)			
    P$*POS==0				
  >
S==0				
  >
	5| k`6^44B5!OF%NWT!OF%PLN5!OF%NW	l@ t?!$WORD(OC%A)$WORD(OC%	tH6 H!N				
  $WhORD(T$ALN,0)			
  IFG P$OFFS-P$AL(IGN,<PRINTX ?SUBSHTRUCTURE EXCEEDS hBOUNDS>
  P$OFFS=P$ALIGN			
FS	tL| p 7			
  SZ%p@A==P$SYM			
Mp`X%A==P$SYM-1			
A==P$SYM-1						
  IFNX P$FXOFF,<				
 x   IFN P$OFFS-P$F XOFF,<PRINTX ?NON 8-VARIABLE FIELD F XOLLOWS VARIABLE L xENGTH FIELDS>
  !  P$OFFS=P$FXOFF	!8		
  >
  T$BITS!X==WHOLE				
  $$!xIBP(1)				
  $$M"AX(P$OFFS-P$IXOFF"8-1)		
"$$SIZ(P$"XOFFS-P$IXOFF)			
  IFNB <A>,<
#   IFN P$MXOFF,<P#8$OFFS==P$MXOFF>	
    A==P$OFFS-P$IXOFF		
  >
	(` .}EC%A	) xh/Y:0			
  P$TyRAP==-1				
  U$y8ERR==A				
  DEyXFINE H$GO(ERR$,DUyxM$)<		
    EXTERzN EH.'ERR$			
  z8  U$ERR==U$ERR+1	zX		
    $ERRC(ERRzx$)==U$ERR			
  >{
  SYN H$GO,H$RET			
H$GO,H$RE3S/B0	)T c`>ASCIZ /SYS:TCSERR.TXT/SYS	
 z?8
 $BYTE	(g`MBZ,1)					;RESERzHVED
 $BYTE	(F62.wCL,7)				;CLEAR CHARACTER
EAR C	
  {0?u
 $BYTE	({PF62.AUT,1)				;AU{pTO-TAB IF ON
 $B|YTE	(F62.AXT,1)		|0		;AUTO-TRANSMIT |PIF ON
 $BYTE	(F6|p2.FULL,1)				;IF }ANY CHARS ENTERED}0, ALL MUST BE
 $}PBYTE	(F62.RQR,1)	}p			;IT IS REQUIRE~D THAT THIS FIELD~0 BE FILLED
 $BYT~PE	(F62.DT,4)				;DATA TYPE
			;	
0 @	
 $BYTE	(0MBZ,2)					;RESERPVED
 $BYTE	(F62.pPROT,1)				;A PROTECTED FIELD
 $B0YTE	(F62.RJ,1)			P	;THIS FIELD IS RpIGHT JUSTIFIED
 $BYTE	(MBZ,4)					;RESERVED
				%J7 w(8f				
$RINwHIT					
$RD	(F)	wh			;FORM LINE
$RxD	(P)				;PAGE (Ix(E. SCREEN) LINE
xH$RD	(V,AS%BPW)			xh;FORM VARIABLE LIyNE
$RD	(D,AS%BPWy()			;DISPLAY-ONLYyH-DATA LINE
$RD	(yhH)				;HIDDEN-DATzA LINE
$RD	(R)		z(		;RCV CTL VARIABzHLE LINE
$RD	(S)	zh			;SEND CTL VARI{ABLE LINE
$RD	(I{(,PR%BPW)			;IF/PR{HEDICATE LINE
$RD{h	(A)				;PREDICAT|E-ACTION LINE
$R|(D	(E,AS%BPW)			;F|HORM-SPECIFIC ERRO|hR LINE
$RD	(L,AS}%BPW)			;LITERAL }(LINE
$RD	(X,PR%B}HPW)			;EXPRESSION}h LINE

$SINIT		~			
$SD	(F,P,AUT~(O)			;THE PAGES (~HIE. SCREENS) IN T~hHE FORM
$SD	(P,V,MANUAL,VL.POS,1)(		;THE SET OF FORHM VARIABLES IN FOhRM (SORTED BY PAGE/ROW/COL)
$SD	((P,D,AUTO)			;THE HD-O FIELDS, ALSO hSORTED BY P/R/C, BUT AS ENCOUN==SO(RTED
$SD	(F,H,AUHTO)			;THE HIDDENh VARS, ORDERED AS ENCOUNTERED
$SD(	(F,L,AUTO)			;THHE LITERALS, ORDERhED AS ENCOUNTERED
$SD	(F,S,AUTO)	(		;THE SEND CTL VH'S, ORDERED AS ENhCOUNTERED
$SD	(F,R,AUTO)			;DITTO( RCV CTL V'S
$SDH	(F,E,AUTO,EL.NAMh,3)		;THE FORM SPECIFIC ERRORS, SO(RTED APLHA
$SD	(HF,I,MANUAL)			;THhE IF STATS, ORDERED AS ENCOUNTERD
$SD	(I,A,AUTO)		H	;THE PRED ACTIONhS PER IF, ORDERED AS ENCOUNTERED
(
$TD	(F,<E,H,I,LH,P,R,S>)		;THE FOhRM RECORD OWNS MOST THINGS
$TD	(P(,<%F,D,V>)			;THEH PER-PAGE STUFF
h$TD	(I,<%F,A>)				;IF'S ARE OWNED A	(ND OWN
$TD	(D,%P	H)				;D-O FIELDS 	hORG-ED PER PAGE

$TD	(E,%F)
$TD	(
(H,%F)
$TD	(L,%F)
H				;LITERALS ARE
hOWNED BY NO ONE
$TD	(R,%F)
$TD	((S,%F)
$TD	(V,%PH)				;FV'S ARE ORhGANIZED PER PAGE


$TD	(A,%I)				;A

(CTIONS ARE ONLY O

HWNED BY IFS
$TD

h(X)				;DITTO FOR EXPRESSIONS
R	e  .(;e			
 $ALIq@GN	(A.FKEY)			;I/(NFO ABOUT FUNCTIO.hN KEYS
  $BYTE	(0@A.KMASK,HALF)		;/HMASK INDICATING T/HE USER FUNCTION 0 KEYS TO ENABLE
 0p $BYTE	(A.KOFF,H1ALF)		;OFFSET OF 10FKEY CTL VAR IN F1PDR, 0 IMPLIES NON1pE
 $ENDAL
 $ALI2GN	(A.DRSIZ)			;20SIZE INFO
  $BYT2PE	(A.DRWORD,HALF2p)		;# OF WORDS IN3 THE FORM DATA RE30CORD
4$BYTE	(A3P.DRCHAR,HALF)		;#3p OF CHARS IN FDR
 $ENDAL
 $ALIGN40	(A.MISC)			;MIS4PCEL STUFF CARRIED4p OVER FROM BIF
 5 $BYTE	(A.ATTR,650)			;FDL FLAGS
 5P $BYTE	(A.VERS,^5pD12)		;VERSION # 6OF FORM
  $BYTE	60(A.PAGE,QTR)			;6P# OF PAGES(=SCREE6pNS) IN THE (MULTI7-SCREEN) FORM
  70$BYTE	(A.WHID,QT7PR)			;# OF HIDDEN7p VARIABLE WORDS I8N FORM
 $ENDAL
80 $ALIGN	(A.CURS)8P			;CURSOR TABLE 8pINFO
  $BYTE	(A9.CUCOR,^D12)		;WD90 OFFSET OF CURS C9PORRES TABLE FROM 9pFB.POOL
  $BYTE	:(A.CUSER,^D12)		:0;BYTE OFFSET FROM:P FDR OF R-U'S CUR:pSOR TABLE
  $BYT;E (A.CULEN,^D12);0		;# OF BYTES IN ;PTHE TABLE
 $ENDA;pL
 $WORD	(A.HOM<E)			;PAG/FID OF <0HOME FIELD OF FOR<PM (USE OI%FV TEMPLATE)
%FV TEMP	( >@<			
  IFN=pB <B>,<				
>=0 $WORD(FU%B)			
    DEFINE G$A<.HFU%B>		
  >
  ?HIFB <B>,<				
 ?h   $WORD(FU%A)		@	
    DEFINE G$@(A<FU%A>		
  >
@H  EXTERN G%A			
XTERN G%A						;FUNCTILON TABLE FOR TCTEM@RM & REQUEST FIELMpD SUPPORT
  FUNTNAB:
  XWD	11,11	N0			
  XWD	AFAKE,NP0				
  XWD	[ASCNpIZ/ABORT/],FU%ABOO		
  XWD	[ASCIZ/O0CURRENT/],FU%CURROP	
  XWD	[ASCIZ/EOpNTER/],FU%ENT		
P  XWD	[ASCIZ/HELPP0/],FU%HELP		
  XPPWD	[ASCIZ/REFRESHPp/],FU%REF		
  XWQD	[ASCIZ/RESET/],Q0FU%RESET		
  XWDQP	[ASCIZ/RESTORE/]Qp,FU%GET		
  XWD	R[ASCIZ/SAVE/],FU%R0SAVE		
  AFAKE:1RPB7!1B34			;SUPPRERpS RECOG OF THIS SSTRING
	ASCIZ/A/	S0		;FORCES "AB" FOR UNIQUENESS
O	4= %H:>			
  $AL%hIGN(A.COFF,2)			&
  $BYTE (A.STA&(T,^D12)		
  $BYT&HE (A.NULL,^D12)	&h	
					
					
'  $BYTE (A.CURS,'(^D12)		
'$BYTE	'H(A.VDAT,^D12)		
					
$ENDAL
			
	"$ENDAL*X"U
	$BYTE(A,^D18)		
TE(	+I9 d >4		;DESC OFd@ J REC
  $ALIGN(d`A.BC)		;ALIGN e& PUT OUT SYM FORe  WHOLE STRUCT
  e@$BYTE(A.BSIZ,HAe`LF)		;ITS SIZE INf WORDS
  $BYTE	(f A.BTYP,HALF)		;f@ITS REC TYPE ID
  $ENDAL
 ID
	./w \ >			
  DEFq INE $$PS(NAM$,STRT0$)<		
    $INIT(TPNAM$)				
    $S] ET(NAM$'.TYP,SYM%]H'NAM$)		
    $SE]hT(NAM$'.ORG,$OFFS_(NAM$'.ORG))	
    $LEN(STR$)				
    $SET(NAM$'.N_`LEN,P$LEN)		
   ` $SET(NAM$'.NAM,A` SCIZ/STR$/)		
  `@  $ENDINIT				
 `` >
  $PSUSYM
  a$INIT(LT)
  $SETa (LT.TYP,SYM%LT)		a@	
  $SET(LT.IFACa`E,TI%PGI)			
  $bSET(LT.ORG,$OFFS(b LT.ORG))		
  $SEb@T(LT.NLEN,^D11)		b`	
  $SET(LT.NAMEc,ASCIZ/INPUT-QUEUc E/)	
$ENDINIT
	
	2$ENDINITg@>				
 $W	](AOK)				
 $W	(BH`FN)				
 $W	(CRLh)				
 $W	(CRV)	g 			
 $W	(SHT)			h0	
$W	(SYS)				

$W	(ASO)				

$W	(ABO)				
 $W	(BTS)				
 jh$W	(BTR)				
 $Wk	(DIC)				
 $W	(k(FQE)				
 $W	(TAmPO)				
 $W	(TTL)mp				

 $W	(BDE)n				
 $W	(BMC)		n0		
 $W	(CCD)				nP
 $W	(CCE)				
np $W	(CCF)				
 $oW	(UFT)				

 $o0W	(DSA)				
 $W	oP(NTA)				
 $W	(OopOT)				
 $W	(TNA)				
$W	(TNA	?-`$sp?$WORD(RW%A)$WORD(RW%	?=`$tP?%$WORD(SW%A)$WORD(SW%	B
  $AL(HIGN(A.POS)			
 (h $BYTE	(A.PAGE,Q)TR)		
  $BYTE ()(A.FID,QTR)		
  $)HBYTE	(A.ROW,QTR))h			
  $BYTE	(A.*COL,QTR)			
  $ENDAL				

  $E	C\| Sp=*				
  $$TPS(AB,ABORT)			
  $$PS(IS,INIT-ST=ATE)			
  $$PS(LUD)				
  $$PS(NFU ,NEXT-FORM)			
NEXT-FORM)			
	J  r 7			
sNUMs%RD==NUM%RD+1			
  TID%A==NUM%RD			
A==NUM%RD	J-Kx *H:T[OP%A-OP%REL][OP%A-OP%	JMj: r@7NUM%RD==0NUM%RD==0	N  u(7.
 
  NUM%SuHD==NUM%SD+1			
 uh SD%AB==NUM%SD			
B==NUM%SD		NL@ 72[SD%A]	NMj: th7&NUM%SD==0(NUM%SD==0	NO)y r`7SZ%A==P$OFFS-OP%AA==P$O	O.

R 740%A]	OMY l 6~			
					l@
  $ALIGN(A.SYMl`,1)			
  $BYTE(mA.ORG,QTR)		
  $m BYTE(A.NLEN,QTR)m@		
  $BYTE(A.NEm`XT,HALF)		
  $ENnDAL				
  $BYTESn (A.NAME,ASC,0)		n@
  IFIDN <A><SMn`>,<P$SYM==0>		
 o IFDIF <A><SM>,<o 			
    SYM%A==o@P$SYM			
    P$So`YM==P$SYM+1			
  >
SYM+1			
H	R99		
h H($RET	(NIF,0)					
  H$RET	(SXD,0)					
(EH$RET	(T
  H$GHO	(TE2,0)					
 h H$GO	(TE3,0)					
  H$GO	(TE4,0)(					
  H$GO	(ARHG)					
  H$GO	(hCOP)					
  H$GO	(CVO)					
  H$(GO	(FRE)					
  HH$GO	(FWE)					
h  H$GO	(FPE)					
  H$GO	(FRO)			(		
  H$GO	(MBO)	H				
  H$GO	(MDIh)					
  H$GO	(MIN)					
  H$GO	((MMX)					
  H$GHO	(MPX)					
  Hh$GO	(MSZ)					
 H$GO	(OAL)					
  H$GO	(OOP)				H	
  H$GO	(OST)		h			
  H$GO	(OWE)					
  H$GO	(TAL)					
GO	(TA	R  70,8pP 
	R-\ 08#+		
  IFG 0XP$TYPE,<
    $EO0xB				
    IFG P$1OFFS-P$MXOFF,<P$M18XOFF==P$OFFS> 
 1X   P$OFFS==P$TPOF1xF			
    P$POS==2P$TPPOS			
  >
28  IFE P$TYPE,<
 2X   P$TPOFF==P$OFF2xS			
    P$TPPOS3==P$POS			
  >
38  IFNB <B>,<			
4 DEFINE $$MAX3x(X$)<MX%B==X$>	
4X DEFINE $$SIZ48(X$)<SZ%B==X$>	
  >
  A==P$TYP4xE				
  MX%A==P5$TYPE			
  P$TYP58E==P$TYPE+1			
==P$TYPE+1			
	RL@ 76[TID%A]	VL@ -H:n			
  $US-hPWD(A)				
  $ATTRWD(A)				
	W+:h			
  $AL+(IGN(A.USP)			
 +H $BYTE(A.BASE,4)+h			
  $BYTE(A.D,OFF,^D14)		
  $B,(YTE(A.DTYP,4)			,H
  $BYTE(A.REPR,h,3)			
  $BYTE(-A.DLEN,^D11)		
  $ENDAL				

 	Z@ @)
 $BYTE	(u`MBZ,1)					;RESERPVED
 $BYTE	(V62.v RVID,1)				;REVER0SED VIDEO
 $BYTE0	(MBZ,4)					;RESPERVED
 $BYTE	(V6p2.INT,2)				;INTENSITY (NOT USED RELEASE 1)
ED R	\ p0?$WORD(TS%A)$WORD(TS%	^DL@ \`?			
 $BYT\@E	WH.DUM,HALF		
pp $BYTE	WH.STS,HALqPF		
 $HALF	WH.THrpO			
 $HALF	WH.TsBO			
 $HALF	WH.VERS			
LF	WH.	^~) 6#D0`		
  IFL 6HB,<PRINTX ?INVAL6hID SIZE FOR A>
7  IFN P$POS-WHOLE7(,<P$OFFS==P$OFFS+7H1>	
  P$POS==WHO7hLE				
  $$MAX(P8$OFFS)				
  A=8(=P$OFFS				
  P$8HOFFS==P$OFFS+B			
=P$OFFS+B		3#-1S@P >}{woP