Google
 

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