Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/mcb/cvlitx.list
There are no other files named cvlitx.list in the archive.
CVLITX	MACRO M1110  13-OCT-79 10:50  PAGE 3


      1					.TITLE	CVLITX
      2					.IDENT	/V01.02/
      3					;
      4					; COPYRIGHT (C) 1978 BY
      5					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      6					;
      7					;
      8					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
      9					; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
     10					; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
     11					; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
     12					; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
     13					; TRANSFERRED.
     14					;
     15					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
     16					; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
     17					; CORPORATION.
     18					;
     19					; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
     20					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
     21					;
     22					;
     23					; MODULE DESCRIPTION:
     24					;
     25					;   NCU UTILITY MODULE TO CONVERT A LINE ID TO TEXT
     26					;
     27					;
     28					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     29					;
     30					; IDENT HISTORY:
     31					;
     32					; 1.00	10-FEB-78
     33					;	VERSION 2.0 RELEASE
     34					; 1.01	22-JAN-79 ALAN D. PECKHAM
     35					;	CLEAN UP HIGH BYTES OF CTL,UNT,STA DISPLAY
     36					; 1.02	30-AUG-79 ALAN D. PECKHAM
     37					;	NO INTERNAL CHANGE - LIDDAT CHANGED
     38					;
CVLITX	MACRO M1110  13-OCT-79 10:50  PAGE 4


     40					;
     41					;======================================================================;
     42					;++
     43					;          +-------------------------------------------------+
     44					;          I                                                 I
     45					;          I                   C V L I T X                   I
     46					;          I                   - - - - - -                   I
     47					;          I                                                 I
     48					;          +-------------------------------------------------+
     49					;
     50					; FUNCTION:
     51					;
     52					;   UTILITY MODULE TO CONVERT A LINE ID TO TEXT
     53					;
     54					;
     55					; CALLING SEQUENCE:  CALL CVLITX
     56					;
     57					; INPUT:
     58					;
     59					;   R0 - ADDRESS OF SPACE FOR LINE ID TEXT (AT LEAST 13 BYTES LONG)
     60					;   R1 - ADDRESS OF 4 BYTE BINARY LINE ID
     61					;
     62					; OUTPUT:
     63					;
     64					;   C-BIT - CLEAR IF SUCCESS, SET IF FAILURE
     65					;   R0 - ADDRESS OF BYTE AFTER CONVERTED LINE ID
     66					;   R1 - ADDRESS OF BYTE AFTER BINARY LINE ID
     67					;   R2 - LENGTH OF CONVERTED LINE ID
     68					;
     69					; REQUIREMENTS:
     70					;
     71					;   INPUT VIA LIDDAT:
     72					;
     73					;     LIDBLK - SYMBOL FOR STARTING ADDRESS OF LINE ID TABLE
     74					;     LIDEND - SYMBOL FOR ENDING ADDRESS OF LINE ID TABLE
     75					;     L.DNAD - OFFSET OF DEVICE NAME LENGTH IN TABLE ENTRY
     76					;     L.DNLN - OFFSET OF DEVICE NAME ADDRESS IN TABLE ENTRY
     77					;     L.DTYP - OFFSET OF BINARY DEVICE TYPE NUMBER IN TABLE ENTRY
     78					;     L.ELEN - SYMBOL FOR LENGTH OF TABLE ENTRY
     79					;
     80					;   TEMPORARY MEMORY BLOCK:
     81					;
     82					;     FIRST FIVE WORDS
     83					;
     84					;--
     85					;======================================================================;
     86					;
     87					; EXTERNAL MACROS
     88					;
     89					.MCALL	PROC,LIDMDF,TEMMDF,SAVSTK,RESSTK
     90					;
     91					; READ/WRITE STORAGE
     92					;
     93	000000				TEMMDF				;TEMPORARY MEMORY BLOCK
     94					;
     95					; SYMBOLS FOR ACCESSING TEMPORARY MEMORY BLOCK AS $EDMSG ARGUMENT BLOCK
     96					;
