Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/mcb/srzrcn.list
There are no other files named srzrcn.list in the archive.
SRZRCN	MACRO M1110  13-OCT-79 12:54
TABLE OF CONTENTS

     9-   98	SRQNXF                                                                  ;AP0001
    11-  195	SRZLN
    14-  279	SRZNDC
    16-  352	SRZRCN
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 3


      1					.TITLE	SRZRCN
      2					.NLIST  CND
      3						.IDENT	/V01.01/
      4					;
      5					; COPYRIGHT (C) 1978 BY
      6					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      7					;
      8					;
      9					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
     10					; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
     11					; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
     12					; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
     13					; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
     14					; TRANSFERRED.
     15					;
     16					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
     17					; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
     18					; CORPORATION.
     19					;
     20					; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
     21					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
     22					;
     23					;
     24					; MODULE DESCRIPTION:
     25					;
     26					;   NCU SERVICE MODULE TO ZERO NETWORK COUNTERS
     27					;
     28					;
     29					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     30					;
     31					; IDENT HISTORY:
     32					;
     33					; 1.00	10-FEB-78
     34					;	VERSION 2.0 RELEASE
     35					;
     36					; 1.01	31-JUL-78	ALAN D. PECKHAM
     37					;	OFF-LOADED MAPPED SERVICES TO DLX
     38					;
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 4


     40					;
     41					;======================================================================;
     42					;++
     43					;          +-------------------------------------------------+
     44					;          I                                                 I
     45					;	   I   Z E R O   C O U N T E R S   S E R V I C E     I
     46					;	   I   - - - - - - - - - - - - - - - - - - - - -     I
     47					;          I                                                 I
     48					;          +-------------------------------------------------+
     49					;
     50					; FUNCTION:
     51					;
     52					;   ZERO COUNTERS
     53					;
     54					; CALLING SEQUENCE:  CALL    SRZRCN
     55					;
     56					; INPUT:
     57					;
     58					;   R5 - ADDRESS OF CONTROL BLOCK
     59					;     C.ADDR - ADDRESS OF BUFFER
     60					;     C.TYPE - TYPE CODE OF INFORMATION DESIRED
     61					;   FOR LOCAL NODE COUNTERS
     62					;     @C.ADDR - LOCAL NODE NAME (I-6)
     63					;   FOR REMOTE NODE COUNTERS
     64					;     @C.ADDR - REMOTE NODE NAME (I-6)
     65					;   FOR LINE COUNTERS
     66					;     @C.ADDR - LINE-ID IN STANDARD FORMAT (4 BYTES)
     67					;
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 5


     69					; OUTPUT:
     70					;
     71					;   C-BIT - CLEAR
     72					;   R5 - ADDRESS OF UPDATED CONTROL BLOCK
     73					;     C.RET  - RETURN CODE
     74					;     C.ADDR - ADDRESS OF BUFFER
     75					;     C.TYPE - NOT CHANGED
     76					;
     77					; REQUIREMENTS:
     78					;
     79					;   CONFIGURATION CONTROL SYMBOLS:
     80					;
     81					;     FR$LCC - LOCAL  NODE    COUNTERS
     82					;     FR$RMC - REMOTE NODE    COUNTERS
     83					;     FR$LNC -        LINE    COUNTERS
     84					;
     85					;--
     86					;======================================================================;
     87					;
     88					;
     89					; EXTERNAL MACROS
     90					;
     91					.MCALL  CONFIG
     92					.MCALL	PROC,PROCLC                                                             ;AP0001
     93					;                                                                               ;**-1
     94					; DEFINE EXTERNAL SYMBOLS
     95					;
     96	000000				CONFIG				;CONFIGURATION CONTROL SYMBOLS
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 6
SRQNXF

     98					.SBTTL	SRQNXF                                                                  ;AP0001
     99					;                                                                               ;AP0001
    100					;======================================================================;        ;AP0001
    101					;++                                                                             ;AP0001
    102					;          +-------------------------------------------------+                  ;AP0001
    103					;          I                                                 I                  ;AP0001
    104					;          I                   S R Q N X F                   I                  ;AP0001
    105					;          I                   - - - - - -                   I                  ;AP0001
    106					;          I                                                 I                  ;AP0001
    107					;          +-------------------------------------------------+                  ;AP0001
    108					;                                                                               ;AP0001
    109					; FUNCTION:                                                                     ;AP0001
    110					;                                                                               ;AP0001
    111					;     SET THE NICE RETURN CODE DEPENDING ON WHAT DLX RETURNS                    ;AP0001
    112					;                                                                               ;AP0001
    113					; INPUT:                                                                        ;AP0001
    114					;                                                                               ;AP0001
    115					;   R5 - ADDRESS OF CONTROL BLOCK REQUESTING I/O                                ;AP0001
    116					;                                                                               ;AP0001
    117					; OUTPUT:                                                                       ;AP0001
    118					;                                                                               ;AP0001
    119					;   C-BIT - CLEAR IF DIRECTIVE FAILURE, SET IF SYSTEM RESOURCE ERROR            ;AP0001
    120					;   @R5 - UPDATED CONTROL BLOCK                                                 ;AP0001
    121					;     C.RET - IF DIRECTIVE FAILURE, LOW BYTE IS SERVICE FAILURE RETURN CODE,    ;AP0001
    122					;             HIGH BYTE IS SYSTEM DIRECTIVE ERROR CODE                          ;AP0001
    123					;                                                                               ;AP0001
    124					; REQUIREMENTS:                                                                 ;AP0001
    125					;                                                                               ;AP0001
    126					;   INPUT VIA SYSTEM GLOBALS:                                                   ;AP0001
    127					;                                                                               ;AP0001
    128					;     $DSW - DEVICE STATUS WORD, RETURN CODE FOR DIRECTIVE FAILURE              ;AP0001
    129					;                                                                               ;AP0001
    130					;   SYSTEM SYMBOLS:                                                             ;AP0001
    131					;                                                                               ;AP0001
    132					;     IE.UPN - RETURN CODE FOR SYSTEM RESOURCE ERROR                            ;AP0001
    133					;     IE.ONP - OPTION NOT SUPPORTED                                             ;AP0001
    134					;     IE.DAO - DATA OVERFLOWED OUTPUT BUFFER                                    ;AP0001
    135					;     IE.MOD - LINE NOT PRESENT                                                 ;AP0001
    136					;     IE.NSF - NODE NOT PRESENT                                                 ;AP0001
    137					;     IE.NBK - NO STATISTICS BLOCK FOR NODE                                     ;AP0001
    138					;                                                                               ;AP0001
    139					;   CONTROL BLOCK SYMBOLS:                                                      ;AP0001
    140					;                                                                               ;AP0001
    141					;     C.RET - OFFSET OF RETURN CODE FIELD                                       ;AP0001
    142					;                                                                               ;AP0001
    143					;--                                                                             ;AP0001
    144					;======================================================================;        ;AP0001
    145					;                                                                               ;AP0001
    146					; EXTERNAL MACROS                                                               ;AP0001
    147					;                                                                               ;AP0001
    148					.MCALL	PROCLC,CONDF                                                            ;AP0001
    149					;                                                                               ;AP0001
    150					; DEFINE EXTERNAL SYMBOLS                                                       ;AP0001
    151					;                                                                               ;AP0001
    152	000000				CONDF				;CONTROL BLOCK SYMBOLS                          ;AP0001
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 7
SRQNXF

    154					;                                                                               ;AP0001
    155					; PROCEDURE BODY                                                                ;AP0001
    156					;                                                                               ;AP0001
    157	000000				PROCLC	SRQNXF                                                                  ;AP0001
    158	000000				IF ; DIRECTIVE SUCCEDED                                                         ;AP0001
    159	000000				FALSE CS                                                                        ;AP0001
    160	000002				THEN                                                                            ;AP0001
    161	000002				  IF ; SUCCESS                                                                  ;AP0001
    162	000002				  FALSE LE,C.RET(R5)                                                            ;AP0001
    163	000010				  THEN                                                                          ;AP0001
    164	000010	012765 	000001 	000010 	    MOV	#CS$SUC,C.RET(R5)	;SET SUCCESS RETURN CODE                        ;AP0001
    165	000016				  ELSE                                                                          ;AP0001
    166	000020				    ONCASE ; DIRECTIVE RETURN CODE                                              ;AP0001
    167	000020				    CASE                                                                        ;AP0001
    168	000020				    FALSEB NE,#IE.ONP,C.RET(R5)	;OPTION NOT PRESENT ?                           ;AP0001
    169	000030				    DO                                                                          ;AP0001
    170	000030	012765 	177777 	000010 	      MOV #CE$FUN,C.RET(R5)	;INVALID FUNCTION                               ;AP0001
    171	000036				    CASE                                                                        ;AP0001
    172	000040				    FALSEB NE,#IE.MOD,C.RET(R5)	;LINE NOT PRESENT ?                             ;AP0001
    173	000050				    DO                                                                          ;AP0001
    174	000050	012765 	177766 	000010 	      MOV #CE$LID,C.RET(R5)	;LINE NOT PRESENT                               ;AP0001
    175	000056				    CASE                                                                        ;AP0001
    176	000060				    TRUEB EQ,#IE.NSF,C.RET(R5)	;NODE NOT PRESENT ?                             ;AP0001
    177	000070				    FALSEB NE,#IE.NBK,C.RET(R5)	;NO STATISTICS BLOCK FOR NODE ?                 ;AP0001
    178	000100				    DO                                                                          ;AP0001
    179	000100	012765 	177765 	000010 	      MOV #CE$NOD,C.RET(R5)	;NODE NOT PRESENT                               ;AP0001
    180	000106				    CASE                                                                        ;AP0001
    181	000110				    FALSEB NE,#IE.DAO,C.RET(R5)	;DATA OVERRUN ?                                 ;AP0001
    182	000120				    DO                                                                          ;AP0001
    183	000120	012765 	177764 	000010 	      MOV #CE$OVR,C.RET(R5)	;DATA OVERRUN                                   ;AP0001
    184	000126				    ELSE                                                                        ;AP0001
    185	000130	012765 	177774 	000010 	      MOV #CE$GEN,C.RET(R5)	;GENERAL ERROR                                  ;AP0001
    186	000136				    ENDCASE                                                                     ;AP0001
    187	000136				  ENDIF                                                                         ;AP0001
    188	000136				ELSE                                                                            ;AP0001
    189	000140				  CALL	SRQDRF			;PROCESS QIO DIRECTIVE FAILURE                  ;AP0001
    190	000144				ENDIF                                                                           ;AP0001
    191	000144				ENDPROC                                                                         ;AP0001
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 8
SRZLN

    195					.SBTTL  SRZLN
    196					;
    197					;======================================================================;
    198					;++
    199					;	   +-------------------------------------------------+
    200					;	   I						     I
    201					;	   I		       S R Z L N 		     I
    202					;	   I		       - - - - -		     I
    203					;	   I						     I
    204					;	   +-------------------------------------------------+
    205					;
    206					; FUNCTION:
    207					;
    208					;   ZERO LINE COUNTERS
    209					;
    210					; CALLING SEQUENCE:  CALL    SRZLN
    211					;
    212					; INPUT:
    213					;
    214					;   R5 - ADDRESS OF CONTROL BLOCK
    215					;     C.ADDR - ADDRESS OF DATA BLOCK FOR ZEROING COUNTERS
    216					;   @C.ADDR -
    217					;
    218					;     !-----------------------------------!
    219					;     ! LINE CONTROLLER !   LINE DEVICE   !
    220					;     !-----------------------------------!
    221					;     ! LINE STATION    !   LINE NUMBER   !
    222					;     !-----------------------------------!
    223					;
    224					; OUTPUT:
    225					;
    226					;   C-BIT - CLEAR
    227					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    228					;     C.RET  - RETURN CODE
    229					;     C.ADDR - ADDRESS OF DATA BLOCK FOR ZEROED COUNTERS
    230					;   @C.ADDR -
    231					;
    232					;     !-----------------------------------!
    233					;     ! LINE CONTROLLER !   LINE DEVICE   !
    234					;     !-----------------------------------!
    235					;     ! LINE STATION    !   LINE NUMBER   !
    236					;     !-----------------------------------!
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 9
SRZLN

    238					;
    239					; REQUIREMENTS:
    240					;
    241					;   CONTROL BLOCK SYMBOLS:
    242					;
    243					;     CS$SUC  - SUCCESS RETURN CODE
    244					;     CE$LID  - INVALID LINE-ID RETURN CODE
    245					;     C.RET  - OFFSET OF RETURN CODE
    246					;     C.ADDR - OFFSET OF BLOCK ADDRESS
    247					;
    248					;   USES THIS ROUTINE MUST BE MORE THAN 4K.                                     ;**-45
    249					;--                                                                             ;**-2
    250					;======================================================================;
    251					;
    252					;                                                                               ;**-1
    253					; EXTERNAL MACROS
    254					;
    255					.MCALL	CONDF,DLXDF,SRDF,QIOW$S                                                 ;AP0001
    256					.MCALL  RESSTK,SAVSTK                                                           ;**-1
    257					;                                                                               ;**-1
    258					; DEFINE EXTERNAL SYMBOLS
    259					;
    260	000146				CONDF				;CONTROL BLOCK SYMBOLS
    261	000146				DLXDF				;DLX NICE SERVICES                              ;AP0001
    262	000146				SRDF				;SERVICE SYMBOLS                                ;AP0001
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 10
SRZLN

    264					;                                                                               ;**-1
    265					; PROCEDURE BODY
    266					;
    267	000146				PROCLC	SRZLN                                                                   ;AP0001
    268	000146	012701 	000010 		MOV	#C.RET,R1		;GET ADDRESS OF                                 ;AP0001
    269	000152	060501 			ADD	R5,R1			;STATUS BLOCK                                   ;AP0001
    270	000154				QIOW$S	#NX.NIC,#NCOLUN,#TEMFLG,,R1,,<C.ADDR(R5),#4,#NX$ZLC>                    ;AP0001
    271									;ZERO THE SPECIFIED LINE STATS                  ;AP0001
    272	000226				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR LINE FUNCTION     ;AP0001
    273	000232				ENDPROC                                                                         ;AP0001
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 11
SRZNDC

    279					.SBTTL  SRZNDC
    280					;
    281					;======================================================================;
    282					;++
    283					;	   +-------------------------------------------------+
    284					;	   I						     I
    285					;	   I		       S R Z N D C		     I
    286					;	   I		       - - - - - -		     I
    287					;	   I						     I
    288					;	   +-------------------------------------------------+
    289					;
    290					; FUNCTION:
    291					;
    292					;   ZERO NODE COUNTS
    293					;
    294					; CALLING SEQUENCE:  CALL    SRZNDC
    295					;
    296					; INPUT:
    297					;
    298					;   R5 - ADDRESS OF CONTROL BLOCK
    299					;     C.ADDR - ADDRESS OF DATA BLOCK FOR ZEROING NODE COUNTERS
    300					;   @C.ADDR -
    301					;     NODE NAME (I-6)
    302					;
    303					; OUTPUT:
    304					;
    305					;   C-BIT - CLEAR
    306					;   @R5 - ADDRESS OF THE UPDATED CONTROL BLOCK
    307					;     C.RET  - RETURN CODE
    308					;     C.ADDR - ADDRESS OF DATA BLOCK FOR ZEROED NODE COUNTERS
    309					;   @C.ADDR -
    310					;     NODE NAME (I-6)
    311					;
    312					; REQUIREMENTS:
    313					;
    314					;   CONTROL BLOCK SYMBOLS:
    315					;
    316					;     CS$SUC  - SUCCESS RETURN CODE
    317					;     CE$NOD  - INVALID NODE NAME
    318					;     C.RET   - OFFSET OF RETURN CODE
    319					;     C.ADDR  - OFFSET OF BLOCK ADDRESS
    320					;                                                                               ;**-20
    321					;--
    322					;======================================================================;
    323					;
    324					;
    325					; EXTERNAL MACROS
    326					;
    327					.MCALL	CONDF,DLXDF,SRDF,QIOW$S                                                 ;AP0001
    328					.MCALL  RESSTK,SAVSTK                                                           ;**-1
    329					;                                                                               ;**-1
    330					; DEFINE EXTERNAL SYMBOLS
    331					;
    332	000234				CONDF				;CONTROL BLOCK SYMBOLS
    333	000234				DLXDF				;DLX NICE SERVICES                              ;AP0001
    334	000234				SRDF				;SERVICE SYMBOLS                                ;AP0001
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 12
SRZNDC

    336					;
    337					; PROCEDURE BODY
    338					;
    339	000234				PROCLC  SRZNDC
    340	000234	012701 	000010 		MOV	#C.RET,R1		;GET ADDRESS OF                                 ;AP0001
    341	000240	060501 			ADD	R5,R1			;STATUS BLOCK                                   ;AP0001
    342	000242	117500 	000014 		MOVB	@C.ADDR(R5),R0		;GET NAME LENGTH                                ;AP0001
    343	000246	005200 			INC	R0			;AND INCLUDE COUNT BYTE                         ;AP0001
    344	000250				QIOW$S	#NX.NIC,#NCOLUN,#TEMFLG,,R1,,<C.ADDR(R5),R0,#NX$ZNC>                    ;AP0001
    345									;ZERO THE SPECIFIED NODE STATS                  ;AP0001
    346	000320				CALL	SRQNXF			;PROCESS DLX RETURN CODES FOR NODE FUNCTION     ;AP0001
    347	000324				ENDPROC                                                                         ;**-70
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 13
SRZRCN

    352					.SBTTL  SRZRCN
    353					;
    354					;======================================================================;
    355					;++
    356					;	   +-------------------------------------------------+
    357					;	   I						     I
    358					;	   I		       S R Z R C N		     I
    359					;	   I		       - - - - - -		     I
    360					;	   I						     I
    361					;	   +-------------------------------------------------+
    362					;
    363					; FUNCTION:
    364					;
    365					;   ZERO COUNTERS
    366					;
    367					; CALLING SEQUENCE:  CALL    SRZRCN
    368					;
    369					; INPUT:
    370					;
    371					;   R5 - ADDRESS OF CONTROL BLOCK
    372					;     C.ADDR - ADDRESS OF BUFFER
    373					;     C.TYPE - TYPE CODE OF INFORMATION DESIRED
    374					;   FOR LOCAL NODE COUNTERS
    375					;     @C.ADDR - LOCAL NODE NAME (I-6)
    376					;   FOR REMOTE NODE COUNTERS
    377					;     @C.ADDR - REMOTE NODE NAME (I-6)
    378					;   FOR LINE COUNTERS
    379					;     @C.ADDR - LINE-ID IN STANDARD FORMAT (4 BYTES)
    380					;
    381					; OUTPUT:
    382					;
    383					;   C-BIT - CLEAR
    384					;   R5 - ADDRESS OF UPDATED CONTROL BLOCK
    385					;     C.RET  - RETURN CODE
    386					;     C.ADDR - ADDRESS OF BUFFER
    387					;     C.TYPE - NOT CHANGED
    388					;
    389					; REQUIREMENTS:
    390					;
    391					;   CONFIGURATION CONTROL SYMBOLS:
    392					;
    393					;     FR$LCC - LOCAL  NODE    COUNTERS
    394					;     FR$RMC - REMOTE NODE    COUNTERS
    395					;     FR$LNC -        LINE    COUNTERS
    396					;
    397					;   CONTROL BLOCK SYMBOLS:
    398					;
    399					;     CE$FUN - INVALID FUNCTION ERROR CODE
    400					;     C.RET  - OFFSET OF RETURN CODE
    401					;     C.TYPE - OFFSET OF TYPE CODE OF COUNTERS TO BE ZEROED
    402					;     RI$ZLC - ZERO LOCAL NODE COUNTERS TYPE CODE
    403					;--
    404					;======================================================================;
    405					;
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 14
SRZRCN

    407					;
    408					; EXTERNAL MACROS
    409					;
    410					.MCALL	CONDF,CONFIG                                                            ;AP0001
    411					;                                                                               ;**-1
    412					; INTERNAL MACRO TO BUILD SERVICE TABLE ENTRY
    413					;
    414					.MACRO  SRVENT MNE,ABBR
    415					.IF     NE FR$'MNE
    416					  .WORD   SR'ABBR
    417					.IFF
    418					  .WORD   0
    419					.ENDC
    420					.ENDM
    421					;
    422					; DEFINE EXTERNAL SYMBOLS
    423					;
    424	000326				CONDF				;CONTROL BLOCK SYMBOLS
    425	000326				CONFIG				;CONFIGURATION CONTROL SYMBOLS
    426					;                                                                               ;**-1
    427					; ZERO COUNTERS SERVICE TABLE
    428					;
    429	000326				ZERTAB:
    430					;
    431	000326				SRVENT  LCC,ZNDC		;ZERO LOCAL   NODE     COUNTERS
    432	000330				SRVENT  RMC,ZNDC		;ZERO REMOTE  NODE     COUNTERS
    433	000332				SRVENT  LNC,ZLN			;ZERO         LINE     COUNTERS
    434					;
    435		000006 			ZEREND	= .-ZERTAB
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 15
SRZRCN

    437					;
    438					; PROCEDURE BODY
    439					;
    440	000334				PROC	SRZRCN
    441	000334	116500 	000016 		MOVB	C.TYPE(R5),R0		;GET TYPE CODE OF COUNTERS TO BE ZEROED
    442	000340	162700 	000011 		SUB     #RI$ZLC,R0		;TURN IT INTO TABLE POINTER
    443	000344	006300 			ASL	R0
    444	000346	016001 	000326'		MOV	ZERTAB(R0),R1		;GET ADDRESS OF ZERO COUNTERS SERVICE
    445	000352				IF ; ADDRESS OF ZERO COUNTERS SERVICE EXISTS
    446	000352				FALSE   HIS R0,#ZEREND
    447	000360				FALSE   CLEAR R1
    448	000364				THEN
    449	000364				  CALL	@R1			;DISPATCH SERVICE
    450	000366				ELSE
    451	000370	112765 	177777 	000010 	  MOVB    #CE$FUN,C.RET(R5)	;RETURN INVALID OPTION ERROR CODE
    452	000376				ENDIF
    453	000376	000241 			CLC				;SERVICE COMPLETED, RETURN
    454	000400				ENDPROC
    456		000001 			.END
