Google
 

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

     6-  132	TSTIM - TIMEOUT PROCESSOR
     6-  133	DSPTM - DISPATCH A PROCESS TIMEOUT
     7-  201	$SDLTM - START A SHORT TIMER FOR A DLC                          ;AP0002
     7-  212	$SDDTM - START A SHORT TIMER FOR A DDM                          ;AP0002
     8-  234	$CNDTM - CANCEL A SHORT TIMER                                   ;AP0002
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 3


      1					.IIF DF X$$NDM	.TITLE CETIMN
      2					.IIF NDF X$$NDM	.TITLE CETIM
      3						.IDENT	/V01.02/
      4
      5					;
      6					; COPYRIGHT (C) 1978 BY
      7					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
      8					;
      9					;
     10					; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED
     11					; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE
     12					; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER
     13					; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
     14					; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY
     15					; TRANSFERRED.
     16					;
     17					; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE
     18					; AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT BY DIGITAL EQUIPMENT
     19					; CORPORATION.
     20					;
     21					; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS
     22					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
     23					;
     24					; MODULE DESCRIPTION:
     25					;
     26					;	COMMUNICATIONS EXECUTIVE TIMER ROUTINES
     27					;
     28					;
     29					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     30					;
     31					; IDENT HISTORY:
     32					;
     33					; 1.00	10-FEB-78
     34					;	VERSION 2.0 RELEASE
     35					; 1.01	11-APR-79 ALAN D. PECKHAM
     36					;	CORRECTIONS TO ALLOW MAPPED DLC LINE TABLES
     37					; 1.02	17-APR-79 ALAN D. PECKHAM
     38					;	ADD NEW SHORT TIMER SUPPORT
     39
     40					;
     41					; MACRO LIBRARY CALLS
     42					;
     43						.MCALL	INHIB$,ENABL$,SAVRG,RESRG
     44						.MCALL	CCBDF$,HWDDF$,SLTDF$,PDVDF$
     45	000000					CCBDF$			; DEFINE THE CCB OFFSETS
     46	000000					SLTDF$			; DEFINE THE SLT OFFSETS
     47	000000					PDVDF$			; DEFINE THE PDV OFFSETS
     48	000000					HWDDF$			; DEFINE THE HARDWARE REGISTERS
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 4


     50					;
     51					; LOCAL DATA
     52					;
     53
     54
     55	000000	001010 			LTMFC:	.WORD	FC.TIM+FS.LTM	; FUNCTION CODE TO DISPATCH LONG TIMEOUTS       ;**-12
     56	000002	000000 	000000 	000000 	$T1SCL::.WORD	0,0,0,0,0	; 1 SECOND CLOCK QUEUE ENTRY
	000010	000000 	000000
     57	000014	000020'				.WORD	PR1SC		; ADDRESS OF PROCESSING ROUTINE
     58
     59						.IF DF	L$$DRV&M$$MGE
     60
     61	000016	000000 				.WORD	0		; RELOCATION BIAS
     62
     63						.ENDC
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 5


     65					;
     66					; SCAN SLT FOR DDM AND DLC TIMEOUTS
     67					;
     68					; DDM AND DLC LINE TABLES ARE EXAMINED FOR NONZERO TIMEOUT COUNTS
     69					; UNLESS THE LINE IS DISABLED (LF.OFF=1).
     70					; DEVICE DRIVERS RUNNING AS DLC PROCESSES WILL HAVE THE SAME DDM
     71					; AND DLC PDV INDEX, SO ONLY A SINGLE TIMEOUT CHECK IS MADE.
     72					;
     73
     74	000020				PR1SC:
     75						.IF DF R$$11M
     76	000020	005767 	000000G			TST	$PWRF1		; IS POWERFAIL RECOVERY IN PROGRESS?
     77	000024	100475 				BMI	$T1SIN		; IF NE, YES - DON'T DISPATCH ANY TIMERS
     78						.ENDC
     79
     80	000026	013746 	172354 			MOV	@#KISAR6,-(SP)	; SAVE APR6 FROM THE PROCESSES' INDESCRETION    ;AP0001
     81	000032	012704 	000000G			MOV	#$SLTTB,R4	; SET ADDRESS OF SLT
     82	000036	016746 	000000G			MOV	$SLTNM,-(SP)	; SET NUMBER OF LINES TO SCAN
     83	000042	032714 	100000 		40$:	BIT	#LF.ACT,(R4)	; IS LINE ACTIVE?
     84	000046	001426 				BEQ	50$		; IF EQ, NO - GO TO NEXT LINE
     85	000050	032714 	000010 			BIT	#LF.TIM,(R4)	; DOES LINE REQUIRE TIMER SERVICE?
     86	000054	001423 				BEQ	50$		; IF EQ, NO - GO TO NEXT LINE
     87	000056	016405 	000004 			MOV	L.DDS(R4),R5	; GET LINE TABLE ADDRESS
     88	000062	116402 	000002 			MOVB	L.DDM(R4),R2	; GET PDV INDEX
     89	000066					CALL	TSTIM		; TEST TIMEOUT COUNT AND DISPATCH IF REQUIRED
     90	000072	126464 	000002 	000003 	45$:	CMPB	L.DDM(R4),L.DLC(R4) ; SAME PDV INDEX FOR DDM AND DLC ?
     91	000100	001411 				BEQ	50$		; IF EQ YES, SKIP DLC TIMER CHECK
     92	000102	016405 	000010 			MOV	L.DLS(R4),R5	; GET DLC LINE TABLE ADDRESS
     93	000106	016437 	000006 	172354 		MOV	L.DLM(R4),@#KISAR6 ; MAP TO IT                                  ;AP0002
     94	000114	116402 	000003 			MOVB	L.DLC(R4),R2	; GET DLC PDV INDEX
     95	000120					CALL	TSTIM		; TEST TIMEOUT COUNT AND DISPATCH IF REQUIRED
     96	000124	062704 	000014 		50$:	ADD	#L.LEN,R4	; COMPUTE ADDRESS OF NEXT ENTRY IN SLT
     97	000130	005316 				DEC	(SP)		; SCANNED ALL SYSTEM LINES ?
     98	000132	001343 				BNE	40$		; IF NE, NO - KEEP AT IT
     99					;
    100					; SCAN PDV'S FOR PROCESS TIMEOUTS
    101					;
    102	000134	012704 	000000G			MOV	#$PDVTB,R4	; GET ADDRESS OF PDV ADDRESS TABLE
    103	000140	016716 	000000G			MOV	$PDVNM,(SP)	; SET NUMBER OF PDV'S TO SCAN
    104	000144	012401 			60$:	MOV	(R4)+,R1	; GET PDV ADDRESS
    105	000146	001417 				BEQ	70$		; IF EQ, NONE
    106	000150	005761 	000012 			TST	Z.PCB(R1)	; IS PROCESS LOADED (IN MEMORY)?
    107	000154	001414 				BEQ	70$		; IF EQ, NO - GO TO NEXT PROCESS
    108	000156	132761 	000200 	000011 		BITB	#ZF.TIM,Z.FLG(R1) ; TIMEOUT REQUIRED ?
    109	000164	001410 				BEQ	70$		; IF EQ, NO - GO TO NEXT PROCESS
    110	000166	016105 	000014 			MOV	Z.DAT(R1),R5	; GET ADDRESS OF DATA BASE DESCRIPTOR BLOCK
    111	000172	010402 				MOV	R4,R2		; COMPUTE PDV INDEX
    112	000174	166702 	000000G			SUB	$PDVTA,R2	; ...
    113	000200	005742 				TST	-(R2)		; ...
    114	000202					CALL	DSPTM		; DISPATCH PROCESS TIMEOUT
    115	000206	005316 			70$:	DEC	(SP)		; SCANNED ALL PDV"S
    116	000210	001355 				BNE	60$		; IF NE, NO - KEEP AT IT
    117	000212	005726 				TST	(SP)+		; CLEAN STACK
    118	000214	012637 	172354 			MOV	(SP)+,@#KISAR6	; APR6 IS NOW SAFE.                             ;AP0001
    119
    120					;
    121					; GLOBAL ENTRY USED AT INITIALIZATION
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 5-1


    122					;
    123
    124	000220	012700 	000002'		$T1SIN::MOV	#$T1SCL,R0	; SET ADDRESS OF CLOCK QUEUE ENTRY
    125	000224	012702 	000074 			MOV	#60.,R2		; SET NUMBER OF TICKS (1 SECOND)
    126	000230	005001 			80$:	CLR	R1		; NO HIGH ORDER NUMBER OF TICKS
    127	000232	012704 	000006 			MOV	#6,R4		; SET SYSTEM REQUEST INDICATOR
    128	000236	010005 				MOV	R0,R5		; AND REQUEST ID.                               ;AP0002
    129	000240					CALLR	$CLINS		; INSERT ENTRY INTO CLOCK QUEUE
    130
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 6
TSTIM - TIMEOUT PROCESSOR

    132						.SBTTL	TSTIM - TIMEOUT PROCESSOR
    133						.SBTTL	DSPTM - DISPATCH A PROCESS TIMEOUT
    134
    135					;+
    136					; **-TSTIM-TIMEOUT PROCESSOR
    137					;
    138					; THIS SUBROUTINE IS CALLED TO TEST AND DECREMENT A TIMEOUT COUNT IN
    139					; THE FIRST BYTE OF A PROCESS LINE TABLE.  IF THE COUNT IS DECREMENTED
    140					; TO ZERO, THE PROCESS IS DISPATCHED AT IT'S TIMEOUT ENTRY POINT WITH
    141					; A 'FS.LTM' SUBFUNCTION CODE.
    142					;
    143					; INPUTS:
    144					;
    145					;	R2 = PDV INDEX OF PROCESS
    146					;	R5 = ADDRESS OF PROCESS LINE TABLE
    147					;
    148					; OUTPUTS:
    149					;
    150					;	AS DESCRIBED ABOVE
    151					;
    152					; REGISTERS MODIFIED:
    153					;
    154					;	R0, R1, R2, R3, AND R5
    155					;-
    156						.ENABL	LSB
    157
    158	000244				TSTIM:	MTPS	#PR7		;;; DISABLE INTERRUPTS
    159	000252	105715 				TSTB	(R5)		;;; TIMER ACTIVE ?
    160	000254	001410 				BEQ	10$		;;; IF EQ NO, JUST EXIT
    161	000256	105315 				DECB	(R5)		;;; DECREMENT TIME TO GO
    162	000260	001006 				BNE	10$		;;; IF NE, TIMER STILL RUNNING
    163
    164					;+
    165					; **-DSPTM-DISPATCH A PROCESS TIMEOUT
    166					;
    167					;
    168					;-
    169
    170	000262	012703 	000000'		DSPTM:	MOV	#LTMFC,R3	;;; SET ADDRESS OF FUNCTION CODE
    171	000266	010446 				MOV	R4,-(SP)	;;; SAVE CALLERS R4
    172	000270					CALL	$PDSPL		;;; DISPATCH TO PROCESS
    173	000274	012604 				MOV	(SP)+,R4	;;; RESTORE CALLERS R4
    174	000276				10$:	MTPS	#0		;;; ENABLE INTERRUPTS
    175	000302					RETURN			; RETURN TO CALLER
    176
    177						.DSABL	LSB
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 7
DSPTM - DISPATCH A PROCESS TIMEOUT

    179					;+                                                                              ;AP0002
    180					; **-$SDDTM-START A SHORT TIMER FOR A DDM                                       ;AP0002
    181					; **-$SDLTM-START A SHORT TIMER FOR A DLC                                       ;AP0002
    182					;                                                                               ;AP0002
    183					; INPUTS:                                                                       ;AP0002
    184					;	R4 = ADDRESS OF A CCB                                                   ;AP0002
    185					;		C.LLC = TIMER IDENTIFIER (MUST BE UNIQUE BETWEEN LINES)         ;AP0002
    186					;		C.LIN = LINE NUMBER FOR NOTIFICATION                            ;AP0002
    187					;                                                                               ;AP0002
    188					; OUTPUTS:                                                                      ;AP0002
    189					;	NONE                                                                    ;AP0002
    190					;                                                                               ;AP0002
    191					; FUNCTION:                                                                     ;AP0002
    192					;	AN RSX CLOCK QUEUE ENTRY IS BUILT AT C.BUF IN THE CCB AND IS            ;AP0002
    193					;	INSERTED INTO THE RSX CLOCK QUEUE.                                      ;AP0002
    194					;                                                                               ;AP0002
    195					; REGISTERS MODIFIED:                                                           ;AP0002
    196					;	NONE                                                                    ;AP0002
    197					;-                                                                              ;AP0002
    198						.MCALL	CLKDF$                                                          ;AP0002
    199	000304					CLKDF$			; RSX CLOCK ENTRY OFFSETS                       ;AP0002
    200					                                                                                ;AP0002
    201						.SBTTL	$SDLTM - START A SHORT TIMER FOR A DLC                          ;AP0002
    202					                                                                                ;AP0002
    203	000304				$SDLTM::CALL	SDTM		; SCHEDULE THE TIMER.                           ;AP0002
    204					                                                                                ;AP0002
    205	000310	013746 	172354 			MOV	@#KISAR6,-(SP)	; SAVE APR6 FROM THE PROCESSES' INDESCRETION    ;AP0002
    206	000314	162704 	000014 			SUB	#C.BUF,R4	; GET CCB ADDRESS                               ;AP0002
    207	000320					CALL	$STDLC		; DLC PDV INDEX AND LINE TABLE ADDRESS          ;AP0002
    208	000324					CALL	$PDSPL		; AND DISPATCH.                                 ;AP0002
    209	000330	012637 	172354 			MOV	(SP)+,@#KISAR6	; APR6 IS NOW SAFE.                             ;AP0002
    210	000334					RETURN                                                                  ;AP0002
    211					                                                                                ;AP0002
    212						.SBTTL	$SDDTM - START A SHORT TIMER FOR A DDM                          ;AP0002
    213					                                                                                ;AP0002
    214	000336				$SDDTM::CALL	SDTM		; SCHEDULE THE TIMER.                           ;AP0002
    215					                                                                                ;AP0002
    216	000342	013746 	172354 			MOV	@#KISAR6,-(SP)	; SAVE APR6 FROM THE PROCESSES' INDESCRETION    ;AP0002
    217	000346	162704 	000014 			SUB	#C.BUF,R4	; GET CCB ADDRESS                               ;AP0002
    218	000352					CALL	$STDDM		; DDM PDV INDEX AND LINE TABLE ADDRESS          ;AP0002
    219	000356					CALL	$PDSPL		; AND DISPATCH.                                 ;AP0002
    220	000362	012637 	172354 			MOV	(SP)+,@#KISAR6	; APR6 IS NOW SAFE.                             ;AP0002
    221	000366					RETURN                                                                  ;AP0002
    222					                                                                                ;AP0002
    223	000370	012764 	000010 	000010 	SDTM:	MOV	#FC.TIM!FS.STM,C.FNC(R4) ; SET DISPATCH FUNCTION CODE           ;AP0002
    224	000376	012664 	000026 			MOV	(SP)+,C.SUB+C.BUF(R4) ; AND SERVICE ROUTINE ADDRESS.            ;AP0002
    225	000402	004567 	000046 			JSR	R5,SAVAL	; SAVE ALL REGISTERS                            ;AP0002
    226	000406	010400 				MOV	R4,R0		; CLOCK QUEUE ELEMENT ADDRESS                   ;AP0002
    227	000410	062700 	000014 			ADD	#C.BUF,R0                                                       ;AP0002
    228	000414	005001 				CLR	R1		; HIGH ORDER TIME                               ;AP0002
    229	000416	016402 	000012 			MOV	C.STS(R4),R2	; AND LOW ORDER TIME.                           ;AP0002
    230	000422	016405 	000004 			MOV	C.NSP(R4),R5	; IDENTIFIER                                    ;AP0002
    231	000426	012704 	000006 			MOV	#C.SYST,R4	; AND SYSTEM REQUEST INDICATOR.                 ;AP0002
    232	000432					CALLR	$CLINS		; INSERT THE ENTRY AND RETURN.                  ;AP0002
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 8
$CNDTM - CANCEL A SHORT TIMER

    234						.SBTTL	$CNDTM - CANCEL A SHORT TIMER                                   ;AP0002
    235					;+                                                                              ;AP0002
    236					; **-$CNDTM-CANCEL ONE OR MORE SHORT TIMERS                                     ;AP0002
    237					;                                                                               ;AP0002
    238					; INPUTS:                                                                       ;AP0002
    239					;	R4 = IDENTIFIER FOR TIMER(S) TO BE CANCELLED                            ;AP0002
    240					;                                                                               ;AP0002
    241					; OUTPUTS:                                                                      ;AP0002
    242					;	NONE                                                                    ;AP0002
    243					;                                                                               ;AP0002
    244					; FUNCTION:                                                                     ;AP0002
    245					;	THE TIMER IS CANCELLED.                                                 ;AP0002
    246					;                                                                               ;AP0002
    247					; REGISTERS MODIFIED:                                                           ;AP0002
    248					;	NONE                                                                    ;AP0002
    249					;-                                                                              ;AP0002
    250					                                                                                ;AP0002
    251	000436	004567 	000012 		$CNDTM::JSR	R5,SAVAL	; SAVE SOME REGISTERS                           ;AP0002
    252	000442	010405 				MOV	R4,R5		; SET IDENTIFIER                                ;AP0002
    253	000444	012704 	000006 			MOV	#C.SYST,R4	; FOR SYSTEM CLOCK REQUEST                      ;AP0002
    254	000450					CALLR	$CLRMV		; AND REMOVE THE CLOCK ENTRIES.                 ;AP0002
    255					                                                                                ;AP0002
    256	000454				SAVAL:	SAVRG	<R4,R3,R2,R1,R0> ; SAVE SOME REGISTERS                          ;AP0002
    257	000466					CALL	(R5)		; CALL THE CALLER                               ;AP0002
    258	000470					RESRG	<R0,R1,R2,R3,R4,R5> ; RESTORE THEM                              ;AP0002
    259	000504					RETURN			; AND GO AWAY.                                  ;AP0002
    260		000001 				.END                                                                    ;**-71
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 8-1
SYMBOL TABLE

