Trailing-Edge
-
PDP-10 Archives
-
BB-H348C-RM_1982
-
swskit-v21/listings/mcb/srtrmx.list
There are no other files named srtrmx.list in the archive.
SRTRMX MACRO M1110 13-OCT-79 11:26 PAGE 3
1 .TITLE SRTRMX
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 MODULT TO TRANSMIT A MESSAGE ON A LOGICAL LINK
26 ;
27 ;
28 ; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
29 ;
30 ; IDENT HISTORY:
31 ;
32 ; 1.00 10-FEB-78
33 ; VERSION 2.0 RELEASE
34 ;
SRTRMX MACRO M1110 13-OCT-79 11:26 PAGE 4
36 ;
37 ;======================================================================;
38 ;++
39 ; +-------------------------------------------------+
40 ; I I
41 ; I S R T R M X I
42 ; I - - - - - - I
43 ; I I
44 ; +-------------------------------------------------+
45 ;
46 ; FUNCTION:
47 ;
48 ; SERVICE MODULE TO TRANSMIT A MESSAGE ON A LOGICAL LINK
49 ;
50 ; INPUT:
51 ;
52 ; R5 - ADDRESS OF CONTROL BLOCK REQUESTING TRANSMIT
53 ; C.ADDR - ADDRESS OF BLOCK TO TRANSMIT
54 ; C.LEN - LENGTH OF BLOCK
55 ; C.LKNM - LOGICAL UNIT NUMBER TO TRANSMIT ON
56 ; C.RET - ON COMPLETION, SYSTEM RETURN CODE
57 ; C.SERV - ON INITIAL ENTRY, ZERO; ON COMPLETION ENTRY, NON-ZERO
58 ;
59 ; OUTPUT:
60 ;
61 ; C-BIT - CLEAR IF PROCESSED, SET IF NOT
62 ; @R5 - UPDATED CONTROL BLOCK
63 ; C.RET - ON FINAL RETURN, RETURN CODE AS SPECIFIED FOR COMPLETION
64 ; PROCESSING ROUTINES
65 ; C.SERV - ON FINAL RETURN, ZERO; ON WAITING FOR COMPLETION,
66 ; NON-ZERO
67 ;
68 ; REQUIREMENTS:
69 ;
70 ; INPUT VIA LINK LOGICAL UNIT DATABASE ENTRY:
71 ;
72 ; INUSE - GREATER THAN ZERO IF LINK OPEN
73 ;
74 ; CONTROL BLOCK SYMBOLS:
75 ;
76 ; C.ADDR - OFFSET OF ADDRESS FIELD
77 ; C.LEN - OFFSET OF LENGTH FIELD
78 ; C.LKNM - OFFSET OF LINK LOGICAL UNIT NUMBER FIELD
79 ; C.RET - OFFSET OF RETURN CODE FIELD
80 ; C.SERV - OFFSET OF SERVICE CONTEXT FIELD
81 ; CE$DIS - DISCONNECTED ERROR CODE
82 ;
83 ; LINK LOGICAL UNIT DATABASE SYMBOLS:
84 ;
85 ; INUSE - OFFSET OF IN USE FLAG
86 ;
87 ;
88 ;--
89 ;======================================================================;
90 ;
91 ;
92 ; EXTERNAL MACROS
SRTRMX MACRO M1110 13-OCT-79 11:26 PAGE 4-1
93 ;
94 .MCALL PROC,CONDF,LKUDF,NETDF$,SND$S
95 ;
96 ; EXTERNAL SYMBOLS
97 ;
98 000000 CONDF ;CONTROL BLOCK SYMBOLS
99 000000 NETDF$ ;NETWORK INTERFACE SYMBOLS
100 000000 LKUDF ;LOGICAL LINK SYMBOLS
SRTRMX MACRO M1110 13-OCT-79 11:26 PAGE 5
102 ;
103 ; PROCEDURE BODY
104 ;
105 000000 PROC SRTRMX
106 000000 IF ; SERVICE CONTEXT = 0
107 000000 FALSE SET C.SERV(R5)
108 000006 THEN
109 000006 016500 000020 MOV C.LKNM(R5),R0 ;PICK UP LUN
110 000012 CALL SRCLKU ;ADDRESS LUN TABLE ENTRY
111 000016 IF ; FREE OR DISCONNECT
112 000016 FALSEB GT INUSE(R0)
113 000024 THEN
114 000024 112765 177771 000010 MOVB #CE$DIS,C.RET(R5) ;DISCONNECTED
115 000032 000241 CLC ;PROCESSING COMPLETE
116 000034 ELSE
117 000036 010502 MOV R5,R2 ;POINT TO
118 000040 062702 000010 ADD #C.RET,R2 ; STATUS BLOCK
119 000044 SND$S C.LKNM(R5),,R2,#SRAST,<C.ADDR(R5),C.LEN(R5)>
120 000112 IF ; SEND WAS QUEUED
121 000112 FALSE CS
122 000114 THEN
123 000114 005265 000002 INC C.SERV(R5) ;MAKE SERVICE CONTEXT NON-ZERO
124 000120 ELSE
125 000122 CALL SRQDRF ;PROCESS QUEUE DIRECTIVE FAILURE
126 000126 ENDIF
127 000126 ENDIF
128 000126 ELSE
129 000130 CALL SRQCM ;PROCESS QUEUED I/O COMPLETION
130 000134 005065 000002 CLR C.SERV(R5) ;CLEAR SERVICE CONTEXT AND C-BIT
131 000140 ENDIF
132 000140 ENDPROC
133 000001 .END
SRTRMX MACRO M1110 13-OCT-79 11:26 PAGE 5-1
SYMBOL TABLE
A$$CHK= 000000 C$RCMA= 000146 FR$RMC= 000001 F$RDIN= 000001 NE$CDI= 000052
A$$CPS= 000000 C$RCMS= 000054 FR$RML= 000001 F$RDIS= 000012 NE$COM= 000047
A$$TRP= 000000 C$RDBK= 000043 FR$RMS= 000001 F$RDRC= 000000 NE$FCF= 000050
CE$ACP= 177753 C$RDCM= 000035 FS$HOS= 000001 F$RECO= 000001 NE$FMT= 000005
CE$ADR= 177776 C$RDIN= 000040 FS$INT= 000000 F$RLBF= 000001 NE$GEN= 000007
CE$CON= 177770 C$RDIS= 000040 FS$LLP= 000001 F$RLCB= 000001 NE$ILS= 000043
CE$DIS= 177771 C$RDRC= 000060 FS$LOF= 000001 F$STBK= 000000 NE$IMG= 000053
CE$EOF= 177767 C$RLBF= 000001 FS$LOG= 000001 F$STPR= 000001 NE$MLB= 000006
CE$FAI= 177774 C$RLCB= 000002 FS$LST= 000001 F$STPS= 000006 NE$NOD= 000002
CE$FIL= 177756 C$RLCI= 000000 FS$NET= 000001 F$TEST= 000001 NE$NSD= 000003
CE$FUN= 177777 C$STBK= 000055 FS$NST= 000000 F$TRAC= 000000 NE$RES= 000001
CE$GEN= 177774 C$STPR= 000037 FS$PAS= 000001 F$TRBK= 000001 NE$SSR= 000000
CE$IND= 177757 C$STPS= 000037 FT$CNS= 000000 F$TRIG= 000001 NE$SSS= 000045
CE$IO = 177760 C$TRBK= 000046 FT$NOD= 000001 F$TRIN= 000000 NE$STA= 000051
CE$LEN= 177775 C$TRIN= 000063 FT$TSK= 000001 F$TRMA= 000000 NE$TCN= 000040
CE$LID= 177766 C$TRMA= 000145 F$ALBF= 000001 F$TRMS= 000002 NE$TCO= 000041
CE$LST= 177752 C$TRMS= 000053 F$ALCB= 000001 F$WRBK= 000000 NE$TPA= 000010
CE$NOD= 177765 C$WRBK= 000044 F$CB = 000017 F$WRCL= 000001 NE$UOB= 000004
CE$NSD= 177755 C$WRCL= 000065 F$CLCL= 000001 F$WRCM= 000000 NO = 000000
CE$NST= 177754 C$WRCM= 000036 F$CLCO= 000000 F$WRRC= 000000 NO.DTR= 000077
CE$NWE= 177773 C$WRRC= 000061 F$CLFL= 000000 F$ZERO= 000001 NO.FAL= 000021
CE$OBJ= 177750 C$ZRCN= 000064 F$CLLK= 000006 F$ZRCN= 000001 NO.FA1= 000001
CE$OPN= 177761 C$$CKP= 000000 F$CLLN= 000002 F$$LVL= 000001 NO.NCU= 000023
CE$OVR= 177764 C$$ORE= 000400 F$DPOS= 000001 F$150 = 000002 NO.RTL= 000022
CE$PAR= 177763 C$$RSH= 177564 F$DUMP= 000000 F$300 = 000012 NO.TAS= 000000
CE$PRO= 177751 C.ADDR= 000014 F$EVNT= 000001 F$50 = 000002 NO.TCL= 000017
CE$REJ= 177772 C.BKNM= 000014 F$EXAM= 000001 F$550 = 000002 NO.TC1= 000005
CE$TMO= 177762 C.CTXT= 000004 F$EXHO= 000000 G$$TPP= 000000 NO.TLK= 000020
CS$ACK= 000002 C.FUNC= 000006 F$GTCM= 000001 G$$TSS= 000000 NR$IFC= 000030
CS$LKE= 000001 C.LEN = 000012 F$INCM= 000000 G$$TTK= 000000 NT.ABO= 000005
CS$LNA= 000002 C.LINE= 000014 F$INLU= 000001 IE.NDA= 177662 NT.ABT= 000004
CS$LOG= 000003 C.LKNM= 000020 F$IRLU= 000000 IE.NNT= 177660 NT.CON= 000001
CS$NCH= 000003 C.LUN = 000020 F$LKLU= 000010 IE.NRJ= 177666 NT.DSC= 000003
CS$SUC= 000001 C.MODE= 000021 F$LNLU= 000002 IE.URJ= 177667 NT.INT= 000002
C$ALBF= 000032 C.PRID= 000017 F$LNSR= 000001 INUSE = 000000 NT.LOG= 000011
C$ALCB= 000033 C.PROC= 000007 F$LOAD= 000000 IS.DAO= 000002 NT.MOP= 000010
C$CLCL= 000067 C.PROM= 000016 F$LOGD= 000001 I$$RAR= 000000 N$$USR= 000001
C$CLCO= 000003 C.PTR = 000000 F$LOOP= 000001 I$$RDN= 000000 N.CAC 000120
C$CLFL= 000004 C.RET = 000010 F$NTCM= 000000 K$$CNT= 177546 N.CACC 000116
C$CLLK= 000052 C.SAVE= 000022 F$OPCL= 000001 K$$CSR= 177546 N.CBL = 000142
C$CLLN= 000005 C.SERV= 000002 F$OPCO= 000000 K$$LDC= 000000 N.CDA 000142
C$LEN = 000026 C.TASK= 000016 F$OPIN= 000000 K$$TPS= 000074 N.CDAC 000140
C$NOPN= 000031 C.TYPE= 000016 F$OPIR= 000000 LD$LP = 000000 N.CID 000064
C$NORD= 000032 C.WAIT= 000020 F$OPLK= 000005 LUN = 000001 N.CIDC 000062
C$OPCL= 000066 D$$BUG= 177514 F$OPLN= 000002 L$$ASG= 000000 N.CPS 000106
C$OPCO= 000034 D$$ISK= 000000 F$OPLO= 000000 L$$DRV= 000000 N.CPSC 000104
C$OPIN= 000041 D$$L11= 000001 F$OPOR= 000000 L$$P11= 000001 N.CTL 000000
C$OPIR= 000056 ENTLEN= 000002 F$OPOT= 000000 L$$11R= 000000 N.DDE 000010
C$OPLK= 000051 FL$BOO= 000001 F$ORLU= 000000 MASTER= 000001 N.DDEC 000006
C$OPLN= 000045 FL$DUM= 000001 F$OTLU= 000001 M$$CRB= 000124 N.DFM 000004
C$OPOR= 000057 FL$LOA= 000001 F$RCBK= 000002 M$$CRX= 000000 N.DGP 000006
C$OPOT= 000042 FL$LOO= 000001 F$RCEV= 000001 M$$FCS= 000000 N.DNM 000014
C$ORD = 000145 FR$LCC= 000001 F$RCIN= 000000 M$$OVR= 000000 N.DNMC 000012
C$PROC= 000200 FR$LCS= 000001 F$RCMA= 000000 NE$ABO= 000046 N.DOT 000005
C$RCBK= 000047 FR$LNC= 000001 F$RCMS= 000002 NE$ABT= 000011 N.DUS 000010
C$RCEV= 000050 FR$LNL= 000001 F$RDBK= 000000 NE$ACC= 000042 N.RAC 000070
C$RCIN= 000062 FR$LNS= 000001 F$RDCM= 000000 NE$ACT= 000044 N.RACC 000066
SRTRMX MACRO M1110 13-OCT-79 11:26 PAGE 5-2
SYMBOL TABLE
N.RDE 000012 N.SEGZ 000002 RI$RMS= 000005 SP$LOF= 000012 V$$CTR= 001000
N.RDEC 000010 N.SFM 000036 RI$ZLC= 000011 SP$LST= 000001 X$$DBT= 000000
N.RFM 000006 N.SGP 000040 RI$ZLN= 000013 SP$NDM= 000014 YES = 000001
N.RGP 000010 N.SND 000030 RI$ZRM= 000012 SP$NDO= 000013 $$CSTA= 000000
N.RID 000034 N.SNM 000046 R$$DER= 000000 SP$NST= 000006 $$PRST= 000012
N.RIDC 000032 N.SNMC 000044 R$$K11= 000001 SP$RRP= 000004 $$STIX= 000777
N.RND 000000 N.SOT 000037 R$$SND= 000000 SP$RTP= 000005 $$STNM= 000000
N.RNM 000016 N.SUS 000042 R$$11M= 000000 SRAST = ****** GX $$S772= 000011
N.RNMC 000014 P$$P45= 000000 SLAVE = 000002 SRCLKU= ****** GX $$S773= 000011
N.ROT 000007 RI$LCC= 000001 SP$DHO= 000003 SRQCM = ****** GX $$S774= 000077
N.RPS 000056 RI$LCS= 000002 SP$DRP= 000007 SRQDRF= ****** GX $$S775= 000010
N.RPSC 000054 RI$LNC= 000007 SP$DTP= 000010 SRTRMX 000000RG $$S776= 000000
N.RQL = 000110 RI$LNL= 000006 SP$LHO= 000002 S$$WRG= 000000 $$S777= 000000
N.RUS 000012 RI$LNS= 000010 SP$LLP= 000011 S$$YSZ= 001600 $$TRNM= 000000
N.SDE 000042 RI$RMC= 000004 SP$LNM= 000016 T$$KMG= 000000 $$$ARG= 000002
N.SDEC 000040 RI$RML= 000003 SP$LNO= 000015 T$$MIN= 000000
. ABS. 000142 000
000142 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 10071 WORDS ( 40 PAGES)
DYNAMIC MEMORY: 11116 WORDS ( 42 PAGES)
ELAPSED TIME: 00:00:45
SRTRMX,[135,30]SRTRMX/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRTRMX
SRTRMX CREATED BY MACRO ON 13-OCT-79 AT 11:27 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CE$DIS = 177771 5-114
C.ADDR = 000014 5-119
C.LEN = 000012 5-119
C.LKNM = 000020 5-109 5-119
C.RET = 000010 *5-114 5-118
C.SERV = 000002 5-107 *5-123 *5-130
ENTLEN = 000002 #4-100
F$TRAC = 000000 5-105 5-105 5-132 5-132
INUSE = 000000 #4-100 5-112
I$$AS = ****** 5-105
LUN = 000001 #4-100
MASTER = 000001 #4-100
R$$11D = ****** 5-105
R$$11M = 000000 5-105
SLAVE = 000002 #4-100
SRAST = ****** GX 5-119
SRCLKU = ****** GX 5-110
SRQCM = ****** GX 5-129
SRQDRF = ****** GX 5-125
SRTRMX 000000 RG #5-105
$$CSTA = 000000 #5-105
$$PRST = 000012 #5-105 5-106 #5-106 5-111 #5-111 5-120 #5-120
$$SLST = ****** 5-105 5-107 5-107 5-108 5-112 5-112 5-113 5-116 5-116
5-121 5-122 5-124 5-124 5-126 5-127 5-128 5-128 5-131
5-132
$$STIX = 000777 #5-105 5-106 5-106 #5-106 5-106 5-106 #5-106 5-111 5-111
#5-111 5-111 5-111 #5-111 5-120 5-120 #5-120 5-120 5-120
#5-120 5-126 #5-126 5-126 5-126 #5-126 5-126 5-127 #5-127
5-127 5-127 #5-127 5-127 5-131 #5-131 5-131 5-131 #5-131
5-131
$$STNM = 000000 #5-105 5-106 #5-106 5-106 5-107 5-108 5-111 #5-111 5-111
5-112 5-113 5-116 5-116 5-120 #5-120 5-120 5-121 5-122
5-124 5-124 5-126 #5-126 5-127 #5-127 5-128 5-128 5-131
#5-131
$$S772 = 000011 #5-120 5-126
$$S773 = 000011 #5-120 5-126
$$S774 = 000077 #5-111 5-127
$$S775 = 000010 #5-111 5-127
$$S776 = 000000 #5-106 5-131
$$S777 = 000000 #5-106 5-131
$$TRNM = 000000 #5-105 5-106 #5-106 5-107 5-108 5-111 #5-111 5-112 5-113
5-116 #5-116 5-120 #5-120 5-121 5-122 5-124 #5-124 5-126
#5-126 5-127 #5-127 5-128 #5-128 5-131 #5-131
$$$ARG = 000002 #5-119 5-119 #5-119 5-119 #5-119 5-119 5-119 #5-119 5-119
5-119 5-119 5-119 5-119 5-119 5-119 5-119 5-119 5-119
#5-119 5-119 5-119 5-119 5-119 5-119 5-119 5-119 5-119
5-119 5-119 #5-119 5-119 5-119 5-119 5-119 5-119 5-119
5-119 5-119 5-119 5-119
SRTRMX CREATED BY MACRO ON 13-OCT-79 AT 11:27 PAGE 2
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
CALL #5-110 #5-125 #5-129
CASE #5-105
CONDF #4-94 #4-98
DIR$ #5-119 5-119
DO #5-105
ELSE #5-105 #5-116 #5-124 #5-128
ENDCAS #5-105
ENDIF #5-105 5-126 5-127 5-131
ENDPRO #5-105 5-132
ENDWHI #5-105
FALSE #5-105 #5-107 #5-121
FALSEB #5-105 #5-112
IF #5-105 5-106 5-111 5-120
JMPPRO #5-105
LKUDF #4-94 #4-100
MOV$ #5-119 #5-119 #5-119 #5-119 #5-119 #5-119 #5-119 #5-119 #5-119
MVB$ #5-119 5-119
NETDF$ #4-94 #4-99
ONCASE #5-105
PROC #4-94 5-105
PROCLC #5-105
QDPB$S #5-119 5-119
RVP$ #5-119 #5-119 #5-119 #5-119
SND$S #4-94 5-119
SWSTK$ #5-105
THEN #5-105 5-108 5-113 5-122
TRUE #5-105
TRUEB #5-105
WHILE #5-105
$$BGND #5-105 #5-107 #5-112 #5-121
$$BGNN #5-105 #5-107 #5-112 #5-116 #5-121 #5-124 #5-128
$$ELSE #5-105 #5-116 #5-124 #5-128
$$GEN1 #5-105 5-105 5-107 5-107 5-108 5-112 5-112 5-113 5-116 5-116
5-121 5-122 5-124 5-124 5-126 5-127 5-128 5-128 5-131 5-132
$$GEN2 #5-105
$$GNAB #5-105 5-112 5-121
$$GNBT #5-105 5-107
$$GNCM #5-105 #5-107 #5-112 #5-121
$$INMC #5-105 #5-105
$$INSY #5-105 #5-105
$$LAB #5-105 #5-108 #5-113 #5-116 #5-122 #5-124 #5-126 #5-127 #5-128 #5-131
$$POP #5-105 #5-126 #5-126 #5-127 #5-127 #5-131 #5-131
$$POPI #5-105 5-126 5-126 5-127 5-127 5-131 5-131
$$PUSH #5-105 5-106 5-106 5-111 5-111 5-120 5-120
$$STSM #5-105 5-106 5-106 5-111 5-111 5-120 5-120
$$SYS #5-105
$$TRCE #5-105 5-105 5-132