Google
 

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


      1						.TITLE	NXSUB
      2						.IDENT	/V01.02/
      3
      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					;	DLX COMMON SUBROUTINES
     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	28-JAN-79 ALAN D. PECKHAM
     36					;	FIX MULTIPOINT HANDLING IN FNDLA
     37
     38					;
     39						.MCALL	PDVDF$,SLTDF$
     40	000000					PDVDF$			; DEFINE THE PDV OFFSETS
     41	000000					SLTDF$			; DEFINE THE SLT OFFSETS
     42
     43					;
     44					; LOCAL SYMBOL DEFINITIONS
     45					;
     46					;
     47					; PARAMETER BLOCK OFFSET DEFINITIONS
     48					;
     49	000014					.ASECT
     50		000000 			.=0
     51	000000				TNAM:	.BLKW	1		; RAD50 PROCESS NAME
     52	000002				TCTL:	.BLKB	1		; CONTROLLER NUMBER
     53	000003				TLIN:	.BLKB	1		; LINE NUMBER ON CONTROLLER
     54	000004				TSTA:	.BLKB	1		; MULTIPOINT STATION ADDRESS
     55	000005					.BLKB	1		; RESERVED
     56	000006				TFLG:	.BLKB	1		; PROCESS FLAGS
     57	000007				TPDV:	.BLKB	1		; PROCESS INDEX
NXSUB	MACRO M1110  13-OCT-79 10:32  PAGE 3-1


     58	000010				TSLN:	.BLKW	1		; SYSTEM LINE NUMBER AND LOGICAL STATION
     59	000012				TSLF:	.BLKW	1		; SYSTEM LINE TABLE FLAGS
     60	000014				TDDM:	.BLKB	1		; DDM PROCESS INDEX
     61	000015				TDLC:	.BLKB	1		; DLC PROCESS INDEX
     62	000016				TASN:	.BLKW	1		; CURRENT ASSIGNMENT (PDV & CHAN)
     63	000000					.PSECT
NXSUB	MACRO M1110  13-OCT-79 10:32  PAGE 4


     65					;+
     66					; **-FNDLA-FIND A LINE-ID USING A PARSED ARGUMENT BLOCK
     67					;
     68					; INPUTS:
     69					;
     70					;	R5 = ADDRESS OF AN 8 WORD PARAMETER BLOCK
     71					;
     72					; OUTPUTS:
     73					;
     74					;	C-BIT CLEAR:
     75					;	R5 = ADDRESS OF THE 8 WORD PARAMETER BLOCK FORMATTED AS FOLLOWS:
     76					;	WD 0	RAD50 PROCESS NAME
     77					;	WD 1	LINE NUMBER	CONTROLLER NUMBER
     78					;	WD 2	RESERVED	STATION NUMEBR
     79					;	WD 3	PDV INDEX	PDV FLAGS
     80					;
     81					;	FOR A DDM:
     82					;
     83					;	WD 4	STATION		SYSTEM LINE
     84					;	WD 5	SYSTEM LINE TABLE FLAGS
     85					;	WD 6	DLC INDEX	DDM INDEX
     86					;	WD 7	PDV ASSIGNED	CHANNEL ASSIGNED
     87					;
     88					;	FOR AN LLC OR A DLC:
     89					;
     90					;	WD 4 - WD 7 UNDEFINED
     91					;
     92					;	C-BIT SET:
     93					;	LINE-ID CANNOT BE FOUND IN THE SYSTEM
     94					;
     95					; REGISTERS MODIFIED:
     96					;
     97					;	NONE
     98					;
     99					;-
    100
    101	000000	016502 	000000 		FNDLA::	MOV	TNAM(R5),R2	; GET RAD50 PROCESS NAME
    102	000004					CALL	$PDVAD		; FIND THE PROCESS INDEX
    103	000010	103503 				BCS	100$		; IF CS, NO PROCESS OF THIS NAME- ERROR
    104	000012	110265 	000007 			MOVB	R2,TPDV(R5)	; STORE RESULTANT PDV INDEX
    105	000016	116100 	000011 			MOVB	Z.FLG(R1),R0	; GET PDV FLAGS FOR PROCESS TYPE
    106	000022	110065 	000006 			MOVB	R0,TFLG(R5)	; STORE FLAGS IN OUTPUT AREA
    107	000026	132700 	000004 			BITB	#ZF.LLC,R0	; IS THIS PROCESS AN LLC ?
    108	000032	001071 				BNE	90$		; IF NE, YES - ALL DONE WITH THE SEARCH
    109	000034	132700 	000001 			BITB	#ZF.DDM,R0	; IS IT A DDM ?
    110	000040	001444 				BEQ	80$		; IF EQ, NO - ALL DONE WITH THE SEARCH
    111
    112					;
    113					; LOOK THROUGH THE SYSTEM LINE TABLE TO FIND AN ENTRY WHICH MATCHES THE
    114					; SPECIFIED VALUES FOR DDM PROCESS INDEX, CONTROLLER NUMBER, AND
    115					; LINE NUMBER OF THE CONTROLLER.
    116					; EVENTUALLY, THE DLC LINE TABLE WILL BE SEARCHED TO FIND THE LOGICAL
    117					; STATION ADDRESS WHICH CORRESPONDS TO THE SPECIFIED STATION ADDRESS.
    118					;
    119	000042	016700 	000000G			MOV	$SLTNM,R0	; GET NUMBER OF SYSTEM LINES
    120	000046	016701 	000000G			MOV	$SLTTA,R1	; GET ADDRESS OF SYSTEM LINE TABLE
    121
