Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/drivers/dmr.lst
There are no other files named dmr.lst in the archive.
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 1
30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (1)
; 0001 module DMR ( ! Driver for DMR11
; 0002 ident = 'X04030',
; 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 DMR Driver
; 0031 !
; 0032 ! ABSTRACT:
; 0033 !
; 0034 ! This is the vestigial process to start up a DMR11 synchronous
; 0035 ! line interface. Control is passed to the DMC process.
; 0036 !
; 0037 ! ENVIRONMENT: MCB V3.0
; 0038 !
; 0039 ! AUTHOR: Alan D. Peckham CREATION DATE: 6-Aug-81
; 0040 !
; 0041 ! MODIFIED BY:
; 0042 !
; 0043 ! Alan D. Peckham, 6-Aug-81: Version 4
; 0044 ! 01 - New process for MCB V3.2
; 0045 ! 02 - Alter system line DLC to new process.
; 0046 ! 03 - Eliminate extraneous functionality to save space.
; 0047 !--
; 0048 !
; 0049 ! INCLUDE FILES:
; 0050 !
; 0051
; 0052 library 'MCBLIB';
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 2
X04030 30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (1)
; 0053
; 0054 library 'XPORTX';
; 0055
; 0056 $SHOW (NONE)
; 0057 require 'DLLLIB';
; 0311
; 0312 library 'NMXLIB';
; 0313
; 0314 library 'DMCDAT';
; 0315
; 0316 !
; 0317 ! TABLE OF CONTENTS:
; 0318 !
; 0319
; 0320 forward routine
; 0321 DMRTIM : MCB_DB_MOD novalue,
; 0322 TIMPIN : MCB_DB novalue;
; 0323
; 0324 !
; 0325 ! MACROS:
; 0326 !
; 0327 ! None
; 0328 !
; 0329 ! EQUATED SYMBOLS:
; 0330 !
; 0331
; 0332 literal
; 0333 TRUE = 1 EQL 1,
; 0334 FALSE = 1 EQL 0,
; 0335 NO_OPERATION = 0;
; 0336
; 0337 global literal
; 0338 %name ('DD.INI') = DD_CLEARED,
; 0339 %name ('D.LEN') = %fieldexpand (D_BUF, 0)^1;
; 0340
; 0341 !
; 0342 ! OWN STORAGE:
; 0343 !
; 0344
; 0345 external routine
; 0346 $DSPCR : novalue;
; 0347
; P 0348 $MCB_PROCESS (
; P 0349 NAME = DMR, ! Process name
; P 0350 DLC_DISPATCH = TABLE$ ($DSPCR, FC_CCP, ! DLL dispatch vector:
; 0351 (FC_TIM, DMRTIM))) ! Timeout
; 0352
; 0353 !
; 0354 ! EXTERNAL REFERENCES:
; 0355 !
; 0356
; 0357 external
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 3
X04030 30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (1)
; 0358 MCB$GAW_PROCESS_DATA_BASE : vector [2],
; 0359 MCB$GW_PROCESS_HANDLE;
; 0360
; 0361 bind
; 0362 DB_BIAS = MCB$GAW_PROCESS_DATA_BASE [0];
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 4
X04030 30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (2)
; 0363 routine DMRTIM
; 0364
; 0365 !++
; 0366 ! FUNCTIONAL DESCRIPTION:
; 0367 !
; 0368 !
; 0369 ! FORMAL PARAMETERS:
; 0370 !
; 0371 (DB : ref block field (D_FIELDS),
; 0372 MODIFIER)
; 0373 !
; 0374 ! IMPLICIT INPUTS:
; 0375 ! None
; 0376 !
; 0377 ! IMPLICIT OUTPUTS:
; 0378 ! None
; 0379 !
; 0380 ! ROUTINE VALUE:
; 0381 !
; 0382 : MCB_DB_MOD novalue =
; 0383 !
; 0384 ! SIDE EFFECTS:
; 0385 ! None
; 0386 !--
; 0387
; 0388 begin
; P 0389 DISPATCH$ (
; P 0390 .MODIFIER,
; P 0391 TABLE$ ($DSPCR, FD_TIM, ! Timer dispatch table:
; P 0392 (FM_PIN, TIMPIN)), ! RDB available
; P 0393 (DB [D_TIM]),
; 0394 MCB_DB);
; 0395 end; !of routine DMRTIM
.TITLE DMR
.IDENT /X04030/
000000 .PSECT ......, D
000000 015432 HEADER: .RAD50 /DMR/
000002 000403 .WORD 403
000004 000000 .WORD 0
000006 000000 .WORD 0
000010 000000 .WORD 0
000012 000000G .WORD .DSPCR
000014 000000' .WORD P.AAA
000016 000000G .WORD .DSPCR
000020 000000G .WORD MCB$V0
000022 000000G .WORD MCB$V1
000024 140310 .WORD 140310
000026 143716 .WORD 143716
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 5
X04030 30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (2)
000030 001400 .WORD 1400
000032 000000 .WORD 0
000034 000000 .WORD 0
000036 000000 .WORD 0
000000 .PSECT $PLIT$, RO , D
000000 000000G P.AAA: .WORD $DSPCR
000002 000000G .WORD $DSPCR
000004 000000G .WORD $DSPCR
000006 000000G .WORD $DSPCR
000010 000000G .WORD $DSPCR
000012 000000' .WORD DMRTIM
000014 000000G .WORD $DSPCR
000016 000000G .WORD $DSPCR
000020 000000G .WORD $DSPCR
000022 000000G .WORD $DSPCR
000024 000000G P.AAB: .WORD $DSPCR
000026 000000G .WORD $DSPCR
000030 000000G .WORD $DSPCR
000032 000000V .WORD TIMPIN
000034 000000G .WORD $DSPCR
000036 000000G .WORD $DSPCR
.GLOBL $DSPCR, .DSPCR, MCB$V0, MCB$V1
.GLOBL .CRDAT, .CRPIX
000005 DD.INI== 5
000616 D.LEN== 616
.SBTTL DMRTIM
000000 .PSECT $CODE$, RO
000000 004773 000024' DMRTIM: JSR PC,@P.AAB(R3) ; *,*(MODIFIER) 0394
000004 000207 RTS PC ; 0363
; Routine Size: 3 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 1 word
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 6
X04030 30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (3)
; 0396 routine TIMPIN
; 0397
; 0398 !++
; 0399 ! FUNCTIONAL DESCRIPTION:
; 0400 !
; 0401 !
; 0402 ! FORMAL PARAMETERS:
; 0403 !
; 0404 (DB : ref block field (D_FIELDS))
; 0405 !
; 0406 ! IMPLICIT INPUTS:
; 0407 ! None
; 0408 !
; 0409 ! IMPLICIT OUTPUTS:
; 0410 ! None
; 0411 !
; 0412 ! ROUTINE VALUE:
; 0413 !
; 0414 : MCB_DB novalue =
; 0415 !
; 0416 ! SIDE EFFECTS:
; 0417 ! None
; 0418 !--
; 0419
; 0420 begin
; 0421 begin
; 0422
; 0423 local
; 0424 BUF : vector [3],
; 0425 PIX;
; 0426
; 0427 DB [DF_DMR_LINE] = TRUE;
; 0428
; 0429 if $MCB_SET_PROCESS (%rad50_11 'DMC', PIX)
; 0430 then
; 0431 begin
; 0432 $MCB_GET_LINE_PROCESSES (.DB [D_CIRCUIT_ENTITY], BUF);
; 0433 BUF [1] = .PIX;
; 0434 $MCB_SET_LINE_PROCESSES (.DB [D_CIRCUIT_ENTITY], BUF);
; 0435 CALL$P (DMCDB, .PIX, .DB_BIAS, DB [D_TIM]);
; 0436 MCB$GAW_PROCESS_DATA_BASE [0] = 0;
; 0437 MCB$GAW_PROCESS_DATA_BASE [1] = 0;
; 0438 $MCB_CLEAR_PROCESS ();
; 0439 end;
; 0440
; 0441 end;
; 0442 end; !of routine TIMPIN
.GLOBL P.DTST, $CALLI, S.LTGT, S.LTST
.GLOBL DMCDB, $CALLP, P.DTCL
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 7
X04030 30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (3)
.SBTTL TIMPIN
000000 162706 000010 TIMPIN: SUB #10,SP ; 0396
000004 052765 004000 000032 BIS #4000,32(R5) ; *,*(DB) 0427
000012 012746 015413 MOV #15413,-(SP) ; 0429
000016 012746 000004 MOV #4,-(SP)
000022 060616 ADD SP,(SP) ; $MCB$MY.INDEX,*
000024 012746 000002 MOV #2,-(SP)
000030 012746 000000G MOV #P.DTST,-(SP)
000034 004767 000000G JSR PC,$CALLI
000040 062706 000010 ADD #10,SP
000044 032700 000001 BIT #1,R0 ; *,$MCB$STATUS
000050 001461 BEQ 1$
000052 011601 MOV (SP),R1 ; $MCB$MY.INDEX,PIX
000054 032700 000001 BIT #1,R0 ; *,$MCB$STATUS
000060 001455 BEQ 1$
000062 012746 000004 MOV #4,-(SP) ; 0432
000066 060616 ADD SP,(SP) ; BUF,*
000070 016546 000100 MOV 100(R5),-(SP) ; *(DB),*
000074 012746 000002 MOV #2,-(SP)
000100 012746 000000G MOV #S.LTGT,-(SP)
000104 004767 000000G JSR PC,$CALLI
000110 010166 000014 MOV R1,14(SP) ; PIX,BUF+2 0433
000114 012716 000012 MOV #12,(SP) ; 0434
000120 060616 ADD SP,(SP) ; BUF,*
000122 016546 000100 MOV 100(R5),-(SP) ; *(DB),*
000126 012746 000002 MOV #2,-(SP)
000132 012746 000000G MOV #S.LTST,-(SP)
000136 004767 000000G JSR PC,$CALLI
000142 010516 MOV R5,(SP) ; DB,* 0435
000144 016746 000000G MOV .CRDAT,-(SP)
000150 012746 000002 MOV #2,-(SP)
000154 012746 000000G MOV #DMCDB,-(SP)
000160 010146 MOV R1,-(SP) ; PIX,*
000162 004767 000000G JSR PC,$CALLP
000166 005067 000000G CLR .CRDAT ; 0436
000172 005067 000002G CLR .CRDAT+2 ; 0437
000176 005016 CLR (SP) ; 0438
000200 012746 000000G MOV #P.DTCL,-(SP)
000204 004767 000000G JSR PC,$CALLI
000210 062706 000030 ADD #30,SP ; 0431
000214 062706 000010 1$: ADD #10,SP ; 0396
000220 000207 RTS PC
; Routine Size: 73 words, Routine Base: $CODE$ + 0006
; Maximum stack depth per invocation: 17 words
; 0443 end
; 0444 eludom
DMR 25-Jan-1983 10:14:52 TOPS-20 Bliss-16 3(552) Page 8
X04030 30-Dec-1982 02:39:46 NETPKG:<DRIVERS>DMR.B16.8 (3)
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $PLIT$ 16 RO , D , LCL, REL, CON
; ...... 16 RW , D , LCL, REL, CON
; $CODE$ 76 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<V3P0>MCBLIB.L16.7 372 62 16 0
; NETPKG:<MCB>XPORTX.L16.15 599 7 1 0
; NETPKG:<MCB>NMXLIB.L16.13 200 0 0 0
; NETPKG:<DRIVERS>DMCDAT.L16.2 220 97 44 0
; Size: 76 code + 32 data words
; Run Time: 00:05.1
; Elapsed Time: 00:16.5
; Memory Used: 34 pages
; Compilation Complete
BLISS16 3
BUF 424 432 433# 434
CALL$P 435
CCB 132+ 136+ 148+ 152+ 175+ 179+ 188+ 192+ 201+ 205+ 223+ 227+
C_FIELDS 136+ 152+ 179+ 192+ 205+ 227+
C_FNC 144+ 157+ 184+ 197+ 210+ 232+
C_LIN 142+
C_LNK 146+ 159+ 186+ 199+ 212+ 234+
C_MOD 145+ 158+ 185+ 198+ 211+ 233+
C_PIX 139+ 155+ 182+ 195+ 208+ 230+
DB 371 393 404 427# 432 434 435
DB_BIAS 362# 435
DD_CLEARED 338#
DECLARE_SEVERITY 237+
DF_DMR_LINE 427
DISPATCH$ 389
DLC_DISPATCH 350#
DLL 237+
DLL$A_CIRCUIT_NAME 112+#
DLL$B_PROVIDER_LINE_INDEX 107+#
DLL$B_PROVIDER_PROCESS_INDEX 108+#
DLL$FW_START_CCB_PRM1 105+#
DLL$FW_START_CCB_PRM2 110+#
DLL$FW_START_CCB_PRM3 114+#
DLL$K_DATA_RECEIVED 251+#
DLL$K_ENTER_MAINTENANCE 211+ 245+#
DLL$K_INITIALIZE_LINK 185+ 243+#
DLL$K_MAINTENANCE_RECEIVED 252+#
DLL$K_PERSISTENT_ERROR 259+#
DLL$K_STATE 257+#
DLL$K_STOP_LINK 198+ 244+#
DLL$K_TRANSIENT_ERROR 258+#
DLL$K_TRANSMIT 233+ 242+#
DLL$K_TRANSMIT_AND_TIME 246+#
DLL$V_DTE_CIRCUIT 116+#
DLL$_ABORTED 266+
DLL$_DEVICE_OPERATION_ERROR 295+
DLL$_DEVICE_RESPONSE_ERROR 291+
DLL$_DEVICE_SERVICE_ERROR 293+
DLL$_MAINTENANCE_RECEIVED 289+
DLL$_NOT_SUPPORTED 265+
DLL$_PAUSE_TIMEOUT 298+
DLL$_PRIVLEDGE_VIOLATION 264+
DLL$_RECEIVE_ERROR 305+
DLL$_RECEIVE_THRESHOLD 279+
DLL$_SELECTION_THRESHOLD 281+
DLL$_SERVICE_TIMEOUT 303+
DLL$_START_RECEIVED 287+
DLL$_STATE_MAINTENANCE 273+
DLL$_STATE_OFF 270+
DLL$_STATE_RUNNING 272+
DLL$_STATE_SYNCHRONIZING 271+
DLL$_SUCCESS 263+
DLL$_TRANSMIT_THRESHOLD 277+
DMCDB 435
DMR 1# 349
DMRTIM 321 351 363*
D_BUF 339
D_CIRCUIT_ENTITY 432 434
D_FIELDS 371 404
D_TIM 393 435
ERROR 237+
FALSE 334#
FC_CCP 350
FC_CTL 144+ 157+
FC_TIM 351
FC_XME 184+ 197+ 210+ 232+
FD_TIM 391
FM_PIN 392
FM_STP 158+
FM_STR 145+
INFO 237+
LANGUAGE 3
LIN 132+ 141+ 142+
MCB$GAW_PROCESS_DATA_BASE 358 362 436# 437#
MCB$GW_PROCESS_HANDLE 359
MCB_DB 322 394 414#
MCB_DB_MOD 321 382#
MODIFIER 372 390
NAME 349#
NONE 56
NO_OPERATION 335#
PIX 425 429 433 435
PROVIDER_PIX 132+ 138+ 139+ 148+ 154+ 155+ 175+ 181+ 182+ 188+ 194+ 195+
201+ 207+ 208+ 223+ 229+ 230+
SEVERE 237+
SUCCESS 237+
TABLE$ 350 391
TIMPIN 322 392 396*
TRUE 333# 427
WARNING 237+
$DLL$CCB 136+# 139+# 142+# 144+# 145+# 146+ 152+# 155+# 157+# 158+# 159+ 179+#
182+# 184+# 185+# 186+ 192+# 195+# 197+# 198+# 199+ 205+# 208+# 210+#
211+# 212+ 227+# 230+# 232+# 233+# 234+
$DLL_ENTER_MAINTENANCE 201+#
$DLL_ERROR 264+ 265+ 289+
$DLL_INFO 270+ 271+ 272+ 273+
$DLL_INITIALIZE 175+#
$DLL_RELEASE_CIRCUIT 148+#
$DLL_REQUEST_CIRCUIT 132+#
$DLL_SEVERE 291+ 293+ 295+
$DLL_STOP 188+#
$DLL_SUCCESS 263+
$DLL_TRANSMIT 223+#
$DLL_WARNING 266+ 277+ 279+ 281+ 287+ 298+ 303+ 305+
$DSPCR 346* 350 391
$MCB_CLEAR_PROCESS 438
$MCB_GET_LINE_PROCESSES 432
$MCB_PROCESS 348
$MCB_SCHEDULE_CCB 146+ 159+ 186+ 199+ 212+ 234+
$MCB_SET_LINE_PROCESSES 434
$MCB_SET_PROCESS 429
$SHOW 56