Google
 

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


      1					.TITLE	SROPLK
      2					.IDENT	/V01.00/
      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 SERVICE MODULE TO OPEN A LOGICAL LINK
     26					;
     27					;
     28					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     29					;
     30					; IDENT HISTORY:
     31					;
     32					; 1.00	10-FEB-78
     33					;	VERSION 2.0 RELEASE
     34					;
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 4


     36					;
     37					;======================================================================;
     38					;++
     39					;          +-------------------------------------------------+
     40					;          I                                                 I
     41					;          I                   S R O P L K                   I
     42					;          I                   - - - - - -                   I
     43					;          I                                                 I
     44					;          +-------------------------------------------------+
     45					;
     46					; FUNCTION:
     47					;
     48					;   SERVICE MODULE TO OPEN A LOGICAL LINK
     49					;
     50					; INPUT:
     51					;
     52					;   R5 - ADDRESS OF CONTROL BLOCK REQUESTING OPEN
     53					;     C.ADDR - ADDRESS OF STANDARD CONNECT REQUEST BLOCK
     54					;     C.LEN - ON COMPLETION ENTRY, LENGTH OF OPTIONAL DATA RECEIVED OR
     55					;             DETAIL ERROR CODE
     56					;     C.LKNM - ON COMPLETION ENTRY, ADDRESS OF LINK DATABASE ENTRY
     57					;     C.RET - ON COMPLETION ENTRY, I/O STATUS BLOCK
     58					;     C.SERV - ON INITIALIZATION ENTRY, ZERO; ON COMPLETION ENTRY,
     59					;              MODULE PROCESSING STATE
     60					;
     61					; OUTPUT:
     62					;
     63					;   C-BIT - CLEAR IF PROCESSED, SET IF NOT
     64					;   @R5 - UPDATED CONTROL BLOCK
     65					;     C.LKNM - ON FINAL RETURN, LOGICAL UNIT LINK OPENED ON;  ON WAITING
     66					;              FOR COMPLETION, ADDRESS OF LINK DATABASE ENTRY
     67					;     C.RET - ON FINAL RETURN, LOW BYTE IS STANDARD SERVICE RETURN CODE
     68					;             FOR ERROR, HIGH BYTE IS SYSTEM RETURN CODE
     69					;     C.SERV - ON FINAL RETURN, ZERO;  ON WAITING FOR COMPLETION, MODULE
     70					;              PROCESSING STATE
     71					;
     72					; REQUIREMENTS:
     73					;
     74					;   INPUT VIA LKUDAT:
     75					;
     76					;     LKUTAB - LINK LOGICAL UNIT DATABASE
     77					;       INUSE - IN USE FLAG, SET IF LOGICAL UNIT IN USE
     78					;       LUN - LOGICAL UNIT
     79					;     LKUEND - END OF LINK LOGICAL UNIT DATABASE
     80					;
     81					;   CONTROL BLOCK SYMBOLS:
     82					;
     83					;     C.ADDR - OFFSET OF ADDRESS FIELD
     84					;     C.LEN - OFFSET OF LENGTH FIELD
     85					;     C.LKNM - OFFSET OF LINK NUMBER FIELD
     86					;     C.RET - OFFSET OF RETURN CODE FIELD
     87					;     C.SERV - OFFSET OF SERVICE CONTEXT
     88					;     CE$FAI - FAILURE RETURN CODE
     89					;     CE$NOD - INVALID NODE NAME RETURN CODE
     90					;     CE$OBJ - REMOTE OBJECT DOESN'T EXIST
     91					;     CE$REJ - REJECTED RETURN CODE
     92					;     CS$SUC - SUCCESS RETURN CODE
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 4-1


     93					;
     94					;   LINK DATABASE SYMBOLS:
     95					;
     96					;     ENTLEN - LENGTH OF AN ENTRY
     97					;     INUSE - OFFSET OF IN USE FLAG IN ENTRY
     98					;     LUN - OFFSET OF LOGICAL UNIT NUMBER IN ENTRY
     99					;
    100					;   NETWORK ERROR CODE SYMBOLS:
    101					;
    102					;     IE.DAO - DATA OVERRUN ON OPTIONAL DATA
    103					;     IE.NRJ - REJECTED BY NETWORK
    104					;     IE.RSU - NETWORK RESOURCE ERROR
    105					;     IE.URJ - REJECTED BY OTHER USER
    106					;
    107					;   DISCONNECT OR REJECT REASON CODE SYMBOLS:
    108					;
    109					;     NE$NOD - DESTINATION NODE DOES NOT EXIST
    110					;     NE$RES - RESOURCE ALLOCATION FAILURE
    111					;     NE$UOB - REMOTE OBJECT DOESN'T EXIST
    112					;
    113					; EFFECTS:
    114					;
    115					;   OUTPUT VIA LKUDAT:
    116					;
    117					;     LKUTAB - UPDATED LINK DATABASE ENTRY
    118					;       INUSE - SET WHILE ENTRY IN USE, CLEAR IF NOT USED
    119					;
    120					; NOTES:
    121					;
    122					;   THIS MODULE WILL DISCONNECT THE LINK IF THE OTHER END ACCEPTS WITH
    123					;   OPTIONAL DATA.  THIS IS TO PRESERVE THE MEANING OF THIS FOR FUTURE
    124					;   IMPLEMENTATIONS.
    125					;
    126					;--
    127					;======================================================================;
    128					;
    129					;
    130					;  EXTERNAL MACROS
    131					;
    132					.MCALL	PROC,CONDF,LKUDF,LKUMDF,NETDF$,CON$S,DSC$S
    133					.MCALL	NSSYM$
    134					;
    135					; DEFINE EXTERNAL SYMBOLS
    136					;
    137	000000				CONDF				;CONTROL BLOCK SYMBOLS
    138	000000				NETDF$				;NETWORK SYMBOLS
    139	000000				LKUDF				;LOGICAL LINK SYMBOLS
    140	000000				NSSYM$				;DISCONNECT OR REJECT REASON SYMBOLS
    141					;
    142					;  READ/WRITE STORAGE
    143					;
    144	000000				LKUMDF				;LINK LOGICAL UNIT MEMORY
    145					;
    146					; DEFINE LOCAL SYMBOLS
    147					;
    148					; PROCESSING STATE, USES EXCLUSIVE BITS SO THAT THE "BIT" INSTRUCTION
    149					; CAN BE USED TO CHECK PROCESSING STATE WITHOUT CHANGING THE C-BIT.
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 4-2


    150					;
    151		000001 			CONING	= 001			;CONNECTING
    152		000002 			DISING	= 002			;DISCONNECTING
    153		000004 			DISNEE	= 004			;DISCONNECT NEEDED
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 5


    155					;
    156					;  PROCEDURE BODY
    157					;
    158	000000				PROC	SROPLK
    159	000000				IF ; SERVICE CONTEXT = 0
    160	000000				FALSE   SET C.SERV(R5)
    161	000006				THEN
    162	000006	012700 	000002'		  MOV     #LKUTAB,R0		;ADDRESS OF FIRST ENTRY IN LUN TABLE
    163	000012				  WHILE ; CURRENT ADDRESS < END AND ENTRY NOT AVAILABLE
    164	000012				  FALSE   HIS R0,#LKUEND
    165	000020				  FALSEB  CLEAR INUSE(R0)
    166	000026				  DO
    167	000026	062700 	000002 		    ADD   #ENTLEN,R0		;MOVE UP TO NEXT ENTRY
    168	000032				  ENDWHILE
    169	000034				  IF ; NO ENTRY AVAILABLE
    170	000034				  FALSE   LO R0,#LKUEND
    171	000042				  THEN
    172	000042	000261 			    SEC				;CAN'T PROCESS NOW
    173	000044				  ELSE
    174	000046	010502 			    MOV    R5,R2		;ADDRESS
    175	000050	062702 	000010 		    ADD    #C.RET,R2		;  STATUS BLOCK
    176	000054	116001 	000001 		    MOVB   LUN(R0),R1		;PICK UP THE LUN
    177	000060				    CON$S  R1,,R2,#SRAST,<C.ADDR(R5)> ;DO THE CONNECT
    178	000124				    IF ; CONNECT WAS QUEUED
    179	000124				    FALSE  CS
    180	000126				    THEN
    181	000126	010065 	000020 		      MOV    R0,C.LKNM(R5)	;SAVE ENTRY ADDRESS
    182	000132	105260 	000000 		      INCB   INUSE(R0)		;MARK ENTRY IN USE
    183	000136	012765 	000001 	000002 	      MOV    #CONING,C.SERV(R5)	;SET PROCESSING STATE TO CONNECTING
    184	000144				    ELSE
    185	000146				      CALL    SRQDRF		;PROCESS QUEUEING DIRECTIVE FAILURE
    186	000152				    ENDIF
    187	000152				  ENDIF
    188	000152				ELSE ; SERVICE CONTEXT <> 0
    189	000154	016500 	000020 		  MOV     C.LKNM(R5),R0		;ADDRESS OF LUN TABLE ENTRY
    190	000160				  IF ; PROCESSING STATE = CONNECTING
    191	000160				  FALSE   CLEAR C.SERV(R5),#CONING
    192	000170				  THEN
    193	000170				    IF ; SUCCESS
    194	000170				    FALSEB  LT C.RET(R5)
    195	000176				    THEN
    196	000176				      IF ; NO OPTIONAL DATA RECEIVED
    197	000176				      FALSE   SET C.LEN(R5)
    198	000204				      THEN
    199	000204	112765 	000001 	000010 	        MOVB    #CS$SUC,C.RET(R5) ;SUCCESS RETURN
    200	000212	005065 	000020 		        CLR     C.LKNM(R5)	;CLEAN UP LINK NUMBER SPACE
    201	000216	116065 	000001 	000020 	        MOVB    LUN(R0),C.LKNM(R5) ;PASS BACK THE LUN
    202	000224	005065 	000002 		        CLR     C.SERV(R5)	;CLEAR SERVICE CONTEXT AND C-BIT
    203	000230				      ELSE
    204	000232	012765 	000004 	000002 	        MOV     #DISNEE,C.SERV(R5) ;SET PROCESSING STATE TO DISCONNECT NEEDED
    205	000240				      ENDIF
    206	000240				    ELSE
    207	000242	105060 	000000 		      CLRB    INUSE(R0)		;FREE LUN TABLE ENTRY
    208	000246	005065 	000002 		      CLR     C.SERV(R5)	;CLEAN UP SERVICE CONTEXT
    209	000252				      CALL    CONERR		;CONVERT ERROR CODE
    210	000256				    ENDIF
    211	000256				  ENDIF
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 5-1


    212	000256				  IF ; PROCESSING STATE = DISCONNECTING
    213	000256				  FALSE   CLEAR C.SERV(R5),#DISING
    214	000266				  THEN
    215	000266	105060 	000000 		    CLRB    INUSE(R0)		;FREE THE LUN TABLE ENTRY
    216	000272	112765 	177772 	000010 	    MOVB    #CE$REJ,C.RET(R5)	;LOOK LIKE THE OTHER GUY REJECTED
    217	000300	005065 	000002 		    CLR     C.SERV(R5)		;CLEAN UP SERVICE CONTEXT AND C-BIT
    218	000304				  ENDIF
    219	000304				  IF ; PROCESSING STATE = DISCONNECT NEEDED
    220	000304				  FALSE   CLEAR C.SERV(R5),#DISNEE
    221	000314				  THEN
    222	000314	012702 	000010 		    MOV     #C.RET,R2		;OFFSET OF RETURN CODE IN CONTROL BLOCK
    223	000320	060502 			    ADD     R5,R2		;MAKE IT AN I/O STATUS BLOCK POINTER
    224	000322	116001 	000001 		    MOVB    LUN(R0),R1	;GET THE LUN
    225	000326				    DSC$S   R1,,R2,#SRAST	;DISCONNECT IT
    226	000366				    IF ; SUCCESSFULLY QUEUED
    227	000366				    FALSE   CS
    228	000370				    THEN
    229	000370	012765 	000002 	000002 	      MOV     #DISING,C.SERV(R5) ;SET PROCESSING STATE TO DISCONNECTING
    230	000376				    ELSE
    231	000400				      CALL    SRQDRF		;PROCESS QUEUEING DIRECTIVE FAILURE
    232	000404				    ENDIF
    233	000404				  ENDIF
    234	000404				ENDIF
    235	000404				ENDPROC
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 6


    237					;
    238					; LOCAL PROCEDURE TO CONVERT SYSTEM ERROR RETURN TO PROPER SERVICE
    239					; RETURN OR ACTION
    240					;
    241	000406				PROCLC	CONERR
    242	000406	116501 	000010 		MOVB    C.RET(R5),R1		;GET ERROR CODE
    243	000412	110165 	000011 		MOVB    R1,C.RET+1(R5)		;SAVE REAL FAILURE REASON
    244	000416				ONCASE ; ERROR CODE
    245	000416				CASE ; REJECTED
    246	000416				TRUE    EQ R1,#IE.DAO
    247	000424				FALSE	NE R1,#IE.URJ
    248	000432				DO
    249	000432	012701 	177772 		  MOV     #CE$REJ,R1		;REJECTED ERROR
    250	000436	000241 			  CLC				;PROCESSING COMPLETE
    251	000440				CASE ; NO LINKS AVAILABLE
    252	000442				FALSE   NE R1,#IE.RSU
    253	000450				DO
    254	000450	105065 	000011 		  CLRB    C.RET+1(R5)		;NO RETURN CODE
    255	000454	005001 			  CLR     R1			;AT ALL
    256	000456	000261 			  SEC				;MAKE IT ALL HAPPEN AGAIN
    257	000460				CASE ; REJECTED BY NETWORK
    258	000462				FALSE   NE R1,#IE.NRJ
    259	000470				DO
    260	000470				  ONCASE ; REASON FOR REJECT
    261	000470	116501 	000012 		  MOVB    C.LEN(R5),R1
    262	000474				  CASE ; DESTINATION NODE DOES NOT EXIST
    263	000474				  FALSE   NE R1,#NE$NOD
    264	000502				  DO
    265	000502	012701 	177765 		    MOV     #CE$NOD,R1		;NODE NAME ERROR
    266	000506	000241 			    CLC				;PROCESSING COMPLETE
    267	000510				  CASE ; REMOTE OBJECT DOESN'T EXIST
    268	000512				  FALSE   NE R1,#NE$UOB
    269	000520				  DO
    270	000520	012701 	177750 		    MOV     #CE$OBJ,R1		;OBJECT ERROR
    271	000524	000241 			    CLC				;PROCESSING COMPLETE
    272	000526				  CASE ; RESOURCE ALLOCATION ERROR
    273	000530				  FALSE   NE R1,#NE$RES
    274	000536				  DO
    275	000536	105065 	000011 		    CLRB    C.RET+1(R5)		;NO RETURN CODE
    276	000542	005001 			    CLR     R1			;AT ALL
    277	000544	000261 			    SEC				;IF AT FIRST YOU DON'T SUCCEED
    278	000546				  ELSE
    279	000550	012701 	177774 		    MOV     #CE$FAI,R1		;FAILURE RETURN
    280	000554	000241 			    CLC				;PROCESSING COMPLETE
    281	000556				  ENDCASE
    282	000556				ELSE
    283	000560	012701 	177774 		  MOV    #CE$FAI,R1		;FAILURE RETURN
    284	000564	000241 			  CLC				;PROCESSING COMPLETE
    285	000566				ENDCASE
    286	000566	110165 	000010 		MOVB    R1,C.RET(R5)		;SET RETURN CODE IN CONTROL BLOCK
    287	000572				ENDPROC
    288		000001 			.END
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 6-1
SYMBOL TABLE

