Google
 
Trailing-Edge - PDP-10 Archives - tops20_version7_0_tools_tape_clock_tape - tools/dcnspy/dcnspy.unv
There are 5 other files named dcnspy.unv in the archive. Click here to see a list.
x
,Sa@PCt:PCt;vPTCtKP CtLP CuP Cu+qP Cv3P Cv:XP CvKP C(uI7P C(unP C*
	IFN FTS"hHOW,..LOC==.

#
DEFINE	WORD(NAM,#(NUMB<1>),<
	IFN #H<..MSK>,<..OFF==.#h.OFF+1> 

	..MS$K==0		
	FIELDM(N$(AM,<.FWORD>)	

$H	..MSK==0		
	..O$hFF==..OFF+NUMB	
%
>

DEFINE	NXT%(WRD(NUMB<1>),<
	%H..MSK==0
	..OFF=%h..OFF+NUMB

>
&
DEFINE	FILLER(N&(UM),<
	..FLG==PO&HS(..MSK)
	IFE ..&hMSK,<..FLG==-1>
'	IFG <^D<NUM>-<^D'(35-..FLG>>,<PRINT'HX ?FILL TOO BIG I'hN A STRUCTURE>
(	...MSK==MASK.(^D((<NUM>,<..FLG+^D<N(HUM>>)
	IFN FTSHO(hW,<
	  PHASE ..O)FF
	  EXP ...MSK)(
	>
	..MSK==..M)HSK!...MSK
>

)h

DEFINE	HWORD(n*am),<
	..FLG==0	*(	
	IFE ..MSK&.LH*HALF,<FIELDM(nam,.*hLHALF)
			  ..FL+G==1>
	IFE ..FLG+(,<..MSK==..MSK!.L+HHALF
		   IFE ..+hMSK&.RHALF,<FIELD,M(nam,.RHALF)
		,(		     ..FLG==1>
		   IFE ..FLG,<,hNXTWRD
			      -FIELDM(nam,.LHALF-() >
		  >
>

-H
DEFINE	FIELD(NA-hM,SIZ,POS),<
	...FLG==0		

	IFB .(<POS>,<IFB <SIZ>,.H<
	  ...MSK==.RT.hMSK(<<^-<<..MSK>>/>>) 
	  IFE ...M/(SK,<..OFF==..OFF+/H1 
	    ..MSK==0/h		
	    ...MSK==0-1
	  >
	  FIEL0(DM(NAM,<...MSK>)	0H
	0h..FLG==-1		
	>>

	IFNB <SI1Z>,<.SIZ==^D<SIZ>1(> 

	IFNB <POS>1H,<		
	  FIELDM(N1hAM,MASK.(.SIZ,POS2)) 
	  ..FLG==-12(		
	  ..BITS==MA2HSK.(.SIZ,POS) 
	2h>

	IFE ..FLG,<3IFGE <^D<.SIZ>-^D3(36>,< 
	  WORD(N3HAM,<^D<.SIZ>/^D363h>) 
	  IFN <<^D<4.SIZ>-<^D<.SIZ>/^4(D36>*^D36>>,<	
	4H    FIELD(...,<<^4hD<.SIZ>-<^D<.SIZ>5/^D36>*^D36>>) 
5(	  >

	  ..FLG=5H=-1		
	>>

	IF5hE ..FLG,<		
	  .6.BITS==MASK.(^D<.6(SIZ>,<^D<.SIZ>-1>6H) 

	  REPEAT <6h^D36-^D<.SIZ>+1>,7< 
	    IFE ..FL7(G,<	
	      IFE 7H<..BITS&..MSK>,< 7h
			..MSK==..MSK8!..BITS 
		..FLG8(==-1 
	       > 8H

	    IFE ..FL8hG,..BITS==..BITS_9<-1> 
	    >
	 9( >

	IFE ..FLG,9H<		
	  ..BITS==M9hASK.(^D<.SIZ>,<^D:<.SIZ>-1>) 
	  .:(.OFF==..OFF+1	
	:H  ..MSK==..BITS		:h
	>

	MSKSTR(;A'NAM,\..OFFC,..;(BITS) 
	A.'NAM=;H=..OFF
	IFN FTSH;hOW,<
	  PHASE	A<.'NAM
	  EXP	A'<(NAM
	>>

	..OL<HD==..BITS		
	...<hOLD==..BITS		

=>

DEFINE	BIT(N=(AM),<
	..BITS==L=HFTBT.(..OLD)	

=h	IFE ..BITS,<PRIN>TX ?NO ROOM FOR B>(IT IN LAST FIELD>>H

	A%'NAM==..B>hITS_<-<^D35-POS(.?..OLD)>> 
	A.'N?(AM==..OFF		

	M?HSKSTR(A'NAM,\..O?hFFC,..BITS) 
	I@FN FTSHOW,<
	  P@(HASE ..OFF
	  EX@HP A'NAM
	>

	@h..OLD==..OLD&<^-<A..BITS>> 

>
A(
DEFINE	FIELDM(NAAHM,MASK),<
	IFN MAhASK&..MSK,<	
	  B..MSK==0		
	  ..B(OFF==..OFF+1
	>H

	..MSK==..MSK!BhMASK	

	MSKSTR(CA'NAM,\..OFFC,MC(ASK) 
	A.'NAM==CH..OFF
	IFN FTSHOChW,<
	  PHASE	A.D'NAM
	  EXP	A'ND(AM
	>
>

DEFIDHNE ENDSTR(LENNAM<DhLEN>,LSTNAM<LST>)E,<

	IFN ..MSK,E(<..OFF==..OFF+1> EH

	A.'LSTNAM==Eh..OFF	

	IFN FTFSHOW,DEPHASE

	F(..LOK==..LOK+1
	FHIFN ..LOK,<PRINTXFh ? MISSING BEGSTRG>

	IF2,<
	  IG(FDEF ...MSK,<SUPPGHRESS ...MSK>
	  GhIFDEF ..BITS,<SUPHPRESS ..BITS>
	 H( IFDEF .SIZ,<SUPPHHRESS .SIZ>
	  IFHhDEF ..MSK,<SUPPREISS ..MSK>
	  IFDI(EF ..OFF,<SUPPRESIHS ..OFF>
	  IFDEIhF ..FLG,<SUPPRESSJ ..FLG>
	  IFDEFJ( ..LOK,<SUPPRESS JH..LOK>
	  IFDEF Jh..LOC,<SUPPRESS .K.LOC>
	  IFDEF .K(.OLD,<SUPPRESS ..KHOLD>
	  IFDEF ..Kh.OLD,<SUPPRESS ..L.OLD>
	>

	IF1L(,<
	  IFDEF ...MLHSK,<.XCREF ...MSKLh>
	  IFDEF ..BITMS,<.XCREF ..BITS>M(
	  IFDEF .SIZ,<MH.XCREF .SIZ>
	  MhIFDEF ..MSK,<.XCRNEF ..MSK>
	  IFDN(EF ..FLG,<.XCREF NH..FLG>
	  IFDEF Nh..OFF,<.XCREF ..OOFF>
	  IFDEF ..LO(OK,<.XCREF ..LOK>OH
	  IFDEF ..LOC,Oh<.XCREF ..LOC>
	P  IFDEF ..OLD,<.XP(CREF ..OLD>
	  IPHFDEF ...OLD,<.XCRPhEF ...OLD>
	>
Q
	PURGE WORD,NXTWQ(RD,FILLER,HWORD,FQHIELD,BIT,FIELDM
Qh
	A.'LENNAM==..ROFF-B
	IFN FTSHR(OW,<RELOC ..LOC>>RH



	..MSK==0Rh		
	..OFF==B		
	A.D==B	

	S(IFDEF ..LOK,<IFL SH..LOK,<PRINTX ? NShEW BEGSTR WITHOUTT ENDSTR>>

	..LOK==-1


	..L%#%$0%&BEG
	  E&=}:`(hF@ Ge@ ,GeLR +GDP *y2WOP%%CA (A,B,E)P%%CA (AGE` -92kOP%%CA (A,B,N)P%%CA (AGuI7P Gv

ZA  Gv

ZG

L@`(|G
A  G
Gdd`(fG9G"`(mG"Jw`(nG"$G'X`(yG'+`(pG'-3`(oG':`(LG':`(EG'K`(vG'`(sG'`(|G/%`(lG>fy`(gG?Z -y2w
	ASCIZ /.
COPYRIGHT (c) D.8IGITAL EQUIPMENT .XCORPORATION A.
.xALL RIGHTS RESERVED.
/TS RESERVGB~
@`(oGB~
H`(oG`@ Iv<`(I6H1`(	mI6KP I  "zjZ
	MOVX	T1"{
,AD.A
	SKIPGE	S"{(CNA
	  MOVEM	T1,SCNA
	>

	I'\`;I0uI7P I2s-^O2(P)RI2
	MX.A=="UPB
	AD.A==C
	PD.A==D
 I<p 2y3)
	..SVLD	3		
a:!				
  D38EFINE OD. <
b:!3X				
	.POPX>			
  DEFINE LOOP. <4
	JRST a>		
  48DEFINE TOP. <a>	4X	
  DEFINE ENDLP4x. <b>		
  DEFIN5E EXIT. <
	JRST b>T. <
	JRSTI<uh6P I<v=P I<vNP I>J` "yM
ATBL::D"y8OBLK1(A)
APTR:"yX:XWD -ALEN,ATBL
I>Jh "p=
DEFINE E"nrNTRY.(n1,n2,offse"krt,routine,count,l"qtxt),<EXP <SIXBIT"n /n1'n2/>>
	Z ["p:AMAC](P2)
DEFINE"mR ENTRY.(n1,n2,off"rset,routine,count"r8,ltxt),<POINTR(n1"rX'.'n2'offset,n1'n"rx2)>
	Z [AMAC](P"s2)
DEFINE ENTRY."s8(n1,n2,offset,rou"sXtine,count,ltxt),"sx<EXP routine>
	Z"t @[AMAC](P2)
DE"t8FINE ENTRY.(n1,n2"tX,offset,routine,c"txount,ltxt),<LTXMA"uC(<ltxt>)>
	Z ["u8AMAC](P2)
DEFINE"uX ENTRY.(n1,n2,off"uxset,routine,count"v,ltxt),<STXMAC(co"v8unt)>
	Z [AMAC]"vX(P2)
DEFINE ENTR"vxY.(n1,n2,offset,r"woutine,count,ltxt"w8),<ALEN==ALEN+1"wX>
	ALEN==0
	AMAC
I?87 yQ9
	XALL


			
DEFINE	X(8$NAME,$PROC,$POINXT,$DEFLT,$MAX,$FLxAGS),<
	EXP  SIXBIT  /$NAME/
>
8AN:	SWTCHS
AL=X=.-AN

			
IFx2,<
DEFINE	X($NAME,$PROC,$POINT,$8DEFLT,$MAX,$FLAGSX),<
..TEMP==0
IxRP $POINT,<
    IFE ..TEMP-1,<
	8$POINT			;$NAME
X    >
    IFE ..xTEMP-2,<
	POINT	36,$POINT,35	;$NA8ME
    >
    IFXIDN <$POINT><*P>,x<..TEMP==1>	
    IFIDN <$POINT><*8F>,<..TEMP==2>	
X>

IFB <$POINT>x,<
	Z			;$NAME
	..TEMP==1>
IFE .	8.TEMP,<
IFN <$PO	XINT>_-^D24,<
..T	xEMP==$POINT
	..T
EMP			;$NAME
>

8IFE ..TEMP,<
	PO
XINT 36,$POINT,35	
x;$NAME
	>
>>>
AP:	SWTCHS

		8	
			
MX.==0
DXEFINE	X($NAME,$PRxOC,$POINT,$DEFLT,

$MAX,$FLAGS),<
I

8F2,<
IFE <$FLAGS

X>&FS.LRG,<IFG <$M

xAX>-377777,<PRINT
>
..TE1
IFN <$FLAGS>&FS.LRG,<IFN <$8MAX>,<..TEMP==0>>X
IFN ..TEMP,<
	xXWD	$MAX,$PROC	;$NAME
>
IFE ..TE8MP,<
	XWD	[$MAX]X,$PROC	;$NAME
>x
>
AM:	SWTCHS

			
PD.==0
DE8FINE	X($NAME,$PROXC,$POINT,$DEFLT,$xMAX,$FLAGS),<
IF2,<
IFL <$DEFLT>8,<IFN <$DEFLT>+1,X<PRINTX ?DEFAULT xOF /$NAME CANNOT BE NEGATIVE>>
IF8E <$FLAGS>&FS.LRGX,<IFG <$DEFLT>-77x7777,<PRINTX ?DEFAULT OF /$NAME CA8NNOT BE GT 777777X>>
>
IFB <$FLAGxS>,<..TEMR==0>
IFNB <$FLAGS>,<..T8EMR==($FLAGS)>
.X.TEMP==1
IFN <$FxLAGS>&FS.LRG,<IFN <$DEFLT>,<..TEMP8==0>>
IFN ..TEMPX,<
	XWD	..TEMR,$xDEFLT	;$NAME
>
IFE ..TEMP,<
	XW8D	..TEMR,[$DEFLT]X	;$NAME
>
>
AxD:	SWTCHS
	PURGE	..TEMP,..TEMR
	SALL
ICH@.ICN]7A:$ICN]7I`@ K2
	OD.K:%G 45....U~+HK:%L i..0067SYK:&8wP(K:&= #3j;#Np

	IFN .#)*.MSK,<..OFF==..OF#ZF+1> 

	T.B==.#.OFF	

	IFN FTS#0HOW,DEPHASE

	.#P.LOK==..LOK+1
	I#pFN ..LOK,<PRINTX #? MISSING BEGSTR>#0

	IF2,<
	  IF#PDEF ...MSK,<SUPPR#pESS ...MSK>
	  I#FDEF ..BITS,<SUPP#0RESS ..BITS>
	  #PIFDEF .SIZ,<SUPPR#pESS .SIZ>
	  IFD#EF ..MSK,<SUPPRES#0S ..MSK>
	  IFDE#PF ..OFF,<SUPPRESS#p ..OFF>
	  IFDEF# ..FLG,<SUPPRESS #0..FLG>
	  IFDEF #P..LOK,<SUPPRESS .#p.LOK>
	  IFDEF .# .LOC,<SUPPRESS ..# 0LOC>
	  IFDEF ..# POLD,<SUPPRESS ..O# pLD>
	  IFDEF ...#!OLD,<SUPPRESS ...#!0OLD>
	>

	IF1,#!P<
	  IFDEF ...MS#!pK,<.XCREF ...MSK>#"
	"PIFDEF ..BITS#"0,<.XCREF ..BITS>
	  IFDEF .SIZ,<.#"pXCREF .SIZ>
	  I##FDEF ..MSK,<.XCRE##0F ..MSK>
	  IFDE##PF ..FLG,<.XCREF .##p.FLG>
	  IFDEF .#$.OFF,<.XCREF ..OF#$0F>
	$pIFDEF ..LO#$PK,<.XCREF ..LOK>
	  IFDEF ..LOC,<#%.XCREF ..LOC>
	 #%0 IFDEF ..OLD,<.XC#%PREF ..OLD>
	  IF#%pDEF ...OLD,<.XCRE#&F ...OLD>
	>

#&0	PURGE WORD,NXTWR#&PD,FILLER,HWORD,FI#&pELD,BIT,FIELDM
#'
	T.A==..OFF-0
#'0	IFN FTSHOW,<RELOC ..LOC>HOW,<RE
xiLENF  LST IFK:&=G "{j^.ENSV1 <TEMP>.ENSV1 <DLK:l+	`(	K:l+	`(		K:l:`(	KJU\ 4KK "m2
	JRST	[M"pZOVEI	T1,[ASCIZ |"qzA
|]
		 JRST	ERRSTR]
YNT.KK=`(kKKL@ KbNC@ #z
	JRST@..00670064,EXIT.(SM:$:	`(VM:$:`(RMJ.H1`(zMLuLSQ  MLuhvQ MLuiYQ @MLukyQ MLvlXQ MS{P O$:`(O&I`(

O(.:QRORQfI@<Q3=`(HQ8uI7A  Q8uI7Q:
   IFB <xAB>,<		
	..SVDF			
	TRNA			
	8JRST c		
   DEFXINE ..TAGF (INST,xPCT)<
	INST c'PCT>		
   DEFINE 8..TAGE (INST,PCT)X<
	INST d'PCT>	x	
	>
   IFNB <AB>,<		
	JRST 8c		
	B
	JRST Xd
c:!	A
d:!>
c:!	A
d:!>S< Y9W
   IFB <xA>,<		
	..SVDF			
	JRST b
   8DEFINE ..TAGF (INXST,PCT)<
	INST xb'PCT>		
   DEFINE ..TAGE (INST,P8CT)<
	INST c'PCXT>		
	>
   IFNBx <A>,<
	JRST b
	A
b:!> bS2d:`(dS2f

Z`(S2fH1`(hS2fK`(iS2fM`(gS:H@  S:Lk`(CYEi`(}Yt:8P Yuj P YH `()Yt}`(Y$- N9<s1_<^D35-^L<A>>1_<^D35-^LY&$]@Q `Y&&,P Y&]{@Q xY&t;Z`(iY&t{v`(hY'-j P'~Y8&	P  Y>

@ Ny<y
	..STR0 O(..LDB,A,B,<C>)LDB,A,B,<C>Y>~@ #:3
	JRST ..0066
	 SYN ..Y?:z`(mYP,MRP YPt)3P YPt+WP YPt,}P YPt;wP YPt=P YPtHSP YPtMRP YPtkP YPuI7P YPuJ2P YPuLzP YPuhXP YPv

WPYPv=PYRk`QxYRxYR$)@P'pYR&i Q @YR5I`Q @YReQ YRt,P'YS q-^O3(P)
YS+`Q |YSH Q 8YSEX1 "xZE
	[ASCIZ ~A
~][`([3@ W`5><<<1_<A>>-1>B<B>>_<A>>[uI7P [
A  [
[?7 Ta=X
   ..MX1U==B			
[email protected] U ..MX1,ABSOLUTE,<
	MOVE A,[B]>
U`   .IF ..MX1,ABSOVLUTE,<
	..MX2==0V 		
	IFE <..MX1>BV@53,<
	  ..MX2==1V`
	  MOVEI A,..MWX1>	
	IFE ..MX2,W <		
	IFE <..MX1>W@B17,<
	  ..MX2==W`1
	  MOVSI A,(.X.MX1)>>	
	IFE ..X MX2,<		
	IFE <<.[email protected]>B53-^O777777X`>,<
	Y..MX2==1
	  HRROI A,<..MY X1>>>	
	IFE ..MXY@2,<		
	IFE <<..MY`X1>B17-^O777777B1Z7>,<
	  ..MX2==1Z 
	Z`HRLOI A,(..Z@MX1-^O777777)>> 
	IFE ..MX2,<		
[	  MOVE A,[..MX1]>	
  >,[..MX1[N8 "i2
	JRST	[M"mrOVEI	T1,[ASCIZ |"pzA
|]
		 JRST	.TSTRG]
.NFS!FS.[N^= _6
	A==C	_(	
	IF1,<IFDEF %_HA,<PRINTX ?A ALR_hEADY DEFINED>>
	`DEFINE %A (OP,AC`(,Y,MSK)<
	$A==<`HZ B>		
	OP (<AC>,B'Y,MSK)><AC[`pP [`t:P [`t;vP [`tKP [`tLP [`uP @[`u+qP [`v3P [`v:XP [`vKP @\@ ]>$`(b]>$S`(`]>$+@("]>$+`(b]>$:`("]>$P ;]>$\V`(7]>$\Y`([]>&=`(5]?8@`(j]J.	Y`(j]J.<`(i]J.`(j]Vh@ _
2`(e_p #:+
..0067:!				
	.POPX.0_.)P"_.|@P!_@(Xp aa>
	.XCREF
IFE	<<B>_-^D18>b ,<
	.CREF
	CAIb@C	A,<B>
	.XCREb`F
>
IFN	<<B>_-c^D18>,<
	.CREF
c 	CAMC	A,[B]
	[email protected]
>
	.CREFCREF
>
	.CREF_B-i@ _W&= 
&`@ `D@ `H@ auI7P a
A  a
a
M` a
~] apP at:P at;vP atKP atLP auP au+qP av3P av:XP avKP a``(Da\\Y`(`a^=`(2a?(9`(~a? i@6L<^L<<A>&<-<A>>>><<A>&<aJ<Y@&<aJ=A Iv<aKH1 rQ?
	..NUM==rp^D15
	REPEAT ^D1s6,<
		IFN ..MASKs0 & 1B<..NUM>,<
	sP	POP P,..NUM>
		sp..NUM==..NUM-1
	>
==..NUM-1
	aKXY`(2aK&h1 t1?-
	..TMSK=tP=..MASK
	REPEAT tp..NAC,<
		..NUM=u=^L<..TMSK>
		..u0TMSK==..TMSK-1B<.uP.NUM>
		PUSH P,..NUM
	>
H P,.aOXY`(AaPuI7P aSXY`(JcRH1`(Ee

tXP e

tKP e

uI7P e

uJ2P e

unPeeeeQ e|=`(	pet(9P et)3P et-P et-P et[RP etiQP et|WP euI7P euLzP ev	YP ev<P ev

HPevPevIYP evKzP-e`Qee>+`Q el@Q e^Q e$ Q eH Q e] 3eH9`(	e  ,~e$l@Q e%}Q e&:x "Q2JRST CPOPJ1 
vP emy #eN^`(og4X1 zy@+

..DONE{==0
..SACC==0
.{8.NAC==0
..MASK=={X0

IRP <A>,<
{x	IFG A-^D15,<PRI|NTX ?SAVEAC(A) I|8S ILLEGAL,
		   |X   PRINTX ?SAVEAC|x CAN ONLY BE USED} ON ACCUMULATORS>}8
	IFE A-.SAC,<.}X.SACC==1>
	..SYA}xC==A				
	IFN ~A-.SAC,<IFE ..MAS~8K&1B<..SYAC>,<	
~X		..MASK==..MASK!~x1B<..SYAC>	
		..NAC==..NAC+1>>
	8>
IFE ..SACC,<USXRSAV>		
IFE ..DOxNE,<
  IFLE ..SACC,<JSP .SAC,[>
8  IFG ..SACC,<CALXL [EXCH .SAC,(P)>x
		    IFG  ..NAC-3,<DSAVAC>
		 8   IFLE ..NAC-3,<XIFG ..NAC,<PSAVACx>>
		    PUSHJ P,(.SAC)
		      8TRNA
		    AOS -X..NAC-..SACC(P)
x		    IFG  ..NAC-3,<DRSTAC>
		   8 IFLE ..NAC-3,<IFXG ..NAC,<PRSTAC>>x
		    IFG ..SACC,<POP P,.SAC>
	8	    POPJ P,]
>X
PURGE ..NAC,..TNxAC,..MASK,..TMSK,..SACC,..NUM,..SM8SK,..DONE,..SYAC  
DONE,..SYAC gt7`(	xgtz`(	wgt:`(gt;v`(gtK`(gtL`(gu`(gu+q`(gu}(`(
gu})`(
gu}1`(
gv3`(gvH2`(gvK`(gvM`(g @ 0g$9`(1g$[`(+g&(h`(;g&(q`(6g&)`(Ag&:Q`(g&;`(%g&<`(Wg&\H`(>g&\X`(=gmy $g&P !g(uI7P 
g*g*g*

Qg+-Qg2
	X	A,0,# <B>,0,0,FS.NOS!C
g:}| 'g?.@ g@ #aR 

	X	A,C$,<B>,PD.D,MX.D,E
gBn8;`(BgC4\@Q !gCL@`( gCL8V`('gCL9`(gCL: `($gCL<zP gCLL`(fgCLL`(dgCLL`(\gCLYP !gCL[`(gCLhw`(fgCL{``(WgCM@`(%gCMZ`(kgCMX@`(gCMY6`(!gCMZ7P gCM\Z`("gCN

P`(/gCN

Y`(-gCN

Z`(#gCN

\`(+gCN

q`(>gCN(q`(gCN)T`(cgCN:Q`(gCN;`(gCN;`()gCN<`(gCNI`(PgCNJ6`(gCNi9P gCNzP gCO
:`(zgR^h9 
	..STKR=
	RADIX 8
	..STKN==0
	IRP<
	  .STKV1 (A)>
	JSP .A16,.8XSTKS		;Call inteXrnal routine for xallocation
	 EXP ..STKN		;Size of8 block to allocatXe
	RADIX ..STKR
	DEFINE ENDSV.<.ENSV1 <A>>
   NSV1 <A>>
   gR~  YA
	..STR0 x(..DPB,A,B,<C>)DPB,A,B,<C>gS@ GgSEX1 "xA
	EXP A
gV<`(Yg^=`(	_g^=	`(	bg^=`(	ag_$: "V2C
	XLIST
"V
;SET-UP SWITCHE"UrS - SET ARGUMENTS"Vr FOR ACTION SWITC"WHES

SP	*JOB,SC"W0NJOB,.SWDEC,JOB,F"WPS.NFS!FS.NCM!FS.V"WpRQ
SP	*CHANNEL,S"XCNCHN,.SWDEC,CHN,"X0FS.NFS!FS.NCM!FS."XPVRQ
SP	ADDRESS,S"XpCNTAD,.SWOCT,SJP,"YFS.NFS!FS.NCM!FS."Y0VRQ!FS.LRG
SP	*L"YPENGTH,SCNTLN,.SWD"YpEC,TLN,FS.NFS!FS."ZNCM!FS.VRQ
SP	TT"Z0Y,SCNTTY,.SWOCT,J"ZPOB,FS.NFS!FS.NCM!"ZpFS.VRQ
SP	NRT,,."[SWNRT,,FS.NCM!FS."[0NFS		;(SETS UP SC"[PNJOB)
SP	CTERM,,"[p.SWCTM,,FS.NCM!FS"\.NFS		;(SETS UP S"\0CNJOB)
SP	CIRCUI"\PT,,.SWCKT,,FS.NFS"\p!FS.NCM!FS.VRQ
S"]P	*INDEX,SCNIDX,."]0SWDEC,IDX,FS.NFS!"]PFS.NCM!FS.VRQ

"]p;ACTION SWITCHES "^- CAUSE A TABLE T"^0O BE DISPLAYED
"^P
SP	*SJB,0,SPYSJB"^p
SP	*SLB,0,SPYSL"_B
SP	*PRA,0,SPYP"_0RA			;[101]
SP	*"_PPRS,0,SPYPRS			;["_p101]
SP	*PRX,0,S"`PYPRX			;[101]
S"`0P	ELB,0,SPYELB			"`P;[102]
SP	*RCB,0"`p,SPYRCB
SP	*AJB,"a0,SPYAJ
SP	*MEM,"a00,SPYMEM
SP	*MRT"aP,0,SPYMRT
SP	*CD"apB,0,SPYCDB
SP	*S"bPY,0,SPYSPY
SP	*"b0PORT,0,SPYPRT
SP"bP	*MB,0,SPYMB
SP	"bp*CI,0,SPYCI
SP	*"cHN,0,SPYHN
SP	CB"c0L,0,SPYCBL
SP	*S"cPLT,0,SPYSLT
SP	*"cpTDB,0,SPYTDB
SP	"d*PSB,0,SPYPSB
SP"d0	*PTB,0,SPYPTB
S"dPP	DAYTIME,0,SPYTI"dpM

;COSMETIC SW"eITCHES - AFFECT T"e0HE NATURE OF THE "ePDISPLAY

SP	*EX"epIT,,SPYXIT,,FS.NC"fM!FS.NFS
SN	DPY,"f0SCNDPY,FS.NCM!FS."fPNFS
SP	PAGE,SCNP"fpAG,.SWDEC,PAG,FS."gNFS!FS.NCM!FS.VRQ"g0
SN	COMMENT,SCNC"gPOM,FS.NCM!FS.NFS
SP	DELAY,SCNDLY,"h.SWDEC,DLY,FS.NFS"h0!FS.NCM!FS.VRQ
	LIST
g_$@`(6g_%@P g_%P`($g_%``(g_&`(h XPQ  h XUQ h YP h YP"h YVP  h Y[Q h ZP h [2Q  h [XP!h [ZP$h [\Q h [zQ h \Q @h \SQ h \\P @h \pQ h \rP h \sQ h \tQ @h \xP @h ]sQ h ]uP h ^P h:Y`P h:

HP h:

IP h:

IP 

h:

JP 

h:+qP 
h:5I`P h:MX<P h:MmP h:d[@P h:elP 	h:f=P h:fN8P h:myP h:my	P h:|kP 	h:}X<P h:~|WP h;|P 	h;I7P 	h;z2P h;P h;P h; XPP h; XUP h; YP h; YP h; YVP h; Y[P h; ZP h; [2P h; [XP h; [ZP h; [\P h; [zP h; \P h; \SP h; \\P h; \pP h; \rP h; \sP h; \tP h; \xP h; ]sP h; ]uP h; ^P h;$:P h;$:	P h;$I;P h;$LP h;$M6P 	h;$]P h;$hwP 
h;&

P h;&

sP 
h;&

tP h;&86P h;&=XP h;&N8P h;&Y1P h;&[P h;&\P h;<lUP 
h;MHtP h;MK2P hD@ hH@ hL@ hP@ i;vP 

iZP 
im6Pi<PiF$QiF$0`(	EiF$@QiF$`QiF%QiF&`(	MiF(``(	IiUx@Q xi

`P'i3'Q xi6|D Q i6|D@Q i>5I`Q @i>lP i?` O..0066 .i?>+@Q @iB>

`QxiBd[@QxiC=P'~iNP,H6P$iP,IQ iP,M6P iP,kQ iP,muQ iP-

Q iP-Y9Q iP-lQ @iP-m9Q iP-nQ iP-|xQ @iP-}Q iP.

VQ  iP.)SQ iP..Q  iP.86Q @iP.91P!iP.9SQ iP.:Q  iP.<P  iP.ySQ @iP.zqP @iP/	SP"iR

=`(~iR Q |iR@Q |iR$]@Q iR&

tQ iR&[ P iR.LQ iR4;ZP'iR4\Y`(
iR5H Q @iRL=Q iRM@Q iRM}:Q iRN

tQ |iRd:`P iReRQ iRej`Q iRu@Q <iRu} Q `iR|;@Q @iR|=Q iR}@Q iR}^Q  iR}}:Q iR~

tQ xiSj`Q xiS`P iS9UP'iS: Q iS	Q iSlQ iS'Q xiS,X`Q iS-KQ iS.`Q `iSH@ 2iSL,`(eiSLlQ`(
iSMT`(	yiSM)W`(BiSMxS`(diSM}(`(
iSM})`(
iSM}1`(
i^6*`P'ifd:Q xifeYQ 

if|,}P ig`(~ig@`(?igH`(BigI`(GigJ`(Oig(H`(	ig+`(	ig+	`(	ig+	`(	ig+`(	
ig+`(	ig,s`(	ig8VA  ig8Vig9`(ig:`(uig: `(digL`(gig[`(iglH`(iglR`(ig@`(}ig+q`(pig,x`(sigX@`(_igY(`(^igY)`(cigY)`(gigY*`(nigY6`(Xig\H`(Sig\Z`(Hig]`(	/ig]	`(	8ig]`(	.ig

PA  ig

Pig

YA  ig

Yig

Z`(ig

\A  ig

\ig

qA  ig

qigig(q`($ig)1`(ig:Q`(ig;`(ig;A  ig;ig<`(:igH1`(	igH2`(xigHH`(	 igHQ`(	igHV`(	9igI`(igJ6`(igM`(wkO8; B[o @ o&  ,Ba<^L<-<<A><^L<A>>>-1>>>p #?JK
	EXP 0
"m	[ASCIZ /Genrl /]#Z
	[ASCIZ /Termnl#x/]
	[ASCIZ /DECn#	et/]
	[ASCIZ /Ti#	8mer /]
	[ASCIZ /Units /]
,..TAq
d8@`(vq)tVPq:t)3Pqkt+zPqt;wPquI7Pq{uLzPquMvP qum6Pq[vQ ?xq#L@Q q#\ P'q#@P'q6~i4 C qB,Zb KqB,Z|`(XqB\+`(?qJ.	Y`(lqJ.<`(kqJ.`(k	d Q 	eMP 	2LI;P 	2LLXP 	2M;wP 	2N[TP 	3&Q ~	JKP 	JJ2P 	J.	YP 	J.<P 	J.P 	N,:P 	NT:P 	NT:P 	NU^P 
	NV

ZP 		R-\Q 	S$;P N+<P eM ui_0
	$DLLTP=v
=<Z 6>		
	A (<B>,6C,D)A (<2LI; =	cj
	$LIDEV==*=<Z 0>		
	A (<B>,0C,D)A (<2LLX =icp
	$LIDRP=>
=<Z 0>		
	A (<B>,0C,D)A (<2M;w >Icv
	$LIKON=>j=<Z 0>		
	A (<B>,0C,D)A (<2N[T @	d
	$LIUNI=@*=<Z 0>		
	A (<B>,0C,D)A (<3$+W #Kra
	$LTBNO=#L=<Z 2>		
	A (<B>,2C,D)e>+`3$,} #IRO
	$LTBSZ=#Ip=<Z 1>		
	A (<B>,1C,D)
	   3$;w #CZ
	$LTCON=#Cx=<Z 1>		
	A (<B>,1C,D)
	   3$= #F"4
	$LTCTY=#F@=<Z 1>		
	A (<B>,1C,D)
	   3$HS #Gb@
	$LTDBF=#H=<Z 1>		
	A (<B>,1C,D)
	3$MR #A:
	$LTDVE=#AX=<Z 1>		
	A (<B>,1C,D)TS==.3$k #@z	
	$LTFLG=#A=<Z 1>		
	A (<B>,1C,D)
	   3%J2 #@2
	$LTLID=#@P=<Z 0>		
	A (<B>,0C,D)I>J`3%hX #Ns
	$LTNBP=#N0=<Z 2>		
	A (<B>,2C,D)gC4\@3&

W #Dr)
	$LTPRO=#E=<Z 1>		
	A (<B>,1C,D)
	   3&= #Bz
	$LTSTA=#C=<Z 1>		
	A (<B>,1C,D)
	   JK 'Ij>
	$RCDLB='j=<Z 2>		
	A (<B>,2C,D)A (<JJ2 -Ijn
	$RCLID=-j=<Z 1>		
	A (<B>,1C,D)A (<J,(9 #42%
	$REBAS=#4P=<Z 0>		
	A (<B>,0C,D)J,- #8bH
	$REBTB=#9=<Z 5>		
	A (<B>,5C,D)J,- #9RO
	$REBTL=#9p=<Z 6>		
	A (<B>,6C,D)J,[R #5",
	$REEND=#5@=<Z 1>		
	A (<B>,1C,D)J,iQ #;2]
	$REFFB=#;P=<Z 10>		
	A (<B>,10C,D)J,|W #7rA
	$REGRO=#8=<Z 4>		
	A (<B>,4C,D)J.	Y #>r
	$REPFR=#> =<Z 13>		
	A (<B>,13C,D)JwJ.< #<"d
	$REPMX=#<@=<Z 11>		
	A (<B>,11C,D)uJ.

H #7:
	$REPR1=#7 =<Z 3>		
	A (<B>,3C,D)J. #=k
	$REQTA=#=0=<Z 12>		
	A (<B>,12C,D)>=J.IY #:BV
	$RETFR=#:`=<Z 7>		
	A (<B>,7C,D)J.Kz #63
	$RETOT=#60=<Z 2>		
	A (<B>,2C,D)NT: _in
	$SJCHC=`
=<Z 2>		
	A (<B>,2C,D)A (<NT: `In
	$SJCHT=`j=<Z 1>		
	A (<B>,1C,D)A (<NU^ ein0
	$SJMXP=f
=<Z 24>		
	A (<B>,24C,D) (<NV

Z hinH
	$SJPRT=i
=<Z 23>		
	A (<B>,23C,D) (<R

H $

j h
	$TCHR1=$	
	A (<B>,26C,D)7R

I$
	$TCHR2=$	
	A (<B>,27C,D)?R

I $J v
	$TCHR3=$h=<Z 30>		
	A (<B>,30C,D)dR

J $: }
	$TCHR4=$X=<Z 31>		
	A (<B>,31C,D)R+q $	" L
	$TCJOB=$	@=<Z 24>		
	A (<B>,24C,D) \\R5I` #Q
	$TFLG==#Qb<Z 0>		
	A (<B>,0C,D)gCNi9RMX< #uZ2
	$TIMAX=#v"=<Z 5>		
	A (<B>,5C,D)[`v:XRMm #g26
	$TINTL=#fj=<Z 1>		
	A (<B>,1C,D)SIZRel $B .
	$TLNPS=$`=<Z 22>		
	A (<B>,22C,D) [ZRfN8 #m"l
	$TLTYP=#m@=<Z 2>		
	A (<B>,2C,D)I<v=Rmy $" 
	$TMOD1=$@=<Z 15>		
	A (<B>,15C,D)L: Rmy	 $ 
	$TMOD2=$0=<Z 16>		
	A (<B>,16C,D)MY6R|k $ 3
	$TOFLG=$8=<Z 23>		
	A (<B>,23C,D)@R}X< #vj:
	$TOMAX=#w*=<Z 5>		
	A (<B>,5C,D)`7R~|W #r*
	$TOWRN=#rr=<Z 5>		
	A (<B>,5C,D)YPuhXS| $R '
	$TPGPS=$p=<Z 22>		
	A (<B>,22C,D) YSI7 $ D
	$TPLEN=$J=<Z 23>		
	A (<B>,23C,D)Sz2 #|Jh
	$TPWID=#}
=<Z 11>		
	A (<B>,11C,D)JS #oZ
	$TSALC=#p=<Z 2>		
	A (<B>,2C,D)`HS #njz
	$TSALT=#o*=<Z 2>		
	A (<B>,2C,D)`CS XP #ZS
	$TT%BAC#Z8==<Z 0>		
	A (<B>,0C,D)S XU #\c
	$TT%BKO#\8==<Z 0>		
	A (<B>,0C,D)S Y #bJ
	$TT%DAL#bh==<Z 0>		
	A (<B>,0C,D)S Y #^
r
	$TT%DD1#^(==<Z 0>		
	A (<B>,0C,D) "S YV #`r	
	$TT%FLO#a==<Z 0>		
	A (<B>,0C,D)S Y[ #U+
	$TT%FWK#U8==<Z 0>		
	A (<B>,0C,D)S Z #aj
	$TT%HPO#b==<Z 0>		
	A (<B>,0C,D)S [2 #S
	$TT%MES#S8==<Z 0>		
	A (<B>,0C,D)S [X #_z
	$TT%NPM#_ ==<Z 0>		
	A (<B>,0C,D)SFyS [Z #]k
	$TT%NUS#]0==<Z 0>		
	A (<B>,0C,D)R9S [\ #[[
	$TT%NXO#[8==<Z 0>		
	A (<B>,0C,D) S [z #T#
	$TT%OTP#T8==<Z 0>		
	A (<B>,0C,D)?S \ #YK
	$TT%PRM#Y8==<Z 0>		
	A (<B>,0C,D)VS \S #W;
	$TT%RFG#W8==<Z 0>		
	A (<B>,0C,D)kS \\ #_z
	$TT%RXF#`==<Z 0>		
	A (<B>,0C,D)S \p #O2
	$TT%SAL#PZ==<Z 0>		
	A (<B>,0C,D).SIZS \r #d
"
	$TT%SEC#d(==<Z 0>		
	A (<B>,0C,D)S \s #V3
	$TT%SFG#V8==<Z 0>		
	A (<B>,0C,D)dS \t #P2
	$TT%SHT#P==<Z 0>		
	A (<B>,0C,D)CN

PS \x #eJ.
	$TT%SPG#eh==<Z 0>		
	A (<B>,0C,D)S ]s #XC
	$TT%WFG#X8==<Z 0>		
	A (<B>,0C,D)6S ]u #dj(
	$TT%WKC#e==<Z 0>		
	A (<B>,0C,D)S ^ #c*
	$TT%XFF#cH==<Z 0>		
	A (<B>,0C,D)S$: $B!P
	$TTCH1=$
=<Z 35>		
	A (<B>,35C,D)sS$:	 $R!Y
	$TTCH2=$=<Z 35>		
	A (<B>,35C,D)S$I; #pb
	$TTDEV=#q=<Z 4>		
	A (<B>,4C,D)Y&t{vS$L $ 
	$TTDPSI$ ==<Z 17>		
	A (<B>,17C,D)

qS$M6 $B >
	$TTDUM=$b=<Z 23>		
	A (<B>,23C,D) XPS$] $2!G
	$TTETP=$z=<Z 35>		
	A (<B>,35C,D)fS$hw $z!
	$TTFCNT$b==<Z 32>		
	A (<B>,32C,D))8S$k $"!>
	$TTFLA=$j=<Z 35>		
	A (<B>,35C,D)S%z #yBN
	$TTICT=#yj=<Z 12>		
	A (<B>,12C,D)SIZS%7 #2}
	$TTIIN=#P=<Z 14>		
	A (<B>,14C,D)S%z #~Bv
	$TTIOUT#~`==<Z 13>		
	A (<B>,13C,D)LS% $!


	$TTIPSI$J==<Z 32>		
	A (<B>,32C,D)S%Hu #gRA
	$TTLCK=#h=<Z 0>		
	A (<B>,0C,D)S%J7 $:!
	$TTLINE$X==<Z 33>		
	A (<B>,33C,D)oS%KU $b  
	$TTLNK=$=<Z 21>		
	A (<B>,21C,D)$@S%j7 #s: 
	$TTNIN=#t=<Z 5>		
	A (<B>,5C,D)YR5I`S%kz #tJ)
	$TTNOU=#u=<Z 5>		
	A (<B>,5C,D)[N^=S%xw #iRQ
	$TTOCN=#j=<Z 1>		
	A (<B>,1C,D)PS%xz #r



	$TTOCT=#qB=<Z 6>		
	A (<B>,6C,D)SIZS%z7 #xbH
	$TTOIN=#y=<Z 10>		
	A (<B>,10C,D)tKS%{< #jbZ
	$TTOMX=#k*=<Z 1>		
	A (<B>,1C,D)`mS%{z #wrA
	$TTOOUT#x==<Z 7>		
	A (<B>,7C,D)
2S%| $!
	$TTOPSI$Z==<Z 32>		
	A (<B>,32C,D)]S&	U $
 Z
	$TTPFK=$(=<Z 25>		
	A (<B>,25C,D)

 #}:o
	$TTPPC=#}z=<Z 11>		
	A (<B>,11C,D)fS&

s $z a
	$TTPSFK$

==<Z 25>		
	A (<B>,25C,D)

S&

t $r 
	$TTPSI=$=<Z 20>		
	A (<B>,20C,D)NIS&86 #mbt
	$TTSAL2#nJ==<Z 3>		
	A (<B>,3C,D)QS&=X $z!&
	$TTSVPD$b==<Z 36>		
	A (<B>,36C,D)IZS&N8 #krc
	$TTTYP=#l:=<Z 1>		
	A (<B>,1C,D)`|S&Y1 $!,
	$TTUEC=$J=<Z 34>		
	A (<B>,34C,D)S&[ $!5
	$TTULL=$Z=<Z 34>		
	A (<B>,34C,D)$S&\ #z*W
	$TTUPC=#zr=<Z 11>		
	A (<B>,11C,D)t(9S<lU $
 S
	$TWFRK=$
0=<Z 24>		
	A (<B>,24C,D) ]uSMHt #{:`
	$TYLCH=#|=<Z 11>		
	A (<B>,11C,D)v	YSMK2 #hBH
	$TYLMD=#i
=<Z 1>		
	A (<B>,1C,D)P bDV #+ra
	$XHAVL=#,=<Z 2>		
	A (<B>,2C,D)bD+z #*S
	$XHBOT=#*0=<Z 0>		
	A (<B>,0C,D)bD;w #."t
	$XHCON=#.@=<Z 4>		
	A (<B>,4C,D)
	   bEMv #,jh
	$XHLWM=#-=<Z 3>		
	A (<B>,3C,D)bEm6 #/z
	$XHNUM=#/ =<Z 4>		
	A (<B>,4C,D)
	 bF+Z
	$XHPTR=#+ =<Z 1>		
	A (<B>,1C,D)bF)8 #-Zo
	$XHREQ=#-x=<Z 3>		
	A(<B>,3C,D)bF:= #1:
	$XHSIZ=#1X=<Z 4>		
	A (<B>,4C,D)8u\uQ 08u{Q |9 4!....UZ9	 45....U~+H9	 F:....U=|R9
 F8....Ut<H9
p(69 4!....UZ9( 45....U~+H9( F:....U=|R9) F8....Ut<H9)p(=9*p(E9* "Z}
	..TAGE "|z(JRST,)		
	..TAG"iF (,<:!>)		
	SYN"{J ..TAGE,..TAGF	
"oR   DEFINE ELSE. <....U>ELSE.
9+ #ZY
	..TAGF "k(,<:!>)		
	..RSDF
	  SYN .9+ #?x
	A ..0013B..0010009H "nRu
	A..0014B010,ENDIF. 4!....UZ9J 45....U~+H9J F:....U=|R9K F8....Ut<H9Kp(s9h 4!....UZ9i 45....U~+H9i F:....U=|R9j F8....Ut<H9jp(v9k 4!....UZ9 45....U~+H9 F:....U=|R9	 F8....Ut<H9	p(z9
 4!....UZ9 45....U~+H9 F:....U=|R9( F8....Ut<H9(p(89) 4!....UZ9* 45....U~+H9* F:....U=|R9+ F8....Ut<H9+p(	j9Kp(	q9Kp(	u:Q |:h C
	A:8`P :;@P :&@ 1!C
	..TSIZ 1@(..PST,C)
	.CAS1`E ..PST,<<
		MOV2EM A,B>,<
		HR2 RM A,B>,<
		HR2@LM A,B>,<
		DP2`B A,[POINT WID(<3C>),B,POS(<C>)]>>B,POS(<C>):5I`Q :Mi 6aCF
 DEFINE 7ELSE. <
	..TAGE 7 (JRST,)		
	..TAG7@F (,<:!>)		
	SYN7` ..TAGE,..TAGF	
8   DEFINE ELSE. <8 ....U>>	

 DEFI8@NE ENDIF. <
	..T8`AGF (,<:!>)		
	..RSDF>			
   .:dH@ EaD<
	..TSIZ F(..PST,C)
	.CASF E ..PST,<<
		MOVF@E A,B>,<
		HRRF`Z A,B>,<
		HLRGZ A,B>,<
		LDBG  A,[POINT WID(<G@C>),B,POS(<C>)]>>B,POS(<C>)]:ex`P(:ez`P :n:`P :o P`(KQ8uI7:o@P :|i@P :}IQ |;=P ;9 Dn
	.POPX;JwP ;JxP ;JyP ;LH N!E
	IFNDEF N@C,<PRINTX ?C ISN` NOT DEFINED
	  OA (<B>,<D>,.FWO ORD)>	
	IFDEF CO@,<
	IFNDEF %C,<O`
	  A (<B>,<DP>,C)>	
	IFDEF %P C,<
	  %C (A,<B>,<D>,C)>>;i aaF 
	SYN ELSbE.,a
	SYN ENDIFb .,b
	SYN ..TAGFb@,c
	SYN ..TAGE,b`d
	.PSHX <
	  cSYN a,ELSE.
	  c SYN b,ENDIF.
	 c@ SYN c,..TAGF
	c`  SYN d,..TAGE>
	..INDF			
	      NDF			
	   ;k dAF6

	SYN OD.d`,a
	SYN LOOP.,eb
	SYN TOP.,c
e 	SYN EXIT.,d
	Se@YN ENDLP.,e
	.Pe`SHX <
	 SYN a,OfD.
	 SYN b,LOOPf .
	fSYN c,TOP.
	 SYN d,EXIT.
f`	 SYN e,ENDLP.> SYN e,ENDLP.>;$r F8....Ut<H;$s F:....U=|R;&:= qaG
	A==3		r	
	IFE <B>+1,<r A=0>	
	IFE <B>-r@^O777777,<A==1> r`
	IFE <B>-^O777777B17,<A==2>7
`P 9  !ID
	..CSN==@A
	..CSC==0
	I`RP B,<
	IFE ..CSN-..CSC,<
	  ST OPI
	  ..CAS1 (@B)>
	..CSC==..CSC+1>..CSC==..CSS@P Z I\		
	XLIST 
	LOC 0
	COPYRT@ A
     .IFN .,`ABSOLUTE,<PRINTX ?.CPYRT, COPYRIGH T IS NOT ABSOLUTE@>
     IFGE .-^O`22,<PRINTX %COPYRIGHT DOESN'T FIT  IN SINGLE REL BLO@CK>
	RELOC
	LIST
	SALL

	LIS,;[A  ,;[F;P$=|RQ '87A  '87*D A  *D *i9` /2DQ x:$(zP :$)6P :$,uP :$,vP :&(QP :&(RP :&(UP :&(ZP :&)P >K[A  >K[?87A  ?87B~ -qJo
	.PSHX1 (.POPX2).PSHX1 B~	 .1Js
	.POPX4 A
	.POPX4 B~	 .qJ}
	A
   /DEFINE .PSHX1 (WC/0H,STUFF)<
	WCH (/P<<STUFF>,<B>>)><STUFF>,<B>>)>B~
 0K
	.POPX3 B
	.POPX3 C7P  CzP  C87A  C87C 0QK
	.PSHX1 (.PSHX2,<A>)1 C %;+X
	A (<<B>,<>>){MLukyC	 1QK
   DEFIN1pE .PSHX1 (WCH,STU2FF)<
	WCH (<<STUFF>,<A>>)><STUJDP'N

0P NO

{A  NO

{NO P Nv

|P O%=H 6AK4
	.STKV2 (A)
	.STKV2 O%=I 7KL
	IFB <B7 >,<..STKN==..STKN7@+1>
	IFNB <B>,<7`
	...X==B
	IF28,<.IFN ...X,ABSOL8 UTE,<PRINTX ?STKV8@AR A, B is not 8`absolute>>
	..ST9KN==..STKN+...X>
	..STKQ==..STKN+9@1
	.STKV3 (A,\..STKQ)V3 (A,\.O%=I :KZ
   IFDEF:  A,<.IF A,SYMBO:@L,<PRINTX STKVAR :`A ALREADY DEFINE;D>>
	DEFINE A<-; ^OB(P)>
	$A==<Z A>>
	$A==<O<:z`(	]O<=`(	uO<I1A  O<I1O=lZ`(	vO=xzA  O=xzR{v`(	>R9A  R9R

L`(	LR

Y`(	BR=`(	RR{A  R{R{0A  R{0R+A  R+R$Xr`(	PR$X{A  R$X{RL:A  RL:R|=A  R|=S[A  S[S,UA  S,USA  SS1A  S1SLSA  SLSS$QA  S$QS%2A  S%2S%7A  S%7S&N `(	@SFyA  SFy[87A  [87cVP c;HP c;IP ckQP cI7P cX2P c	5P cX2P cJyA  cJy>}{woP