A$$CHK= 000000   	C.FLG   000022   	FS.CIB= 002000   	LF.UNL= 020000   	TSTIM   000244R
A$$CPS= 000000   	C.FLG1  000022   	FS.CRA= 001000   	LTMFC   000000R  	T$$KMG= 000000
A$$PRI= 000000   	C.FLG2  000032   	FS.DIS= 013000   	L$$ASG= 000000   	T$$MIN= 000000
A$$TRP= 000000   	C.FNC   000010   	FS.DVC= 001000   	L$$DRV= 000000   	UBMPR = 170200
CB.CCB= 000002   	C.LGTH= 000020   	FS.ENB= 012000   	L$$P11= 000001   	UDSAR0= 177660
CB.RDB= 000004   	C.LIN   000006   	FS.GET= 006000   	L$$11R= 000000   	UDSDR0= 177620
CE.ABO= 100362   	C.LNK   000000   	FS.INI= 000000   	L.CTL   000012   	UISAR0= 177640
CE.DIS= 100366   	C.MOD   000011   	FS.KIL= 000000   	L.DDM   000002   	UISAR4= 177650
CE.ERR= 100370   	C.MRKT= 000000   	FS.LTM= 001000   	L.DDS   000004   	UISAR5= 177652
CE.MOP= 100372   	C.NSP   000004   	FS.MNT= 004000   	L.DLC   000003   	UISAR6= 177654
CE.NTE= 100361   	C.RQT   000002   	FS.MSN= 014000   	L.DLM   000006   	UISAR7= 177656
CE.RTE= 100376   	C.RSI   000012   	FS.RNG= 011000   	L.DLS   000010   	UISDR0= 177600
CE.SRC= 100364   	C.RSV   000002   	FS.RTN= 001000   	L.FLG   000000   	UISDR4= 177610
CE.TMO= 100374   	C.SCHD= 000002   	FS.SET= 005000   	L.LEN = 000014   	UISDR5= 177612
CF.EOM= 000004   	C.SRC   000014   	FS.STM= 000000   	L.UNT   000013   	UISDR6= 177614
CF.HDR= 000020   	C.SSHT= 000004   	FS.STP= 002000   	MPAR  = 172100   	UISDR7= 177616
CF.LB = 100000   	C.STA   000007   	FS.STR= 001000   	MPCSR = 177746   	V$$CTR= 001000
CF.SOM= 000010   	C.STS   000012   	FS.TRM= 003000   	M$$CRB= 000124   	X$$DBT= 000000
CF.SYN= 000040   	C.SUB   000012   	FS.XKL= 002000   	M$$CRX= 000000   	ZF.DDM= 000001
CF.TRN= 000100   	C.SYST= 000006   	FS.XOF= 010000   	M$$FCS= 000000   	ZF.DLC= 000002
CMODE = 140000   	C.SYTK= 000010   	FS.XON= 007000   	M$$MGE= 000000   	ZF.KMX= 000020
CS.ABO= 000100   	C.TCB   000004   	F$$LVL= 000001   	M$$OVR= 000000   	ZF.LLC= 000004
CS.BUF= 000200   	C.TIM   000006   	G$$TPP= 000000   	N$$LDV= 000001   	ZF.LMC= 000100
CS.DCR= 000400   	C.UIC   000016   	G$$TSS= 000000   	N$$MOV= 000010   	ZF.MFL= 000010
CS.DEV= 000002   	DSPTM   000262R  	G$$TTK= 000000   	N$$SYS= 000001   	ZF.MUX= 000040
CS.DIS= 000040   	D$$BUG= 177514   	G$$WRD= 000000   	N$$USR= 000001   	ZF.TIM= 000200
CS.ENB= 000020   	D$$ISK= 000000   	I$$RAR= 000000   	PIRQ  = 177772   	Z.DAT   000014
CS.EOF= 000001   	D$$L11= 000001   	I$$RDN= 000000   	PMODE = 030000   	Z.DSP   000000
CS.ERR= 100000   	D$$YNC= 000000   	KDSAR0= 172360   	PR0   = 000000   	Z.FLG   000011
CS.HFE= 002000   	D$$YNM= 000000   	KDSDR0= 172320   	PR1   = 000040   	Z.LEN = 000014
CS.LST= 040000   	E$$XPR= 000000   	KISAR0= 172340   	PR1SC   000020R  	Z.LLN   000010
CS.MTL= 004000   	FC.CCP= 000020   	KISAR5= 172352   	PR4   = 000200   	Z.MAP   000016
CS.RNG= 000010   	FC.CTL= 000006   	KISAR6= 172354   	PR5   = 000240   	Z.NAM   000006
CS.ROV= 000004   	FC.KCP= 000016   	KISAR7= 172356   	PR6   = 000300   	Z.PCB   000012
CS.RSN= 010000   	FC.KIL= 000004   	KISDR0= 172300   	PR7   = 000340   	Z.SCH   000004
CS.SUC= 000001   	FC.RCE= 000002   	KISDR6= 172314   	PS    = 177776   	$CLINS= ****** GX
CS.TMO= 020000   	FC.RCP= 000014   	KISDR7= 172316   	P$$P45= 000000   	$CLRMV= ****** GX
C$$CKP= 000000   	FC.TIM= 000010   	K$$CNT= 177546   	P$$WRD= 000000   	$CNDTM  000436RG
C$$ORE= 000400   	FC.XCP= 000012   	K$$CSR= 177546   	Q$$OPT= 000010   	$PDSPL= ****** GX
C$$RSH= 177564   	FC.XME= 000000   	K$$LDC= 000000   	R$$DER= 000000   	$PDVNM= ****** GX
C.AR5   000014   	FE.CAL= 000040   	K$$TPS= 000074   	R$$K11= 000001   	$PDVTA= ****** GX
C.AST   000012   	FE.DRV= 000010   	LD$LP = 000000   	R$$SND= 000000   	$PDVTB= ****** GX
C.BID   000003   	FE.EXP= 000200   	LF.ACT= 100000   	R$$11M= 000000   	$PWRF1= ****** GX
C.BUF   000014   	FE.EXT= 000001   	LF.BWT= 000007   	SAVAL   000454R  	$SDDTM  000336RG
C.BUF1  000014   	FE.EXV= 000004   	LF.DLO= 000040   	SDTM    000370R  	$SDLTM  000304RG
C.BUF2  000024   	FE.LSI= 000400   	LF.ENA= 002000   	SISDR0= 172200   	$SLTNM= ****** GX
C.CNT   000020   	FE.MUP= 000002   	LF.MDC= 000100   	SR0   = 177572   	$SLTTB= ****** GX
C.CNT1  000020   	FE.MXT= 040000   	LF.MFL= 004000   	SR3   = 172516   	$STDDM= ****** GX
C.CNT2  000030   	FE.NLG= 100000   	LF.MTP= 000020   	SWR   = 177570   	$STDLC= ****** GX
C.CSTP= 000012   	FE.PKT= 000100   	LF.RDY= 040000   	S$$WRG= 000000   	$T1SCL  000002RG
C.DST   000016   	FE.PLA= 000020   	LF.REA= 010000   	S$$YSZ= 007600   	$T1SIN  000220RG
C.EFN   000003   	FS.AST= 000000   	LF.TIM= 000010   	TPS   = 177564