CVLITX	MACRO M1110  13-OCT-79 10:50  PAGE 4-1


     97		000000'			A$DNLN	= TEMBLK		;DEVICE NAME LENGTH
     98		000002'			A$DNAD	= A$DNLN+2		;DEVICE NAME ADDRESS
     99		000004'			A$CTNM	= A$DNAD+2		;CONTROLLER NUMBER
    100		000006'			A$LNNM	= A$CTNM+2		;LINE NUMBER
    101		000010'			A$STNM	= A$LNNM+2		;STATION NUMBER
    102					;
    103					; READ/ONLY STORAGE
    104					;
    105	000000				LIDMDF				;LINE ID MEMORY
    106					;
    107					; FORMATS FOR $EDMSG
    108					;
    109	000000	   045 	   126 	   101 	LI1MSG:	.ASCIZ	/%VA_%M_%M_%M/
	000003	   137 	   045 	   115
	000006	   137 	   045 	   115
	000011	   137 	   045 	   115
	000014	   000
    110	000015	   045 	   126 	   101 	LI2MSG:	.ASCIZ	/%VA_%M_%M/
	000020	   137 	   045 	   115
	000023	   137 	   045 	   115
	000026	   000
    111	000027	   045 	   126 	   101 	LI3MSG:	.ASCIZ	/%VA_%M/
	000032	   137 	   045 	   115
	000035	   000
    112	000036	   045 	   126 	   101 	LI4MSG:	.ASCIZ	/%VA/
	000041	   000
    113	000042	   116 	   117 	   116 	LI5MSG:	.ASCII	/NONE/
	000045	   105
    114		000004 			LI5LEN	= .-LI5MSG
    115					.EVEN
CVLITX	MACRO M1110  13-OCT-79 10:50  PAGE 5


    117					;
    118					; PROCEDURE BODY
    119					;
    120	000046				PROC	CVLITX
    121	000046				SAVSTK  <R3>			;SAVE REGISTER
    122	000050	112102 			MOVB    (R1)+,R2		;GET DEVICE TYPE
    123	000052	012703 	000050'		MOV     #LIDBLK,R3		;ADDRESS OF LINE ID BLOCKS
    124	000056				WHILE ; DEVICE TYPE MATCH NOT FOUND AND NOT ALL ENTRIES CHECKED
    125	000056				FALSE   HIS R3,#LIDEND
    126	000064				FALSEB  EQ R2,L.DTYP(R3)
    127	000072				DO
    128	000072	062703 	000010 		  ADD     #L.ELEN,R3		;ADVANCE TO NEXT ENTRY
    129	000076				ENDWHILE
    130	000100				IF ; DEVICE TYPE FOUND
    131	000100				FALSE   HIS R3,#LIDEND
    132	000106				THEN
    133	000106	116367 	000002 	000000'	  MOVB    L.DNLN(R3),A$DNLN	;SAVE DEVICE NAME LENGTH
    134	000114	016367 	000000 	000002'	  MOV     L.DNAD(R3),A$DNAD	;SAVE DEVICE NAME ADDRESS
    135	000122	005067 	000004'		  CLR     A$CTNM		;                                               ;AP0001
    136	000126	112167 	000004'		  MOVB    (R1)+,A$CTNM		;GET CONTROLLER NUMBER
    137	000132	005067 	000006'		  CLR     A$LNNM		;                                               ;AP0001
    138	000136	112167 	000006'		  MOVB    (R1)+,A$LNNM		;GET LINE NUMBER
    139	000142	005067 	000010'		  CLR     A$STNM		;                                               ;AP0001
    140	000146	112167 	000010'		  MOVB    (R1)+,A$STNM		;GET STATION ADDRESS
    141	000152				  SAVSTK  <R1>			;SAVE FOR RETURN TO CALLER
    142	000154	012701 	000000'		  MOV     #LI1MSG,R1		;SET UP FORMAT #1
    143	000160				  IF ; STATION ADDRESS = 0
    144	000160				  FALSE   SET A$STNM
    145	000166				  THEN
    146	000166	012701 	000015'		    MOV     #LI2MSG,R1		;USE FORMAT #2
    147	000172				    IF ; LINE NUMBER = 0
    148	000172				    FALSE   SET A$LNNM
    149	000200				    THEN
    150	000200	012701 	000027'		      MOV     #LI3MSG,R1	;USE FORMAT #3
    151	000204				      IF ; CONTROLLER NUMBER = 0
    152	000204				      FALSE   SET A$CTNM
    153	000212				      THEN
    154	000212	012701 	000036'		        MOV     #LI4MSG,R1	;USE FORMAT #4
    155	000216				      ENDIF
    156	000216				    ENDIF
    157	000216				  ENDIF
    158	000216	012702 	000000'		  MOV     #TEMBLK,R2		;SET UP ARGUMENT BLOCK ADDRESS
    159	000222				  CALL    $EDMSG		;BUILD LINE ID ASCII STRING
    160	000226	010102 			  MOV     R1,R2			;RETURN LENGTH IN R2
    161	000230				  RESSTK  <R1>			;RETURN UPDATED BINARY POINTER
    162	000232	000241 			  CLC				;INDICATE SUCCESS
    163	000234				ELSE
    164	000236	000261 			  SEC				;INDICATE FAILURE
    165	000240				ENDIF
    166	000240				RESSTK  <R3>			;RESTORE REGISTER
    167	000242				ENDPROC
    168		000001 			.END