A$$CHK= 000000   	C$ORD = 000145   	FLGMSK= 000003   	F$OPOT= 000000   	LKUTAB  000002R     002
A$$CPS= 000000   	C$PROC= 000200   	FL$BOO= 000001   	F$ORLU= 000000   	LNKLUN= 000004
A$$TRP= 000000   	C$RCBK= 000047   	FL$DUM= 000001   	F$OTLU= 000001   	LUN   = 000001
BLKFLG= 000003   	C$RCEV= 000050   	FL$LOA= 000001   	F$RCBK= 000002   	L$$ASG= 000000
CE$ACP= 177753   	C$RCIN= 000062   	FL$LOO= 000001   	F$RCEV= 000001   	L$$DRV= 000000
CE$ADR= 177776   	C$RCMA= 000146   	FR$LCC= 000001   	F$RCIN= 000000   	L$$P11= 000001
CE$CON= 177770   	C$RCMS= 000054   	FR$LCS= 000001   	F$RCMA= 000000   	L$$11R= 000000
CE$DIS= 177771   	C$RDBK= 000043   	FR$LNC= 000001   	F$RCMS= 000002   	MASTER= 000001
CE$EOF= 177767   	C$RDCM= 000035   	FR$LNL= 000001   	F$RDBK= 000000   	M$$CRB= 000124
CE$FAI= 177774   	C$RDIN= 000040   	FR$LNS= 000001   	F$RDCM= 000000   	M$$CRX= 000000
CE$FIL= 177756   	C$RDIS= 000040   	FR$RMC= 000001   	F$RDIN= 000001   	M$$FCS= 000000
CE$FUN= 177777   	C$RDRC= 000060   	FR$RML= 000001   	F$RDIS= 000012   	M$$OVR= 000000
CE$GEN= 177774   	C$RLBF= 000001   	FR$RMS= 000001   	F$RDRC= 000000   	NCOLUN= 000016
CE$IND= 177757   	C$RLCB= 000002   	FS$HOS= 000001   	F$RECO= 000001   	NETLUN= 000003
CE$IO = 177760   	C$RLCI= 000000   	FS$INT= 000000   	F$RLBF= 000001   	NE$ABO= 000046
CE$LEN= 177775   	C$STBK= 000055   	FS$LLP= 000001   	F$RLCB= 000001   	NE$ABT= 000011
CE$LID= 177766   	C$STPR= 000037   	FS$LOF= 000001   	F$STBK= 000000   	NE$ACC= 000042
CE$LST= 177752   	C$STPS= 000037   	FS$LOG= 000001   	F$STPR= 000001   	NE$ACT= 000044
CE$NOD= 177765   	C$TRBK= 000046   	FS$LST= 000001   	F$STPS= 000006   	NE$CDI= 000052
CE$NSD= 177755   	C$TRIN= 000063   	FS$NET= 000001   	F$TEST= 000001   	NE$COM= 000047
CE$NST= 177754   	C$TRMA= 000145   	FS$NST= 000000   	F$TRAC= 000000   	NE$FCF= 000050
CE$NWE= 177773   	C$TRMS= 000053   	FS$PAS= 000001   	F$TRBK= 000001   	NE$FMT= 000005
CE$OBJ= 177750   	C$WRBK= 000044   	FT$CNS= 000000   	F$TRIG= 000001   	NE$GEN= 000007
CE$OPN= 177761   	C$WRCL= 000065   	FT$NOD= 000001   	F$TRIN= 000000   	NE$ILS= 000043
CE$OVR= 177764   	C$WRCM= 000036   	FT$TSK= 000001   	F$TRMA= 000000   	NE$IMG= 000053
CE$PAR= 177763   	C$WRRC= 000061   	F$ALBF= 000001   	F$TRMS= 000002   	NE$MLB= 000006
CE$PRO= 177751   	C$ZRCN= 000064   	F$ALCB= 000001   	F$WRBK= 000000   	NE$NOD= 000002
CE$REJ= 177772   	C$$CKP= 000000   	F$CB  = 000017   	F$WRCL= 000001   	NE$NSD= 000003
CE$TMO= 177762   	C$$ORE= 000400   	F$CLCL= 000001   	F$WRCM= 000000   	NE$RES= 000001
CMILUN= 000002   	C$$RSH= 177564   	F$CLCO= 000000   	F$WRRC= 000000   	NE$SSR= 000000
CMOLUN= 000001   	C.ADDR= 000014   	F$CLFL= 000000   	F$ZERO= 000001   	NE$SSS= 000045
CONERR  000406R  	C.BKNM= 000014   	F$CLLK= 000006   	F$ZRCN= 000001   	NE$STA= 000051
CONING= 000001   	C.CTXT= 000004   	F$CLLN= 000002   	F$$LVL= 000001   	NE$TCN= 000040
CS$ACK= 000002   	C.FUNC= 000006   	F$DPOS= 000001   	F$150 = 000002   	NE$TCO= 000041
CS$LKE= 000001   	C.LEN = 000012   	F$DUMP= 000000   	F$300 = 000012   	NE$TPA= 000010
CS$LNA= 000002   	C.LINE= 000014   	F$EVNT= 000001   	F$50  = 000002   	NE$UOB= 000004
CS$LOG= 000003   	C.LKNM= 000020   	F$EXAM= 000001   	F$550 = 000002   	NO    = 000000
CS$NCH= 000003   	C.LUN = 000020   	F$EXHO= 000000   	G$$TPP= 000000   	NO.DTR= 000077
CS$SUC= 000001   	C.MODE= 000021   	F$GTCM= 000001   	G$$TSS= 000000   	NO.FAL= 000021
C$ALBF= 000032   	C.PRID= 000017   	F$INCM= 000000   	G$$TTK= 000000   	NO.FA1= 000001
C$ALCB= 000033   	C.PROC= 000007   	F$INLU= 000001   	IE.DAO= ****** GX	NO.NCU= 000023
C$CLCL= 000067   	C.PROM= 000016   	F$IRLU= 000000   	IE.NDA= 177662   	NO.RTL= 000022
C$CLCO= 000003   	C.PTR = 000000   	F$LKLU= 000010   	IE.NNT= 177660   	NO.TAS= 000000
C$CLFL= 000004   	C.RET = 000010   	F$LNLU= 000002   	IE.NRJ= 177666   	NO.TCL= 000017
C$CLLK= 000052   	C.SAVE= 000022   	F$LNSR= 000001   	IE.RSU= ****** GX	NO.TC1= 000005
C$CLLN= 000005   	C.SERV= 000002   	F$LOAD= 000000   	IE.URJ= 177667   	NO.TLK= 000020
C$LEN = 000026   	C.TASK= 000016   	F$LOGD= 000001   	INUSE = 000000   	NR$IFC= 000030
C$NOPN= 000031   	C.TYPE= 000016   	F$LOOP= 000001   	IS.DAO= 000002   	NT.ABO= 000005
C$NORD= 000032   	C.WAIT= 000020   	F$NTCM= 000000   	I$$RAR= 000000   	NT.ABT= 000004
C$OPCL= 000066   	DISING= 000002   	F$OPCL= 000001   	I$$RDN= 000000   	NT.CON= 000001
C$OPCO= 000034   	DISNEE= 000004   	F$OPCO= 000000   	K$$CNT= 177546   	NT.DSC= 000003
C$OPIN= 000041   	D$$BUG= 177514   	F$OPIN= 000000   	K$$CSR= 177546   	NT.INT= 000002
C$OPIR= 000056   	D$$ISK= 000000   	F$OPIR= 000000   	K$$LDC= 000000   	NT.LOG= 000011
C$OPLK= 000051   	D$$L11= 000001   	F$OPLK= 000005   	K$$TPS= 000074   	NT.MOP= 000010
C$OPLN= 000045   	ENTLEN= 000002   	F$OPLN= 000002   	LD$LP = 000000   	N$$USR= 000001
C$OPOR= 000057   	FILLUN= 000014   	F$OPLO= 000000   	LINLUN= 000017   	N.CAC   000120
C$OPOT= 000042   	FLGGRP= 000000   	F$OPOR= 000000   	LKUEND  000022R     002	N.CACC  000116
SROPLK	MACRO M1110  13-OCT-79 12:35  PAGE 6-2
SYMBOL TABLE