SRZRCN	MACRO M1110  13-OCT-79 12:54  PAGE 15-1
SYMBOL TABLE

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

SP$NDO= 000013   	SRZNDC  000234R  	T$$KMG= 000000   	$$CSTA= 000000   	$$S774= 000077
SP$NST= 000006   	SRZRCN  000334RG 	T$$MIN= 000000   	$$PRST= 000010   	$$S775= 000010
SP$RRP= 000004   	S$$WRG= 000000   	V$$CTR= 001000   	$$STIX= 000777   	$$S776= 000000
SP$RTP= 000005   	S$$YSZ= 001600   	X$$DBT= 000000   	$$STNM= 000000   	$$S777= 000000
SRQDRF= ****** GX	TEMFLG= 000030   	YES   = 000001   	$$S771= 000000   	$$TRNM= 000000
SRQNXF  000000R  	TIMBIT= 000002   	ZEREND= 000006   	$$S772= 000011   	$$$ARG= 000002
SRZLN   000146R  	TIMFLG= 000002   	ZERTAB  000326R  	$$S773= 000011

. ABS.	000000	   000
      	000402	   001
ERRORS DETECTED:  0

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

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

CE$FUN	= 177777	 7-170      15-451    
CE$GEN	= 177774	 7-185     
CE$LID	= 177766	 7-174     
CE$NOD	= 177765	 7-179     
CE$OVR	= 177764	 7-183     
CS$SUC	= 000001	 7-164     
C.ADDR	= 000014	 10-270     12-342     12-344    
C.RET 	= 000010	 7-162     *7-164      7-168     *7-170      7-172     *7-174      7-176      7-177     *7-179     
                         7-181     *7-183     *7-185      10-268     12-340    *15-451    