CVLITX	MACRO M1110  13-OCT-79 10:50  PAGE 5-1
SYMBOL TABLE

ADA     000016R     003	D$$L11= 000001   	F$LOAD= 000000   	F$150 = 000002   	L$$11R= 000000
ADL     000007R     003	FL$BOO= 000001   	F$LOGD= 000001   	F$300 = 000012   	L.DLGL= 000003
ADLA    000026R     003	FL$DUM= 000001   	F$LOOP= 000001   	F$50  = 000002   	L.DNAD= 000000
ADLV    000011R     003	FL$LOA= 000001   	F$NTCM= 000000   	F$550 = 000002   	L.DNLN= 000002
ADMC    000023R     003	FL$LOO= 000001   	F$OPCL= 000001   	G$$TPP= 000000   	L.DTYP= 000004
ADP     000000R     003	FR$LCC= 000001   	F$OPCO= 000000   	G$$TSS= 000000   	L.ELEN= 000010
ADQ     000014R     003	FR$LCS= 000001   	F$OPIN= 000000   	G$$TTK= 000000   	L.MCTL= 000005
ADTE    000031R     003	FR$LNC= 000001   	F$OPIR= 000000   	I$$RAR= 000000   	L.MLIN= 000006
ADU     000002R     003	FR$LNL= 000001   	F$OPLK= 000005   	I$$RDN= 000000   	L.MSTA= 000007
ADUP    000020R     003	FR$LNS= 000001   	F$OPLN= 000002   	KDP   = 000034   	M$$CRB= 000124
ADUV    000004R     003	FR$RMC= 000001   	F$OPLO= 000000   	KDZ   = 000036   	M$$CRX= 000000
ADV     000034R     003	FR$RML= 000001   	F$OPOR= 000000   	KL    = 000040   	M$$FCS= 000000
ADZ     000036R     003	FR$RMS= 000001   	F$OPOT= 000000   	K$$CNT= 177546   	M$$OVR= 000000
AKDP    000040R     003	FS$HOS= 000001   	F$ORLU= 000000   	K$$CSR= 177546   	NO    = 000000
AKDZ    000043R     003	FS$INT= 000000   	F$OTLU= 000001   	K$$LDC= 000000   	N$$USR= 000001
AKL     000046R     003	FS$LLP= 000001   	F$RCBK= 000002   	K$$TPS= 000074   	P$$P45= 000000
A$CTNM= 000004R     002	FS$LOF= 000001   	F$RCEV= 000001   	LDA   = 000002   	R$$DER= 000000
A$DNAD= 000002R     002	FS$LOG= 000001   	F$RCIN= 000000   	LDL   = 000002   	R$$K11= 000001
A$DNLN= 000000R     002	FS$LST= 000001   	F$RCMA= 000000   	LDLA  = 000003   	R$$SND= 000000
A$LNNM= 000006R     002	FS$NET= 000001   	F$RCMS= 000002   	LDLV  = 000003   	R$$11M= 000000
A$STNM= 000010R     002	FS$NST= 000000   	F$RDBK= 000000   	LDMC  = 000003   	S$$WRG= 000000
A$$CHK= 000000   	FS$PAS= 000001   	F$RDCM= 000000   	LDP   = 000002   	S$$YSZ= 001600
A$$CPS= 000000   	FT$CNS= 000000   	F$RDIN= 000001   	LDQ   = 000002   	TEMBLK  000000R     002
A$$TRP= 000000   	FT$NOD= 000001   	F$RDIS= 000012   	LDTE  = 000003   	TEMBLN= 000032
CVLITX  000046RG 	FT$TSK= 000001   	F$RDRC= 000000   	LDU   = 000002   	TEMWLN= 000015
C$$CKP= 000000   	F$ALBF= 000001   	F$RECO= 000001   	LDUP  = 000003   	T$$KMG= 000000
C$$ORE= 000400   	F$ALCB= 000001   	F$RLBF= 000001   	LDUV  = 000003   	T$$MIN= 000000
C$$RSH= 177564   	F$CB  = 000017   	F$RLCB= 000001   	LDV   = 000002   	V$$CTR= 001000
DA    = 000010   	F$CLCL= 000001   	F$STBK= 000000   	LDZ   = 000002   	X$$DBT= 000000
DL    = 000004   	F$CLCO= 000000   	F$STPR= 000001   	LD$LP = 000000   	YES   = 000001
DLA   = 000020   	F$CLFL= 000000   	F$STPS= 000006   	LIDBLK  000050R     003	$EDMSG= ****** GX
DLV   = 000004   	F$CLLK= 000006   	F$TEST= 000001   	LIDEND  000250R     003	$$CSTA= 000000
DMC   = 000014   	F$CLLN= 000002   	F$TRAC= 000000   	LI1MSG  000000R  	$$PRST= 000014
DP    = 000000   	F$DPOS= 000001   	F$TRBK= 000001   	LI2MSG  000015R  	$$STIX= 000777
DQ    = 000006   	F$DUMP= 000000   	F$TRIG= 000001   	LI3MSG  000027R  	$$STNM= 000000
DTE   = 000024   	F$EVNT= 000001   	F$TRIN= 000000   	LI4MSG  000036R  	$$S770= 000077
DU    = 000002   	F$EXAM= 000001   	F$TRMA= 000000   	LI5LEN= 000004   	$$S771= 000013
DUP   = 000012   	F$EXHO= 000000   	F$TRMS= 000002   	LI5MSG  000042R  	$$S772= 000077
DUV   = 000002   	F$GTCM= 000001   	F$WRBK= 000000   	LKDP  = 000003   	$$S773= 000012
DV    = 000026   	F$INCM= 000000   	F$WRCL= 000001   	LKDZ  = 000003   	$$S774= 000077
DV$LOD= 000002   	F$INLU= 000001   	F$WRCM= 000000   	LKL   = 000002   	$$S775= 000011
DV$NET= 000001   	F$IRLU= 000000   	F$WRRC= 000000   	L$$ASG= 000000   	$$S776= 000000
DZ    = 000030   	F$LKLU= 000010   	F$ZERO= 000001   	L$$DRV= 000000   	$$S777= 000000
D$$BUG= 177514   	F$LNLU= 000002   	F$ZRCN= 000001   	L$$P11= 000001   	$$TRNM= 000000
D$$ISK= 000000   	F$LNSR= 000001   	F$$LVL= 000001

