Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/drivers/dcpini.lst
There are no other files named dcpini.lst in the archive.
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 1
30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (1)
; 0001 module DCPINI ( ! DDCMP Initialization
; 0002 ident = 'X01070',
; 0003 language (bliss16)
; 0004 ) =
; 0005 begin
; 0006
; 0007 !
; 0008 ! COPYRIGHT (c) 1980, 1981, 1982
; 0009 ! DIGITAL EQUIPMENT CORPORATION
; 0010 ! Maynard, Massachusetts
; 0011 !
; 0012 ! This software is furnished under a license and may be used
; 0013 ! and copied only in accordance with the terms of such license
; 0014 ! and with the inclusion of the above copyright notice. This
; 0015 ! software or any other copies thereof may not be provided or
; 0016 ! otherwise made available to any other person. No title to
; 0017 ! and ownership of the software is hereby transferred.
; 0018 !
; 0019 ! The information in this software is subject to change
; 0020 ! without notice and should not be construed as a commitment
; 0021 ! by DIGITAL EQUIPMENT CORPORATION.
; 0022 !
; 0023 ! DIGITAL assumes no responsibility for the use or reliability
; 0024 ! of its software on equipment which is not supplied by
; 0025 ! DIGITAL.
; 0026 !
; 0027
; 0028 !++
; 0029 !
; 0030 ! FACILITY: MCB DDCMP Protocol Driver
; 0031 !
; 0032 ! ABSTRACT:
; 0033 !
; 0034 ! This module contains the DDCMP initialization routines.
; 0035 !
; 0036 ! ENVIRONMENT: MCB V3.2
; 0037 !
; 0038 ! AUTHOR: Alan D. Peckham CREATION DATE: 16-Apr-81
; 0039 !
; 0040 ! MODIFIED BY:
; 0041 !
; 0042 ! Alan D. Peckham, 16-Apr-81: Version 1
; 0043 ! 01 - New module for DCP.
; 0044 ! 03 - Use $MCB_GET_DEVICE_NAME to get circuit/line name.
; 0045 ! 04 - Save NMX process index for later.
; 0046 ! 05 - Get KDP parameters from PLL.
; 0047 ! 06 - Turn on NMX$FLG_maintenance_allowed for the circuit.
; 0048 ! 07 - Zero the time-last-zeroed counter.
; 0049 !--
; 0050 !
; 0051 ! INCLUDE FILES:
; 0052 !
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 2
X01070 30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (1)
; 0053
; 0054 library 'MCBLIB';
; 0055
; 0056 library 'XPORTX';
; 0057
; 0058 library 'NMXLIB';
; 0059
; 0060 library 'DCPDAT';
; 0061
; 0062 !
; 0063 ! TABLE OF CONTENTS:
; 0064 !
; 0065
; 0066 linkage
; 0067 DDM_CCB = jsr (register = 4) : nopreserve (4);
; 0068
; 0069 forward routine
; 0070 TIMPIN : MCB_DB novalue;
; 0071
; 0072 !
; 0073 ! MACROS:
; 0074 !
; 0075 ! None
; 0076 !
; 0077 ! EQUATED SYMBOLS:
; 0078 !
; 0079
; 0080 literal
; 0081 TRUE = 1 EQL 1,
; 0082 FALSE = 1 EQL 0,
; 0083 NO_OPERATION = 0;
; 0084
; 0085 macro
; 0086 C_HANDLE = %fieldexpand (C_LIN, 0), 0, %bpval, 0 %;
; 0087
; 0088 !
; 0089 ! OWN STORAGE:
; 0090 !
; 0091
; 0092 external routine
; 0093 $DSPCR : novalue;
; 0094
; 0095 !
; 0096 ! EXTERNAL REFERENCES:
; 0097 !
; 0098
; 0099 external
; 0100 MCB$GAW_PROCESS_DATA_BASE : vector [2],
; 0101 MCB$GW_PROCESS_HANDLE;
; 0102
; 0103 bind
; 0104 DB_BIAS = MCB$GAW_PROCESS_DATA_BASE [0];
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 3
X01070 30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (1)
; 0105
; 0106 macro
; M 0107 GET_DCP_DATA_BASE (NAME) =
; M 0108 %if %declared (NAME)
; M 0109 %then map NAME : ref
; M 0110 %else bind NAME = .MCB$GAW_PROCESS_DATA_BASE [1] :
; 0111 %fi block field (D_FIELDS) %;
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 4
X01070 30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (2)
; 0112 global routine TIMPIN
; 0113
; 0114 !++
; 0115 ! FUNCTIONAL DESCRIPTION:
; 0116 !
; 0117 !
; 0118 ! FORMAL PARAMETERS:
; 0119 !
; 0120 (DB : ref block field (D_FIELDS))
; 0121 !
; 0122 ! IMPLICIT INPUTS:
; 0123 ! None
; 0124 !
; 0125 ! IMPLICIT OUTPUTS:
; 0126 ! None
; 0127 !
; 0128 ! ROUTINE VALUE:
; 0129 !
; 0130 : MCB_DB novalue =
; 0131 !
; 0132 ! SIDE EFFECTS:
; 0133 ! None
; 0134 !--
; 0135
; 0136 begin
; 0137 DB [L_PROTOCOL] = DP_DMC;
; 0138
; 0139 if .DB [LI_HDX] then DB [L_DUPLEX] = 1;
; 0140
; 0141 $NM_TIME (DB [L_TIME_LINE_ZEROED]);
; 0142 begin
; 0143
; 0144 local
; 0145 NMXPIX;
; 0146
; 0147 if $MCB_GET_PROCESS_HANDLE (%rad50_11 'NMX', NMXPIX)
; 0148 then
; 0149 begin
; 0150
; 0151 local
; 0152 NAME_BUFFER : vector [ch$allocation (17)],
; 0153 NMXID;
; 0154
; 0155 bind
; 0156 NAME_PTR = ch$ptr (NAME_BUFFER);
; 0157
; 0158 DB [D_NMX_PIX] = .NMXPIX;
; 0159 $MCB_GET_DEVICE_NAME (.DB [L_LINE_ENTITY], NAME_PTR);
; 0160 NMX$CREATE_LINE (.NMXPIX, NAME_PTR, 0, NMXID);
; P 0161 NMX$MODIFY_LINE_PROVIDER (.NMXPIX, NAME_PTR,
; P 0162 .MCB$GW_PROCESS_HANDLE^8 + DCP_K_LINE_PROVIDER,
; 0163 DB [L_LINE_ENTITY]);
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 5
X01070 30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (2)
; P 0164 NMX$MODIFY_LINE_OWNER (.NMXPIX, NAME_PTR,
; P 0165 .MCB$GW_PROCESS_HANDLE^8 + DCP_K_LINE_OWNER,
; 0166 NMXID);
; 0167 NMX$CREATE_CIRCUIT (.NMXPIX, NAME_PTR, NMX$FLG_maintenance_allowed, NMXID);
; P 0168 NMX$MODIFY_CIRCUIT_PROVIDER (.NMXPIX, NAME_PTR,
; P 0169 .MCB$GW_PROCESS_HANDLE^8 + DCP_K_CIRCUIT_PROVIDER,
; 0170 DB [S_CIRCUIT_ENTITY]);
; 0171 end;
; 0172
; 0173 end;
; 0174 begin
; 0175
; 0176 local
; 0177 CCB : ref block field (C_FIELDS);
; 0178
; 0179 external routine
; 0180 $DDGET : DDM_CCB novalue;
; 0181
; 0182 if not $MCB_GET_CCB (CCB) then return;
; 0183
; 0184 CCB [C_HANDLE] = .DB [L_DRIVER_HANDLE];
; 0185 $DDGET (.CCB);
; 0186 end;
; 0187 end;
.TITLE DCPINI
.IDENT /X01070/
.GLOBL $DSPCR, .CRDAT, .CRPIX, $ST32
.GLOBL P.DTGT, $CALLI, D.NMGT, $NMCRE
.GLOBL $CALLP, $NMMID, $DDGET, $CCBGT
.SBTTL TIMPIN
000000 .PSECT $CODE$, RO
000000 162706 000026 TIMPIN::SUB #26,SP ; 0112
000004 010501 MOV R5,R1 ; *,DB
000006 112761 000004 000010 MOVB #4,10(R1) ; *,*(DB) 0137
000014 132761 000001 000154 BITB #1,154(R1) ; *,*(DB) 0139
000022 001403 BEQ 1$
000024 112761 000001 000012 MOVB #1,12(R1) ; *,*(DB)
000032 010105 1$: MOV R1,R5 ; DB,* 0141
000034 062705 000056 ADD #56,R5
000040 010500 MOV R5,R0
000042 004767 000000G JSR PC,$ST32
000046 012746 000004 MOV #4,-(SP) ; 0147
000052 060616 ADD SP,(SP) ; $MCB$MY.INDEX,*
000054 012746 054640 MOV #54640,-(SP)
000060 012746 000002 MOV #2,-(SP)
000064 012746 000000G MOV #P.DTGT,-(SP)
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 6
X01070 30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (2)
000070 004767 000000G JSR PC,$CALLI
000074 062706 000010 ADD #10,SP
000100 032700 000001 BIT #1,R0 ; *,$MCB$STATUS
000104 001565 BEQ 2$
000106 016602 000002 MOV 2(SP),R2 ; $MCB$MY.INDEX,NMXPIX
000112 032700 000001 BIT #1,R0 ; *,$MCB$STATUS
000116 001560 BEQ 2$
000120 110261 000100 MOVB R2,100(R1) ; NMXPIX,*(DB) 0158
000124 012746 000006 MOV #6,-(SP) ; 0159
000130 060616 ADD SP,(SP) ; NAME.PTR,*
000132 016146 000142 MOV 142(R1),-(SP) ; *(DB),*
000136 012746 000002 MOV #2,-(SP)
000142 012746 000000G MOV #D.NMGT,-(SP)
000146 004767 000000G JSR PC,$CALLI
000152 012716 000010 MOV #10,(SP) ; 0160
000156 060616 ADD SP,(SP) ; NMXID,*
000160 005046 CLR -(SP)
000162 012746 000020 MOV #20,-(SP)
000166 060616 ADD SP,(SP) ; NAME.PTR,*
000170 012746 001000 MOV #1000,-(SP)
000174 012746 000004 MOV #4,-(SP)
000200 012746 000000G MOV #$NMCRE,-(SP)
000204 010246 MOV R2,-(SP) ; NMXPIX,*
000206 004767 000000G JSR PC,$CALLP
000212 012716 000142 MOV #142,(SP) ; 0163
000216 060116 ADD R1,(SP) ; DB,*
000220 016700 000000G MOV .CRPIX,R0
000224 072027 000010 ASH #10,R0
000230 010046 MOV R0,-(SP)
000232 012746 000034 MOV #34,-(SP)
000236 060616 ADD SP,(SP) ; NAME.PTR,*
000240 012746 001004 MOV #1004,-(SP)
000244 012746 000004 MOV #4,-(SP)
000250 012746 000000G MOV #$NMMID,-(SP)
000254 010246 MOV R2,-(SP) ; NMXPIX,*
000256 004767 000000G JSR PC,$CALLP
000262 012716 000040 MOV #40,(SP) ; 0166
000266 060616 ADD SP,(SP) ; NMXID,*
000270 016700 000000G MOV .CRPIX,R0
000274 072027 000010 ASH #10,R0
000300 010046 MOV R0,-(SP)
000302 062716 000002 ADD #2,(SP)
000306 012746 000050 MOV #50,-(SP)
000312 060616 ADD SP,(SP) ; NAME.PTR,*
000314 012746 001002 MOV #1002,-(SP)
000320 012746 000004 MOV #4,-(SP)
000324 012746 000000G MOV #$NMMID,-(SP)
000330 010246 MOV R2,-(SP) ; NMXPIX,*
000332 004767 000000G JSR PC,$CALLP
000336 012716 000054 MOV #54,(SP) ; 0167
000342 060616 ADD SP,(SP) ; NMXID,*
000344 012746 000001 MOV #1,-(SP)
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 7
X01070 30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (2)
000350 012746 000064 MOV #64,-(SP)
000354 060616 ADD SP,(SP) ; NAME.PTR,*
000356 012746 002000 MOV #2000,-(SP)
000362 012746 000004 MOV #4,-(SP)
000366 012746 000000G MOV #$NMCRE,-(SP)
000372 010246 MOV R2,-(SP) ; NMXPIX,*
000374 004767 000000G JSR PC,$CALLP
000400 010116 MOV R1,(SP) ; DB,* 0170
000402 062716 000126 ADD #126,(SP)
000406 016700 000000G MOV .CRPIX,R0
000412 072027 000010 ASH #10,R0
000416 010046 MOV R0,-(SP)
000420 062716 000004 ADD #4,(SP)
000424 012746 000100 MOV #100,-(SP)
000430 060616 ADD SP,(SP) ; NAME.PTR,*
000432 012746 002004 MOV #2004,-(SP)
000436 012746 000004 MOV #4,-(SP)
000442 012746 000000G MOV #$NMMID,-(SP)
000446 010246 MOV R2,-(SP) ; NMXPIX,*
000450 004767 000000G JSR PC,$CALLP
000454 062706 000104 ADD #104,SP ; 0149
000460 004767 000000G 2$: JSR PC,$CCBGT ; 0182
000464 103405 BCS 3$
000466 016164 000144 000010 MOV 144(R1),10(R4) ; *(DB),*(CCB) 0184
000474 004767 000000G JSR PC,$DDGET ; 0185
000500 062706 000026 3$: ADD #26,SP ; 0112
000504 000207 RTS PC
; Routine Size: 163 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 46 words
; 0188 end
; 0189 eludom
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 163 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<V3P0>MCBLIB.L16.7 372 36 9 0
; NETPKG:<MCB>XPORTX.L16.15 599 0 0 0
DCPINI 25-Jan-1983 10:01:09 TOPS-20 Bliss-16 3(552) Page 8
X01070 30-Dec-1982 02:26:56 NETPKG:<DRIVERS>DCPINI.B16.10 (2)
; NETPKG:<MCB>NMXLIB.L16.13 200 15 7 0
; NETPKG:<DRIVERS>DCPDAT.L16.2 186 114 61 0
; Size: 163 code + 0 data words
; Run Time: 00:03.5
; Elapsed Time: 00:12.2
; Memory Used: 37 pages
; Compilation Complete
BLISS16 3
CCB 177 182 184# 185
C_FIELDS 177
C_HANDLE 86# 184
C_LIN 86
DB 120 137# 139# 141 158# 159 163 170 184
DB_BIAS 104#
DCPINI 1#
DCP_K_CIRCUIT_PROVIDER 169
DCP_K_LINE_OWNER 165
DCP_K_LINE_PROVIDER 162
DDM_CCB 67# 180
DP_DMC 137
D_FIELDS 111 120
D_NMX_PIX 158
FALSE 82#
GET_DCP_DATA_BASE 107#
LANGUAGE 3
LI_HDX 139
L_DRIVER_HANDLE 184
L_DUPLEX 139
L_LINE_ENTITY 159 163
L_PROTOCOL 137
L_TIME_LINE_ZEROED 141
MCB$GAW_PROCESS_DATA_BASE 100 104 110
MCB$GW_PROCESS_HANDLE 101 162 165 169
MCB_DB 70 130#
NAME 107 108 109 110#
NAME_BUFFER 152 156
NAME_PTR 156# 159 160 161 164 167 168
NMX$CREATE_CIRCUIT 167
NMX$CREATE_LINE 160
NMX$FLG_MAINTENANCE_ALLOWED 167
NMX$MODIFY_CIRCUIT_PROVIDER 168
NMX$MODIFY_LINE_OWNER 164
NMX$MODIFY_LINE_PROVIDER 161
NMXID 153 160 166 167
NMXPIX 145 147 158 160 161 164 167 168
NO_OPERATION 83#
S_CIRCUIT_ENTITY 170
TIMPIN 70 112*
TRUE 81#
$DDGET 180* 185
$DSPCR 93*
$MCB_GET_CCB 182
$MCB_GET_DEVICE_NAME 159
$MCB_GET_PROCESS_HANDLE 147
$NM_TIME 141