Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/cellc.list
There are no other files named cellc.list in the archive.
CELLC MACRO M1110 13-OCT-79 08:08
TABLE OF CONTENTS
4- 47 $LLCRQ - LLC TO DLC REQUEST QUEUING SUBROUTINE
5- 87 $LLCRS - LLC TO LLC REQUEST QUEUING SUBROUTINE
CELLC MACRO M1110 13-OCT-79 08:08 PAGE 3
1 .TITLE CELLC
2 .IDENT /V01.01/
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 ; MODULE DESCRIPTION:
24 ;
25 ; CEX LLC TO DLC & LLC INTERFACE ROUTINES
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ; 1.01 11-APR-79 ALAN D. PECKHAM
35 ; ADD SUPPORT FOR MAPPED DLC LINE TABLES
36 ;
37
38 ; MACRO LIBRARY CALLS
39 ;
40 .MCALL CCBDF$,HWDDF$,PDVDF$,SAVRG,RESRG
41 .MCALL CALLR ; AVOID SYSTEM DEPENDENCY
42 000000 CCBDF$ ; DEFINE THE CCB OFFSETS
43 000000 PDVDF$ ; DEFINE THE PDV OFFSETS
44 000000 HWDDF$ ; DEFINE THE HARDWARE REGISTERS
45
CELLC MACRO M1110 13-OCT-79 08:08 PAGE 4
$LLCRQ - LLC TO DLC REQUEST QUEUING SUBROUTINE
47 .SBTTL $LLCRQ - LLC TO DLC REQUEST QUEUING SUBROUTINE
48
49 ;+
50 ; **- $LLCRQ - LLC TO DLC REQUEST QUEUING SUBROUTINE
51 ;
52 ; THIS ROUTINE IS CALLED BY A LLC PROCESS TO QUEUE REQUESTS TO
53 ; A DLC PROCESS. NOTE THAT THE CALLERS CONTEXT IS SAVED AS IF
54 ; AN INTERRUPT HAD OCCURRED.
55 ;
56 ; INPUTS:
57 ; R4= ADDRESS OF CCB (OR FIRST IN CHAIN)
58 ; THE CCB MUST CONTAIN A VALID:
59 ; C.FNC & C.MOD - REQUEST FUNCTION CODE
60 ; C.LIN - LLC CHANNEL NUMBER (LOGICAL LINE NUMBER)
61 ;
62 ; OUTPUTS:
63 ; THE REQUEST IS DISPATCHED TO THE PROPER DLC PROCESS
64 ;
65 ; REGISTERS MODIFIED:
66 ; NONE
67 ;-
68 000000 $LLCRQ::SAVRG <R0,R1,R2,R3,R4,R5> ; SAVE ALL REGISTERS
69 000014 013746 172354 MOV @#KISAR6,-(SP) ; SAVE APR6 FROM DLC'S INDESCRETION ;AP0001
70 000020 016701 000000G MOV $CMPDV,R1 ; GET CURRENT LLC PDV INDEX
71 000024 016101 000000G MOV $PDVTB(R1),R1 ; GET ADDRESS OF PROCESS' PDV
72 000030 005003 CLR R3 ; GET LLC CHANNEL NUMBER
73 000032 156403 000006 BISB C.LIN(R4),R3 ; WITHOUT SIGN EXTENSION
74 000036 006303 ASL R3 ; MAKE IT A WORD INDEX
75 000040 060103 ADD R1,R3 ; POINT TO LLC CHANNEL MAPPING TABLE ENTRY
76 000042 016364 000016 000006 MOV Z.MAP(R3),C.LIN(R4) ; STORE SLN AND STATION ADDRESS INTO CCB
77 ; NOTE - BIT15 WILL ALWAYS BE CLEAR TO
78 ; FLAG DESTINATION PROCESS AS A DLC
79 000050 CALL $STDLC ; SET UP DLC PDV INDEX AND LINE TABLE ADDRESS
80 000054 CALL $PDSPL ; DISPATCH TO DLC
81 000060 MTPS #0 ; DROP PRIORITY TO 0 AND CLEAR CONDITION CODES
82 000064 012637 172354 MOV (SP)+,@#KISAR6 ; APR6 IS SAFE NOW. ;AP0001
83 000070 RESRG <R5,R4,R3,R2,R1,R0> ; RESTORE REGISTERS
84 000104 RETURN ; RETURN TO CALLING LLC
85
CELLC MACRO M1110 13-OCT-79 08:08 PAGE 5
$LLCRS - LLC TO LLC REQUEST QUEUING SUBROUTINE
87 .SBTTL $LLCRS - LLC TO LLC REQUEST QUEUING SUBROUTINE
88
89 ;+
90 ; **- $LLCRS - LLC TO LLC REQUEST QUEUING SUBROUTINE
91 ;
92 ; THIS ROUTINE IS CALLED BY A LLC PROCESS TO QUEUE REQUESTS TO
93 ; ANOTHER LLC PROCESS. NOTE THAT THE CALLERS CONTEXT IS SAVED AS
94 ; IF AN INTERRUPT HAD OCCURRED.
95 ;
96 ; INPUTS:
97 ; R4= ADDRESS OF CCB (OR FIRST IN CHAIN)
98 ; THE CCB MUST CONTAIN A VALID:
99 ; C.FNC & C.MOD - REQUEST FUNCTION CODE
100 ; C.STA - DESTINATION LLC'S PDV INDEX
101 ; C.LIN - OPTION CALLING PARAMETER
102 ;
103 ; OUTPUTS:
104 ; THE REQUEST IS QUEUED AND THE APPROPRIATE LEVEL IS SCHEDULED
105 ; NOTE: A LLC PROCESS CAN DETERMINE IF A COMPLETION HAS COME
106 ; A DLC PROCESS OR ANOTHER LLC BY EXAMINING THE MSB
107 ; OF THE C.LIN/C.STA CELL IN THE CCB.
108 ; MSB=0 THE REQUEST CAME FROM A DLC AND THE BYTE C.LIN
109 ; CONTAINS THE LLC'S CHANNEL NUMBER FOR THE LOGICAL
110 ; LINE THAT HAD THE COMPLETION.
111 ; MSB=1 THE REQUEST CAME FROM A LLC AND THE BYTE C.LIN
112 ; CONTAINS AN OPTIONAL CALLING PARAMETER FROM THE
113 ; REQUESTING LLC.
114 ;
115 ; REGISTERS MODIFIED:
116 ; NONE
117 ;-
118
119 000106 $LLCRS::SAVRG <R3,R4> ; SAVE R3 AND R4
120 000112 052764 100000 000006 BIS #100000,C.LIN(R4) ; FLAG DESTINATION PROCESS IS LLC
121 000120 152764 000200 000003 BISB #200,C.BID(R4) ; MARK CCB AS COMING FROM ANOTHER LLC
122 000126 CALL $PDQU1 ; QUEUE REQUEST CCB AND SCHEDULE PROCESS
123 000132 RESRG <R4,R3> ; RESTORE REGISTERS
124 000136 RETURN ; AND RETURN TO CALLING LLC
125
126 000001 .END
CELLC MACRO M1110 13-OCT-79 08:08 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 C.BUF1 000014 FE.PLA= 000020 K$$LDC= 000000 T$$KMG= 000000
A$$CPS= 000000 C.BUF2 000024 FS.AST= 000000 K$$TPS= 000074 T$$MIN= 000000
A$$PRI= 000000 C.CNT 000020 FS.CIB= 002000 LD$LP = 000000 UBMPR = 170200
A$$TRP= 000000 C.CNT1 000020 FS.CRA= 001000 L$$ASG= 000000 UDSAR0= 177660
CB.CCB= 000002 C.CNT2 000030 FS.DIS= 013000 L$$DRV= 000000 UDSDR0= 177620
CB.RDB= 000004 C.FLG 000022 FS.DVC= 001000 L$$P11= 000001 UISAR0= 177640
CE.ABO= 100362 C.FLG1 000022 FS.ENB= 012000 L$$11R= 000000 UISAR4= 177650
CE.DIS= 100366 C.FLG2 000032 FS.GET= 006000 MPAR = 172100 UISAR5= 177652
CE.ERR= 100370 C.FNC 000010 FS.INI= 000000 MPCSR = 177746 UISAR6= 177654
CE.MOP= 100372 C.LIN 000006 FS.KIL= 000000 M$$CRB= 000124 UISAR7= 177656
CE.NTE= 100361 C.LNK 000000 FS.LTM= 001000 M$$CRX= 000000 UISDR0= 177600
CE.RTE= 100376 C.MOD 000011 FS.MNT= 004000 M$$FCS= 000000 UISDR4= 177610
CE.SRC= 100364 C.NSP 000004 FS.MSN= 014000 M$$MGE= 000000 UISDR5= 177612
CE.TMO= 100374 C.RSV 000002 FS.RNG= 011000 M$$OVR= 000000 UISDR6= 177614
CF.EOM= 000004 C.STA 000007 FS.RTN= 001000 N$$LDV= 000001 UISDR7= 177616
CF.HDR= 000020 C.STS 000012 FS.SET= 005000 N$$MOV= 000010 V$$CTR= 001000
CF.LB = 100000 D$$BUG= 177514 FS.STM= 000000 N$$SYS= 000001 X$$DBT= 000000
CF.SOM= 000010 D$$ISK= 000000 FS.STP= 002000 N$$USR= 000001 ZF.DDM= 000001
CF.SYN= 000040 D$$L11= 000001 FS.STR= 001000 PIRQ = 177772 ZF.DLC= 000002
CF.TRN= 000100 D$$YNC= 000000 FS.TRM= 003000 PMODE = 030000 ZF.KMX= 000020
CMODE = 140000 D$$YNM= 000000 FS.XKL= 002000 PR0 = 000000 ZF.LLC= 000004
CS.ABO= 000100 E$$XPR= 000000 FS.XOF= 010000 PR1 = 000040 ZF.LMC= 000100
CS.BUF= 000200 FC.CCP= 000020 FS.XON= 007000 PR4 = 000200 ZF.MFL= 000010
CS.DCR= 000400 FC.CTL= 000006 F$$LVL= 000001 PR5 = 000240 ZF.MUX= 000040
CS.DEV= 000002 FC.KCP= 000016 G$$TPP= 000000 PR6 = 000300 ZF.TIM= 000200
CS.DIS= 000040 FC.KIL= 000004 G$$TSS= 000000 PR7 = 000340 Z.DAT 000014
CS.ENB= 000020 FC.RCE= 000002 G$$TTK= 000000 PS = 177776 Z.DSP 000000
CS.EOF= 000001 FC.RCP= 000014 G$$WRD= 000000 P$$P45= 000000 Z.FLG 000011
CS.ERR= 100000 FC.TIM= 000010 I$$RAR= 000000 P$$WRD= 000000 Z.LEN = 000014
CS.HFE= 002000 FC.XCP= 000012 I$$RDN= 000000 Q$$OPT= 000010 Z.LLN 000010
CS.LST= 040000 FC.XME= 000000 KDSAR0= 172360 R$$DER= 000000 Z.MAP 000016
CS.MTL= 004000 FE.CAL= 000040 KDSDR0= 172320 R$$K11= 000001 Z.NAM 000006
CS.RNG= 000010 FE.DRV= 000010 KISAR0= 172340 R$$SND= 000000 Z.PCB 000012
CS.ROV= 000004 FE.EXP= 000200 KISAR5= 172352 R$$11M= 000000 Z.SCH 000004
CS.RSN= 010000 FE.EXT= 000001 KISAR6= 172354 SISDR0= 172200 $CMPDV= ****** GX
CS.SUC= 000001 FE.EXV= 000004 KISAR7= 172356 SR0 = 177572 $LLCRQ 000000RG
CS.TMO= 020000 FE.LSI= 000400 KISDR0= 172300 SR3 = 172516 $LLCRS 000106RG
C$$CKP= 000000 FE.MUP= 000002 KISDR6= 172314 SWR = 177570 $PDQU1= ****** GX
C$$ORE= 000400 FE.MXT= 040000 KISDR7= 172316 S$$WRG= 000000 $PDSPL= ****** GX
C$$RSH= 177564 FE.NLG= 100000 K$$CNT= 177546 S$$YSZ= 007600 $PDVTB= ****** GX
C.BID 000003 FE.PKT= 000100 K$$CSR= 177546 TPS = 177564 $STDLC= ****** GX
C.BUF 000014
. ABS. 000034 000
000140 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 6003 WORDS ( 24 PAGES)
DYNAMIC MEMORY: 6892 WORDS ( 26 PAGES)
ELAPSED TIME: 00:00:15
CELLC,[130,34]CELLC/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,CELLC
CELLC CREATED BY MACRO ON 13-OCT-79 AT 08:08 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
C.BID 000003 *5-121
C.LIN 000006 4-73 *4-76 *5-120
I$$AS = ****** 3-43
KISAR6 = 172354 4-69 4-82
PS = 177776 4-81
R$$11D = ****** 3-43
R$$11M = 000000 3-43
R$$11S = ****** 3-43
X$$MCB = ****** 3-43 3-43
ZF.DDM = 000001 #3-43
ZF.DLC = 000002 #3-43
ZF.KMX = 000020 #3-43
ZF.LLC = 000004 #3-43
ZF.LMC = 000100 #3-43
ZF.MFL = 000010 #3-43
ZF.MUX = 000040 #3-43
ZF.TIM = 000200 #3-43
Z.DAT 000014 #3-43
Z.DSP 000000 #3-43 3-43
Z.FLG 000011 #3-43
Z.LEN = 000014 #3-43
Z.LLN 000010 #3-43
Z.MAP 000016 #3-43 4-76
Z.NAM 000006 #3-43
Z.PCB 000012 #3-43
Z.SCH 000004 #3-43
$CMPDV = ****** GX 4-70
$LLCRQ 000000 RG #4-68
$LLCRS 000106 RG #5-119
$PDQU1 = ****** GX 5-122
$PDSPL = ****** GX 4-80
$PDVTB = ****** GX 4-71
$STDLC = ****** GX 4-79
CELLC CREATED BY MACRO ON 13-OCT-79 AT 08:08 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-79 4-80 5-122
CALLR #3-41
CCBDF$ #3-40 #3-42
HWDDF$ #3-40 #3-44
MTPS 4-81
PDVDF$ #3-40 3-43
RESRG #3-40 4-83 5-123
RETURN 4-84 5-124
SAVRG #3-40 4-68 5-119