N.CBL = 000142   	N.RGP   000010   	P$$P45= 000000   	SP$DRP= 000007   	T$$KMG= 000000
N.CDA   000142   	N.RID   000034   	RCEVCB  000000R     002	SP$DTP= 000010   	T$$MIN= 000000
N.CDAC  000140   	N.RIDC  000032   	RI$LCC= 000001   	SP$LHO= 000002   	V$$CTR= 001000
N.CID   000064   	N.RND   000000   	RI$LCS= 000002   	SP$LLP= 000011   	X$$DBT= 000000
N.CIDC  000062   	N.RNM   000016   	RI$LNC= 000007   	SP$LNM= 000016   	YES   = 000001
N.CPS   000106   	N.RNMC  000014   	RI$LNL= 000006   	SP$LNO= 000015   	$$CSTA= 000000
N.CPSC  000104   	N.ROT   000007   	RI$LNS= 000010   	SP$LOF= 000012   	$$LUN = 000014
N.CTL   000000   	N.RPS   000056   	RI$RMC= 000004   	SP$LST= 000001   	$$PRST= 000011
N.DDE   000010   	N.RPSC  000054   	RI$RML= 000003   	SP$NDM= 000014   	$$STIX= 000777
N.DDEC  000006   	N.RQL = 000110   	RI$RMS= 000005   	SP$NDO= 000013   	$$STNM= 000000
N.DFM   000004   	N.RUS   000012   	RI$ZLC= 000011   	SP$NST= 000006   	$$S770= 000077
N.DGP   000006   	N.SDE   000042   	RI$ZLN= 000013   	SP$RRP= 000004   	$$S771= 000015
N.DNM   000014   	N.SDEC  000040   	RI$ZRM= 000012   	SP$RTP= 000005   	$$S772= 000001
N.DNMC  000012   	N.SEGZ  000002   	R$$DER= 000000   	SRAST = ****** GX	$$S773= 000073
N.DOT   000005   	N.SFM   000036   	R$$K11= 000001   	SROPLK  000000RG 	$$S774= 000010
N.DUS   000010   	N.SGP   000040   	R$$SND= 000000   	SRQDRF= ****** GX	$$S775= 000000
N.RAC   000070   	N.SND   000030   	R$$11M= 000000   	S$$WRG= 000000   	$$S776= 000000
N.RACC  000066   	N.SNM   000046   	SERBIT= 000001   	S$$YSZ= 001600   	$$S777= 000000
N.RDE   000012   	N.SNMC  000044   	SERFLG= 000001   	TEMFLG= 000030   	$$TRNM= 000000
N.RDEC  000010   	N.SOT   000037   	SLAVE = 000002   	TIMBIT= 000002   	$$$ARG= 000002
N.RFM   000006   	N.SUS   000042   	SP$DHO= 000003   	TIMFLG= 000002

