Google
 

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


      1					.TITLE	SROPLN
      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 LINE
     26					;
     27					;
     28					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     29					;
     30					; IDENT HISTORY:
     31					;
     32					; 1.00	10-FEB-78
     33					;	VERSION 2.0 RELEASE
     34					;
SROPLN	MACRO M1110  13-OCT-79 12:37  PAGE 4


     36					;
     37					;======================================================================;
     38					;++
     39					;          +-------------------------------------------------+
     40					;          I                                                 I
     41					;          I                   S R O P L N                   I
     42					;          I                   - - - - - -                   I
     43					;          I                                                 I
     44					;          +-------------------------------------------------+
     45					;
     46					; FUNCTION:
     47					;
     48					;   SERVICE MODULE TO OPEN A LINE
     49					;
     50					; INPUT:
     51					;
     52					;   R5 - ADDRESS OF CONTROL BLOCK REQUESTING OPEN
     53					;     C.LINE - FOUR BYTE BINARY LINE ID OF LINE TO OPEN
     54					;     C.MODE - MODE TO OPEN LINE IN;  CLEAR FOR NORMAL MODE, SET FOR
     55					;              MAINTENANCE MODE
     56					;     C.WAIT - MAXIMUM NUMBER OF SECONDS TO WAIT FOR A RECEIVE
     57					;     C.SERV - ON INITIALIZATION ENTRY, ZERO;  ON COMPLETION ENTRY,
     58					;              ADDRESS OF LINE ID TEMPORARY MEMORY
     59					;
     60					; OUTPUT:
     61					;
     62					;   C-BIT - CLEAR IF PROCESSED, SET IF NOT
     63					;   C.LUN - ON FINAL RETURN, LOGICAL UNIT LINE OPENED ON
     64					;   C.RET - RETURN CODE, LOW BYTE IS SERVICE RETURN CODE, ON ERROR
     65					;           HIGH BYTE IS SYSTEM RETURN CODE
     66					;   C.SERV - ON FINAL RETURN, ZERO;  ON WAITING FOR COMPLETION, ADDRESS
     67					;            OF LINE ID TEMPORARY MEMORY
     68					;
     69					; REQUIREMENTS:
     70					;
     71					;   INPUT VIA LNUDAT:
     72					;
     73					;     LNUTAB - LINE LOGICAL UNIT DATABASE
     74					;       INUSE - IN USE FLAG, CLEAR IF LUN AVAILABLE, SET IF IN USE
     75					;       LUN - LOGICAL UNIT NUMBER
     76					;       LNUEND - END OF LINE LOGICAL UNIT DATABASE
     77					;
     78					;   LINE ID TEMPORARY MEMORY SYMBOLS:
     79					;
     80					;     LENGTH - OFFSET OF LENGTH OF LINE ID
     81					;     LINEID - OFFSET OF LINE ID
     82					;     LOCK - OFFSET OF LOCK
     83					;     STATE - OFFSET OF STATE
     84					;
     85					;   CONTROL BLOCK SYMBOLS:
     86					;
     87					;     C.LINE - OFFSET OF LINE ID FIELD
     88					;     C.LUN - OFFSET OF LOGICAL UNIT NUMBER FIELD
     89					;     C.MODE - OFFSET OF LINE MODE FIELD
     90					;     C.RET - OFFSET OF RETURN CODE FIELD
     91					;     C.SERV - OFFSET OF SERVICE CONTEXT FIELD
     92					;     C.WAIT - OFFSET OF WAIT FIELD
SROPLN	MACRO M1110  13-OCT-79 12:37  PAGE 4-1


     93					;     CE$FAI - FAILURE RETURN CODE
     94					;     CE$LID - INVALID LINE ID RETURN CODE
     95					;     CS$SUC - SUCCESS RETURN CODE
     96					;
     97					;   LINE DATABASE SYMBOLS:
     98					;
     99					;     ENTLEN - LENGTH OF AN ENTRY
    100					;     INUSE - OFFSET OF IN USE FLAG IN ENTRY
    101					;     LUN - OFFSET OF LOGICAL UNIT NUMBER IN ENTRY
    102					;
    103					;   LINE FUNCTION CODE SYMBOLS:
    104					;
    105					;     LF.OPN - OPEN LINE
    106					;
    107					;   SYSTEM ERROR CODE SYMBOLS:
    108					;
    109					;     IE.NSF - NO SUCH LINE (FLINE?)
    110					;
    111					; EFFECTS:
    112					;
    113					;   OUTPUT VIA LNUDAT:
    114					;
    115					;     LNUTAB - UPDATED LINE DATABASE ENTRY
    116					;       INUSE - SET IF ENTRY USED, CLEAR IF NOT
    117					;
    118					;--
    119					;======================================================================;
    120					;
    121					;
    122					;  EXTERNAL MACROS
    123					;
    124					.MCALL	PROC,CONDF,LNUDF,LNUMDF,SAVSTK,RESSTK,QIO$S,LFDF,LIMDF
    125					;
    126					; DEFINE EXTERNAL SYMBOLS
    127					;
    128	000000				CONDF				;CONTROL BLOCK SYMBOLS
    129	000000				LNUDF				;LINE SYMBOLS
    130	000000				LFDF				;LINE QIO FUNCTON CODES
    131	000000				LIMDF				;LINE ID TEMPORARY MEMORY SYMBOLS
    132					;
    133					; DEFINE READ/WRITE MEMORY
    134					;
    135	000000				LNUMDF				;LINE LOGICAL UNIT MEMORY