C.TYPE	= 000016	 15-441    
FL$BOO	= 000001	#5-96       5-96      #14-425     14-425    
FL$DUM	= 000001	#5-96       5-96      #14-425     14-425    
FL$LOA	= 000001	#5-96       5-96      #14-425     14-425    
FL$LOO	= 000001	#5-96       5-96      #14-425     14-425    
FR$LCC	= 000001	#5-96       5-96       10-277    #14-425     14-425     14-431    
FR$LCS	= 000001	#5-96       5-96      #14-425     14-425    
FR$LNC	= 000001	#5-96       5-96       7-193     #14-425     14-425     14-433    
FR$LNL	= 000001	#5-96       5-96      #14-425     14-425    
FR$LNS	= 000001	#5-96       5-96      #14-425     14-425    
FR$RMC	= 000001	#5-96       5-96       10-277    #14-425     14-425     14-432    
FR$RML	= 000001	#5-96       5-96      #14-425     14-425    
FR$RMS	= 000001	#5-96       5-96      #14-425     14-425    
FS$HOS	= 000001	#5-96       5-96      #14-425     14-425    
FS$INT	= 000000	#5-96       5-96       5-96       5-96      #14-425     14-425     14-425     14-425    
FS$LLP	= 000001	#5-96       5-96      #14-425     14-425    
FS$LOF	= 000001	#5-96       5-96      #14-425     14-425    
FS$LOG	= 000001	#5-96       5-96      #14-425     14-425    
FS$LST	= 000001	#5-96       5-96      #14-425     14-425    
FS$NET	= 000001	#5-96       5-96      #14-425     14-425    
FS$NST	= 000000	#5-96       5-96      #14-425     14-425    
FS$PAS	= 000001	#5-96       5-96      #14-425     14-425    
FT$CNS	= 000000	#5-96       5-96      #14-425     14-425    
FT$NOD	= 000001	#5-96       5-96      #14-425     14-425    
FT$TSK	= 000001	#5-96       5-96      #14-425     14-425    
F$ALBF	= 000001	#5-96      #14-425    
F$ALCB	= 000001	#5-96      #14-425    
F$CB  	= 000017	#5-96      #14-425    
F$CLCL	= 000001	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$CLCO	= 000000	#5-96      #14-425    
F$CLFL	= 000000	#5-96      #14-425    
F$CLLK	= 000006	#5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96      
                         5-96      #5-96       5-96      #5-96      #14-425     14-425    #14-425     14-425    #14-425    
                         14-425    #14-425     14-425    #14-425     14-425    #14-425     14-425    #14-425    