. ABS.	000142	   000
      	000574	   001
LKUDAT	000022	   002
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  10656 WORDS  ( 42 PAGES)
DYNAMIC MEMORY:  12172 WORDS  ( 46 PAGES)
ELAPSED TIME:  00:01:26
SROPLK,[135,30]SROPLK/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SROPLK
SROPLK     CREATED BY  MACRO  ON 13-OCT-79 AT 12:36	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CE$FAI	= 177774	 6-279      6-283     
CE$NOD	= 177765	 6-265     
CE$OBJ	= 177750	 6-270     
CE$REJ	= 177772	 5-216      6-249     
CONERR	  000406 R	 5-209     #6-241     
CONING	= 000001	#4-151      5-183      5-191     
CS$SUC	= 000001	 5-199     
C.ADDR	= 000014	 5-177     
C.LEN 	= 000012	 5-197      6-261     
C.LKNM	= 000020	*5-181      5-189     *5-200     *5-201     
C.RET 	= 000010	 5-175      5-194     *5-199     *5-216      5-222      6-242     *6-243     *6-254     *6-275     
                        *6-286     
C.SERV	= 000002	 5-160     *5-183      5-191     *5-202     *5-204     *5-208      5-213     *5-217      5-220     
                        *5-229     
DISING	= 000002	#4-152      5-213      5-229     
DISNEE	= 000004	#4-153      5-204      5-220     
ENTLEN	= 000002	#4-139      5-167     
FL$BOO	= 000001	#4-144      4-144     
FL$DUM	= 000001	#4-144      4-144     
FL$LOA	= 000001	#4-144      4-144     
FL$LOO	= 000001	#4-144      4-144     
FR$LCC	= 000001	#4-144      4-144     
FR$LCS	= 000001	#4-144      4-144     
FR$LNC	= 000001	#4-144      4-144     
FR$LNL	= 000001	#4-144      4-144     
FR$LNS	= 000001	#4-144      4-144     
FR$RMC	= 000001	#4-144      4-144     
FR$RML	= 000001	#4-144      4-144     
FR$RMS	= 000001	#4-144      4-144     
FS$HOS	= 000001	#4-144      4-144     
FS$INT	= 000000	#4-144      4-144      4-144      4-144     
FS$LLP	= 000001	#4-144      4-144     
FS$LOF	= 000001	#4-144      4-144     
FS$LOG	= 000001	#4-144      4-144     
FS$LST	= 000001	#4-144      4-144     
FS$NET	= 000001	#4-144      4-144     
FS$NST	= 000000	#4-144      4-144     
FS$PAS	= 000001	#4-144      4-144     
FT$CNS	= 000000	#4-144      4-144     
FT$NOD	= 000001	#4-144      4-144     
FT$TSK	= 000001	#4-144      4-144     
F$ALBF	= 000001	#4-144     
F$ALCB	= 000001	#4-144     
F$CB  	= 000017	#4-144     
F$CLCL	= 000001	#4-144      4-144     #4-144     
F$CLCO	= 000000	#4-144     
F$CLFL	= 000000	#4-144     
F$CLLK	= 000006	#4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144     
                         4-144     #4-144      4-144     #4-144     
