Trailing-Edge
-
PDP-10 Archives
-
BB-P363B-SM_1985
-
mcb/drivers/crini.lst
There are no other files named crini.lst in the archive.
CRINI 4-Jan-1983 16:25:15 TOPS-20 Bliss-16 3(552) Page 1
30-Dec-1982 02:07:55 NETPKG:<DRIVERS>CRINI.B16.8 (1)
; 0001 module CRINI ( ! NURD CR11 driver Initialization
; 0002 ident = 'X01010',
; 0003 language (bliss16)
; 0004 ) =
; 0005 begin
; 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: MCB NURD CR11 Driver
; 0030 !
; 0031 ! ABSTRACT:
; 0032 ! This module contains the CR11 initialization routines.
; 0033 !
; 0034 ! ENVIRONMENT: MCB V3.2
; 0035 !
; 0036 ! AUTHOR: Alan D. Peckham CREATION DATE: 7-Jul-81
; 0037 !
; 0038 ! MODIFIED BY:
; 0039 ! Alan D. Peckham, 7-Jul-81: Version 1
; 0040 ! 01 - New module for CR.
; 0041 !--
; 0042
; 0043 !
; 0044 ! INCLUDE FILES:
; 0045 !
; 0046 library 'MCB:MCBLIB';
; 0047 library 'MCB:XPORTX';
; 0048 library 'MCB:NMXLIB';
; 0049
; 0050 switches list (require);
; 0051 $SHOW (FIELDS) $SHOW (LITERALS)
; 0052 require 'CR:CRDAT';
CRINI 4-Jan-1983 16:25:15 TOPS-20 Bliss-16 3(552) Page 2
X01010 30-Dec-1982 02:07:44 NETPKG:<DRIVERS>CRDAT.R16.8 (1)
; R0053 ! [Beginning of CRDAT]
; R0054 !
; R0055 ! COPYRIGHT (c) 1980, 1981, 1982
; R0056 ! DIGITAL EQUIPMENT CORPORATION
; R0057 ! Maynard, Massachusetts
; R0058 !
; R0059 ! This software is furnished under a license and may be used
; R0060 ! and copied only in accordance with the terms of such license
; R0061 ! and with the inclusion of the above copyright notice. This
; R0062 ! software or any other copies thereof may not be provided or
; R0063 ! otherwise made available to any other person. No title to
; R0064 ! and ownership of the software is hereby transferred.
; R0065 !
; R0066 ! The information in this software is subject to change
; R0067 ! without notice and should not be construed as a commitment
; R0068 ! by DIGITAL EQUIPMENT CORPORATION.
; R0069 !
; R0070 ! DIGITAL assumes no responsibility for the use or reliability
; R0071 ! of its software on equipment which is not supplied by
; R0072 ! DIGITAL.
; R0073 !
; R0074
; R0075 !++
; R0076 !
; R0077 ! FACILITY: MCB CR11 driver Process
; R0078 !
; R0079 ! ABSTRACT:
; R0080 ! This contains the data structure definitions for the NURD CR11 driver
; R0081 !
; R0082 ! ENVIRONMENT: MCB V3.0
; R0083 !
; R0084 ! AUTHOR: Alan D. Peckham CREATION DATE: 7-Jul-81
; R0085 !
; R0086 ! MODIFIED BY:
; R0087 ! Alan D. Peckham, 7-Jul-81: Version 1
; R0088 ! 01 - New for initialization module
; R0089 !--
; R0090
; R0091 %if not %declared (XPO$K_VERSION) %then library 'BLI:XPORT'; %fi
; R0092 %if not %declared (MCB$K_VERSION) %then library 'MCB:MCBLIB'; %fi
; R0093
; R0094 macro
; MR0095 $SKIP_FIELD [] =
; R0096 %bliss36 [%bliss32 [%remaining]] %;
CRINI 4-Jan-1983 16:25:15 TOPS-20 Bliss-16 3(552) Page 3
X01010 30-Dec-1982 02:07:44 NETPKG:<DRIVERS>CRDAT.R16.8 (2)
; R0097 !
; R0098 ! CR data base
; R0099 !
; R0100 $FIELD
; R0101 D_FIELDS =
; R0102 set
; LR0103 $SKIP_FIELD ($BYTE) ! (C.TIMC) TIMER ENTRY
; %PRINT: [0,0,8,0] (+%O'0')
; LR0104 $SKIP_FIELD ($BYTE) ! (C.NRD) NRD's PIX
; %PRINT: [0,8,8,0] (+%O'1')
; LR0105 D_REGISTER = [$ADDRESS], ! (C.CSR) ONE WORD CSR POINTER
; %PRINT: [1,0,16,0] (+%O'2')
; LR0106 D_VECTOR = [$ADDRESS], ! (C.DTXT) CONTEXT BLOCK (DTXTSZ)
; %PRINT: [2,0,16,0] (+%O'4')
; LR0107 D_PRIORITY = [$INTEGER] ! We just use two words temporarily
; %PRINT: [3,0,16,1] (+%O'6')
; R0108 tes;
; R0109
; R0110 !
; R0111 ! [End of CRDAT]
CRINI 4-Jan-1983 16:25:15 TOPS-20 Bliss-16 3(552) Page 4
X01010 30-Dec-1982 02:07:55 NETPKG:<DRIVERS>CRINI.B16.8 (1)
; 0112 switches list (norequire);
; 0113
; 0114 !
; 0115 ! TABLE OF CONTENTS:
; 0116 !
; 0117 forward routine
; 0118 TIMPIN : MCB_DB novalue;
; 0119
; 0120 !
; 0121 ! MACROS:
; 0122 !
; 0123
; 0124 !
; 0125 ! EQUATED SYMBOLS:
; 0126 !
; 0127
; 0128 !
; 0129 ! OWN STORAGE:
; 0130 !
; 0131
; 0132 !
; 0133 ! EXTERNAL REFERENCES:
; 0134 !
; 0135 external routine
; 0136 $CRINT : MCB_INTERRUPT novalue;
CRINI 4-Jan-1983 16:25:15 TOPS-20 Bliss-16 3(552) Page 5
X01010 30-Dec-1982 02:07:55 NETPKG:<DRIVERS>CRINI.B16.8 (2)
; 0137 global routine TIMPIN
; 0138
; 0139 !++
; 0140 ! FUNCTIONAL DESCRIPTION:
; 0141 !
; 0142 !
; 0143 ! FORMAL PARAMETERS:
; 0144 !
; 0145 (DB : ref block field (D_FIELDS))
; 0146 !
; 0147 ! IMPLICIT INPUTS:
; 0148 ! None
; 0149 !
; 0150 ! IMPLICIT OUTPUTS:
; 0151 ! None
; 0152 !
; 0153 ! ROUTINE VALUE:
; 0154 !
; 0155 : MCB_DB novalue =
; 0156 !
; 0157 ! SIDE EFFECTS:
; 0158 ! None
; 0159 !--
; 0160
; 0161 begin
; 0162 $MCB_SET_VECTOR (.DB [D_VECTOR], $CRINT, .DB [D_PRIORITY]);
; 0163 end;
.TITLE CRINI
.IDENT /X01010/
.GLOBL $CRINT, V.ECST, $CALLI
.SBTTL TIMPIN
000000 .PSECT $CODE$, RO
000000 016546 000006 TIMPIN::MOV 6(R5),-(SP) ; *(DB),* 0162
000004 012746 000000G MOV #$CRINT,-(SP)
000010 016546 000004 MOV 4(R5),-(SP) ; *(DB),*
000014 012746 000003 MOV #3,-(SP)
000020 012746 000000G MOV #V.ECST,-(SP)
000024 004767 000000G JSR PC,$CALLI
000030 062706 000012 ADD #12,SP ; 0161
000034 000207 RTS PC ; 0137
; Routine Size: 15 words, Routine Base: $CODE$ + 0000
; Maximum stack depth per invocation: 6 words
; 0164 end
CRINI 4-Jan-1983 16:25:15 TOPS-20 Bliss-16 3(552) Page 6
X01010 30-Dec-1982 02:07:55 NETPKG:<DRIVERS>CRINI.B16.8 (2)
; 0165 eludom
; PSECT SUMMARY
;
; Psect Name Words Attributes
; $CODE$ 15 RO , I , LCL, REL, CON
; LIBRARY STATISTICS
;
; -------- Symbols -------- Blocks
; File Total Loaded Percent Read
;
; NETPKG:<MCB>MCBLIB.L16.14 372 7 1 0
; NETPKG:<MCB>XPORTX.L16.14 599 25 4 0
; NETPKG:<MCB>NMXLIB.L16.12 200 0 0 0
; Size: 15 code + 0 data words
; Run Time: 00:02.2
; Elapsed Time: 00:21.3
; Memory Used: 17 pages
; Compilation Complete