. ABS.	000000	   000
      	000244	   001
TEMDAT	000032	   002
LIDDAT	000250	   003
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  9547 WORDS  ( 38 PAGES)
DYNAMIC MEMORY:  11116 WORDS  ( 42 PAGES)
ELAPSED TIME:  00:00:40
CVLITX,[135,30]CVLITX/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,CVLITX
CVLITX     CREATED BY  MACRO  ON 13-OCT-79 AT 10:51	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ADA   	  000016 R	#4-105      4-105      4-105     
ADL   	  000007 R	#4-105      4-105      4-105     
ADLA  	  000026 R	#4-105      4-105      4-105     
ADLV  	  000011 R	#4-105      4-105      4-105     
ADMC  	  000023 R	#4-105      4-105      4-105     
ADP   	  000000 R	#4-105      4-105      4-105     
ADQ   	  000014 R	#4-105      4-105      4-105     
ADTE  	  000031 R	#4-105      4-105      4-105     
ADU   	  000002 R	#4-105      4-105      4-105     
ADUP  	  000020 R	#4-105      4-105      4-105     
ADUV  	  000004 R	#4-105      4-105      4-105     
ADV   	  000034 R	#4-105      4-105      4-105     
ADZ   	  000036 R	#4-105      4-105      4-105     
AKDP  	  000040 R	#4-105      4-105      4-105     
AKDZ  	  000043 R	#4-105      4-105      4-105     
AKL   	  000046 R	#4-105      4-105      4-105     
A$CTNM	= 000004 R	#4-99       4-100     *5-135     *5-136      5-152     
A$DNAD	= 000002 R	#4-98       4-99      *5-134     
A$DNLN	= 000000 R	#4-97       4-98      *5-133     
A$LNNM	= 000006 R	#4-100      4-101     *5-137     *5-138      5-148     
A$STNM	= 000010 R	#4-101     *5-139     *5-140      5-144     
CVLITX	  000046 RG	#5-120     
DA    	= 000010	 4-105     
DL    	= 000004	 4-105     
DLA   	= 000020	 4-105     
DLV   	= 000004	 4-105     
DMC   	= 000014	 4-105     
DP    	= 000000	 4-105     
DQ    	= 000006	 4-105     
DTE   	= 000024	 4-105     
DU    	= 000002	 4-105     
DUP   	= 000012	 4-105     
DUV   	= 000002	 4-105     
DV    	= 000026	 4-105     
DV$LOD	= 000002	#4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105     
                         4-105      4-105      4-105      4-105      4-105     