F$CLLN	= 000002	#4-144      4-144     #4-144      4-144     #4-144     
F$DPOS	= 000001	#4-144      4-144     
F$DUMP	= 000000	#4-144      4-144     
SROPLK     CREATED BY  MACRO  ON 13-OCT-79 AT 12:36	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$EVNT	= 000001	#4-144      4-144     
F$EXAM	= 000001	#4-144      4-144     
F$EXHO	= 000000	#4-144     
F$GTCM	= 000001	#4-144      4-144     
F$INCM	= 000000	#4-144      4-144     
F$INLU	= 000001	#4-144     
F$IRLU	= 000000	#4-144     
F$LKLU	= 000010	#4-144      4-144     
F$LNLU	= 000002	#4-144     
F$LNSR	= 000001	#4-144      4-144     
F$LOAD	= 000000	#4-144      4-144     
F$LOGD	= 000001	#4-144      4-144     
F$LOOP	= 000001	#4-144      4-144     
F$NTCM	= 000000	#4-144      4-144     
F$OPCL	= 000001	#4-144      4-144     #4-144     
F$OPCO	= 000000	#4-144     
F$OPIN	= 000000	#4-144     
F$OPIR	= 000000	#4-144     
F$OPLK	= 000005	#4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144     
                         4-144     #4-144     
F$OPLN	= 000002	#4-144      4-144     #4-144      4-144     #4-144     
F$OPLO	= 000000	#4-144     
F$OPOR	= 000000	#4-144     
F$OPOT	= 000000	#4-144     
F$ORLU	= 000000	#4-144     
F$OTLU	= 000001	#4-144     
F$RCBK	= 000002	#4-144      4-144     #4-144      4-144     #4-144     
F$RCEV	= 000001	#4-144      4-144     #4-144     
F$RCIN	= 000000	#4-144     
F$RCMA	= 000000	#4-144     
F$RCMS	= 000002	#4-144      4-144     #4-144     
F$RDBK	= 000000	#4-144     
F$RDCM	= 000000	#4-144     
F$RDIN	= 000001	#4-144      4-144     
F$RDIS	= 000012	#4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144     
                         4-144     #4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144      4-144     
                        #4-144     
