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