F$CLLN	= 000002	#5-96       5-96      #5-96       5-96      #5-96      #14-425     14-425    #14-425     14-425    
                        #14-425    
F$DPOS	= 000001	#5-96       5-96      #14-425     14-425    
F$DUMP	= 000000	#5-96       5-96      #14-425     14-425    
F$EVNT	= 000001	#5-96       5-96      #14-425     14-425    
F$EXAM	= 000001	#5-96       5-96      #14-425     14-425    
F$EXHO	= 000000	#5-96      #14-425    
F$GTCM	= 000001	#5-96       5-96      #14-425     14-425    
F$INCM	= 000000	#5-96       5-96      #14-425     14-425    
SRZRCN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:55	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$INLU	= 000001	#5-96      #14-425    
F$IRLU	= 000000	#5-96      #14-425    
F$LKLU	= 000010	#5-96      #14-425    
F$LNLU	= 000002	#5-96      #14-425    
F$LNSR	= 000001	#5-96       5-96      #14-425     14-425    
F$LOAD	= 000000	#5-96       5-96      #14-425     14-425    
F$LOGD	= 000001	#5-96       5-96      #14-425     14-425    
F$LOOP	= 000001	#5-96       5-96      #14-425     14-425    
F$NTCM	= 000000	#5-96       5-96      #14-425     14-425    
F$OPCL	= 000001	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$OPCO	= 000000	#5-96      #14-425    
F$OPIN	= 000000	#5-96      #14-425    
F$OPIR	= 000000	#5-96      #14-425    
F$OPLK	= 000005	#5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96      
                         5-96      #5-96      #14-425     14-425    #14-425     14-425    #14-425     14-425    #14-425    
                         14-425    #14-425     14-425    #14-425    
