Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/drivers/pidid.lst
There are no other files named pidid.lst in the archive.
PIDID 4-Jan-1983 16:27:41 TOPS-20 Bliss-16 3(552) Page 1
30-Dec-1982 04:01:10 NETPKG:<DRIVERS>PIDID.BLI.5 (1)
; 0001 Module PIDID (
; 0002 ident = 'X01000'
; 0003 ) =
; 0004 begin
; 0005
; 0006 !
; 0007 ! COPYRIGHT (c) 1980, 1981, 1982
; 0008 ! DIGITAL EQUIPMENT CORPORATION
; 0009 ! Maynard, Massachusetts
; 0010 !
; 0011 ! This software is furnished under a license and may be used
; 0012 ! and copied only in accordance with the terms of such license
; 0013 ! and with the inclusion of the above copyright notice. This
; 0014 ! software or any other copies thereof may not be provided or
; 0015 ! otherwise made available to any other person. No title to
; 0016 ! and ownership of the software is hereby transferred.
; 0017 !
; 0018 ! The information in this software is subject to change
; 0019 ! without notice and should not be construed as a commitment
; 0020 ! by DIGITAL EQUIPMENT CORPORATION.
; 0021 !
; 0022 ! DIGITAL assumes no responsibility for the use or reliability
; 0023 ! of its software on equipment which is not supplied by
; 0024 ! DIGITAL.
; 0025 !
; 0026
; 0027 !++
; 0028 !
; 0029 ! FACILITY: NRM NRD
; 0030 !
; 0031 ! ABSTRACT: This module gets the process indexes from CEXCOM
; 0032 !
; 0033 !
; 0034 ! ENVIRONMENT: MCB
; 0035 !
; 0036 ! AUTHOR: Ron Platukis CREATION DATE: 9-june-81
; 0037 !
; 0038 ! MODIFIED BY:
; 0039 !
; 0040 !
; 0041 !--
PIDID 4-Jan-1983 16:27:41 TOPS-20 Bliss-16 3(552) Page 2
X01000 30-Dec-1982 04:01:10 NETPKG:<DRIVERS>PIDID.BLI.5 (2)
; 0042 !
; 0043 ! INCLUDE FILES:
; 0044 !
; 0045 library
; 0046 'mcb:XPORTx';
; 0047 library
; 0048 'MCB:MCBLIB';
; 0049
; 0050 LINKAGE
; 0051 register_0 = JSR( register = 0);
; 0052
; 0053 !
; 0054 ! TABLE OF CONTENTS:
; 0055 !
; 0056 forward routine
; 0057 PIDID: register_0;
; 0058
; 0059 !
; 0060 ! MACROS:
; 0061 !
; 0062 !
; 0063 ! EQUATED SYMBOLS:
; 0064 !
; 0065
; 0066 !
; 0067 ! OWN STORAGE:
; 0068 !
; 0069 !
; 0070 ! EXTERNAL REFERENCES:
; 0071
PIDID 4-Jan-1983 16:27:41 TOPS-20 Bliss-16 3(552) Page 3
X01000 30-Dec-1982 04:01:10 NETPKG:<DRIVERS>PIDID.BLI.5 (3)
; 0072 global routine PIDID (name) : register_0 = !
; 0073
; 0074 !++
; 0075 ! FUNCTIONAL DESCRIPTION:
; 0076 ! This routine gets the process indexes from MCB
; 0077 !
; 0078 ! FORMAL PARAMETERS:
; 0079 ! name = radix 50 process name
; 0080 !
; 0081 ! IMPLICIT INPUTS:
; 0082 !
; 0083 !
; 0084 ! IMPLICIT OUTPUTS:
; 0085 ! None
; 0086 !
; 0087 ! ROUTINE VALUE:
; 0088 ! COMPLETION CODES:
; 0089 ! None
; 0090 !
; 0091 ! SIDE EFFECTS:
; 0092 ! None
; 0093 !--
; 0094
; 0095 begin
; 0096 stacklocal x;
; 0097
; 0098 if not $MCB_GET_PROCESS_HANDLE( .name, x)
; 0099 then
; 0100 x = 0;
; 0101 return .x
; 0102 end;
.TITLE PIDID
.IDENT /X01000/
.GLOBL P.DTGT, $CALLI
.SBTTL PIDID
000000 .PSECT $CODE$, RO
000000 024646 PIDID:: CMP -(SP),-(SP) ; 0072
000002 012746 000002 MOV #2,-(SP) ; 0098
000006 060616 ADD SP,(SP) ; $MCB$MY.INDEX,*
000010 010046 MOV R0,-(SP) ; NAME,*
000012 012746 000002 MOV #2,-(SP)
000016 012746 000000G MOV #P.DTGT,-(SP)
000022 004767 000000G JSR PC,$CALLI
000026 062706 000010 ADD #10,SP
000032 032700 000001 BIT #1,R0 ; *,$MCB$STATUS
000036 001405 BEQ 1$
PIDID 4-Jan-1983 16:27:41 TOPS-20 Bliss-16 3(552) Page 4
X01000 30-Dec-1982 04:01:10 NETPKG:<DRIVERS>PIDID.BLI.5 (3)
000040 011666 000002 MOV (SP),2(SP) ; $MCB$MY.INDEX,X
000044 032700 000001 BIT #1,R0 ; *,$MCB$STATUS
000050 001002 BNE 2$
000052 005066 000002 1$: CLR 2(SP) ; X 0100
000056 016600 000002 2$: MOV 2(SP),R0 ; X,* 0095
000062 022626 CMP (SP)+,(SP)+ ; 0072
000064 000207 RTS PC
; Routine Size: 27 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 7 words
; 0103
; 0104 end
; 0105
; 0106 eludom
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 27 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<MCB>XPORTX.L16.14 599 0 0 0
; NETPKG:<MCB>MCBLIB.L16.14 372 4 1 0
; Size: 27 code + 0 data words
; Run Time: 00:01.1
; Elapsed Time: 00:06.8
; Memory Used: 13 pages
; Compilation Complete