NXSUB	MACRO M1110  13-OCT-79 10:32  PAGE 4-1


    122
    123	000052	126165 	000002 	000007 	10$:	CMPB	L.DDM(R1),TPDV(R5) ; DOES THIS PROCESS MATCH ?
    124	000060	001010 				BNE	20$		; IF NE, NO - KEEP LOOKING
    125	000062	126165 	000012 	000002 		CMPB	L.CTL(R1),TCTL(R5) ; DOES THIS CONTROLLER NUMBER MATCH ?
    126	000070	001004 				BNE	20$		; IF NE, NO - KEEP LOOKING
    127	000072	126165 	000013 	000003 		CMPB	L.UNT(R1),TLIN(R5) ;DOES THIS UNIT NUMBER MATCH ?
    128	000100	001406 				BEQ	30$		; IF EQ, FOUND THE CORRECT SLN
    129	000102	062701 	000014 		20$:	ADD	#L.LEN,R1	; COMPUTE ADDRESS OF NEXT SLT ENTRY
    130	000106					SOB	R0,10$		; LOOK THROUGH ALL SYSTEM LINES
    131	000112				22$:                                                                            ;AP0001
    132	000112	000261 				SEC			; NO LINE-ID TO BE FOUND
    133	000114	000441 				BR	100$		; EXIT WITH ERROR
    134
    135	000116	016165 	000000 	000012 	30$:	MOV	L.FLG(R1),TSLF(R5) ; STORE SYSTEM LINE FLAGS IN OUTPUT AREA
    136	000124	016165 	000002 	000014 		MOV	L.DDM(R1),TDDM(R5) ; STORE DDM & DLC PDV INDECIES
    137	000132	016702 	000000G			MOV	$SLTNM,R2	; COMPUTE THE SYSTEM LINE NUMBER
    138	000136	160002 				SUB	R0,R2		; ...
    139	000140	110265 	000010 			MOVB	R2,TSLN(R5)	; AND STORE IT IN THE OUTPUT BLOCK
    140					;
    141					; FOR NOW ANY STATION WILL BE VALID
    142					;
    143	000144	116565 	000004 	000011 		MOVB	TSTA(R5),TSLN+1(R5) ; SET THE LOGICAL STATION ADDRESS           ;AP0001
    144					                                                                                ;**-1
    145	000152	006302 			80$:	ASL	R2		; FIND CURRENT PDV & CHANNEL ASSIGNMENT
    146	000154	066702 	000000G			ADD	$LLCTA,R2	; COMPUTE THE ADDRESS IN THE REVERSE CHANNEL
    147	000160	011265 	000016 			MOV	(R2),TASN(R5)	;   MAPPING TABLE AND STORE THE CONTENTS
    148	000164	100014 				BPL	90$		; IF MULTIPOINT                                 ;AP0001
    149	000166	011202 				MOV	(R2),R2		; GET STATION MAPPING TABLE                     ;AP0001
    150	000170	006302 				ASL	R2                                                              ;AP0001
    151	000172	005001 				CLR	R1		; GET STATION                                   ;AP0001
    152	000174	156501 	000004 			BISB	TSTA(R5),R1	; (WITHOUT SIGN EXTENSION)                      ;AP0001
    153	000200	001404 				BEQ	88$		; AND IF NON-ZERO                               ;AP0001
    154	000202	005722 			82$:	TST	(R2)+		; RUN THROUGH TABLE                             ;AP0001
    155	000204	100742 				BMI	22$		; CHECKING FOR THE BOUNDRY                      ;AP0001
    156	000206					SOB	R1,82$		; UNTIL WE FIND OUR STATION.                    ;AP0001
    157	000212	011265 	000016 		88$:	MOV	(R2),TASN(R5)	; USE THIS ASSIGNMENT.                          ;AP0001
    158	000216	000241 			90$:	CLC			; INDICATE SUCCESS
    159	000220				100$:	RETURN			; RETURN TO CALLER