SROPLN	MACRO M1110  13-OCT-79 12:37  PAGE 5


    137					;
    138					; PROCEDURE BODY
    139					;
    140	000000				PROC	SROPLN
    141	000000				SAVSTK	<R3>			;SAVE REGISTER
    142	000002				IF ; SERVICE CONTEXT = 0
    143	000002				FALSE   SET C.SERV(R5)
    144	000010				THEN
    145	000010	012703 	000000'		  MOV     #LNUTAB,R3		;ADDRESS OF FIRST LINE LUN TABLE ENTRY
    146	000014				  WHILE ; CURRENT ADDRESS < END AND LUN IN USE
    147	000014				  FALSE   HIS R3,#LNUEND
    148	000022				  FALSEB  CLEAR INUSE(R3)
    149	000030				  DO
    150	000030	062703 	000002 		    ADD     #ENTLEN,R3		;MOVE TO NEXT ENTRY
    151	000034				  ENDWHILE
    152	000036				  IF ; ADDRESS OUT OF TABLE
    153	000036				  FALSE   LO R3,#LNUEND
    154	000044				  THEN
    155	000044	000261 			    SEC				;NO UNIT AVAILABLE RIGHT NOW
    156	000046				  ELSE
    157	000050	012700 	000014 		    MOV     #C.LINE,R0		;OFFSET OF LINE ID IN CONTROL BLOCK
    158	000054	060500 			    ADD     R5,R0		;MAKE IT POINT TO LINE ID
    159	000056				    CALL    SRFMLN		;FORMAT A LINE NAME
    160	000062				    IF ; NO RESOURCE ERROR
    161	000062				    FALSE   CS
    162	000064				    THEN
    163	000064				      IF ; INVALID LINE ID
    164	000064				      FALSE   CLEAR R1
    165	000070				      THEN
    166	000070	110165 	000010 		        MOVB    R1,C.RET(R5)	;SET ERROR RETURN CODE
    167	000074	000241 			        CLC			;PROCESSING COMPLETE
    168	000076				      ELSE
    169	000100				        SAVSTK  <R0,R3,R4>	;SAVE REGISTERS
    170	000106	116001 	000003 		        MOVB    LENGTH(R0),R1	;GET LENGTH OF LINE ID
    171	000112	062700 	000004 		        ADD     #LINEID,R0	;POINT TO LINE ID
    172	000116	012702 	000010 		        MOV     #C.RET,R2	;OFFSET OF SPACE FOR I/O STATUS BLOCK
    173	000122	060502 			        ADD     R5,R2		;MAKE IT A POINTER
    174	000124	116304 	000001 		        MOVB    LUN(R3),R4	;LOGICAL UNIT TO OPEN ON
    175	000130	116503 	000021 		        MOVB    C.MODE(R5),R3	;LINE MODE
    176	000134	000303 			        SWAB    R3		;MODE IN HIGH BYTE
    177	000136	105003 			        CLRB    R3		;CLEAN UP LOW BYTE
    178	000140	156503 	000020 		        BISB    C.WAIT(R5),R3	;NUMBER OF SECONDS TO WAIT FOR TIMEOUT
    179	000144				        QIO$S   #LF.OPN,R4,,,R2,#SRAST,<R0,R1,R3>
    180	000204				        RESSTK  <R4,R3,R0>		;RESTORE REGISTERS
    181	000212				        IF ; QUEUED SUCCESSFULLY
    182	000212				        FALSE   CS
    183	000214				        THEN
    184	000214	010360 	000000 		          MOV     R3,STATE(R0)	;SAVE ENTRY ADDRESS IN LINE ID MEMORY
    185	000220	010065 	000002 		          MOV     R0,C.SERV(R5)	;REMEMBER WHERE LINE ID MEMORY IS
    186	000224	105263 	000000 		          INCB    INUSE(R3)	;MARK LUN AS IN USE
    187	000230	000241 			          CLC			;PROCESSING COMPLETE
    188	000232				        ELSE
    189	000234	105060 	000002 		          CLRB    LOCK(R0)	;RELEASE LINE ID MEMORY
    190	000240				          CALL    SRQDRF	;PROCESS QIO DIRECTIVE FAILURE
    191	000244				        ENDIF
    192	000244				      ENDIF
    193	000244				    ENDIF
