Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nsevt.list
There are no other files named nsevt.list in the archive.
NSEVT MACRO M1110 13-OCT-79 10:22
TABLE OF CONTENTS
4- 64 $QEVNT - MAINTENANCE MODE REQUEST FOR NCU RECEIVED
5- 109 $QUEEV - EVENT LOGGING TO NCU EXECUTOR
NSEVT MACRO M1110 13-OCT-79 10:22 PAGE 3
1 .TITLE NSEVT
2 .IDENT /V01.03/
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 ; ACP EVENT POSTING ROUTINE
27 ;
28 ;
29 ;
30 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
31 ;
32 ; IDENT HISTORY:
33 ;
34 ; 1.00 10-FEB-78
35 ; VERSION 2.0 RELEASE
36 ;
37 ; 1.01 AP0001 18-AUG-78 ALAN D. PECKHAM
38 ; CHANGE MOP CCBS TO USE BUFFER POINTER
39 ;
40 ; 1.02 BH0002 1-NOV-78 BUREN W. HOFFMAN
41 ; REFORMATTED THIS WHOLE MODULE TO SEPARATE CCB FORMATTING
42 ; AND QUEUEING FUNCTIONS. THERE IS NOW PROVIDED A NEW
43 ; ENTRY POINT "$QUEEV" FOR QUEUEING A CCB TO THE NICE
44 ; MAILBOX.
45 ; 1.03 AP0003 13-NOV-78 ALAN D. PECKHAM
46 ; CORRRECTIONS TO BWH CORRECTIONS
47 ;
48
49 ; MACRO LIBRARY CALLS
50 ;
51
52 .MCALL SAVRG,RESRG
53
54 .MCALL CCBDF$,PDVDF$,SLTDF$
55 000000 CCBDF$ ; DEFINE THE CCB OFFSETS
56 000000 PDVDF$ ; DEFINE THE PDV OFFSETS
57 000000 SLTDF$ ; DEFINE THE SLT OFFSETS
NSEVT MACRO M1110 13-OCT-79 10:22 PAGE 3-1
58
59 .MCALL NSSYM$,MBXDF$,LLWDF$
60 000000 NSSYM$ ;DEFINE MUI SYMBOLS
61 000000 MBXDF$ ; " MAILBOX BLOCK OFFSETS
62 000000 LLWDF$ ; " WINDOW BLOCK OFFSETS
NSEVT MACRO M1110 13-OCT-79 10:22 PAGE 4
$QEVNT - MAINTENANCE MODE REQUEST FOR NCU RECEIVED
64 .SBTTL $QEVNT - MAINTENANCE MODE REQUEST FOR NCU RECEIVED
65
66 ;+
67 ; ** - $QEVNT - MAINTENANCE MODE REQUEST FOR NCU RECEIVED
68 ;
69 ; THIS ROUTINE IS CALLED TO FORMAT THE LINE-ID FOR A MAINTENANCE
70 ; MODE REQUEST AND ADD IT TO THE MAILBOX QUEUE FOR NCU.
71 ;
72 ; INPUTS:
73 ;
74 ; R4 -> CCB WHICH CONTAINS:
75 ; C.NSP - SOURCE PDV & CHANNEL OF THE EVENT
76 ; C.NSP+1 - SOURCE PDV INDEX
77 ;
78 ; OUTPUTS:
79 ;
80 ;-
81
82 000000 .PSECT $NSACP
83
84 000000 $QEVNT::CALL $SAVAL ;;SAVE THE REGISTERS
85 ;;REFORMAT CCB FOR NCU EXECUTOR ;**-11
86 000004 012764 000024 000016 MOV #C.BUF2,C.BUF+2(R4) ;; GET ADDRESS OF BUFFER SPACE ;AP0001
87 000012 060464 000016 ADD R4,C.BUF+2(R4) ;; IN CCB FOR MESSAGE. ;AP0001
88 000016 116400 000005 MOVB C.NSP+1(R4),R0 ;; GET THE SOURCE PDV INDEX
89 000022 066700 000000G ADD $PDVTA,R0 ;; GET THE PDV ADDRESS
90 000026 011000 MOV (R0),R0 ;; ...
91 000030 005001 CLR R1 ;; GET THE CHANNEL NUMBER
92 000032 156401 000004 BISB C.NSP(R4),R1 ;; ...
93 000036 006301 ASL R1 ;; ...AND MAKE IT A WORD INDEX
94 000040 060100 ADD R1,R0 ;; GET THE SLN & STATION NUMBER PAIR
95 000042 016000 000016 MOV Z.MAP(R0),R0 ;; ...FROM THE MAPPING TABLE
96 000046 012701 000014 MOV #L.LEN,R1 ;; COMPUTE THE ADDRESS OF THE SLT ENTRY
97 000052 CALL $MUL ;; ...FOR THIS SLN
98 000056 066701 000000G ADD $SLTTA,R1 ;; ...
99 000062 016164 000012 000026 MOV L.CTL(R1),C.BUF2+2(R4) ;; STORE CONTROLLER AND UNIT NUMBER ;AP0001
100 000070 105064 000030 CLRB C.BUF2+4(R4) ;; NO STATION ADDRESS FOR NOW ;AP0001
101 000074 116100 000002 MOVB L.DDM(R1),R0 ;; GET PDV INDEX OF DLC PROCESS ;**-2
102 000100 066700 000000G ADD $PDVTA,R0 ;; GET THE PDV ADDRESS
103 000104 011000 MOV (R0),R0 ;; ...
104 000106 016064 000006 000024 MOV Z.NAM(R0),C.BUF2(R4) ;; STORE THE RAD50 PROCESS NAME ;AP0001
105 000114 012764 000005 000020 MOV #5,C.CNT(R4) ;; SET LENGTH OF DATA ;**-1
106 000122 012764 000010 000010 MOV #NT.MOP,C.FNC(R4) ;; MAILBOX TYPE CODE ;AP0003
107 000130 000405 BR QUEIT ;; SEND THE CCB TO NICE ;BH0002
NSEVT MACRO M1110 13-OCT-79 10:22 PAGE 5
$QUEEV - EVENT LOGGING TO NCU EXECUTOR
109 .SBTTL $QUEEV - EVENT LOGGING TO NCU EXECUTOR
110 ;+
111 ; ** - $QUEEV - ROUTINE FOR QUEUEING CCB'S TO NICE.
112 ;
113 ; INPUTS:
114 ; R4 -> CCB TO BE QUEUED.
115 ;
116 ; OUTPUTS:
117 ;
118 ;-
119 ;BH0002
120 000132 $QUEEV::CALL $SAVAL ;; SAVE THE REGISTERS ;BH0002
121 000136 012764 000011 000010 MOV #NT.LOG,C.FNC(R4) ;; SET LOG CODE ;BH0002
122 ;BH0002
123 000144 016703 000000G QUEIT: MOV $NSNCU,R3 ;; GET NCU EXECUTOR TASK MAILBOX ADDR ;BH0002
124 000150 001403 BEQ 10$ ;; TASK NOT ACTIVE ;BH0002
125 000152 016300 000002 MOV M.TASK(R3),R0 ;; SET THE NCU TCB ADDR TO R0 ;BH0002
126 000156 000407 BR 20$ ;BH0002
127 ;BH0002
128 000160 012703 000000G 10$: MOV #$NCUNM,R3 ;; SET UP PNTR TO NCU EXECUTOR NAME ;AP0003
129 000164 CALL $SRSTD ;; SEARCH THE TASK DIRECTORY ;BH0002
130 000170 103002 BCC 20$ ;; WE FOUND IT ;BH0002
131 000172 CALLR $CCBCL ;; A LOSER, RETURN CCB & BUFFER TO POOL ;BH0002
132 000176 010064 000004 20$: MOV R0,C.NSP(R4) ;; SET THE TCB ADDR INTO CCB ;BH0002
133 000202 016703 000000G MOV $NSNCU,R3 ;; GET MAILBOX ADDRESS AGAIN IF THERE ;AP0003
134 000206 001406 BEQ 30$ ;; BUT IT IS NOT ACTIVE ;BH0002
135 000210 CALL ADDEVT ;; ALL IS WELL, SO QUEUE THE CCB ;BH0002
136 000214 103002 BCC 25$ ;; OK ;BH0002
137 000216 CALLR RMMOP ;; PUNT ;BH0002
138 000222 25$: RETURN ;BH0002
139 ;BH0002
140 000224 005001 30$: CLR R1 ;; MUST START TASK, SO SET DEFAULT UIC FLAG ;BH0002
141 000226 CALL $TSKRT ;; REQUEST THAT IT BE STARTED ;BH0002
142 000232 103005 BCC 40$ ;; IT IS STARTED ;BH0002
143 000234 152764 000002 000011 BISB #CX.REQ,C.MOD(R4) ;; DIDN'T START, SET REQUEST TO START IT ;BH0002
144 000242 105267 000000G INCB $NSRQF ;; AND BUMP GENERAL DELIVERY FLAG ;BH0002
145 000246 40$: CALLR ADDGN1 ;; PUT THE CCB INTO GENERAL DELIVERY ;BH0002
146 ;; QUEUE AND LEAVE ;BH0002
147
148 000001 .END
NSEVT MACRO M1110 13-OCT-79 10:22 PAGE 5-1
SYMBOL TABLE
ADDEVT= ****** GX C.FNC 000010 IS.DAO= 000002 NE$FCF= 000050 WS.EST= 000002
ADDGN1= ****** GX C.LIN 000006 I$$RAR= 000000 NE$FMT= 000005 WS.INT= 000040
A$$CHK= 000000 C.LNK 000000 I$$RDN= 000000 NE$GEN= 000007 WS.KIP= 000200
A$$CPS= 000000 C.MOD 000011 K$$CNT= 177546 NE$ILS= 000043 WS.MOD= 000010
A$$PRI= 000000 C.NSP 000004 K$$CSR= 177546 NE$IMG= 000053 WS.STA= 000020
A$$TRP= 000000 C.RSV 000002 K$$LDC= 000000 NE$MLB= 000006 WS.VE1= 000001
CB.CCB= 000002 C.STA 000007 K$$TPS= 000074 NE$NOD= 000002 W.CCBU 000006
CB.RDB= 000004 C.STS 000012 LD$LP = 000000 NE$NSD= 000003 W.CINT 000032
CE.ABO= 100362 D$$BUG= 177514 LF.ACT= 100000 NE$RES= 000001 W.CSND 000020
CE.DIS= 100366 D$$ISK= 000000 LF.BWT= 000007 NE$SSR= 000000 W.CTL 000000
CE.ERR= 100370 D$$L11= 000001 LF.DLO= 000040 NE$SSS= 000045 W.INTQ 000034
CE.MOP= 100372 D$$YNC= 000000 LF.ENA= 002000 NE$STA= 000051 W.LLA 000010
CE.NTE= 100361 D$$YNM= 000000 LF.MDC= 000100 NE$TCN= 000040 W.LUN 000007
CE.RTE= 100376 E$$XPR= 000000 LF.MFL= 004000 NE$TCO= 000041 W.MBOX 000016
CE.SRC= 100364 FC.CCP= 000020 LF.MTP= 000020 NE$TPA= 000010 W.MODC 000005
CE.TMO= 100374 FC.CTL= 000006 LF.RDY= 040000 NE$UOB= 000004 W.PIO 000014
CF.EOM= 000004 FC.KCP= 000016 LF.REA= 010000 NO.DTR= 000077 W.RCVQ 000026
CF.HDR= 000020 FC.KIL= 000004 LF.TIM= 000010 NO.FAL= 000021 W.SEGZ 000012
CF.LB = 100000 FC.RCE= 000002 LF.UNL= 020000 NO.FA1= 000001 W.SNDQ 000022
CF.SOM= 000010 FC.RCP= 000014 L$$ASG= 000000 NO.NCU= 000023 W.STAT 000004
CF.SYN= 000040 FC.TIM= 000010 L$$DRV= 000000 NO.RTL= 000022 W.TASK 000002
CF.TRN= 000100 FC.XCP= 000012 L$$P11= 000001 NO.TAS= 000000 W.ULA 000011
CS.ABO= 000100 FC.XME= 000000 L$$11R= 000000 NO.TCL= 000017 W.WBL = 000040
CS.BUF= 000200 FS.AST= 000000 L.CTL 000012 NO.TC1= 000005 X$$DBT= 000000
CS.DCR= 000400 FS.CIB= 002000 L.DDM 000002 NO.TLK= 000020 ZF.DDM= 000001
CS.DEV= 000002 FS.CRA= 001000 L.DDS 000004 NR$IFC= 000030 ZF.DLC= 000002
CS.DIS= 000040 FS.DIS= 013000 L.DLC 000003 NT.ABO= 000005 ZF.KMX= 000020
CS.ENB= 000020 FS.DVC= 001000 L.DLM 000006 NT.ABT= 000004 ZF.LLC= 000004
CS.EOF= 000001 FS.ENB= 012000 L.DLS 000010 NT.CON= 000001 ZF.LMC= 000100
CS.ERR= 100000 FS.GET= 006000 L.FLG 000000 NT.DSC= 000003 ZF.MFL= 000010
CS.HFE= 002000 FS.INI= 000000 L.LEN = 000014 NT.INT= 000002 ZF.MUX= 000040
CS.LST= 040000 FS.KIL= 000000 L.UNT 000013 NT.LOG= 000011 ZF.TIM= 000200
CS.MTL= 004000 FS.LTM= 001000 MS.AST= 000010 NT.MOP= 000010 Z.DAT 000014
CS.RNG= 000010 FS.MNT= 004000 MS.CIP= 000200 N$$LDV= 000001 Z.DSP 000000
CS.ROV= 000004 FS.MSN= 014000 M$$CRB= 000124 N$$MOV= 000010 Z.FLG 000011
CS.RSN= 010000 FS.RNG= 011000 M$$CRX= 000000 N$$SYS= 000001 Z.LEN = 000014
CS.SUC= 000001 FS.RTN= 001000 M$$FCS= 000000 N$$USR= 000001 Z.LLN 000010
CS.TMO= 020000 FS.SET= 005000 M$$MGE= 000000 P$$P45= 000000 Z.MAP 000016
CX.GDQ= 000001 FS.STM= 000000 M$$OVR= 000000 P$$WRD= 000000 Z.NAM 000006
CX.REQ= 000002 FS.STP= 002000 M.MAIL 000012 QUEIT 000144R 002 Z.PCB 000012
CX.UNL= 000004 FS.STR= 001000 M.MAX 000007 Q$$OPT= 000010 Z.SCH 000004
C$$CKP= 000000 FS.TRM= 003000 M.MBL = 000016 RMMOP = ****** GX $CCBCL= ****** GX
C$$ORE= 000400 FS.XKL= 002000 M.NAST 000005 R$$DER= 000000 $MUL = ****** GX
C$$RSH= 177564 FS.XOF= 010000 M.NEXT 000000 R$$K11= 000001 $NCUNM= ****** GX
C.BID 000003 FS.XON= 007000 M.SPA 000010 R$$SND= 000000 $NSNCU= ****** GX
C.BUF 000014 F$$LVL= 000001 M.STAT 000004 R$$11M= 000000 $NSRQF= ****** GX
C.BUF1 000014 G$$TPP= 000000 M.TASK 000002 S$$WRG= 000000 $PDVTA= ****** GX
C.BUF2 000024 G$$TSS= 000000 M.USE 000006 S$$YSZ= 007600 $QEVNT 000000RG 002
C.CNT 000020 G$$TTK= 000000 NE$ABO= 000046 T$$KMG= 000000 $QUEEV 000132RG 002
C.CNT1 000020 G$$WRD= 000000 NE$ABT= 000011 T$$MIN= 000000 $SAVAL= ****** GX
C.CNT2 000030 IE.NDA= 177662 NE$ACC= 000042 V$$CTR= 001000 $SLTTA= ****** GX
C.FLG 000022 IE.NNT= 177660 NE$ACT= 000044 WS.DIC= 000004 $SRSTD= ****** GX
C.FLG1 000022 IE.NRJ= 177666 NE$CDI= 000052 WS.DIP= 000100 $TSKRT= ****** GX
C.FLG2 000032 IE.URJ= 177667 NE$COM= 000047
. ABS. 000040 000
000000 001
NSEVT MACRO M1110 13-OCT-79 10:22 PAGE 5-2
SYMBOL TABLE
$NSACP 000252 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 6566 WORDS ( 26 PAGES)
DYNAMIC MEMORY: 7948 WORDS ( 30 PAGES)
ELAPSED TIME: 00:00:20
NSEVT,[131,34]NSEVT/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSEVT
NSEVT CREATED BY MACRO ON 13-OCT-79 AT 10:23 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ADDEVT = ****** GX 5-135
ADDGN1 = ****** GX 5-145
CX.REQ = 000002 5-143
C.BUF 000014 *4-86 *4-87
C.BUF2 000024 4-86 *4-99 *4-100 *4-104
C.CNT 000020 *4-105
C.FNC 000010 *4-106 *5-121
C.MOD 000011 *5-143
C.NSP 000004 4-88 4-92 *5-132
I$$AS = ****** 3-56
LF.ACT = 100000 #3-57
LF.BWT = 000007 #3-57
LF.DLO = 000040 #3-57
LF.ENA = 002000 #3-57
LF.MDC = 000100 #3-57
LF.MFL = 004000 #3-57
LF.MTP = 000020 #3-57
LF.RDY = 040000 #3-57
LF.REA = 010000 #3-57
LF.TIM = 000010 #3-57
LF.UNL = 020000 #3-57
L.CTL 000012 #3-57 4-99
L.DDM 000002 #3-57 4-101
L.DDS 000004 #3-57
L.DLC 000003 #3-57
L.DLM 000006 #3-57
L.DLS 000010 #3-57
L.FLG 000000 #3-57
L.LEN = 000014 #3-57 4-96
L.UNT 000013 #3-57
M.TASK 000002 5-125
NT.LOG = 000011 5-121
NT.MOP = 000010 4-106
QUEIT 000144 R 4-107 #5-123
RMMOP = ****** GX 5-137
R$$11D = ****** 3-56
R$$11M = 000000 3-56
R$$11S = ****** 3-56
X$$MCB = ****** 3-56 3-56
ZF.DDM = 000001 #3-56
ZF.DLC = 000002 #3-56
ZF.KMX = 000020 #3-56
ZF.LLC = 000004 #3-56
ZF.LMC = 000100 #3-56
ZF.MFL = 000010 #3-56
ZF.MUX = 000040 #3-56
ZF.TIM = 000200 #3-56
Z.DAT 000014 #3-56
Z.DSP 000000 #3-56 3-56
Z.FLG 000011 #3-56
Z.LEN = 000014 #3-56
Z.LLN 000010 #3-56
NSEVT CREATED BY MACRO ON 13-OCT-79 AT 10:23 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
Z.MAP 000016 #3-56 4-95
Z.NAM 000006 #3-56 4-104
Z.PCB 000012 #3-56
Z.SCH 000004 #3-56
$CCBCL = ****** GX 5-131
$MUL = ****** GX 4-97
$NCUNM = ****** GX 5-128
$NSNCU = ****** GX 5-123 5-133
$NSRQF = ****** GX *5-144
$PDVTA = ****** GX 4-89 4-102
$QEVNT 000000 RG #4-84
$QUEEV 000132 RG #5-120
$SAVAL = ****** GX 4-84 5-120
$SLTTA = ****** GX 4-98
$SRSTD = ****** GX 5-129
$TSKRT = ****** GX 5-141
NSEVT CREATED BY MACRO ON 13-OCT-79 AT 10:23 PAGE 3
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-84 4-97 5-120 5-129 5-135 5-141
CALLR #5-131 #5-137 #5-145
CCBDF$ #3-54 #3-55
LLWDF$ #3-59 #3-62
MBXDF$ #3-59 #3-61
NSSYM$ #3-59 3-60
PDVDF$ #3-54 #3-56
RESRG #3-52
RETURN 5-138
SAVRG #3-52
SLTDF$ #3-54 #3-57