F$OPLN	= 000002	#5-96       5-96      #5-96       5-96      #5-96      #14-425     14-425    #14-425     14-425    
                        #14-425    
F$OPLO	= 000000	#5-96      #14-425    
F$OPOR	= 000000	#5-96      #14-425    
F$OPOT	= 000000	#5-96      #14-425    
F$ORLU	= 000000	#5-96      #14-425    
F$OTLU	= 000001	#5-96      #14-425    
F$RCBK	= 000002	#5-96       5-96      #5-96       5-96      #5-96      #14-425     14-425    #14-425     14-425    
                        #14-425    
F$RCEV	= 000001	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$RCIN	= 000000	#5-96      #14-425    
F$RCMA	= 000000	#5-96      #14-425    
F$RCMS	= 000002	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$RDBK	= 000000	#5-96      #14-425    
F$RDCM	= 000000	#5-96      #14-425    
F$RDIN	= 000001	#5-96       5-96      #14-425     14-425    
F$RDIS	= 000012	#5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96      
                         5-96      #5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96       5-96      
                        #5-96      #14-425     14-425    #14-425     14-425    #14-425     14-425    #14-425     14-425    
                        #14-425     14-425    #14-425     14-425    #14-425     14-425    #14-425     14-425    #14-425    
                         14-425    #14-425    