SROPLN	MACRO M1110  13-OCT-79 12:37  PAGE 5-1


    194	000244				  ENDIF
    195	000244				ELSE
    196	000246	016500 	000002 		  MOV     C.SERV(R5),R0		;ADDRESS OF LINE ID MEMORY
    197	000252	016003 	000000 		  MOV     STATE(R0),R3		;ADDRESS OF LUN TABLE ENTRY
    198	000256	105060 	000002 		  CLRB    LOCK(R0)		;RELEASE LINE ID MEMORY
    199	000262				  IF ; OPEN SUCCESSFUL
    200	000262				  FALSEB  LT C.RET(R5)
    201	000270				  THEN
    202	000270	112765 	000001 	000010 	    MOVB    #CS$SUC,C.RET(R5)	;SET SUCCESS RETURN
    203	000276	116365 	000001 	000020 	    MOVB    LUN(R3),C.LUN(R5)	;PASS BACK THE LUN
    204	000304				  ELSE
    205	000306	116565 	000010 	000011 	    MOVB    C.RET(R5),C.RET+1(R5) ;KEEP THE REAL FAILURE REASON
    206	000314				    IF ; FAILURE = INVALID LINE ID
    207	000314				    FALSEB  NE C.RET(R5),#IE.NSF
    208	000324				    THEN
    209	000324	112765 	177766 	000010 	      MOVB    #CE$LID,C.RET(R5)	;INVALID LINE ID
    210	000332				    ELSE
    211	000334	112765 	177774 	000010 	      MOVB    #CE$FAI,C.RET(R5)	;SET REGULAR FAIL RETURN
    212	000342				    ENDIF
    213	000342	105063 	000000 		    CLRB    INUSE(R3)		;LUN ENTRY NO LONGER IN USE
    214	000346				  ENDIF
    215	000346	005065 	000002 		  CLR     C.SERV(R5)		;CLEAR SERVICE CONTEXT AND C-BIT
    216	000352				ENDIF
    217	000352				RESSTK  <R3>			;RESTORE REGISTER
    218	000354				ENDPROC
    219		000001 			.END
SROPLN	MACRO M1110  13-OCT-79 12:37  PAGE 5-2
SYMBOL TABLE