NXSUB	MACRO M1110  13-OCT-79 10:32  PAGE 5


    161					;+
    162					; **-$PDVAD-FIND PROCESS NAME AND INDEX
    163					;
    164					; INPUTS:
    165					;
    166					;	R2 = RAD50 PROCESS NAME TO FIND
    167					;
    168					; OUTPUTS:
    169					;
    170					;	R1 = ADDRESS OF PDV
    171					;	R2 = PROCESS INDEX
    172					;
    173					; REGISTERS MODIFIED:
    174					;
    175					;	R0
    176					;-
    177
    178	000222	010246 			$PDVAD::MOV	R2,-(SP)	; SAVE PROCESS NAME
    179	000224	016700 	000000G			MOV	$PDVNM,R0	; GET NUMBER OF PDV ENTRIES
    180	000230	016702 	000000G			MOV	$PDVTA,R2	; GET ADDRESS OF PDV TABLE
    181	000234	012201 			10$:	MOV	(R2)+,R1	; GET ADDRESS OF A PDV
    182	000236	026116 	000006 			CMP	Z.NAM(R1),(SP)	; IS THIS THE RIGHT ONE ?
    183	000242	001404 				BEQ	20$		; IF EQ, YES
    184	000244					SOB	R0,10$		; DON'T LOOK THROUGH TO MANY
    185	000250	000261 				SEC			; INDICATE ERROR
    186	000252	000403 				BR	30$		; EXIT IF ITS NOT FOUND
    187
    188	000254	166702 	000000G		20$:	SUB	$PDVTA,R2	; COMPUTE THE PDV INDEX
    189	000260	005742 				TST	-(R2)		; COMPENSATE FOR PREVIOUS POP (CLEAR C-BIT)
    190	000262	011626 			30$:	MOV	(SP),(SP)+	; CLEAN OFF THE STACK
    191	000264					RETURN			; RETURN TO CALLER
    192
    193
    194		000001 				.END
NXSUB	MACRO M1110  13-OCT-79 10:32  PAGE 5-1
SYMBOL TABLE

A$$CHK= 000000   	K$$CSR= 177546   	L.DDS   000004   	R$$SND= 000000   	ZF.KMX= 000020
A$$CPS= 000000   	K$$LDC= 000000   	L.DLC   000003   	R$$11M= 000000   	ZF.LLC= 000004
A$$PRI= 000000   	K$$TPS= 000074   	L.DLM   000006   	S$$WRG= 000000   	ZF.LMC= 000100
A$$TRP= 000000   	LD$LP = 000000   	L.DLS   000010   	S$$YSZ= 007600   	ZF.MFL= 000010
C$$CKP= 000000   	LF.ACT= 100000   	L.FLG   000000   	TASN    000016   	ZF.MUX= 000040
C$$ORE= 000400   	LF.BWT= 000007   	L.LEN = 000014   	TCTL    000002   	ZF.TIM= 000200
C$$RSH= 177564   	LF.DLO= 000040   	L.UNT   000013   	TDDM    000014   	Z.DAT   000014
D$$BUG= 177514   	LF.ENA= 002000   	M$$CRB= 000124   	TDLC    000015   	Z.DSP   000000
D$$ISK= 000000   	LF.MDC= 000100   	M$$CRX= 000000   	TFLG    000006   	Z.FLG   000011
D$$L11= 000001   	LF.MFL= 004000   	M$$FCS= 000000   	TLIN    000003   	Z.LEN = 000014
D$$YNC= 000000   	LF.MTP= 000020   	M$$MGE= 000000   	TNAM    000000   	Z.LLN   000010
D$$YNM= 000000   	LF.RDY= 040000   	M$$OVR= 000000   	TPDV    000007   	Z.MAP   000016
E$$XPR= 000000   	LF.REA= 010000   	N$$LDV= 000001   	TSLF    000012   	Z.NAM   000006
FNDLA   000000RG 	LF.TIM= 000010   	N$$MOV= 000010   	TSLN    000010   	Z.PCB   000012
F$$LVL= 000001   	LF.UNL= 020000   	N$$SYS= 000001   	TSTA    000004   	Z.SCH   000004
G$$TPP= 000000   	L$$ASG= 000000   	N$$USR= 000001   	T$$KMG= 000000   	$LLCTA= ****** GX
G$$TSS= 000000   	L$$DRV= 000000   	P$$P45= 000000   	T$$MIN= 000000   	$PDVAD  000222RG
G$$TTK= 000000   	L$$P11= 000001   	P$$WRD= 000000   	V$$CTR= 001000   	$PDVNM= ****** GX
G$$WRD= 000000   	L$$11R= 000000   	Q$$OPT= 000010   	X$$DBT= 000000   	$PDVTA= ****** GX
I$$RAR= 000000   	L.CTL   000012   	R$$DER= 000000   	ZF.DDM= 000001   	$SLTNM= ****** GX
I$$RDN= 000000   	L.DDM   000002   	R$$K11= 000001   	ZF.DLC= 000002   	$SLTTA= ****** GX
K$$CNT= 177546

