Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srclln.list
There are no other files named srclln.list in the archive.
SRCLLN MACRO M1110 13-OCT-79 12:27 PAGE 3
1 .TITLE SRCLLN
2 .IDENT /V01.00/
3 ;
4 ; COPYRIGHT (C) 1978 BY
5 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
6 ;
7 ;
8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
9 ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
11 ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
12 ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
13 ; TRANSFERRED.
14 ;
15 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
16 ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
17 ; CORPORATION.
18 ;
19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
21 ;
22 ;
23 ; MODULE DESCRIPTION:
24 ;
25 ; NCU SERVICE MODULE TO CLOSE A LINE
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
SRCLLN MACRO M1110 13-OCT-79 12:27 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I S R C L L N I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; SERVICE MODULE TO CLOSE A LINE
49 ;
50 ; INPUT:
51 ;
52 ; R5 - CONTROL BLOCK REQUESTING CLOSE
53 ; C.LUN - LOGICAL UNIT NUMBER OF LINE TO CLOSE
54 ; C.RET - IF C.SERV <> 0, COMPLETION RETURN CODE
55 ; C.SERV - ZERO FOR INITIAL REQUEST, NON-ZERO FOR COMPLETION
56 ;
57 ; OUTPUT:
58 ;
59 ; C-BIT - CLEAR IF PROCESSING COMPLETE FOR NOW, SET IF NOT
60 ; @R5 - UPDATED CONTROL BLOCK
61 ; C.RET - RETURN CONDITION CODE
62 ; C.SERV - NON-ZERO WHILE WAITING FOR COMPLETION
63 ;
64 ; REQUIREMENTS:
65 ;
66 ; INPUT VIA LINE LOGICAL UNIT DATABASE:
67 ;
68 ; INUSE - SET IF OPEN, CLEAR IF NOT
69 ;
70 ; LINE LOGICAL UNIT DATABASE SYMBOLS:
71 ;
72 ; INUSE - OFFSET OF IN USE STATE BYTE
73 ;
74 ; LINE FUNCTION CODE SYMBOLS:
75 ;
76 ; LF.CLS - FUNCTION CODE FOR CLOSE OPERATION
77 ;
78 ; CONTROL BLOCK SYMBOLS:
79 ;
80 ; C.LUN - OFFSET OF LOGICAL UNIT NUMBER
81 ; C.RET - OFFSET OF RETURN CODE
82 ; C.SERV - OFFSET OF SERVICE CONTEXT
83 ; CE$FAI - FAILURE RETURN CODE VALUE
84 ;
85 ; EFFECTS:
86 ;
87 ; OUTPUT VIA LOGICAL UNIT DATABASE:
88 ;
89 ; INUSE - CLEAR
90 ;
91 ;--
92 ;======================================================================;
SRCLLN MACRO M1110 13-OCT-79 12:27 PAGE 4-1
93 ;
94 ;
95 ; EXTERNAL MACROS
96 ;
97 .MCALL PROC,CONDF,LNUDF,SAVSTK,RESSTK,QIO$S,LFDF
98 ;
99 ; DEFINE EXTERNAL SYMBOLS
100 ;
101 000000 CONDF ;CONTROL BLOCK SYMBOLS
102 000000 LNUDF ;LINE LOGICAL UNIT SYMBOLS
103 000000 LFDF ;LINE QIO FUNCTION CODES
SRCLLN MACRO M1110 13-OCT-79 12:27 PAGE 5
105 ;
106 ; PROCEDURE BODY
107 ;
108 000000 PROC SRCLLN
109 000000 IF ; SERVICE CONTEXT = 0
110 000000 FALSE SET C.SERV(R5)
111 000006 THEN
112 000006 116500 000020 MOVB C.LUN(R5),R0 ;GET THE LUN
113 000012 CALL SRCLNU ;CONVERT TO A DATABASE ADDRESS
114 000016 IF ; ENTRY IN USE
115 000016 FALSEB CLEAR INUSE(R0)
116 000024 THEN
117 000024 116501 000020 MOVB C.LUN(R5),R1 ;LOGICAL UNIT OF LINE TO CLOSE
118 000030 012702 000010 MOV #C.RET,R2 ;OFFSET OF SPACE FOR I/O STATUS BLOCK
119 000034 060502 ADD R5,R2 ;MAKE IT A POINTER
120 000036 QIO$S #LF.CLS,R1,,,R2,#SRAST,<#0>
121 000076 IF ; SUCCESSFULLY QUEUED
122 000076 FALSE CS
123 000100 THEN
124 000100 010065 000002 MOV R0,C.SERV(R5) ;SAVE ENTRY ADDRESS IN SERVICE CONTEXT
125 000104 ELSE
126 000106 CALL SRQDRF ;PROCESS QIO DIRECTIVE FAILURE
127 000112 ENDIF
128 000112 ELSE
129 000114 112765 177774 000010 MOVB #CE$FAI,C.RET(R5) ;SET FAILURE RETURN
130 000122 000241 CLC ;PROCESSING COMPLETE
131 000124 ENDIF
132 000124 ELSE
133 000126 CALL SRQCM ;PROCESS QIO COMPLETION
134 000132 016500 000002 MOV C.SERV(R5),R0 ;ADDRESS OF LINE LUN TABLE ENTRY
135 000136 105060 000000 CLRB INUSE(R0) ;MAKE ENTRY AVAILABLE
136 000142 005065 000002 CLR C.SERV(R5) ;CLEAR SERVICE CONTEXT AND C-BIT
137 000146 ENDIF
138 000146 ENDPROC
139 000001 .END
SRCLLN MACRO M1110 13-OCT-79 12:27 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 C$RCMA= 000146 FR$LNS= 000001 F$RDBK= 000000 NO = 000000
A$$CPS= 000000 C$RCMS= 000054 FR$RMC= 000001 F$RDCM= 000000 N$$USR= 000001
A$$TRP= 000000 C$RDBK= 000043 FR$RML= 000001 F$RDIN= 000001 P$$P45= 000000
CE$ACP= 177753 C$RDCM= 000035 FR$RMS= 000001 F$RDIS= 000012 RI$LCC= 000001
CE$ADR= 177776 C$RDIN= 000040 FS$HOS= 000001 F$RDRC= 000000 RI$LCS= 000002
CE$CON= 177770 C$RDIS= 000040 FS$INT= 000000 F$RECO= 000001 RI$LNC= 000007
CE$DIS= 177771 C$RDRC= 000060 FS$LLP= 000001 F$RLBF= 000001 RI$LNL= 000006
CE$EOF= 177767 C$RLBF= 000001 FS$LOF= 000001 F$RLCB= 000001 RI$LNS= 000010
CE$FAI= 177774 C$RLCB= 000002 FS$LOG= 000001 F$STBK= 000000 RI$RMC= 000004
CE$FIL= 177756 C$RLCI= 000000 FS$LST= 000001 F$STPR= 000001 RI$RML= 000003
CE$FUN= 177777 C$STBK= 000055 FS$NET= 000001 F$STPS= 000006 RI$RMS= 000005
CE$GEN= 177774 C$STPR= 000037 FS$NST= 000000 F$TEST= 000001 RI$ZLC= 000011
CE$IND= 177757 C$STPS= 000037 FS$PAS= 000001 F$TRAC= 000000 RI$ZLN= 000013
CE$IO = 177760 C$TRBK= 000046 FT$CNS= 000000 F$TRBK= 000001 RI$ZRM= 000012
CE$LEN= 177775 C$TRIN= 000063 FT$NOD= 000001 F$TRIG= 000001 R$$DER= 000000
CE$LID= 177766 C$TRMA= 000145 FT$TSK= 000001 F$TRIN= 000000 R$$K11= 000001
CE$LST= 177752 C$TRMS= 000053 F$ALBF= 000001 F$TRMA= 000000 R$$SND= 000000
CE$NOD= 177765 C$WRBK= 000044 F$ALCB= 000001 F$TRMS= 000002 R$$11M= 000000
CE$NSD= 177755 C$WRCL= 000065 F$CB = 000017 F$WRBK= 000000 SP$DHO= 000003
CE$NST= 177754 C$WRCM= 000036 F$CLCL= 000001 F$WRCL= 000001 SP$DRP= 000007
CE$NWE= 177773 C$WRRC= 000061 F$CLCO= 000000 F$WRCM= 000000 SP$DTP= 000010
CE$OBJ= 177750 C$ZRCN= 000064 F$CLFL= 000000 F$WRRC= 000000 SP$LHO= 000002
CE$OPN= 177761 C$$CKP= 000000 F$CLLK= 000006 F$ZERO= 000001 SP$LLP= 000011
CE$OVR= 177764 C$$ORE= 000400 F$CLLN= 000002 F$ZRCN= 000001 SP$LNM= 000016
CE$PAR= 177763 C$$RSH= 177564 F$DPOS= 000001 F$$LVL= 000001 SP$LNO= 000015
CE$PRO= 177751 C.ADDR= 000014 F$DUMP= 000000 F$150 = 000002 SP$LOF= 000012
CE$REJ= 177772 C.BKNM= 000014 F$EVNT= 000001 F$300 = 000012 SP$LST= 000001
CE$TMO= 177762 C.CTXT= 000004 F$EXAM= 000001 F$50 = 000002 SP$NDM= 000014
CS$ACK= 000002 C.FUNC= 000006 F$EXHO= 000000 F$550 = 000002 SP$NDO= 000013
CS$LKE= 000001 C.LEN = 000012 F$GTCM= 000001 G$$TPP= 000000 SP$NST= 000006
CS$LNA= 000002 C.LINE= 000014 F$INCM= 000000 G$$TSS= 000000 SP$RRP= 000004
CS$LOG= 000003 C.LKNM= 000020 F$INLU= 000001 G$$TTK= 000000 SP$RTP= 000005
CS$NCH= 000003 C.LUN = 000020 F$IRLU= 000000 INUSE = 000000 SRAST = ****** GX
CS$SUC= 000001 C.MODE= 000021 F$LKLU= 000010 I$$RAR= 000000 SRCLLN 000000RG
C$ALBF= 000032 C.PRID= 000017 F$LNLU= 000002 I$$RDN= 000000 SRCLNU= ****** GX
C$ALCB= 000033 C.PROC= 000007 F$LNSR= 000001 K$$CNT= 177546 SRQCM = ****** GX
C$CLCL= 000067 C.PROM= 000016 F$LOAD= 000000 K$$CSR= 177546 SRQDRF= ****** GX
C$CLCO= 000003 C.PTR = 000000 F$LOGD= 000001 K$$LDC= 000000 S$$WRG= 000000
C$CLFL= 000004 C.RET = 000010 F$LOOP= 000001 K$$TPS= 000074 S$$YSZ= 001600
C$CLLK= 000052 C.SAVE= 000022 F$NTCM= 000000 LD$LP = 000000 T$$KMG= 000000
C$CLLN= 000005 C.SERV= 000002 F$OPCL= 000001 LF.CLS= 016210 T$$MIN= 000000
C$LEN = 000026 C.TASK= 000016 F$OPCO= 000000 LF.OFF= 017010 V$$CTR= 001000
C$NOPN= 000031 C.TYPE= 000016 F$OPIN= 000000 LF.ON = 017000 X$$DBT= 000000
C$NORD= 000032 C.WAIT= 000020 F$OPIR= 000000 LF.OPN= 015400 YES = 000001
C$OPCL= 000066 D$$BUG= 177514 F$OPLK= 000005 LF.RAS= 017020 $$CSTA= 000000
C$OPCO= 000034 D$$ISK= 000000 F$OPLN= 000002 LF.RD = 015000 $$PRST= 000012
C$OPIN= 000041 D$$L11= 000001 F$OPLO= 000000 LF.WRT= 014400 $$STIX= 000777
C$OPIR= 000056 ENTLEN= 000002 F$OPOR= 000000 LUN = 000001 $$STNM= 000000
C$OPLK= 000051 FL$BOO= 000001 F$OPOT= 000000 L$$ASG= 000000 $$S772= 000077
C$OPLN= 000045 FL$DUM= 000001 F$ORLU= 000000 L$$DRV= 000000 $$S773= 000011
C$OPOR= 000057 FL$LOA= 000001 F$OTLU= 000001 L$$P11= 000001 $$S774= 000077
C$OPOT= 000042 FL$LOO= 000001 F$RCBK= 000002 L$$11R= 000000 $$S775= 000010
C$ORD = 000145 FR$LCC= 000001 F$RCEV= 000001 M$$CRB= 000124 $$S776= 000000
C$PROC= 000200 FR$LCS= 000001 F$RCIN= 000000 M$$CRX= 000000 $$S777= 000000
C$RCBK= 000047 FR$LNC= 000001 F$RCMA= 000000 M$$FCS= 000000 $$TRNM= 000000
C$RCEV= 000050 FR$LNL= 000001 F$RCMS= 000002 M$$OVR= 000000 $$$ARG= 000002
C$RCIN= 000062
SRCLLN MACRO M1110 13-OCT-79 12:27 PAGE 5-2
SYMBOL TABLE
. ABS. 000000 000
000150 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 9624 WORDS ( 38 PAGES)
DYNAMIC MEMORY: 11116 WORDS ( 42 PAGES)
ELAPSED TIME: 00:00:37
SRCLLN,[135,30]SRCLLN/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRCLLN
SRCLLN CREATED BY MACRO ON 13-OCT-79 AT 12:28 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CE$FAI = 177774 5-129
C.LUN = 000020 5-112 5-117
C.RET = 000010 5-118 *5-129
C.SERV = 000002 5-110 *5-124 5-134 *5-136
ENTLEN = 000002 #4-102
F$TRAC = 000000 5-108 5-108 5-138 5-138
INUSE = 000000 #4-102 5-115 *5-135
I$$AS = ****** 5-108
LF.CLS = 016210 5-120
LUN = 000001 #4-102
R$$11D = ****** 5-108
R$$11M = 000000 5-108
SRAST = ****** GX 5-120
SRCLLN 000000 RG #5-108
SRCLNU = ****** GX 5-113
SRQCM = ****** GX 5-133
SRQDRF = ****** GX 5-126
$$CSTA = 000000 #5-108
$$PRST = 000012 #5-108 5-109 #5-109 5-114 #5-114 5-121 #5-121
$$SLST = ****** 5-108 5-110 5-110 5-111 5-115 5-115 5-116 5-122 5-123
5-125 5-125 5-127 5-128 5-128 5-131 5-132 5-132 5-137
5-138
$$STIX = 000777 #5-108 5-109 5-109 #5-109 5-109 5-109 #5-109 5-114 5-114
#5-114 5-114 5-114 #5-114 5-121 5-121 #5-121 5-121 5-121
#5-121 5-127 #5-127 5-127 5-127 #5-127 5-127 5-131 #5-131
5-131 5-131 #5-131 5-131 5-137 #5-137 5-137 5-137 #5-137
5-137
$$STNM = 000000 #5-108 5-109 #5-109 5-109 5-110 5-111 5-114 #5-114 5-114
5-115 5-116 5-121 #5-121 5-121 5-122 5-123 *5-125 5-125
5-127 #5-127 5-128 5-128 5-131 #5-131 5-132 5-132 5-137
#5-137
$$S772 = 000077 #5-121 5-127
$$S773 = 000011 #5-121 5-127
$$S774 = 000077 #5-114 5-131
$$S775 = 000010 #5-114 5-131
$$S776 = 000000 #5-109 5-137
$$S777 = 000000 #5-109 5-137
$$TRNM = 000000 #5-108 5-109 #5-109 5-110 5-111 5-114 #5-114 5-115 5-116
5-121 #5-121 5-122 5-123 5-125 #5-125 5-127 #5-127 5-128
#5-128 5-131 #5-131 5-132 #5-132 5-137 #5-137
$$$ARG = 000002 #5-120 5-120 #5-120 5-120 5-120 #5-120 5-120 5-120 5-120
5-120 5-120 5-120 5-120 5-120 5-120 5-120 #5-120 5-120
5-120 5-120 5-120 5-120 5-120 5-120 5-120 5-120 5-120
#5-120 5-120 5-120 5-120 5-120 5-120 5-120 5-120 5-120
5-120 5-120
SRCLLN CREATED BY MACRO ON 13-OCT-79 AT 12:28 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-113 #5-126 #5-133
CASE #5-108
CONDF #4-97 4-101
DIR$ #5-120 5-120
DO #5-108
ELSE #5-108 #5-125 #5-128 #5-132
ENDCAS #5-108
ENDIF #5-108 5-127 5-131 5-137
ENDPRO #5-108 5-138
ENDWHI #5-108
FALSE #5-108 5-110 5-122
FALSEB #5-108 5-115
IF #5-108 #5-109 #5-114 #5-121
JMPPRO #5-108
LFDF #4-97 4-103
LNUDF #4-97 4-102
MOV$ #5-120 5-120 #5-120 5-120 5-120 #5-120 5-120 5-120
MVB$ #5-120 #5-120
ONCASE #5-108
PROC #4-97 5-108
PROCLC #5-108
QDPB$S #5-120 #5-120
QIO$S #4-97 5-120
RESSTK #4-97
RVP$ #5-120 5-120 5-120 5-120
SAVSTK #4-97
SWSTK$ #5-108
THEN #5-108 5-111 5-116 5-123
TRUE #5-108
TRUEB #5-108
WHILE #5-108
$$BGND #5-108 #5-110 #5-115 #5-122
$$BGNN #5-108 #5-110 #5-115 #5-122 #5-125 #5-128 #5-132
$$ELSE #5-108 #5-125 #5-128 #5-132
$$GEN1 #5-108 5-108 5-110 5-110 5-111 5-115 5-115 5-116 5-122 5-123
5-125 5-125 5-127 5-128 5-128 5-131 5-132 5-132 5-137 5-138
$$GEN2 #5-108
$$GNAB #5-108 5-122
$$GNBT #5-108 5-110 5-115
$$GNCM #5-108 #5-110 #5-115 #5-122
$$INMC #5-108 #5-108
$$INSY #5-108 #5-108
$$LAB #5-108 5-111 5-116 5-123 5-125 5-127 5-128 5-131 5-132 5-137
$$POP #5-108 5-127 5-127 5-131 5-131 5-137 5-137
$$POPI #5-108 5-127 5-127 5-131 5-131 5-137 5-137
$$PUSH #5-108 5-109 5-109 5-114 5-114 5-121 5-121
$$STSM #5-108 5-109 5-109 5-114 5-114 5-121 5-121
$$SYS #5-108
$$TRCE #5-108 5-108 5-138