Google
 

Trailing-Edge - PDP-10 Archives - BB-H348C-RM_1982 - swskit-v21/listings/mcb/srblck.list
There are no other files named srblck.list in the archive.
SRBLCK	MACRO M1110  13-OCT-79 11:09  PAGE 3


      1					.TITLE	SRBLCK
      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 BLOCK PROCESSING
     26					;
     27					;
     28					; DISTRIBUTED SYSTEMS SOFTWARE ENGINEERING
     29					;
     30					; IDENT HISTORY:
     31					;
     32					; 1.00	10-FEB-78
     33					;	VERSION 2.0 RELEASE
     34					;
SRBLCK	MACRO M1110  13-OCT-79 11:09  PAGE 4


     36					;
     37					;======================================================================;
     38					;++
     39					;          +-------------------------------------------------+
     40					;          I                                                 I
     41					;          I                   S R B L C K                   I
     42					;          I                   - - - - - -                   I
     43					;          I                                                 I
     44					;          +-------------------------------------------------+
     45					;
     46					; FUNCTION:
     47					;
     48					;   SERVICE MODULE TO BLOCK PROCESSING
     49					;
     50					; INPUT:
     51					;
     52					;   R0 - NUMBER OF SECONDS TO BLOCK
     53					;
     54					; OUTPUT:  NONE
     55					;
     56					; REQUIREMENTS:
     57					;
     58					;   SERVICE SYMBOLS:
     59					;
     60					;     BLKFLG - BLOCK EVENT FLAG NUMBER
     61					;
     62					;--
     63					;======================================================================;
     64					;
     65					; EXTERNAL MACROS
     66					;
     67					.MCALL	PROC,SRDF,WTSE$S
     68					;
     69					; DEFINE EXTERNAL SYMBOLS
     70					;
     71	000000				SRDF				;SERVICE SYMBOLS
     72					;
     73					; PROCEDURE BODY
     74					;
     75	000000				PROC	SRBLCK
     76	000000	012701 	000003 		MOV     #BLKFLG,R1		;EVENT FLAG
     77	000004				CALL    SRTMST			;SET TIMER
     78	000010				WTSE$S  #BLKFLG			;AND WAIT FOR IT
     79	000022				ENDPROC
     80		000001 			.END
SRBLCK	MACRO M1110  13-OCT-79 11:09  PAGE 4-1
SYMBOL TABLE

A$$CHK= 000000   	FS$LST= 000001   	F$OPCL= 000001   	F$TRIN= 000000   	M$$CRX= 000000
A$$CPS= 000000   	FS$NET= 000001   	F$OPCO= 000000   	F$TRMA= 000000   	M$$FCS= 000000
A$$TRP= 000000   	FS$NST= 000000   	F$OPIN= 000000   	F$TRMS= 000002   	M$$OVR= 000000
BLKFLG= 000003   	FS$PAS= 000001   	F$OPIR= 000000   	F$WRBK= 000000   	NCOLUN= 000016
CMILUN= 000002   	FT$CNS= 000000   	F$OPLK= 000005   	F$WRCL= 000001   	NETLUN= 000003
CMOLUN= 000001   	FT$NOD= 000001   	F$OPLN= 000002   	F$WRCM= 000000   	NO    = 000000
C$$CKP= 000000   	FT$TSK= 000001   	F$OPLO= 000000   	F$WRRC= 000000   	N$$USR= 000001
C$$ORE= 000400   	F$ALBF= 000001   	F$OPOR= 000000   	F$ZERO= 000001   	P$$P45= 000000
C$$RSH= 177564   	F$ALCB= 000001   	F$OPOT= 000000   	F$ZRCN= 000001   	R$$DER= 000000
D$$BUG= 177514   	F$CB  = 000017   	F$ORLU= 000000   	F$$LVL= 000001   	R$$K11= 000001
D$$ISK= 000000   	F$CLCL= 000001   	F$OTLU= 000001   	F$150 = 000002   	R$$SND= 000000
D$$L11= 000001   	F$CLCO= 000000   	F$RCBK= 000002   	F$300 = 000012   	R$$11M= 000000
FILLUN= 000014   	F$CLFL= 000000   	F$RCEV= 000001   	F$50  = 000002   	SERBIT= 000001
FLGGRP= 000000   	F$CLLK= 000006   	F$RCIN= 000000   	F$550 = 000002   	SERFLG= 000001
FLGMSK= 000003   	F$CLLN= 000002   	F$RCMA= 000000   	G$$TPP= 000000   	SRBLCK  000000RG
FL$BOO= 000001   	F$DPOS= 000001   	F$RCMS= 000002   	G$$TSS= 000000   	SRTMST= ****** GX
FL$DUM= 000001   	F$DUMP= 000000   	F$RDBK= 000000   	G$$TTK= 000000   	S$$WRG= 000000
FL$LOA= 000001   	F$EVNT= 000001   	F$RDCM= 000000   	I$$RAR= 000000   	S$$YSZ= 001600
FL$LOO= 000001   	F$EXAM= 000001   	F$RDIN= 000001   	I$$RDN= 000000   	TEMFLG= 000030
FR$LCC= 000001   	F$EXHO= 000000   	F$RDIS= 000012   	K$$CNT= 177546   	TIMBIT= 000002
FR$LCS= 000001   	F$GTCM= 000001   	F$RDRC= 000000   	K$$CSR= 177546   	TIMFLG= 000002
FR$LNC= 000001   	F$INCM= 000000   	F$RECO= 000001   	K$$LDC= 000000   	T$$KMG= 000000
FR$LNL= 000001   	F$INLU= 000001   	F$RLBF= 000001   	K$$TPS= 000074   	T$$MIN= 000000
FR$LNS= 000001   	F$IRLU= 000000   	F$RLCB= 000001   	LD$LP = 000000   	V$$CTR= 001000
FR$RMC= 000001   	F$LKLU= 000010   	F$STBK= 000000   	LINLUN= 000017   	X$$DBT= 000000
FR$RML= 000001   	F$LNLU= 000002   	F$STPR= 000001   	LNKLUN= 000004   	YES   = 000001
FR$RMS= 000001   	F$LNSR= 000001   	F$STPS= 000006   	L$$ASG= 000000   	$$CSTA= 000000
FS$HOS= 000001   	F$LOAD= 000000   	F$TEST= 000001   	L$$DRV= 000000   	$$PRST= 000007
FS$INT= 000000   	F$LOGD= 000001   	F$TRAC= 000000   	L$$P11= 000001   	$$STIX= 000777
FS$LLP= 000001   	F$LOOP= 000001   	F$TRBK= 000001   	L$$11R= 000000   	$$STNM= 000000
FS$LOF= 000001   	F$NTCM= 000000   	F$TRIG= 000001   	M$$CRB= 000124   	$$TRNM= 000000
FS$LOG= 000001