F$RDRC	= 000000	#5-96      #14-425    
F$RECO	= 000001	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$RLBF	= 000001	#5-96      #14-425    
F$RLCB	= 000001	#5-96      #14-425    
F$STBK	= 000000	#5-96      #14-425    
F$STPR	= 000001	#5-96       5-96      #14-425     14-425    
F$STPS	= 000006	#5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96       5-96      #5-96      
                         5-96      #5-96       5-96      #5-96      #14-425     14-425    #14-425     14-425    #14-425    
                         14-425    #14-425     14-425    #14-425     14-425    #14-425     14-425    #14-425    
F$TEST	= 000001	#5-96       5-96      #14-425     14-425    
F$TRAC	= 000000	#5-96       7-157      7-157      7-191      7-191      10-267     10-267     10-273     10-273    
                         12-339     12-339     12-347     12-347    #14-425     15-440     15-440     15-454     15-454    
F$TRBK	= 000001	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$TRIG	= 000001	#5-96       5-96      #14-425     14-425    
F$TRIN	= 000000	#5-96      #14-425    
SRZRCN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:55	PAGE 3

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

F$TRMA	= 000000	#5-96      #14-425    
F$TRMS	= 000002	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$WRBK	= 000000	#5-96      #14-425    
F$WRCL	= 000001	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$WRCM	= 000000	#5-96      #14-425    
F$WRRC	= 000000	#5-96      #14-425    
F$ZERO	= 000001	#5-96       5-96       7-192      10-276     12-350    #14-425     14-425    
F$ZRCN	= 000001	#5-96       5-96      #5-96      #14-425     14-425    #14-425    
F$150 	= 000002	#5-96      #14-425    
F$300 	= 000012	#5-96      #14-425    
F$50  	= 000002	#5-96      #14-425    
F$550 	= 000002	#5-96      #14-425    
IE.DAO	= ******  GX	 7-181     
IE.MOD	= ******  GX	 7-172     
IE.NBK	= ******  GX	 7-177     
IE.NSF	= ******  GX	 7-176     
IE.ONP	= ******  GX	 7-168     
I$$AS 	= ******	 7-157      10-267     12-339     15-440    
NCOLUN	= 000016	 10-270     12-344    
NO    	= 000000	#5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96      #14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425    
NX$ZLC	= 000020	 10-270    
NX$ZNC	= 000006	 12-344    
NX.NIC	= 017050	 10-270     12-344    
RI$ZLC	= 000011	 15-442    
R$$11D	= ******	 7-157      10-267     12-339     15-440    
R$$11M	= 000000	 7-157      10-267     12-339     15-440    
SRQDRF	= ******  GX	 7-189     
SRQNXF	  000000 R	#7-157      10-272     12-346    
SRZLN 	  000146 R	#10-267     14-433    
SRZNDC	  000234 R	#12-339     14-431     14-432    
SRZRCN	  000334 RG	#15-440    
TEMFLG	= 000030	 10-270     12-344    
YES   	= 000001	#5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96       5-96      
                         5-96       5-96       5-96       5-96       5-96      #14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425     14-425    
                         14-425    