. ABS.	000034	   000
      	000506	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  7151 WORDS  ( 28 PAGES)
CETIM	MACRO M1110  13-OCT-79 08:09  PAGE 8-2
SYMBOL TABLE

DYNAMIC MEMORY:  7948 WORDS  ( 30 PAGES)
ELAPSED TIME:  00:00:23
CETIM,[130,34]CETIM/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,CETIM
CETIM      CREATED BY  MACRO  ON 13-OCT-79 AT 08:10	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

C.BUF 	  000014	 7-206      7-217     *7-224      7-227     
C.FNC 	  000010	*7-223     
C.NSP 	  000004	 7-230     
C.STS 	  000012	 7-229     
C.SUB 	  000012	*7-224     
C.SYST	= 000006	 7-231      8-253     
DSPTM 	  000262 R	 5-114     #6-170     
FC.TIM	= 000010	 4-55       7-223     
FS.LTM	= 001000	 4-55      
FS.STM	= 000000	 7-223     
I$$AS 	= ******	 3-47      
KISAR6	= 172354	 5-80       5-93       5-118      7-205      7-209      7-216      7-220     
LF.ACT	= 100000	#3-46       5-83      
LF.BWT	= 000007	#3-46      
LF.DLO	= 000040	#3-46      
LF.ENA	= 002000	#3-46      
LF.MDC	= 000100	#3-46      
LF.MFL	= 004000	#3-46      
LF.MTP	= 000020	#3-46      
LF.RDY	= 040000	#3-46      
LF.REA	= 010000	#3-46      
LF.TIM	= 000010	#3-46       5-85      
LF.UNL	= 020000	#3-46      
LTMFC 	  000000 R	#4-55       6-170     
L$$DRV	= 000000	 4-59      
L.CTL 	  000012	#3-46      
L.DDM 	  000002	#3-46       5-88       5-90      
L.DDS 	  000004	#3-46       5-87      
L.DLC 	  000003	#3-46       5-90       5-94      
L.DLM 	  000006	#3-46       5-93      
L.DLS 	  000010	#3-46       5-92      
L.FLG 	  000000	#3-46      
L.LEN 	= 000014	#3-46       5-96      
L.UNT 	  000013	#3-46      
M$$MGE	= 000000	 4-59      
PR1SC 	  000020 R	 4-57      #5-74      
PR7   	= 000340	 6-158     
PS    	= 177776	 6-158      6-174     
R$$11D	= ******	 3-47      
R$$11M	= 000000	 3-47       5-75      
R$$11S	= ******	 3-47      
SAVAL 	  000454 R	 7-225      8-251     #8-256     
SDTM  	  000370 R	 7-203      7-214     #7-223     
TSTIM 	  000244 R	 5-89       5-95      #6-158     
X$$MCB	= ******	 3-47       3-47      
X$$NDM	= ******	 3-1        3-2       
ZF.DDM	= 000001	#3-47      
ZF.DLC	= 000002	#3-47      
ZF.KMX	= 000020	#3-47      
ZF.LLC	= 000004	#3-47      
ZF.LMC	= 000100	#3-47      
ZF.MFL	= 000010	#3-47      
CETIM      CREATED BY  MACRO  ON 13-OCT-79 AT 08:10	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ZF.MUX	= 000040	#3-47      
ZF.TIM	= 000200	#3-47       5-108     
Z.DAT 	  000014	#3-47       5-110     
Z.DSP 	  000000	#3-47       3-47      
Z.FLG 	  000011	#3-47       5-108     
Z.LEN 	= 000014	#3-47      
Z.LLN 	  000010	#3-47      
Z.MAP 	  000016	#3-47      
Z.NAM 	  000006	#3-47      
Z.PCB 	  000012	#3-47       5-106     
Z.SCH 	  000004	#3-47      
$CLINS	= ******  GX	 5-129      7-232     
$CLRMV	= ******  GX	 8-254     
$CNDTM	  000436 RG	#8-251     
$PDSPL	= ******  GX	 6-172      7-208      7-219     
$PDVNM	= ******  GX	 5-103     
$PDVTA	= ******  GX	 5-112     
$PDVTB	= ******  GX	 5-102     
$PWRF1	= ******  GX	 5-76      
$SDDTM	  000336 RG	#7-214     
$SDLTM	  000304 RG	#7-203     
$SLTNM	= ******  GX	 5-82      
$SLTTB	= ******  GX	 5-81      
$STDDM	= ******  GX	 7-218     
$STDLC	= ******  GX	 7-207     
$T1SCL	  000002 RG	#4-56       5-124     
$T1SIN	  000220 RG	 5-77      #5-124     
CETIM      CREATED BY  MACRO  ON 13-OCT-79 AT 08:10	PAGE 3

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		 5-89       5-95       5-114      6-172      7-203      7-207      7-208      7-214      7-218      7-219     
                 8-257     
CALLR 		#5-129     #7-232     #8-254     
CCBDF$		#3-44       3-45      
CLKDF$		#7-198      7-199     
ENABL$		#3-43      
HWDDF$		#3-44      #3-48      
INHIB$		#3-43      
MTPS  		 6-158      6-174     
PDVDF$		#3-44       3-47      
RESRG 		#3-43      #8-258     
RETURN		 6-175      7-210      7-221      8-259     
SAVRG 		#3-43      #8-256     
SLTDF$		#3-44       3-46