F$RDRC	= 000000	#4-144     
F$RECO	= 000001	#4-144      4-144     #4-144     
F$RLBF	= 000001	#4-144     
F$RLCB	= 000001	#4-144     
F$STBK	= 000000	#4-144     
F$STPR	= 000001	#4-144      4-144     
F$STPS	= 000006	#4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144      4-144     #4-144     
                         4-144     #4-144      4-144     #4-144     
F$TEST	= 000001	#4-144      4-144     
F$TRAC	= 000000	#4-144      5-158      5-158      5-235      5-235      6-241      6-241      6-287      6-287     
F$TRBK	= 000001	#4-144      4-144     #4-144     
F$TRIG	= 000001	#4-144      4-144     
F$TRIN	= 000000	#4-144     
F$TRMA	= 000000	#4-144     
F$TRMS	= 000002	#4-144      4-144     #4-144     
SROPLK     CREATED BY  MACRO  ON 13-OCT-79 AT 12:36	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$WRBK	= 000000	#4-144     
F$WRCL	= 000001	#4-144      4-144     #4-144     
F$WRCM	= 000000	#4-144     
F$WRRC	= 000000	#4-144     
F$ZERO	= 000001	#4-144      4-144     
F$ZRCN	= 000001	#4-144      4-144     #4-144     
F$150 	= 000002	#4-144     
F$300 	= 000012	#4-144     
F$50  	= 000002	#4-144     
F$550 	= 000002	#4-144     
IE.DAO	= ******  GX	 6-246     
IE.NRJ	= 177666	 6-258     
IE.RSU	= ******  GX	 6-252     
IE.URJ	= 177667	 6-247     
INUSE 	= 000000	#4-139      5-165     *5-182     *5-207     *5-215     
I$$AS 	= ******	 5-158      6-241     
LKUEND	  000022 R	#4-144      5-164      5-170     
LKUTAB	  000002 R	#4-144      5-162     
LNKLUN	= 000004	 4-144     
LUN   	= 000001	#4-139      5-176      5-201      5-224     
MASTER	= 000001	#4-139     
NE$NOD	= 000002	 6-263     
NE$RES	= 000001	 6-273     
NE$UOB	= 000004	 6-268     
NO    	= 000000	#4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144     
RCEVCB	  000000 R	#4-144     
R$$11D	= ******	 5-158      6-241     
R$$11M	= 000000	 5-158      6-241     
SLAVE 	= 000002	#4-139     
SRAST 	= ******  GX	 5-177      5-225     
SROPLK	  000000 RG	#5-158     
SRQDRF	= ******  GX	 5-185      5-231     
YES   	= 000001	#4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144      4-144     
                         4-144      4-144      4-144      4-144      4-144     
$$CSTA	= 000000	#5-158     #6-241     *6-244     #6-244      6-245     #6-245      6-251      6-257      6-260     
                        #6-260      6-262     #6-262      6-267      6-272     #6-281     #6-285     
$$LUN 	= 000014	#4-144      4-144      4-144     #4-144      4-144      4-144     #4-144      4-144      4-144     
                        #4-144      4-144      4-144     #4-144      4-144      4-144     #4-144      4-144      4-144     
                        #4-144      4-144      4-144     #4-144      4-144      4-144     #4-144     
$$PRST	= 000011	#5-158      5-159     #5-159     *5-163     #5-163      5-169     #5-169      5-178     #5-178     
                        *5-190     #5-190      5-193     #5-193      5-196     #5-196      5-212     #5-212      5-219     
                        #5-219      5-226     #5-226     #6-241     *6-244     #6-244      6-260     #6-260     
$$SLST	= ******	 5-158      5-160      5-160      5-161      5-163      5-164      5-164      5-165      5-165     
                         5-166      5-168      5-168      5-170      5-170      5-171      5-173      5-173      5-179     
                         5-180      5-184      5-184      5-186      5-187      5-188      5-188      5-191      5-191     
SROPLK     CREATED BY  MACRO  ON 13-OCT-79 AT 12:36	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         5-192      5-194      5-194      5-195      5-197      5-197      5-198      5-203      5-203     
                         5-205      5-206      5-206      5-210      5-211      5-213      5-213      5-214      5-218     
                         5-220      5-220      5-221      5-227      5-228      5-230      5-230      5-232      5-233     
                         5-234      5-235      6-241      6-246      6-246      6-247      6-247      6-248      6-251     
                         6-251      6-252      6-252      6-253      6-257      6-257      6-258      6-258      6-259     
                         6-263      6-263      6-264      6-267      6-267      6-268      6-268      6-269      6-272     
                         6-272      6-273      6-273      6-274      6-278      6-278      6-281      6-282      6-282     
                         6-285      6-287     
$$STIX	= 000777	#5-158      5-159      5-159     #5-159      5-159      5-159     #5-159     *5-163     *5-163     
                        #5-163     *5-163     *5-163     #5-163      5-168     #5-168      5-168      5-168     #5-168     
                         5-168      5-169      5-169     #5-169      5-169      5-169     #5-169      5-178      5-178     
                        #5-178      5-178      5-178     #5-178      5-186     #5-186      5-186      5-186     #5-186     
                         5-186      5-187     #5-187      5-187      5-187     #5-187      5-187     *5-190     *5-190     
                        #5-190     *5-190     *5-190     #5-190      5-193      5-193     #5-193      5-193      5-193     
                        #5-193      5-196      5-196     #5-196      5-196      5-196     #5-196      5-205     #5-205     
                         5-205      5-205     #5-205      5-205      5-210     #5-210      5-210      5-210     #5-210     
                         5-210      5-211     #5-211      5-211      5-211     #5-211      5-211      5-212      5-212     
                        #5-212      5-212      5-212     #5-212      5-218     #5-218      5-218      5-218     #5-218     
                         5-218      5-219      5-219     #5-219      5-219      5-219     #5-219      5-226      5-226     
                        #5-226      5-226      5-226     #5-226      5-232     #5-232      5-232      5-232     #5-232     
                         5-232      5-233     #5-233      5-233      5-233     #5-233      5-233      5-234     #5-234     
                         5-234      5-234     #5-234      5-234     #6-241     *6-244     *6-244     #6-244     *6-244     
                        *6-244     #6-244     *6-244     *6-244     #6-244      6-260      6-260     #6-260      6-260     
                         6-260     #6-260      6-260      6-260     #6-260      6-281     #6-281      6-281      6-281     
                        #6-281      6-281      6-281     #6-281      6-281      6-285     #6-285      6-285      6-285     
                        #6-285      6-285      6-285     #6-285      6-285     