A$$CHK= 000000   	C$RCBK= 000047   	FL$LOO= 000001   	F$RCEV= 000001   	LNUTAB  000000R     002
A$$CPS= 000000   	C$RCEV= 000050   	FR$LCC= 000001   	F$RCIN= 000000   	LOCK    000002
A$$TRP= 000000   	C$RCIN= 000062   	FR$LCS= 000001   	F$RCMA= 000000   	LUN   = 000001
BLKFLG= 000003   	C$RCMA= 000146   	FR$LNC= 000001   	F$RCMS= 000002   	L$$ASG= 000000
CE$ACP= 177753   	C$RCMS= 000054   	FR$LNL= 000001   	F$RDBK= 000000   	L$$DRV= 000000
CE$ADR= 177776   	C$RDBK= 000043   	FR$LNS= 000001   	F$RDCM= 000000   	L$$P11= 000001
CE$CON= 177770   	C$RDCM= 000035   	FR$RMC= 000001   	F$RDIN= 000001   	L$$11R= 000000
CE$DIS= 177771   	C$RDIN= 000040   	FR$RML= 000001   	F$RDIS= 000012   	M$$CRB= 000124
CE$EOF= 177767   	C$RDIS= 000040   	FR$RMS= 000001   	F$RDRC= 000000   	M$$CRX= 000000
CE$FAI= 177774   	C$RDRC= 000060   	FS$HOS= 000001   	F$RECO= 000001   	M$$FCS= 000000
CE$FIL= 177756   	C$RLBF= 000001   	FS$INT= 000000   	F$RLBF= 000001   	M$$OVR= 000000
CE$FUN= 177777   	C$RLCB= 000002   	FS$LLP= 000001   	F$RLCB= 000001   	NCOLUN= 000016
CE$GEN= 177774   	C$RLCI= 000000   	FS$LOF= 000001   	F$STBK= 000000   	NETLUN= 000003
CE$IND= 177757   	C$STBK= 000055   	FS$LOG= 000001   	F$STPR= 000001   	NO    = 000000
CE$IO = 177760   	C$STPR= 000037   	FS$LST= 000001   	F$STPS= 000006   	N$$USR= 000001
CE$LEN= 177775   	C$STPS= 000037   	FS$NET= 000001   	F$TEST= 000001   	P$$P45= 000000
CE$LID= 177766   	C$TRBK= 000046   	FS$NST= 000000   	F$TRAC= 000000   	RI$LCC= 000001
CE$LST= 177752   	C$TRIN= 000063   	FS$PAS= 000001   	F$TRBK= 000001   	RI$LCS= 000002
CE$NOD= 177765   	C$TRMA= 000145   	FT$CNS= 000000   	F$TRIG= 000001   	RI$LNC= 000007
CE$NSD= 177755   	C$TRMS= 000053   	FT$NOD= 000001   	F$TRIN= 000000   	RI$LNL= 000006
CE$NST= 177754   	C$WRBK= 000044   	FT$TSK= 000001   	F$TRMA= 000000   	RI$LNS= 000010
CE$NWE= 177773   	C$WRCL= 000065   	F$ALBF= 000001   	F$TRMS= 000002   	RI$RMC= 000004
CE$OBJ= 177750   	C$WRCM= 000036   	F$ALCB= 000001   	F$WRBK= 000000   	RI$RML= 000003
CE$OPN= 177761   	C$WRRC= 000061   	F$CB  = 000017   	F$WRCL= 000001   	RI$RMS= 000005
CE$OVR= 177764   	C$ZRCN= 000064   	F$CLCL= 000001   	F$WRCM= 000000   	RI$ZLC= 000011
CE$PAR= 177763   	C$$CKP= 000000   	F$CLCO= 000000   	F$WRRC= 000000   	RI$ZLN= 000013
CE$PRO= 177751   	C$$ORE= 000400   	F$CLFL= 000000   	F$ZERO= 000001   	RI$ZRM= 000012
CE$REJ= 177772   	C$$RSH= 177564   	F$CLLK= 000006   	F$ZRCN= 000001   	R$$DER= 000000
CE$TMO= 177762   	C.ADDR= 000014   	F$CLLN= 000002   	F$$LVL= 000001   	R$$K11= 000001
CMILUN= 000002   	C.BKNM= 000014   	F$DPOS= 000001   	F$150 = 000002   	R$$SND= 000000
CMOLUN= 000001   	C.CTXT= 000004   	F$DUMP= 000000   	F$300 = 000012   	R$$11M= 000000
CS$ACK= 000002   	C.FUNC= 000006   	F$EVNT= 000001   	F$50  = 000002   	SERBIT= 000001
CS$LKE= 000001   	C.LEN = 000012   	F$EXAM= 000001   	F$550 = 000002   	SERFLG= 000001
CS$LNA= 000002   	C.LINE= 000014   	F$EXHO= 000000   	G$$TPP= 000000   	SP$DHO= 000003
CS$LOG= 000003   	C.LKNM= 000020   	F$GTCM= 000001   	G$$TSS= 000000   	SP$DRP= 000007
CS$NCH= 000003   	C.LUN = 000020   	F$INCM= 000000   	G$$TTK= 000000   	SP$DTP= 000010
CS$SUC= 000001   	C.MODE= 000021   	F$INLU= 000001   	IE.NSF= ****** GX	SP$LHO= 000002
C$ALBF= 000032   	C.PRID= 000017   	F$IRLU= 000000   	INUSE = 000000   	SP$LLP= 000011
C$ALCB= 000033   	C.PROC= 000007   	F$LKLU= 000010   	I$$RAR= 000000   	SP$LNM= 000016
C$CLCL= 000067   	C.PROM= 000016   	F$LNLU= 000002   	I$$RDN= 000000   	SP$LNO= 000015
C$CLCO= 000003   	C.PTR = 000000   	F$LNSR= 000001   	K$$CNT= 177546   	SP$LOF= 000012
C$CLFL= 000004   	C.RET = 000010   	F$LOAD= 000000   	K$$CSR= 177546   	SP$LST= 000001
C$CLLK= 000052   	C.SAVE= 000022   	F$LOGD= 000001   	K$$LDC= 000000   	SP$NDM= 000014
C$CLLN= 000005   	C.SERV= 000002   	F$LOOP= 000001   	K$$TPS= 000074   	SP$NDO= 000013
C$LEN = 000026   	C.TASK= 000016   	F$NTCM= 000000   	LD$LP = 000000   	SP$NST= 000006
C$NOPN= 000031   	C.TYPE= 000016   	F$OPCL= 000001   	LENGTH  000003   	SP$RRP= 000004
C$NORD= 000032   	C.WAIT= 000020   	F$OPCO= 000000   	LF.CLS= 016210   	SP$RTP= 000005
C$OPCL= 000066   	D$$BUG= 177514   	F$OPIN= 000000   	LF.OFF= 017010   	SRAST = ****** GX
C$OPCO= 000034   	D$$ISK= 000000   	F$OPIR= 000000   	LF.ON = 017000   	SRFMLN= ****** GX
C$OPIN= 000041   	D$$L11= 000001   	F$OPLK= 000005   	LF.OPN= 015400   	SROPLN  000000RG
C$OPIR= 000056   	ENTLEN= 000002   	F$OPLN= 000002   	LF.RAS= 017020   	SRQDRF= ****** GX
C$OPLK= 000051   	FILLUN= 000014   	F$OPLO= 000000   	LF.RD = 015000   	STATE   000000
C$OPLN= 000045   	FLGGRP= 000000   	F$OPOR= 000000   	LF.WRT= 014400   	S$$WRG= 000000
C$OPOR= 000057   	FLGMSK= 000003   	F$OPOT= 000000   	LINEID  000004   	S$$YSZ= 001600
C$OPOT= 000042   	FL$BOO= 000001   	F$ORLU= 000000   	LINLUN= 000017   	TEMFLG= 000030
C$ORD = 000145   	FL$DUM= 000001   	F$OTLU= 000001   	LNKLUN= 000004   	TIMBIT= 000002
C$PROC= 000200   	FL$LOA= 000001   	F$RCBK= 000002   	LNUEND  000004R     002	TIMFLG= 000002
SROPLN	MACRO M1110  13-OCT-79 12:37  PAGE 5-3
SYMBOL TABLE