DV$NET	= 000001	#4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105     
                         4-105      4-105      4-105      4-105      4-105      4-105      4-105     
DZ    	= 000030	 4-105     
F$TRAC	= 000000	 5-120      5-120      5-167      5-167     
I$$AS 	= ******	 5-120     
KDP   	= 000034	 4-105     
KDZ   	= 000036	 4-105     
KL    	= 000040	 4-105     
LDA   	= 000002	#4-105      4-105     
LDL   	= 000002	#4-105      4-105     
LDLA  	= 000003	#4-105      4-105     
LDLV  	= 000003	#4-105      4-105     
LDMC  	= 000003	#4-105      4-105     
LDP   	= 000002	#4-105      4-105     
LDQ   	= 000002	#4-105      4-105     
LDTE  	= 000003	#4-105      4-105     
CVLITX     CREATED BY  MACRO  ON 13-OCT-79 AT 10:51	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

LDU   	= 000002	#4-105      4-105     
LDUP  	= 000003	#4-105      4-105     
LDUV  	= 000003	#4-105      4-105     
LDV   	= 000002	#4-105      4-105     
LDZ   	= 000002	#4-105      4-105     
LIDBLK	  000050 R	#4-105      5-123     
LIDEND	  000250 R	#4-105      5-125      5-131     
LI1MSG	  000000 R	#4-109      5-142     
LI2MSG	  000015 R	#4-110      5-146     
LI3MSG	  000027 R	#4-111      5-150     
LI4MSG	  000036 R	#4-112      5-154     
LI5LEN	= 000004	#4-114     
LI5MSG	  000042 R	#4-113      4-114     
LKDP  	= 000003	#4-105      4-105     
LKDZ  	= 000003	#4-105      4-105     
LKL   	= 000002	#4-105      4-105     
L.DLGL	= 000003	#4-105     
L.DNAD	= 000000	#4-105      5-134     
L.DNLN	= 000002	#4-105      5-133     
L.DTYP	= 000004	#4-105      5-126     
L.ELEN	= 000010	#4-105      5-128     
L.MCTL	= 000005	#4-105     
L.MLIN	= 000006	#4-105     
L.MSTA	= 000007	#4-105     
R$$11D	= ******	 5-120     
R$$11M	= 000000	 5-120     
TEMBLK	  000000 R	#4-93       4-97       5-158     
TEMBLN	= 000032	#4-93      
TEMWLN	= 000015	#4-93       4-93       4-93      
$EDMSG	= ******  GX	 5-159     
$$CSTA	= 000000	#5-120     
$$PRST	= 000014	#5-120     *5-124     #5-124      5-130     #5-130     *5-143     #5-143     *5-147     #5-147     
                        *5-151     #5-151     