. ABS.	000020	   000
      	000266	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  2941 WORDS  ( 12 PAGES)
DYNAMIC MEMORY:  3724 WORDS  ( 14 PAGES)
ELAPSED TIME:  00:00:14
NXSUB,[131,34]NXSUB/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NXSUB
NXSUB      CREATED BY  MACRO  ON 13-OCT-79 AT 10:32	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

FNDLA 	  000000 RG	#4-101     
I$$AS 	= ******	 3-40      
LF.ACT	= 100000	#3-41      
LF.BWT	= 000007	#3-41      
LF.DLO	= 000040	#3-41      
LF.ENA	= 002000	#3-41      
LF.MDC	= 000100	#3-41      
LF.MFL	= 004000	#3-41      
LF.MTP	= 000020	#3-41      
LF.RDY	= 040000	#3-41      
LF.REA	= 010000	#3-41      
LF.TIM	= 000010	#3-41      
LF.UNL	= 020000	#3-41      
L.CTL 	  000012	#3-41       4-125     
L.DDM 	  000002	#3-41       4-123      4-136     
L.DDS 	  000004	#3-41      
L.DLC 	  000003	#3-41      
L.DLM 	  000006	#3-41      
L.DLS 	  000010	#3-41      
L.FLG 	  000000	#3-41       4-135     
L.LEN 	= 000014	#3-41       4-129     
L.UNT 	  000013	#3-41       4-127     
R$$11D	= ******	 3-40      
R$$11M	= 000000	 3-40      
R$$11S	= ******	 3-40      
TASN  	  000016	#3-62      *4-147     *4-157     
TCTL  	  000002	#3-52       4-125     
TDDM  	  000014	#3-60      *4-136     
TDLC  	  000015	#3-61      
TFLG  	  000006	#3-56      *4-106     
TLIN  	  000003	#3-53       4-127     
TNAM  	  000000	#3-51       4-101     
TPDV  	  000007	#3-57      *4-104      4-123     
TSLF  	  000012	#3-59      *4-135     
TSLN  	  000010	#3-58      *4-139     *4-143     
TSTA  	  000004	#3-54       4-143      4-152     
X$$MCB	= ******	 3-40       3-40      
ZF.DDM	= 000001	#3-40       4-109     
ZF.DLC	= 000002	#3-40      
ZF.KMX	= 000020	#3-40      
ZF.LLC	= 000004	#3-40       4-107     
ZF.LMC	= 000100	#3-40      
ZF.MFL	= 000010	#3-40      
ZF.MUX	= 000040	#3-40      
ZF.TIM	= 000200	#3-40      
Z.DAT 	  000014	#3-40      
Z.DSP 	  000000	#3-40       3-40      
Z.FLG 	  000011	#3-40       4-105     
Z.LEN 	= 000014	#3-40      
Z.LLN 	  000010	#3-40      
Z.MAP 	  000016	#3-40      
Z.NAM 	  000006	#3-40       5-182     
NXSUB      CREATED BY  MACRO  ON 13-OCT-79 AT 10:32	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

Z.PCB 	  000012	#3-40      
Z.SCH 	  000004	#3-40      
$LLCTA	= ******  GX	 4-146     
$PDVAD	  000222 RG	 4-102     #5-178     
$PDVNM	= ******  GX	 5-179     
$PDVTA	= ******  GX	 5-180      5-188     
$SLTNM	= ******  GX	 4-119      4-137     
$SLTTA	= ******  GX	 4-120     
NXSUB      CREATED BY  MACRO  ON 13-OCT-79 AT 10:32	PAGE 3

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		 4-102     
PDVDF$		#3-39      #3-40      
RETURN		 4-159      5-191     
SLTDF$		#3-39      #3-41      
SOB   		#4-130     #4-156     #5-184