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