ZEREND	= 000006	#14-435     15-446    
ZERTAB	  000326 R	#14-429     14-435     15-444    
SRZRCN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:55	PAGE 4

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

$$CSTA	= 000000	#7-157      7-166     #7-166      7-167     #7-167      7-171      7-175      7-180     #7-186     
                        #10-267    #12-339    #15-440    
$$PRST	= 000010	#7-157      7-158     #7-158      7-161     #7-161      7-166     #7-166     #10-267    #12-339    
                        #15-440    *15-445    #15-445    
$$SLST	= ******	 7-157      7-159      7-160      7-162      7-162      7-163      7-165      7-165      7-168     
                         7-168      7-169      7-171      7-171      7-172      7-172      7-173      7-175      7-175     
                         7-176      7-176      7-177      7-177      7-178      7-180      7-180      7-181      7-181     
                         7-182      7-184      7-184      7-186      7-187      7-188      7-188      7-190      7-191     
                         10-267     10-273     12-339     12-347     15-440     15-446     15-446     15-447     15-447    
                         15-448     15-450     15-450     15-452     15-454    
$$STIX	= 000777	#7-157      7-158      7-158     #7-158      7-158      7-158     #7-158      7-161      7-161     
                        #7-161      7-161      7-161     #7-161      7-166      7-166     #7-166      7-166      7-166     
                        #7-166      7-166      7-166     #7-166     *7-186     #7-186     *7-186      7-186     #7-186     
                         7-186      7-186     #7-186      7-186      7-187     #7-187      7-187      7-187     #7-187     
                         7-187      7-190     #7-190      7-190      7-190     #7-190      7-190     #10-267    #12-339    
                        #15-440    *15-445    *15-445    #15-445    *15-445    *15-445    #15-445     15-452    #15-452    
                         15-452     15-452    #15-452     15-452    
$$STNM	= 000000	#7-157      7-158     #7-158      7-158      7-159      7-160      7-161     #7-161      7-161     
                         7-162      7-163     *7-165      7-165      7-166     #7-166      7-166      7-168      7-169     
                         7-171      7-171      7-172      7-173      7-175      7-175      7-176      7-177      7-178     
                         7-180      7-180      7-181      7-182     *7-184      7-184      7-186     #7-186      7-187     
                        #7-187      7-188      7-188      7-190     #7-190     #10-267    #12-339    #15-440    *15-445    
                        #15-445    *15-445     15-446     15-447     15-448     15-450     15-450    *15-452    #15-452    
$$S771	= 000000	#7-166     *7-186     
$$S772	= 000011	#7-166      7-186     
$$S773	= 000011	#7-166      7-186     
$$S774	= 000077	#7-161      7-187     
$$S775	= 000010	#7-161      7-187     
$$S776	= 000000	#7-158      7-190     #15-445     15-452    
$$S777	= 000000	#7-158      7-190     #15-445     15-452    
$$TRNM	= 000000	#7-157      7-158     #7-158      7-159      7-160      7-161     #7-161      7-162      7-163     
                         7-165     #7-165      7-166     #7-166      7-168      7-169      7-171      7-171     #7-171     
                         7-172      7-173      7-175      7-175     #7-175      7-176      7-177      7-178      7-180     
                         7-180     #7-180      7-181      7-182      7-184     #7-184      7-186      7-186     #7-186     
                         7-187     #7-187      7-188     #7-188      7-190     #7-190     #10-267    #12-339    #15-440    
                        *15-445    #15-445     15-446     15-447     15-448     15-450    #15-450    *15-452    #15-452    
$$$ARG	= 000002	#10-270     10-270    #10-270     10-270    #10-270     10-270    #10-270     10-270     10-270    
                        #10-270     10-270     10-270     10-270     10-270     10-270     10-270     10-270     10-270    
                         10-270     10-270    #10-270     10-270     10-270     10-270     10-270     10-270     10-270    
                         10-270     10-270     10-270     10-270    #10-270     10-270     10-270     10-270     10-270    
                         10-270     10-270     10-270     10-270     10-270     10-270    #12-344     12-344    #12-344    
                         12-344    #12-344     12-344    #12-344     12-344     12-344    #12-344     12-344     12-344    
                         12-344     12-344     12-344     12-344     12-344     12-344     12-344     12-344    #12-344    
                         12-344     12-344     12-344     12-344     12-344     12-344     12-344     12-344     12-344    
                         12-344    #12-344     12-344     12-344     12-344     12-344     12-344     12-344     12-344    
                         12-344     12-344     12-344    
SRZRCN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:55	PAGE 5

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#7-189     #10-272    #12-346    #15-449    
CASE  		#7-157      7-167      7-171      7-175      7-180     #10-267    #12-339    #15-440    
CONDF 		#6-148      6-152     #9-255      9-260     #11-327     11-332    #14-410     14-424    
CONFIG		#5-91      #5-96      #14-410    #14-425    
DIR$  		#10-270    #10-270    #12-344    #12-344    
DLXDF 		#9-255      9-261     #11-327     11-333    
DO    		#7-157      7-169      7-173      7-178      7-182     #10-267    #12-339    #15-440    
ELSE  		#7-157      7-165      7-184      7-188     #10-267    #12-339    #15-440     15-450    
ENDCAS		#7-157     #7-186     #10-267    #12-339    #15-440    
ENDIF 		#7-157     #7-186     #7-187     #7-190     #10-267    #12-339    #15-440    #15-452    
ENDPRO		#7-157      7-191     #10-267     10-273    #12-339     12-347    #15-440     15-454    
ENDWHI		#7-157     #10-267    #12-339    #15-440    
FALSE 		#7-157      7-159      7-162     #10-267    #12-339    #15-440     15-446     15-447    
FALSEB		#7-157     #7-168     #7-172     #7-177     #7-181     #10-267    #12-339    #15-440    
IF    		#7-157      7-158      7-161      7-166     #10-267    #12-339    #15-440     15-445    
JMPPRO		#7-157     #10-267    #12-339    #15-440    
MOV$  		#10-270    #10-270    #10-270    #10-270    #10-270    #10-270    #10-270    #10-270    #10-270    #10-270    
                #12-344    #12-344    #12-344    #12-344    #12-344    #12-344    #12-344    #12-344    #12-344    #12-344    