T$$KMG= 000000   	$$CSTA= 000000   	$$S766= 000011   	$$S772= 000011   	$$S776= 000000
T$$MIN= 000000   	$$LUN = 000021   	$$S767= 000014   	$$S773= 000016   	$$S777= 000000
V$$CTR= 001000   	$$PRST= 000017   	$$S770= 000077   	$$S774= 000011   	$$TRNM= 000000
X$$DBT= 000000   	$$STIX= 000777   	$$S771= 000013   	$$S775= 000010   	$$$ARG= 000002
YES   = 000001   	$$STNM= 000000

. ABS.	000024	   000
      	000356	   001
LNUDAT	000004	   002
ERRORS DETECTED:  0

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

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CE$FAI	= 177774	 5-211     
CE$LID	= 177766	 5-209     
CS$SUC	= 000001	 5-202     
C.LINE	= 000014	 5-157     
C.LUN 	= 000020	*5-203     
C.MODE	= 000021	 5-175     
C.RET 	= 000010	*5-166      5-172      5-200     *5-202      5-205     *5-205      5-207     *5-209     *5-211     
C.SERV	= 000002	 5-143     *5-185      5-196     *5-215     
C.WAIT	= 000020	 5-178     
ENTLEN	= 000002	#4-129      5-150     
FL$BOO	= 000001	#4-135      4-135     
FL$DUM	= 000001	#4-135      4-135     
FL$LOA	= 000001	#4-135      4-135     
FL$LOO	= 000001	#4-135      4-135     
FR$LCC	= 000001	#4-135      4-135     
FR$LCS	= 000001	#4-135      4-135     
FR$LNC	= 000001	#4-135      4-135     
FR$LNL	= 000001	#4-135      4-135     
FR$LNS	= 000001	#4-135      4-135     
FR$RMC	= 000001	#4-135      4-135     
FR$RML	= 000001	#4-135      4-135     
FR$RMS	= 000001	#4-135      4-135     
FS$HOS	= 000001	#4-135      4-135     
FS$INT	= 000000	#4-135      4-135      4-135      4-135     
FS$LLP	= 000001	#4-135      4-135     
FS$LOF	= 000001	#4-135      4-135     
FS$LOG	= 000001	#4-135      4-135     
FS$LST	= 000001	#4-135      4-135     
FS$NET	= 000001	#4-135      4-135     
FS$NST	= 000000	#4-135      4-135     
FS$PAS	= 000001	#4-135      4-135     
FT$CNS	= 000000	#4-135      4-135     
FT$NOD	= 000001	#4-135      4-135     
FT$TSK	= 000001	#4-135      4-135     
F$ALBF	= 000001	#4-135     
F$ALCB	= 000001	#4-135     
F$CB  	= 000017	#4-135     
F$CLCL	= 000001	#4-135      4-135     #4-135     
F$CLCO	= 000000	#4-135     
F$CLFL	= 000000	#4-135     
F$CLLK	= 000006	#4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135     
                         4-135     #4-135      4-135     #4-135     