. ABS.	000000	   000
      	000024	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  8248 WORDS  ( 33 PAGES)
DYNAMIC MEMORY:  9004 WORDS  ( 34 PAGES)
ELAPSED TIME:  00:00:39
SRBLCK,[135,30]SRBLCK/CR/-SP=[130,10]NETLIB/ML,[135,10]CFGNIC/PA:1,SRBLCK
SRBLCK     CREATED BY  MACRO  ON 13-OCT-79 AT 11:10	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

BLKFLG	= 000003	 4-76       4-78      
F$TRAC	= 000000	 4-75       4-75       4-79       4-79      
I$$AS 	= ******	 4-75      
R$$11D	= ******	 4-75      
R$$11M	= 000000	 4-75      
SRBLCK	  000000 RG	#4-75      
SRTMST	= ******  GX	 4-77      
$$CSTA	= 000000	#4-75      
$$PRST	= 000007	#4-75      
$$SLST	= ******	 4-75       4-79      
$$STIX	= 000777	#4-75      
$$STNM	= 000000	#4-75      
$$TRNM	= 000000	#4-75      
SRBLCK     CREATED BY  MACRO  ON 13-OCT-79 AT 11:10	PAGE 2

MACRO CROSS REFERENCE                                   CREF         

MACRO NAME	REFERENCES

CALL  		#4-77      
CASE  		#4-75      
DIR$  		#4-78      #4-78      
DO    		#4-75      
ELSE  		#4-75      
ENDCAS		#4-75      
ENDIF 		#4-75      
ENDPRO		#4-75       4-79      
ENDWHI		#4-75      
FALSE 		#4-75      
FALSEB		#4-75      
IF    		#4-75      
JMPPRO		#4-75      
MOV$  		#4-78      #4-78      
ONCASE		#4-75      
PROC  		#4-67       4-75      
PROCLC		#4-75      
SRDF  		#4-67       4-71      
SWSTK$		#4-75      
THEN  		#4-75      
TRUE  		#4-75      
TRUEB 		#4-75      
WHILE 		#4-75      
WTSE$S		#4-67      #4-78      
$$BGND		#4-75      
$$BGNN		#4-75      
$$ELSE		#4-75      
$$GEN1		#4-75       4-75       4-79      
$$GEN2		#4-75      
$$GNAB		#4-75      
$$GNBT		#4-75      
$$GNCM		#4-75      
$$INMC		#4-75       4-75      
$$INSY		#4-75      #4-75      
$$LAB 		#4-75      
$$POP 		#4-75      
$$POPI		#4-75      
$$PUSH		#4-75      
$$STSM		#4-75      
$$SYS 		#4-75      
$$TRCE		#4-75       4-75       4-79