$$STNM	= 000000	#5-158      5-159     #5-159      5-159      5-160      5-161     *5-163     #5-163     *5-163     
                        *5-163      5-164      5-165      5-166      5-168      5-168     #5-168      5-169     #5-169     
                         5-169      5-170      5-171      5-173      5-173      5-178     #5-178      5-178      5-179     
                         5-180     *5-184      5-184      5-186     #5-186      5-187     #5-187      5-188      5-188     
                        *5-190     #5-190     *5-190      5-191      5-192      5-193     #5-193      5-193      5-194     
                         5-195      5-196     #5-196      5-196      5-197      5-198      5-203      5-203     *5-205     
                        #5-205      5-206      5-206      5-210     #5-210      5-211     #5-211      5-212     #5-212     
                         5-212      5-213      5-214      5-218     #5-218      5-219     #5-219      5-219      5-220     
                         5-221      5-226     #5-226      5-226      5-227      5-228     *5-230      5-230      5-232     
                        #5-232      5-233     #5-233      5-234     #5-234     #6-241     *6-244     #6-244     *6-244     
                         6-246      6-247      6-248      6-251      6-251      6-252      6-253      6-257      6-257     
                         6-258      6-259      6-260     #6-260      6-260      6-263      6-264      6-267      6-267     
                         6-268      6-269      6-272      6-272      6-273      6-274      6-278      6-278      6-281     
                        #6-281      6-282      6-282      6-285     #6-285     
$$S770	= 000077	#5-196      5-205     
$$S771	= 000015	#5-196      5-205     
$$S772	= 000001	#5-178      5-186     #5-193      5-210     #5-226      5-232     #6-260      6-281     
$$S773	= 000073	#5-178      5-186     #5-193      5-210     #5-226      5-232     #6-260      6-281     
$$S774	= 000010	#5-163      5-168     #5-169      5-187     #5-190      5-211     #5-212      5-218     #5-219     
                         5-233     #6-260      6-281     
$$S775	= 000000	#5-163      5-168     #5-169      5-187     #5-190      5-211     #5-212      5-218     #5-219     
                         5-233     #6-244      6-285     
$$S776	= 000000	#5-159      5-234     #6-244      6-285     
$$S777	= 000000	#5-159      5-234     #6-244      6-285     
$$TRNM	= 000000	#5-158      5-159     #5-159      5-160      5-161     *5-163     #5-163      5-164      5-165     
                         5-166      5-168     #5-168      5-169     #5-169      5-170      5-171      5-173     #5-173     
SROPLK     CREATED BY  MACRO  ON 13-OCT-79 AT 12:36	PAGE 5

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

                         5-178     #5-178      5-179      5-180      5-184     #5-184      5-186     #5-186      5-187     
                        #5-187      5-188     #5-188     *5-190     #5-190      5-191      5-192      5-193     #5-193     
                         5-194      5-195      5-196     #5-196      5-197      5-198      5-203     #5-203     *5-205     
                        #5-205      5-206     #5-206      5-210     #5-210      5-211     #5-211      5-212     #5-212     
                         5-213      5-214      5-218     #5-218      5-219     #5-219      5-220      5-221      5-226     
                        #5-226      5-227      5-228      5-230     #5-230      5-232     #5-232      5-233     #5-233     
                         5-234     #5-234     #6-241     *6-244     #6-244      6-246      6-247      6-248      6-251     
                         6-251     #6-251      6-252      6-253      6-257      6-257     #6-257      6-258      6-259     
                         6-260     #6-260      6-263      6-264      6-267      6-267     #6-267      6-268      6-269     
                         6-272      6-272     #6-272      6-273      6-274      6-278     #6-278      6-281      6-281     
                        #6-281      6-282     #6-282      6-285      6-285     #6-285     
$$$ARG	= 000002	#5-177      5-177     #5-177      5-177     #5-177      5-177     #5-177      5-177     #5-177     
                         5-177     #5-177      5-177     #5-177      5-177     #5-177      5-177      5-177      5-177     
                         5-177      5-177      5-177      5-177      5-177      5-177      5-177     #5-177      5-177     
                         5-177      5-177      5-177      5-177      5-177      5-177      5-177      5-177      5-177     
                        #5-177      5-177      5-177      5-177      5-177      5-177      5-177      5-177      5-177     
                         5-177      5-177     #5-225      5-225      5-225     #5-225      5-225      5-225      5-225     
                         5-225      5-225      5-225      5-225      5-225      5-225      5-225     #5-225      5-225     
                         5-225      5-225      5-225      5-225      5-225      5-225      5-225      5-225      5-225     
SROPLK     CREATED BY  MACRO  ON 13-OCT-79 AT 12:36	PAGE 6

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#5-185     #5-209     #5-231     
CASE  		#5-158     #6-241      6-245      6-251      6-257      6-262      6-267      6-272     
CONDF 		#4-132      4-137     
CONFIG		#4-144     #4-144     
CON$S 		#4-132     #5-177     
DIR$  		#5-177      5-177     #5-225      5-225     
DO    		#5-158      5-166     #6-241      6-248      6-253      6-259      6-264      6-269      6-274     
DSC$S 		#4-132      5-225     
ELSE  		#5-158      5-173      5-184      5-188      5-203      5-206      5-230     #6-241      6-278      6-282     
ENDCAS		#5-158     #6-241     #6-281     #6-285     
ENDIF 		#5-158     #5-168     #5-186     #5-187     #5-205     #5-210     #5-211     #5-218     #5-232     #5-233     
                #5-234     #6-241     #6-281     #6-285     
ENDPRO		#5-158      5-235     #6-241      6-287     
ENDWHI		#5-158     #5-168     #6-241     
FALSE 		#5-158      5-160      5-164      5-170      5-179      5-191      5-197      5-213      5-220      5-227     
                #6-241      6-247      6-252      6-258      6-263      6-268      6-273     
FALSEB		#5-158      5-165      5-194     #6-241     
IF    		#5-158     #5-159     #5-163     #5-169     #5-178     #5-190     #5-193     #5-196     #5-212     #5-219     
                #5-226     #6-241     #6-244     #6-260     