F$CLLN	= 000002	#4-135      4-135     #4-135      4-135     #4-135     
F$DPOS	= 000001	#4-135      4-135     
F$DUMP	= 000000	#4-135      4-135     
F$EVNT	= 000001	#4-135      4-135     
F$EXAM	= 000001	#4-135      4-135     
F$EXHO	= 000000	#4-135     
F$GTCM	= 000001	#4-135      4-135     
F$INCM	= 000000	#4-135      4-135     
F$INLU	= 000001	#4-135     
F$IRLU	= 000000	#4-135     
SROPLN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:38	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$LKLU	= 000010	#4-135     
F$LNLU	= 000002	#4-135      4-135     
F$LNSR	= 000001	#4-135      4-135     
F$LOAD	= 000000	#4-135      4-135     
F$LOGD	= 000001	#4-135      4-135     
F$LOOP	= 000001	#4-135      4-135     
F$NTCM	= 000000	#4-135      4-135     
F$OPCL	= 000001	#4-135      4-135     #4-135     
F$OPCO	= 000000	#4-135     
F$OPIN	= 000000	#4-135     
F$OPIR	= 000000	#4-135     
F$OPLK	= 000005	#4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135     
                         4-135     #4-135     
F$OPLN	= 000002	#4-135      4-135     #4-135      4-135     #4-135     
F$OPLO	= 000000	#4-135     
F$OPOR	= 000000	#4-135     
F$OPOT	= 000000	#4-135     
F$ORLU	= 000000	#4-135     
F$OTLU	= 000001	#4-135     
F$RCBK	= 000002	#4-135      4-135     #4-135      4-135     #4-135     
F$RCEV	= 000001	#4-135      4-135     #4-135     
F$RCIN	= 000000	#4-135     
F$RCMA	= 000000	#4-135     
F$RCMS	= 000002	#4-135      4-135     #4-135     
F$RDBK	= 000000	#4-135     
F$RDCM	= 000000	#4-135     
F$RDIN	= 000001	#4-135      4-135     
F$RDIS	= 000012	#4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135     
                         4-135     #4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135      4-135     
                        #4-135     
F$RDRC	= 000000	#4-135     
F$RECO	= 000001	#4-135      4-135     #4-135     
F$RLBF	= 000001	#4-135     
F$RLCB	= 000001	#4-135     
F$STBK	= 000000	#4-135     
F$STPR	= 000001	#4-135      4-135     
F$STPS	= 000006	#4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135      4-135     #4-135     
                         4-135     #4-135      4-135     #4-135     
F$TEST	= 000001	#4-135      4-135     
F$TRAC	= 000000	#4-135      5-140      5-140      5-218      5-218     
F$TRBK	= 000001	#4-135      4-135     #4-135     
F$TRIG	= 000001	#4-135      4-135     
F$TRIN	= 000000	#4-135     
F$TRMA	= 000000	#4-135     
F$TRMS	= 000002	#4-135      4-135     #4-135     
F$WRBK	= 000000	#4-135     
F$WRCL	= 000001	#4-135      4-135     #4-135     
F$WRCM	= 000000	#4-135     
F$WRRC	= 000000	#4-135     
F$ZERO	= 000001	#4-135      4-135     
F$ZRCN	= 000001	#4-135      4-135     #4-135     
F$150 	= 000002	#4-135     
SROPLN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:38	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$300 	= 000012	#4-135     
F$50  	= 000002	#4-135     
F$550 	= 000002	#4-135     
IE.NSF	= ******  GX	 5-207     
INUSE 	= 000000	#4-129      5-148     *5-186     *5-213     
I$$AS 	= ******	 5-140     
LENGTH	  000003	#4-131      5-170     
LF.OPN	= 015400	 5-179     
LINEID	  000004	#4-131      5-171     
LINLUN	= 000017	 4-135     
LNUEND	  000004 R	#4-135      5-147      5-153     
LNUTAB	  000000 R	#4-135      5-145     
LOCK  	  000002	#4-131     *5-189     *5-198     
LUN   	= 000001	#4-129      5-174      5-203     
NO    	= 000000	#4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135     
R$$11D	= ******	 5-140     
R$$11M	= 000000	 5-140     
SRAST 	= ******  GX	 5-179     
SRFMLN	= ******  GX	 5-159     
SROPLN	  000000 RG	#5-140     
SRQDRF	= ******  GX	 5-190     
STATE 	  000000	#4-131     *5-184      5-197     
YES   	= 000001	#4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135      4-135     
                         4-135      4-135      4-135      4-135      4-135     
$$CSTA	= 000000	#5-140     
$$LUN 	= 000021	#4-135      4-135      4-135     #4-135      4-135      4-135     #4-135     
$$PRST	= 000017	#5-140     *5-142     #5-142     *5-146     #5-146      5-152     #5-152      5-160     #5-160     
                         5-163     #5-163     *5-181     #5-181      5-199     #5-199     *5-206     #5-206     