MVB$  		#10-270    #10-270    #12-344    #12-344    
ONCASE		#7-157      7-166     #10-267    #12-339    #15-440    
PROC  		#5-92       15-440    
PROCLC		#5-92      #6-148      7-157     #7-157      10-267    #10-267     12-339    #12-339    #15-440    
PROFLG		#5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      
                #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      
                #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      
                #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      #5-96      
                #5-96      #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    
                #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    
                #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    
                #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    #14-425    
                #14-425    #14-425    
QDPB$S		#10-270     10-270    #12-344     12-344    
QIOW$S		#9-255      10-270    #11-327     12-344    
RESSTK		#9-256     #11-328    
RVP$  		#10-270    #10-270    #10-270    #10-270    #12-344    #12-344    #12-344    #12-344    
SAVSTK		#9-256     #11-328    
SRDF  		#9-255     #9-262     #11-327    #11-334    
SRVENT		#14-414     14-431     14-432     14-433    
SWSTK$		#7-157     #10-267    #12-339    #15-440    
THEN  		#7-157     #7-160     #7-163     #7-169     #7-173     #7-178     #7-182     #10-267    #12-339    #15-440    
                #15-448    
TRUE  		#7-157     #10-267    #12-339    #15-440    
TRUEB 		#7-157     #7-176     #10-267    #12-339    #15-440    
WHILE 		#7-157     #10-267    #12-339    #15-440    
$$BGND		#7-157      7-159      7-162      7-168      7-172      7-176      7-177      7-181     #10-267    #12-339    
                #15-440     15-446     15-447    
$$BGNN		#7-157      7-159      7-162      7-165      7-168      7-171      7-172      7-175      7-176      7-177     
                 7-180      7-181      7-184      7-188     #10-267    #12-339    #15-440     15-446     15-447     15-450    
$$ELSE		#7-157      7-165      7-171      7-175      7-180      7-184      7-188     #10-267    #12-339    #15-440    
                 15-450    
$$GEN1		#7-157     #7-157     #7-159     #7-160     #7-162     #7-162     #7-163     #7-165     #7-165     #7-168     
                #7-169     #7-171     #7-171     #7-172     #7-173     #7-175     #7-175     #7-176     #7-177     #7-178     
SRZRCN     CREATED BY  MACRO  ON 13-OCT-79 AT 12:55	PAGE 6

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

                #7-180     #7-180     #7-181     #7-182     #7-184     #7-184     #7-186     #7-187     #7-188     #7-188     
                #7-190     #7-191     #10-267    #10-267    #10-273    #12-339    #12-339    #12-347    #15-440    #15-440    
                #15-446    #15-447    #15-447    #15-448    #15-450    #15-450    #15-452    #15-454    
$$GEN2		#7-157      7-168      7-172      7-176      7-177      7-181     #10-267    #12-339    #15-440     15-446    
$$GNAB		#7-157      7-159      7-162      7-168      7-172      7-176      7-177      7-181     #10-267    #12-339    
                #15-440     15-446    
$$GNBT		#7-157     #10-267    #12-339    #15-440    #15-447    
$$GNCM		#7-157     #7-159     #7-162     #7-168     #7-172     #7-176     #7-177     #7-181     #10-267    #12-339    
                #15-440    #15-446    #15-447    
$$INMC		#7-157      7-157     #10-267     10-267    #12-339     12-339    #15-440     15-440    
$$INSY		#7-157      7-157     #10-267     10-267    #12-339     12-339    #15-440     15-440    
$$LAB 		#7-157      7-160      7-163      7-165      7-169      7-171      7-173      7-175      7-178      7-180     
                 7-182      7-184      7-186      7-187      7-188      7-190     #10-267    #12-339    #15-440     15-448    
                 15-450     15-452    
$$POP 		#7-157     #7-186     #7-186     #7-186     #7-187     #7-187     #7-190     #7-190     #10-267    #12-339    
                #15-440    #15-452    #15-452    
$$POPI		#7-157     #7-186     #7-186     #7-186     #7-187     #7-187     #7-190     #7-190     #10-267    #12-339    
                #15-440    #15-452    #15-452    
$$PUSH		#7-157     #7-158     #7-158     #7-161     #7-161     #7-166     #7-166     #7-166     #10-267    #12-339    
                #15-440    #15-445    #15-445    
$$STSM		#7-157     #7-158     #7-158     #7-161     #7-161     #7-166     #7-166     #7-166     #10-267    #12-339    
                #15-440    #15-445    #15-445    
$$SYS 		#7-157     #10-267    #12-339    #15-440    
$$TRCE		#7-157      7-157      7-191     #10-267     10-267     10-273    #12-339     12-339     12-347    #15-440    
                 15-440     15-454