$$SLST	= ******	 5-120      5-124      5-125      5-125      5-126      5-126      5-127      5-129      5-129     
                         5-131      5-131      5-132      5-144      5-144      5-145      5-148      5-148      5-149     
                         5-152      5-152      5-153      5-155      5-156      5-157      5-163      5-163      5-165     
                         5-167     
$$STIX	= 000777	#5-120     *5-124     *5-124     #5-124     *5-124     *5-124     #5-124      5-129     #5-129     
                         5-129      5-129     #5-129      5-129      5-130      5-130     #5-130      5-130      5-130     
                        #5-130     *5-143     *5-143     #5-143     *5-143     *5-143     #5-143     *5-147     *5-147     
                        #5-147     *5-147     *5-147     #5-147     *5-151     *5-151     #5-151     *5-151     *5-151     
                        #5-151      5-155     #5-155      5-155      5-155     #5-155      5-155      5-156     #5-156     
                         5-156      5-156     #5-156      5-156      5-157     #5-157      5-157      5-157     #5-157     
                         5-157      5-165     #5-165      5-165      5-165     #5-165      5-165     
$$STNM	= 000000	#5-120     *5-124     #5-124     *5-124     *5-124      5-125      5-126      5-127      5-129     
                         5-129     #5-129      5-130     #5-130      5-130      5-131      5-132     *5-143     #5-143     
                        *5-143      5-144      5-145     *5-147     #5-147     *5-147      5-148      5-149     *5-151     
                        #5-151     *5-151      5-152      5-153     *5-155     #5-155      5-156     #5-156      5-157     
                        #5-157      5-163      5-163      5-165     #5-165     
$$S770	= 000077	#5-151      5-155     
$$S771	= 000013	#5-151      5-155     
$$S772	= 000077	#5-147      5-156     
CVLITX     CREATED BY  MACRO  ON 13-OCT-79 AT 10:51	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$$S773	= 000012	#5-147      5-156     
$$S774	= 000077	#5-143      5-157     
$$S775	= 000011	#5-143      5-157     
$$S776	= 000000	#5-124      5-129     #5-130      5-165     
$$S777	= 000000	#5-124      5-129     #5-130      5-165     
$$TRNM	= 000000	#5-120     *5-124     #5-124      5-125      5-126      5-127      5-129     #5-129      5-130     
                        #5-130      5-131      5-132     *5-143     #5-143      5-144      5-145     *5-147     #5-147     
                         5-148      5-149     *5-151     #5-151      5-152      5-153     *5-155     #5-155      5-156     
                        #5-156      5-157     #5-157      5-163     #5-163      5-165     #5-165     