$$SLST	= ******	 5-140      5-143      5-143      5-144      5-146      5-147      5-147      5-148      5-148     
                         5-149      5-151      5-151      5-153      5-153      5-154      5-156      5-156      5-161     
                         5-162      5-164      5-164      5-165      5-168      5-168      5-182      5-183      5-188     
                         5-188      5-191      5-192      5-193      5-194      5-195      5-195      5-200      5-200     
                         5-201      5-204      5-204      5-207      5-207      5-208      5-210      5-210      5-212     
                         5-214      5-216      5-218     
$$STIX	= 000777	#5-140     *5-142     *5-142     #5-142     *5-142     *5-142     #5-142     *5-146     *5-146     
                        #5-146     *5-146     *5-146     #5-146      5-151     #5-151      5-151      5-151     #5-151     
                         5-151      5-152      5-152     #5-152      5-152      5-152     #5-152      5-160      5-160     
                        #5-160      5-160      5-160     #5-160      5-163      5-163     #5-163      5-163      5-163     
                        #5-163     *5-181     *5-181     #5-181     *5-181     *5-181     #5-181      5-191     #5-191     
                         5-191      5-191     #5-191      5-191      5-192     #5-192      5-192      5-192     #5-192     
                         5-192      5-193     #5-193      5-193      5-193     #5-193      5-193      5-194     #5-194     
                         5-194      5-194     #5-194      5-194      5-199      5-199     #5-199      5-199      5-199     
                        #5-199     *5-206     *5-206     #5-206     *5-206     *5-206     #5-206      5-212     #5-212     
                         5-212      5-212     #5-212      5-212      5-214     #5-214      5-214      5-214     #5-214     
                         5-214      5-216     #5-216      5-216      5-216     #5-216      5-216     
SROPLN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:38	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$$STNM	= 000000	#5-140     *5-142     #5-142     *5-142      5-143      5-144     *5-146     #5-146     *5-146     
                        *5-146      5-147      5-148      5-149      5-151      5-151     #5-151      5-152     #5-152     
                         5-152      5-153      5-154      5-156      5-156      5-160     #5-160      5-160      5-161     
                         5-162      5-163     #5-163      5-163      5-164      5-165      5-168      5-168     *5-181     
                        #5-181     *5-181      5-182      5-183      5-188      5-188      5-191     #5-191      5-192     
                        #5-192      5-193     #5-193      5-194     #5-194      5-195      5-195      5-199     #5-199     
                         5-199      5-200      5-201     *5-204      5-204     *5-206     #5-206     *5-206      5-207     
                         5-208     *5-210      5-210     *5-212     #5-212      5-214     #5-214      5-216     #5-216     
$$S766	= 000011	#5-181      5-191     
$$S767	= 000014	#5-181      5-191     
$$S770	= 000077	#5-163      5-192     
$$S771	= 000013	#5-163      5-192     
$$S772	= 000011	#5-160      5-193     #5-206      5-212     
$$S773	= 000016	#5-160      5-193     #5-206      5-212     
$$S774	= 000011	#5-146      5-151     #5-152      5-194     #5-199      5-214     
$$S775	= 000010	#5-146      5-151     #5-152      5-194     #5-199      5-214     
$$S776	= 000000	#5-142      5-216     
$$S777	= 000000	#5-142      5-216     
$$TRNM	= 000000	#5-140     *5-142     #5-142      5-143      5-144     *5-146     #5-146      5-147      5-148     
                         5-149      5-151     #5-151      5-152     #5-152      5-153      5-154      5-156     #5-156     
                         5-160     #5-160      5-161      5-162      5-163     #5-163      5-164      5-165      5-168     
                        #5-168     *5-181     #5-181      5-182      5-183      5-188     #5-188      5-191     #5-191     
                         5-192     #5-192      5-193     #5-193      5-194     #5-194      5-195     #5-195      5-199     
                        #5-199      5-200      5-201      5-204     #5-204     *5-206     #5-206      5-207      5-208     
                         5-210     #5-210     *5-212     #5-212      5-214     #5-214      5-216     #5-216     
$$$ARG	= 000002	#5-179      5-179     #5-179      5-179     #5-179      5-179     #5-179      5-179      5-179     
                        #5-179      5-179      5-179      5-179      5-179      5-179      5-179      5-179      5-179     
                         5-179      5-179     #5-179      5-179      5-179      5-179      5-179      5-179      5-179     
                         5-179      5-179      5-179      5-179     #5-179      5-179      5-179      5-179      5-179     
                         5-179      5-179      5-179      5-179      5-179      5-179     