JMPPRO		#5-158     #6-241     
LKUDF 		#4-132      4-139     
LKUMDF		#4-132      4-144     
MOV$  		#5-177      5-177      5-177      5-177      5-177      5-177      5-177     #5-177      5-177      5-177     
                #5-177      5-177      5-177     #5-225      5-225      5-225     #5-225      5-225      5-225     
MVB$  		#5-177      5-177     #5-225      5-225     
NETDF$		#4-132      4-138     
NSSYM$		#4-133      4-140     
ONCASE		#5-158     #6-241     #6-244     #6-260     
PROC  		#4-132      5-158     
PROCLC		#5-158      6-241     #6-241     
PROFLG		#4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     
                #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     
                #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     
                #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     #4-144     
                #4-144     
QDPB$S		#5-177      5-177     #5-225      5-225     
RVP$  		#5-177     #5-177     #5-177     #5-177     #5-225     #5-225     #5-225     
SRDF  		#4-144      4-144     
SWSTK$		#5-158     #6-241     
THEN  		#5-158     #5-161     #5-166     #5-171     #5-180     #5-192     #5-195     #5-198     #5-214     #5-221     
                #5-228     #6-241     #6-248     #6-253     #6-259     #6-264     #6-269     #6-274     
TRUE  		#5-158     #6-241     #6-246     
TRUEB 		#5-158     #6-241     
WHILE 		#5-158      5-163     #6-241     
$CON$S		#5-177     #5-177     
$$BGND		#5-158     #5-160     #5-164     #5-165     #5-170     #5-179     #5-191     #5-194     #5-197     #5-213     
                #5-220     #5-227     #6-241     #6-246     #6-247     #6-252     #6-258     #6-263     #6-268     #6-273     
$$BGNN		#5-158     #5-160     #5-164     #5-165     #5-168     #5-170     #5-173     #5-179     #5-184     #5-188     
                #5-191     #5-194     #5-197     #5-203     #5-206     #5-213     #5-220     #5-227     #5-230     #6-241     
                #6-246     #6-247     #6-251     #6-252     #6-257     #6-258     #6-263     #6-267     #6-268     #6-272     
                #6-273     #6-278     #6-282     
$$ELSE		#5-158      5-173      5-184      5-188      5-203      5-206      5-230     #6-241      6-251      6-257     
SROPLK     CREATED BY  MACRO  ON 13-OCT-79 AT 12:36	PAGE 7

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

                 6-267      6-272      6-278      6-282     
$$GEN1		#5-158     #5-158     #5-160     #5-160     #5-161     #5-163     #5-164     #5-165     #5-165     #5-166     
                #5-168     #5-168     #5-170     #5-171     #5-173     #5-173     #5-179     #5-180     #5-184     #5-184     
                #5-186     #5-187     #5-188     #5-188     #5-191     #5-192     #5-194     #5-194     #5-195     #5-197     
                #5-197     #5-198     #5-203     #5-203     #5-205     #5-206     #5-206     #5-210     #5-211     #5-213     
                #5-214     #5-218     #5-220     #5-221     #5-227     #5-228     #5-230     #5-230     #5-232     #5-233     
                #5-234     #5-235     #6-241     #6-241     #6-246     #6-247     #6-248     #6-251     #6-251     #6-252     
                #6-253     #6-257     #6-257     #6-258     #6-259     #6-263     #6-264     #6-267     #6-267     #6-268     
                #6-269     #6-272     #6-272     #6-273     #6-274     #6-278     #6-278     #6-281     #6-282     #6-282     
                #6-285     #6-287     
$$GEN2		#5-158     #5-164     #5-170     #5-191     #5-213     #5-220     #6-241     #6-246     #6-247     #6-252     
                #6-258     #6-263     #6-268     #6-273     
$$GNAB		#5-158      5-164      5-170      5-179      5-194      5-227     #6-241      6-246      6-247      6-252     
                 6-258      6-263      6-268      6-273     
$$GNBT		#5-158      5-160      5-165      5-191      5-197      5-213      5-220     #6-241     
$$GNCM		#5-158     #5-160     #5-164     #5-165     #5-170     #5-179     #5-191     #5-194     #5-197     #5-213     
                #5-220     #5-227     #6-241     #6-246     #6-247     #6-252     #6-258     #6-263     #6-268     #6-273     
$$INMC		#5-158     #5-158     #6-241     #6-241     
$$INSY		#5-158     #5-158     #6-241     #6-241     
$$LAB 		#5-158      5-161      5-163      5-166      5-168      5-171      5-173      5-180      5-184      5-186     
                 5-187      5-188      5-192      5-195      5-198      5-203      5-205      5-206      5-210      5-211     
                 5-214      5-218      5-221      5-228      5-230      5-232      5-233      5-234     #6-241      6-248     
                 6-251      6-253      6-257      6-259      6-264      6-267      6-269      6-272      6-274      6-278     
                 6-281      6-282      6-285     
$$POP 		#5-158      5-168      5-168      5-186      5-186      5-187      5-187      5-205      5-205      5-210     
                 5-210      5-211      5-211      5-218      5-218      5-232      5-232      5-233      5-233      5-234     
                 5-234     #6-241      6-281      6-281      6-281      6-285      6-285      6-285     
$$POPI		#5-158      5-168      5-168      5-186      5-186      5-187      5-187      5-205      5-205      5-210     
                 5-210      5-211      5-211      5-218      5-218      5-232      5-232      5-233      5-233      5-234     
                 5-234     #6-241      6-281      6-281      6-281      6-285      6-285      6-285     
$$PUSH		#5-158      5-159      5-159      5-163      5-163      5-169      5-169      5-178      5-178      5-190     
                 5-190      5-193      5-193      5-196      5-196      5-212      5-212      5-219      5-219      5-226     
                 5-226     #6-241      6-244      6-244      6-244      6-260      6-260      6-260     
$$STSM		#5-158     #5-159     #5-159     #5-163     #5-163     #5-169     #5-169     #5-178     #5-178     #5-190     
                #5-190     #5-193     #5-193     #5-196     #5-196     #5-212     #5-212     #5-219     #5-219     #5-226     
                #5-226     #6-241     #6-244     #6-244     #6-244     #6-260     #6-260     #6-260     
$$SYS 		#5-158     #6-241     
$$TRCE		#5-158      5-158      5-235     #6-241      6-241      6-287