Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/axdsp.list
There are no other files named axdsp.list in the archive.
AXDSP - AUXILLIARY PROCESS DISP MACRO M1110 13-OCT-79 08:14 PAGE 3
1 .IF DF R$$11D!I$$AS
2 .IF DF X$$MDC
3 .TITLE AXDSPM - AUXILLIARY PROCESS DISPATCH AND POWER FAIL
4 .IFF
5 .TITLE AXDSP - AUXILLIARY PROCESS DISPATCH AND POWER FAIL
6 .ENDC
7 .IFF
8 .IF DF X$$MDC
9 .IF DF P$$RFL
10 .TITLE AXDSPB - AUXILLIARY PROCESS DISPATCH AND POWER FAIL
11 .IFF
12 .TITLE AXDSPM - AUXILLIARY PROCESS DISPATCH
13 .ENDC
14 .IFF
15 .IF DF P$$RFL
16 .TITLE AXDSPP - AUXILLIARY PROCESS DISPATCH AND POWER FAIL
17 .IFF
18 .TITLE AXDSP - AUXILLIARY PROCESS DISPATCH
19 .ENDC
20 .ENDC
21 .ENDC
22
23 .IDENT /V01.00/
24
25 ;
26 ; COPYRIGHT (C) 1978 BY
27 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
28 ;
29 ;
30 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
31 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
32 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
33 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
34 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
35 ; TRANSFERRED.
36 ;
37 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
38 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
39 ; CORPORATION.
40 ;
41 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
42 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
43 ;
44 ;
45 ;
46 ; MODULE DESCRIPTION
47 ;
48 ; AUXILARY PROCESS DISPATCH TABLE
49 ;
50 ;
51 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
52 ;
53 ; IDENT HISTORY:
54 ;
55 ; 1.00 10-FEB-78
56 ; VERSION 2.0 RELEASE
57 ;
AXDSP - AUXILLIARY PROCESS DISP MACRO M1110 13-OCT-79 08:14 PAGE 3-1
58 .MCALL SLTDF$,CCBDF$
59 ;
60 000000 SLTDF$ ; DEFINE SYSTEM LINE TABLE OFFSETS
61 000000 CCBDF$ ; DEFINE CCB OFFSETS
62 ;
63 .IF DF,R$$11D!I$$AS
64 .MCALL PRCHD$
65 PRCHD$ $AUXTB ; DEFINE PROCESS HEADER
66 .ENDC
AXDSP - AUXILLIARY PROCESS DISP MACRO M1110 13-OCT-79 08:14 PAGE 4
68 ;
69 ; AUXILARY PROCESS DISPATCH TABLE
70 ;
71
72 000000 $AUXTB::
73 000000 000001' .WORD .+1 ; TRANSMIT ENABLE (NOP)
74 000002 000000G .WORD $BFRTN ; RECEIVE ENABLE
75 000004 000005' .WORD .+1 ; KILLIO (NOP)
76 .IF DF X$$MDC
77 .WORD MDMCTL ; MODEM CONTROL CONTROL ROUTINE
78 .IF DF P$$RFL
79 .WORD PWFAIL ; PERFORM POWERFAIL RECOVERY
80 .IFF
81 .WORD MDMSCN ; TIMEOUT ENTERS SCAN ROUTINE
82 .ENDC
83 .IFF
84 000006 000007' .WORD .+1 ; CONTROL ENABLE (NOP)
85 .IF DF P$$RFL
86 .WORD PWFAIL ; PERFORM POWERFAIL RECOVERY
87 .IFF
88 000010 000022' .WORD DUMMY ; TIMEOUT (NOP)
89 .ENDC
90 .ENDC
91 000012 000013' .WORD .+1 ; TRANSMIT COMPLETE (NOP)
92 000014 000015' .WORD .+1 ; RECEIVE COMPLETE (NOP)
93 000016 000017' .WORD .+1 ; KILL COMPLETE (NOP)
94 000020 000021' .WORD .+1 ; CONTROL COMPLETE (NOP)
95
96
97 .IF NDF X$$MDC & R$$11D & I$$AS
98 000022 $MDCIN::
99 .ENDC
100
101 000022 DUMMY: RETURN
102
AXDSP - AUXILLIARY PROCESS DISP MACRO M1110 13-OCT-79 08:14 PAGE 5
104 .IF DF P$$RFL
105 .SBTTL POWERFAIL RECOVERY ROUTINE
106 ;+
107 ; **-PWFAIL-POWERFAIL RECOVERY ROUTINE
108 ;
109 ; THIS ROUTINE IS INVOKED ONCE PER SECOND BY THE TIMER SERVICE
110 ; CODE. IF THE POWERFAIL RECOVERY FLAG IS SET, WE WILL SCAN THE
111 ; SYSTEM LINE TABLE FOR 'ACTIVE' LINES (I.E. LINES WHICH HAVE
112 ; BOTH DLC AND DDM PROCESSES LOADED) AND ASYNCHRONOUSLY QUEUE
113 ; A CONTROL COMPLETION TO THE LLC LEVEL INDICATING THAT THE
114 ; LINK HAS BEEN DISCONNECTED.
115 ;-
116 ;
117
118 PWFAIL: MOV $PWRF1,R1 ; GET # OF LINES REMAINING TO BE POWERFAILED
119 BLE 100$ ; IF NONE ... NO RECOVERY UNDERWAY
120 DEC R1 ; CONVERT TO SYSTEM LINE #
121 MOV R1,R2 ; SAVE FOR LATER CALL TO $ASCMP
122 ASL R1 ; FORM OFFSET INTO SYSTEM LINE TABLE
123 ASL R1 ; ...
124 MOV R1,R3 ; ...
125 ASL R1 ; ...
126 ADD R3,R1 ; ...
127 ADD $SLTTA,R1 ; POINT TO SYSTEM LINE TABLE ENTRY
128 BIT #LF.ACT,L.FLG(R1) ; IS THIS LINE 'ACTIVE'
129 BEQ 10$ ; NO ... NO RECOVERY REQUIRED
130 MOV #CS.ERR+CE.DIS,R3 ; YES ... SET UP ERROR CODE
131 CALL $ASCMP ; PERFORM ASYNCHRONOUS COMPLETION
132 BCS 100$ ; TRY LATER ON RESOURCE ALLOCATION FAILURE
133 10$: DEC $PWRF1 ; ONE LESS LINE TO RECOVER
134 BNE PWFAIL ; LOOP TILL ALL DONE
135 100$:
136 .IF DF X$$MDC
137
138 CALLR MDMSCN ; MODEM CONTROL SCAN ROUTINE
139
140 .IFF
141
142 RETURN
143
144 .ENDC
145
146 .ENDC
147
148 000001 .END
AXDSP - AUXILLIARY PROCESS DISP MACRO M1110 13-OCT-79 08:14 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 CS.ROV= 000004 E$$XPR= 000000 FS.XON= 007000 L.DLC 000003
A$$CPS= 000000 CS.RSN= 010000 FC.CCP= 000020 F$$LVL= 000001 L.DLM 000006
A$$PRI= 000000 CS.SUC= 000001 FC.CTL= 000006 G$$TPP= 000000 L.DLS 000010
A$$TRP= 000000 CS.TMO= 020000 FC.KCP= 000016 G$$TSS= 000000 L.FLG 000000
CB.CCB= 000002 C$$CKP= 000000 FC.KIL= 000004 G$$TTK= 000000 L.LEN = 000014
CB.RDB= 000004 C$$ORE= 000400 FC.RCE= 000002 G$$WRD= 000000 L.UNT 000013
CE.ABO= 100362 C$$RSH= 177564 FC.RCP= 000014 I$$RAR= 000000 M$$CRB= 000124
CE.DIS= 100366 C.BID 000003 FC.TIM= 000010 I$$RDN= 000000 M$$CRX= 000000
CE.ERR= 100370 C.BUF 000014 FC.XCP= 000012 K$$CNT= 177546 M$$FCS= 000000
CE.MOP= 100372 C.BUF1 000014 FC.XME= 000000 K$$CSR= 177546 M$$MGE= 000000
CE.NTE= 100361 C.BUF2 000024 FS.AST= 000000 K$$LDC= 000000 M$$OVR= 000000
CE.RTE= 100376 C.CNT 000020 FS.CIB= 002000 K$$TPS= 000074 N$$LDV= 000001
CE.SRC= 100364 C.CNT1 000020 FS.CRA= 001000 LD$LP = 000000 N$$MOV= 000010
CE.TMO= 100374 C.CNT2 000030 FS.DIS= 013000 LF.ACT= 100000 N$$SYS= 000001
CF.EOM= 000004 C.FLG 000022 FS.DVC= 001000 LF.BWT= 000007 N$$USR= 000001
CF.HDR= 000020 C.FLG1 000022 FS.ENB= 012000 LF.DLO= 000040 P$$P45= 000000
CF.LB = 100000 C.FLG2 000032 FS.GET= 006000 LF.ENA= 002000 P$$WRD= 000000
CF.SOM= 000010 C.FNC 000010 FS.INI= 000000 LF.MDC= 000100 Q$$OPT= 000010
CF.SYN= 000040 C.LIN 000006 FS.KIL= 000000 LF.MFL= 004000 R$$DER= 000000
CF.TRN= 000100 C.LNK 000000 FS.LTM= 001000 LF.MTP= 000020 R$$K11= 000001
CS.ABO= 000100 C.MOD 000011 FS.MNT= 004000 LF.RDY= 040000 R$$SND= 000000
CS.BUF= 000200 C.NSP 000004 FS.MSN= 014000 LF.REA= 010000 R$$11M= 000000
CS.DCR= 000400 C.RSV 000002 FS.RNG= 011000 LF.TIM= 000010 S$$WRG= 000000
CS.DEV= 000002 C.STA 000007 FS.RTN= 001000 LF.UNL= 020000 S$$YSZ= 007600
CS.DIS= 000040 C.STS 000012 FS.SET= 005000 L$$ASG= 000000 T$$KMG= 000000
CS.ENB= 000020 DUMMY 000022R FS.STM= 000000 L$$DRV= 000000 T$$MIN= 000000
CS.EOF= 000001 D$$BUG= 177514 FS.STP= 002000 L$$P11= 000001 V$$CTR= 001000
CS.ERR= 100000 D$$ISK= 000000 FS.STR= 001000 L$$11R= 000000 X$$DBT= 000000
CS.HFE= 002000 D$$L11= 000001 FS.TRM= 003000 L.CTL 000012 $AUXTB 000000RG
CS.LST= 040000 D$$YNC= 000000 FS.XKL= 002000 L.DDM 000002 $BFRTN= ****** GX
CS.MTL= 004000 D$$YNM= 000000 FS.XOF= 010000 L.DDS 000004 $MDCIN 000022RG
CS.RNG= 000010
. ABS. 000034 000
000024 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 5161 WORDS ( 21 PAGES)
DYNAMIC MEMORY: 5836 WORDS ( 22 PAGES)
ELAPSED TIME: 00:00:12
AXDSP,[131,34]AXDSP/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]AXDSP
AXDSP CREATED BY MACRO ON 13-OCT-79 AT 08:14 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DUMMY 000022 R 4-88 #4-101
I$$AS = ****** 3-1 3-63 4-97
LF.ACT = 100000 #3-60
LF.BWT = 000007 #3-60
LF.DLO = 000040 #3-60
LF.ENA = 002000 #3-60
LF.MDC = 000100 #3-60
LF.MFL = 004000 #3-60
LF.MTP = 000020 #3-60
LF.RDY = 040000 #3-60
LF.REA = 010000 #3-60
LF.TIM = 000010 #3-60
LF.UNL = 020000 #3-60
L.CTL 000012 #3-60
L.DDM 000002 #3-60
L.DDS 000004 #3-60
L.DLC 000003 #3-60
L.DLM 000006 #3-60
L.DLS 000010 #3-60
L.FLG 000000 #3-60
L.LEN = 000014 #3-60
L.UNT 000013 #3-60
P$$RFL = ****** 3-15 4-85 5-104
R$$11D = ****** 3-1 3-63 4-97
X$$MDC = ****** 3-8 4-76 4-97
$AUXTB 000000 RG #4-72
$BFRTN = ****** GX 4-74
$MDCIN 000022 RG #4-98
AXDSP CREATED BY MACRO ON 13-OCT-79 AT 08:14 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CCBDF$ #3-58 3-61
RETURN 4-101
SLTDF$ #3-58 3-60