SROPLN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:38	PAGE 5

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#5-159     #5-190     
CASE  		#5-140     
CONDF 		#4-124     #4-128     
CONFIG		#4-135     #4-135     
DIR$  		#5-179     #5-179     
DO    		#5-140      5-149     
ELSE  		#5-140      5-156      5-168      5-188      5-195      5-204      5-210     
ENDCAS		#5-140     
ENDIF 		#5-140     #5-151     #5-191     #5-192     #5-193     #5-194     #5-212     #5-214     #5-216     
ENDPRO		#5-140      5-218     
ENDWHI		#5-140     #5-151     
FALSE 		#5-140      5-143      5-147      5-153      5-161      5-164      5-182     
FALSEB		#5-140     #5-148     #5-200     #5-207     
IF    		#5-140     #5-142     #5-146     #5-152     #5-160     #5-163     #5-181     #5-199     #5-206     
JMPPRO		#5-140     
LFDF  		#4-124      4-130     
LIMDF 		#4-124      4-131     
LNUDF 		#4-124      4-129     
LNUMDF		#4-124      4-135     
MOV$  		#5-179      5-179      5-179      5-179     #5-179      5-179      5-179     #5-179      5-179      5-179     
MVB$  		#5-179      5-179     
ONCASE		#5-140     
PROC  		#4-124      5-140     
PROCLC		#5-140     
PROFLG		#4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     
                #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     
                #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     
                #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     #4-135     
                #4-135     
QDPB$S		#5-179     #5-179     
QIO$S 		#4-124      5-179     
RESSTK		#4-124     #5-180     #5-217     
RVP$  		#5-179      5-179      5-179      5-179     
SAVSTK		#4-124     #5-141     #5-169     
SRDF  		#4-135      4-135     
SWSTK$		#5-140     
THEN  		#5-140     #5-144     #5-149     #5-154     #5-162     #5-165     #5-183     #5-201     #5-208     
TRUE  		#5-140     
TRUEB 		#5-140     
WHILE 		#5-140      5-146     
$$BGND		#5-140      5-143      5-147      5-148      5-153      5-161      5-164      5-182      5-200      5-207     
$$BGNN		#5-140      5-143      5-147      5-148      5-151      5-153      5-156      5-161      5-164      5-168     
                 5-182      5-188      5-195      5-200      5-204      5-207      5-210     
$$ELSE		#5-140      5-156      5-168      5-188      5-195      5-204      5-210     
$$GEN1		#5-140      5-140      5-143      5-143      5-144      5-146      5-147      5-148      5-148      5-149     
                 5-151      5-151      5-153      5-154      5-156      5-156      5-161      5-162      5-164      5-164     
                 5-165      5-168      5-168      5-182      5-183      5-188      5-188      5-191      5-192      5-193     
                 5-194      5-195      5-195      5-200      5-200      5-201      5-204      5-204      5-207      5-208     
                 5-210      5-210      5-212      5-214      5-216      5-218     
$$GEN2		#5-140      5-147      5-153      5-207     
$$GNAB		#5-140      5-147      5-153      5-161      5-182      5-200      5-207     
$$GNBT		#5-140     #5-143     #5-148     #5-164     
SROPLN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:38	PAGE 6

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

$$GNCM		#5-140     #5-143     #5-147     #5-148     #5-153     #5-161     #5-164     #5-182     #5-200     #5-207     
$$INMC		#5-140     #5-140     
$$INSY		#5-140     #5-140     
$$LAB 		#5-140      5-144      5-146      5-149      5-151      5-154      5-156      5-162      5-165      5-168     
                 5-183      5-188      5-191      5-192      5-193      5-194      5-195      5-201      5-204      5-208     
                 5-210      5-212      5-214      5-216     
$$POP 		#5-140      5-151      5-151      5-191      5-191      5-192      5-192      5-193      5-193      5-194     
                 5-194      5-212      5-212      5-214      5-214      5-216      5-216     
$$POPI		#5-140     #5-151     #5-151     #5-191     #5-191     #5-192     #5-192     #5-193     #5-193     #5-194     
                #5-194     #5-212     #5-212     #5-214     #5-214     #5-216     #5-216     
$$PUSH		#5-140     #5-142     #5-142     #5-146     #5-146     #5-152     #5-152     #5-160     #5-160     #5-163     
                #5-163     #5-181     #5-181     #5-199     #5-199     #5-206     #5-206     
$$STSM		#5-140     #5-142     #5-142     #5-146     #5-146     #5-152     #5-152     #5-160     #5-160     #5-163     
                #5-163     #5-181     #5-181     #5-199     #5-199     #5-206     #5-206     
$$SYS 		#5-140     
$$TRCE		#5-140      5-140      5-218