CVLITX     CREATED BY  MACRO  ON 13-OCT-79 AT 10:51	PAGE 4

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#5-159     
CASE  		#5-120     
DEVDF 		#4-105      4-105     
DO    		#5-120     #5-127     
DVTMDF		#4-105      4-105      4-105     
ELSE  		#5-120     #5-163     
ENDCAS		#5-120     
ENDIF 		#5-120      5-129      5-155      5-156      5-157      5-165     
ENDPRO		#5-120      5-167     
ENDWHI		#5-120      5-129     
FALSE 		#5-120      5-125      5-131      5-144      5-148      5-152     
FALSEB		#5-120      5-126     
IF    		#5-120      5-124      5-130      5-143      5-147      5-151     
JMPPRO		#5-120     
LIDMDF		#4-89       4-105     
ONCASE		#5-120     
PROC  		#4-89       5-120     
PROCLC		#5-120     
RESSTK		#4-89       5-161      5-166     
SAVSTK		#4-89       5-121      5-141     
SWSTK$		#5-120     
TEMMDF		#4-89       4-93      
THEN  		#5-120      5-127      5-132      5-145      5-149      5-153     
TRUE  		#5-120     
TRUEB 		#5-120     
WHILE 		#5-120     #5-124     
XXX   		#4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105     
                 4-105      4-105      4-105      4-105      4-105      4-105      4-105     #4-105      4-105      4-105     
                 4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105      4-105     
                 4-105      4-105      4-105      4-105     
$$BGND		#5-120     #5-125     #5-126     #5-131     #5-144     #5-148     #5-152     
$$BGNN		#5-120     #5-125     #5-126     #5-129     #5-131     #5-144     #5-148     #5-152     #5-163     
$$ELSE		#5-120     #5-163     
$$GEN1		#5-120     #5-120     #5-124     #5-125     #5-126     #5-127     #5-129     #5-129     #5-131     #5-132     
                #5-144     #5-144     #5-145     #5-148     #5-148     #5-149     #5-152     #5-152     #5-153     #5-155     
                #5-156     #5-157     #5-163     #5-163     #5-165     #5-167     
$$GEN2		#5-120     #5-125     #5-126     #5-131     
$$GNAB		#5-120      5-125      5-126      5-131     
$$GNBT		#5-120      5-144      5-148      5-152     
$$GNCM		#5-120     #5-125     #5-126     #5-131     #5-144     #5-148     #5-152     
$$INMC		#5-120     #5-120     
$$INSY		#5-120      5-120     
$$LAB 		#5-120      5-124      5-127      5-129      5-132      5-145      5-149      5-153      5-155      5-156     
                 5-157      5-163      5-165     
$$POP 		#5-120      5-129      5-129      5-155      5-155      5-156      5-156      5-157      5-157      5-165     
                 5-165     
$$POPI		#5-120      5-129      5-129      5-155      5-155      5-156      5-156      5-157      5-157      5-165     
                 5-165     
$$PUSH		#5-120      5-124      5-124      5-130      5-130      5-143      5-143      5-147      5-147      5-151     
                 5-151     
$$STSM		#5-120     #5-124     #5-124     #5-130     #5-130     #5-143     #5-143     #5-147     #5-147     #5-151     
                #5-151     
CVLITX     CREATED BY  MACRO  ON 13-OCT-79 AT 10:51	PAGE 5

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

$$SYS 		#5-120     
$$TRCE		#5-120      5-120      5-167