Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/nsclo.list
There are no other files named nsclo.list in the archive.
NSCLO MACRO M1110 13-OCT-79 10:19
TABLE OF CONTENTS
4- 65 $CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR
NSCLO MACRO M1110 13-OCT-79 10:19 PAGE 3
1 .IIF NDF V$$ER1 .TITLE NSCLO
2 .IIF DF V$$ER1 .TITLE NSCLO1
3 .IDENT /V01.00/
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 ;
25 ; MODULE DESCRIPTION
26 ;
27 ; ACP CLOSE LUN QIO PROCESSOR
28 ;
29 ;
30 ;
31 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
32 ;
33 ; IDENT HISTORY:
34 ;
35 ; 1.00 10-FEB-78
36 ; VERSION 2.0 RELEASE
37 ;
38
39 ; MACRO LIBRARY CALLS
40 ;
41
42 .MCALL MBXDF$,LLWDF$
43 000000 MBXDF$ ;DEFINE MAILBOX BLOCK OFFSETS
44 000000 LLWDF$ ;DEFINE WINDOW BLOCK OFFSETS
45
46 ;
47 ; LOCAL MACRO DEFINITIONS
48 ;
49 ;
50 ; PUSH AND POP STACK INSTRUCTIONS
51 ;
52
53 .MACRO PUSH S
54 .IRP SS,<S>
55 MOV SS,-(SP)
56 .ENDR
57 .ENDM PUSH
NSCLO MACRO M1110 13-OCT-79 10:19 PAGE 3-1
58
59 .MACRO POP D
60 .IRP DD,<D>
61 MOV (SP)+,DD
62 .ENDR
63 .ENDM POP
NSCLO MACRO M1110 13-OCT-79 10:19 PAGE 4
$CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR
65 .SBTTL $CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR
66
67 ;+
68 ; ** - $CLOQIO - CLOSE LUN QIO PROCESSOR
69 ;
70 ; THIS ROUTINE PROCESSES QIO REQUESTS WITH FUNCTION CODES
71 ; OF 7. SINCE FUNCTION CODE 7 IS NOT A LEGAL FUNCTION
72 ; FOR THE NETWORK PSEUDO DEVICE (NS:), THESE REQUESTS MUST
73 ; COME FROM THE EXECUTIVE DURING I/O RUNDOWN OF A TASK.
74 ;
75 ; INPUTS:
76 ;
77 ; R1=SUBFUNCTION CODE
78 ; R3=I/O PACKET ADDRESS
79 ;
80 ; OUTPUTS:
81 ;
82 ;-
83
84 000000 .PSECT $NSACP
85
86 000000 $CLOQIO::SWSTK$ 20$ ;SWITCH TO SYSTEM STATE
87
88 .IF DF V$$ER1
89
90 MOV I.TCB(R3),R4 ;GET TCB ADDRESS
91 BIT #T3.NET,T.ST3(R4) ;VERSION 1 OR VERSION 2 INTERFACE ?
92 BNE 10$ ;IF NE, VERSION 1
93
94 .IFTF
95
96 000004 CALL MAPHDR ;GET ADDRESS OF TASK'S HEADER
97 000010 116200 000000G MOVB H.NML(R2),R0 ;GET MAILBOX LUN
98 000014 CALL MAPLUN ;GET ADDRESS OF 2ND LUN WORD FOR MAILBOX
99 000020 011004 MOV (R0),R4 ;GET ADDRESS OF MAILBOX
100 000022 017305 000000G MOV @I.LN2(R3),R5 ;GET CONTENTS OF 2ND LUN WORD FOR THE LUN
101 ;THAT THE CLOSE LUN WAS ISSUED ON
102 000026 020405 CMP R4,R5 ;WAS THE CLOSE LUN ON THE MAILBOX LUN?
103 000030 001004 BNE 5$ ;IF NE, NO - COMPLETE CLOSE LUN NOW
104 000032 042704 000001 BIC #1,R4 ;REMOVE INTERLOCK BIT FROM ADDRESS
105 000036 CALLR CLS1 ;RUN DOWN ALL V2 LOGICAL LINKS AND MAILBOX
106 ; FOR THIS TASK
107
108 000042 5$: CALLR IOFLS ;COMPLETE CLOSE LUN BUT DON'T CLEAR INTERLOCK
109
110 .IFT
111
112 10$: PUSH R3 ;SAVE I/O PACKET ADDRESS
113 MOV @I.LN2(R3),R4 ;GET WINDOW BLOCK ADDRESS
114 BIC #1,R4 ;REMOVE INTERLOCK BIT FROM ADDRESS
115 CALL $DIV1A ;RUN DOWN THIS V1 LINK
116 POP R3 ;RESTORE I/O PACKET ADDRESS
117 BCC 20$ ;IF CC, ABORT SUCCEEDED
118 CALLR IOREDO ;OTHERWISE RE-QUEUE REQUEST TO TRY AGAIN LATER
119
120 .ENDC
121
NSCLO MACRO M1110 13-OCT-79 10:19 PAGE 4-1
$CLOQIO - CLOSE LUN QIO (FUNCTION=7) PROCESSOR
122 000046 20$: RETURN ;RETURN TO TASK STATE
123
124 000001 .END
NSCLO MACRO M1110 13-OCT-79 10:19 PAGE 4-2
SYMBOL TABLE
A$$CHK= 000000 G$$TTK= 000000 M$$CRB= 000124 P$$WRD= 000000 W.CCBU 000006
A$$CPS= 000000 G$$WRD= 000000 M$$CRX= 000000 Q$$OPT= 000010 W.CINT 000032
A$$PRI= 000000 H.NML = ****** GX M$$FCS= 000000 R$$DER= 000000 W.CSND 000020
A$$TRP= 000000 IOFLS = ****** GX M$$MGE= 000000 R$$K11= 000001 W.CTL 000000
CLS1 = ****** GX I$$RAR= 000000 M$$OVR= 000000 R$$SND= 000000 W.INTQ 000034
CX.GDQ= 000001 I$$RDN= 000000 M.MAIL 000012 R$$11M= 000000 W.LLA 000010
CX.REQ= 000002 I.LN2 = ****** GX M.MAX 000007 S$$WRG= 000000 W.LUN 000007
CX.UNL= 000004 K$$CNT= 177546 M.MBL = 000016 S$$YSZ= 007600 W.MBOX 000016
C$$CKP= 000000 K$$CSR= 177546 M.NAST 000005 T$$KMG= 000000 W.MODC 000005
C$$ORE= 000400 K$$LDC= 000000 M.NEXT 000000 T$$MIN= 000000 W.PIO 000014
C$$RSH= 177564 K$$TPS= 000074 M.SPA 000010 V$$CTR= 001000 W.RCVQ 000026
D$$BUG= 177514 LD$LP = 000000 M.STAT 000004 WS.DIC= 000004 W.SEGZ 000012
D$$ISK= 000000 L$$ASG= 000000 M.TASK 000002 WS.DIP= 000100 W.SNDQ 000022
D$$L11= 000001 L$$DRV= 000000 M.USE 000006 WS.EST= 000002 W.STAT 000004
D$$YNC= 000000 L$$P11= 000001 N$$LDV= 000001 WS.INT= 000040 W.TASK 000002
D$$YNM= 000000 L$$11R= 000000 N$$MOV= 000010 WS.KIP= 000200 W.ULA 000011
E$$XPR= 000000 MAPHDR= ****** GX N$$SYS= 000001 WS.MOD= 000010 W.WBL = 000040
F$$LVL= 000001 MAPLUN= ****** GX N$$USR= 000001 WS.STA= 000020 X$$DBT= 000000
G$$TPP= 000000 MS.AST= 000010 P$$P45= 000000 WS.VE1= 000001 $CLOQI 000000RG 002
G$$TSS= 000000 MS.CIP= 000200
. ABS. 000040 000
000000 001
$NSACP 000050 002
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 2679 WORDS ( 11 PAGES)
DYNAMIC MEMORY: 3724 WORDS ( 14 PAGES)
ELAPSED TIME: 00:00:10
NSCLO,[131,34]NSCLO/CR/-SP=[130,10]NETLIB/ML,RSXMC4/PA:1,[131,10]NSCLO
NSCLO CREATED BY MACRO ON 13-OCT-79 AT 10:19 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CLS1 = ****** GX 4-105
H.NML = ****** GX 4-97
IOFLS = ****** GX 4-108
I.LN2 = ****** GX 4-100
MAPHDR = ****** GX 4-96
MAPLUN = ****** GX 4-98
V$$ER1 = ****** 3-1 3-2 4-88
$CLOQI 000000 RG #4-86
NSCLO CREATED BY MACRO ON 13-OCT-79 AT 10:19 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL 4-86 4-96 4-98
CALLR #4-105 #4-108
LLWDF$ #3-42 #3-44
MBXDF$ #3-42 #3-43
POP #3-59
PUSH #3-53
RETURN 4-122
SWSTK$ #4-86