TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      52  HARDWARE CLOCK INTERRUPTS

   (1)     106  SOFTWARE TIMER INTERRUPTS

   (1)     197  DEVICE TIME OUT

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	TIMESCHDL - TIME DEPENDENT SCHEDULING

                                     0000     2 	.IDENT	/01/

                                     0000     3  

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

                                     0000     9 ; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

                                     0000    10 ; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

                                     0000    11 ; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

                                     0000    12 ; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

                                     0000    13 ; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

                                     0000    14 ; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

                                     0000    17 ; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

                                     0000    18 ; EQUIPMENT CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 ; D. N. CUTLER 15-JUN-76

                                     0000    24 ;

                                     0000    25 ; TIME RELATED ACTIVITY

                                     0000    26 ;

                                     0000    27 ;	UPDATE TIME OF DAY,

                                     0000    28 ;	CHECK FOR ITEM READY IN TIMER QUEUE, AND

                                     0000    29 ;	PERFORM DEVICE TIMEOUT.

                                     0000    30 ;	UPDATE MEASUREMENT STATISTICS IF MEASUREMENT IS ENABLED.

                                     0000    31 ;

                                     0000    32 ; MACRO LIBRARY CALLS

                                     0000    33 ;

                                     0000    34  

                                     0000    35 	$ACBDEF				;DEFINE ACB OFFSETS

                                     0000    36 	$CADEF				;DEFINE CONDITIONAL ASSEMBLY PARAMETERS

                                     0000    37 	$DDBDEF				;DEFINE DDB OFFSETS

                                     0000    38 	$DEVDEF				;DEFINE DEVICE CHARACTERISTICS

                                     0000    39 	$ERLDEF				;DEFINE ERL OFFSETS

                                     0000    40 	$IPLDEF				;DEFINE INTERRUPT PRIORITY LEVELS

                                     0000    41 	$PCBDEF				;DEFINE PCB OFFSETS

                                     0000    42 	$PHDDEF				;DEFINE PHD OFFSETS

                                     0000    43 	$PRDEF				;DEFINE PROCESSOR REGISTERS

                                     0000    44 	$PRIDEF				;DEFINE PRIORITY INCREMENTS

                                     0000    45 	$PSLDEF				;DEFINE PROCESSOR STATUS FIELDS

                                     0000    46 	$RSNDEF				;DEFINE RESOURCE WAIT NUMBERS

                                     0000    47 	$TQEDEF				;DEFINE TQE OFFSETS

                                     0000    48 	$UCBDEF				;DEFINE UCB OFFSETS

                                     0000    49 	$TTYUCBDEF			;DEFINE TERMINAL UCB

                                     0000    50 	$TTYDEF				; DEFINE TTY SYMBOLS

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   2

01              HARDWARE CLOCK INTERRUPTS                                                                                        (1)



                                     0000    52 	.SBTTL	HARDWARE CLOCK INTERRUPTS

                                     0000    53 ;+

                                     0000    54 ; EXE$HWCLKINT - HARDWARE CLOCK INTERRUPT

                                     0000    55 ;

                                     0000    56 ; THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN THE CLOCK COUNT REGISTER

                                     0000    57 ; OVERFLOWS. THE CURRENT ABSOLUTE TIME IS UPDATED, THE ACCOUNTING INTEGRAL

                                     0000    58 ; OF THE CURRENT PROCESS IS INCREMENTED, AND THE QUANTUM OF THE CURRENT

                                     0000    59 ; PROCESS IS INCREMENTED. IF THE PROCESS QUANTUM TRANSISTS TO ZERO OR THE

                                     0000    60 ; FIRST ENTRY IN THE TIMER QUEUE CAN BE REMOVED, THEN A SOFTWARE INTERRUPT

                                     0000    61 ; IS REQUESTED ON THE TIMER LEVEL. THE CLOCK INTERRUPT IS THEN DISMISSED.

                                     0000    62 ;-

                                     0000    63  

                                 00000000    64 	.PSECT	A$EXENONPAGED,LONG

                                     0000    65 EXE$HWCLKINT::				;HARDWARE CLOCK INTERRUPT

                          50     DD  0000    66 	PUSHL	R0			;SAVE REGISTER R0

            18   000000C1 8F     DA  0002    67 	MTPR	#^XC1,#PR$_ICCS		;CLEAR INTERRUPT REQUEST

            50            18     DB  0009    68 	MFPR	#PR$_ICCS,R0		;READ ERROR STATUS

                          07     18  000C    69 	BGEQ	10$			;IF GEQ NO ERROR

                                     000E    70 ;********

                                     000E    71 ; LOG CLOCK INTERRUPT OVERFLOW

                                     000E    72 ;********

            18   800000C1 8F     DA  000E    73 	MTPR	#^X800000C1,#PR$_ICCS	;CLEAR ERROR STATUS

       0000'CF   000186A0 8F     C0  0015    74 10$:	ADDL	#100000,W^EXE$GQ_SYSTIME ;UPDATE SYSTEM ABSOLUTE TIME

       0004'CF            00     D8  001E    75 	ADWC	#0,W^EXE$GQ_SYSTIME+4	;

                                     0023    76 

                                     0023    77 ;

                                     0023    78 ; IF MEASUREMENT IS ENABLED, UPDATE TIMER STATISTICS FIELDS.

                                     0023    79 ;

                                     0023    80 

                           00000002  0023    81 	.IF NE	CA$_MEASURE

                                     0023    82 

            50         0B AE     98  0023    83 	CVTBL	11(SP),R0		;GET UPPER BYTE OF SAVED PSL

                          03     18  0027    84 	BGEQ	20$			;BRANCH IF CM BIT NOT SET

            50            05     9A  0029    85 	MOVZBL	#5,R0			;ELSE INSERT CM INDEX

            50         F8 8F     8A  002C    86 20$:	BICB	#^XF8,R0		;CONVERT EXTENDED BYTE TO INDEX

                     0000'CF40   D6  0030    87 	INCL	W^PMS$GL_KERNEL[R0]	;INCREMENT STATISTICS VECTOR

                                     0035    88 

                                     0035    89 	.ENDC

                                     0035    90 

            50       0000'CF     D0  0035    91 	MOVL	W^SCH$GL_CURPCB,R0	;GET ADDRESS OF CURRENT PROCESS PCB

            50         64 A0     D0  003A    92 	MOVL	PCB$L_PHD(R0),R0	;GET ADDRESS OF PROCESS HEADER

                       3C A0     D6  003E    93 	INCL	PHD$L_CPUTIM(R0)	;INCREMENT ACCOUNTING INTEGRAL

                       40 A0     B6  0041    94 	INCW	PHD$W_QUANT(R0)		;INCREMENT TIME QUANTUM

                          17     13  0044    95 	BEQL	30$			;IF EQL QUANTUM RUNOUT

            50       0000'CF     D0  0046    96 	MOVL	W^EXE$GL_TQFL,R0	;GET ADDRESS OF FIRST ENTRY IN TIME QUEUE

       0004'CF         1C A0     D1  004B    97 	CMPL	TQE$Q_TIME+4(R0),W^EXE$GQ_SYSTIME+4 ;COMPARE HIGH ORDER PARTS OF TIME

                          0A     1F  0051    98 	BLSSU	30$			;IF LSSU ENTRY DUE

                          0B     1A  0053    99 	BGTRU	40$			;IF GTRU ENTRY NOT DUE

       0000'CF         18 A0     D1  0055   100 	CMPL	TQE$Q_TIME(R0),W^EXE$GQ_SYSTIME ;COMPARE LOW ORDER PARTS OF TIME

                          03     1A  005B   101 	BGTRU	40$			;IF GTRU ENTRY NOT DUE

                                     005D   102 30$:	SOFTINT	#IPL$_TIMER		;REQUEST SOFTWARE INTERRUPT ON TIMER LEVEL

                          50   8ED0  0060   103 40$:	POPL	R0			;RESTORE R0

                                 02  0063   104 	REI				;

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   3

01              SOFTWARE TIMER INTERRUPTS                                                                                        (1)



                                     0064   106 	.SBTTL	SOFTWARE TIMER INTERRUPTS

                                     0064   107 ;+

                                     0064   108 ; EXE$SWTIMINT - SOFTWARE TIMER INTERRUPTS

                                     0064   109 ;

                                     0064   110 ; THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A SOFTWARE INTERRUPT IS

                                     0064   111 ; REQUESTED ON THE TIMER LEVEL. TIMER INTERRUPTS ARE REQUESTED WHEN THE

                                     0064   112 ; CURRENT PROCESS HAS EXCEEDED ITS CPU TIME QUANTUM OR THE FIRST ENTRY IN

                                     0064   113 ; THE TIMER QUEUE IS DUE.

                                     0064   114 ;-

                                     0064   115  

                                     0064   116 	.ALIGN	LONG

                                     0064   117 EXE$SWTIMINT::				;SOFTWARE TIMER INTERRUPTS

                          3F     BB  0064   118 	PUSHR	#^M<R0,R1,R2,R3,R4,R5>	;SAVE REGISTERS R0 THRU R5

            54       0000'CF     D0  0066   119 	MOVL	W^SCH$GL_CURPCB,R4	;GET CURRENT PROCESS PCB ADDRESS

            55         64 A4     D0  006B   120 	MOVL	PCB$L_PHD(R4),R5	;GET ADDRESS OF PROCESS HEADER

                       40 A5     B5  006F   121 	TSTW	PHD$W_QUANT(R5)		;QUANTUM END?

                          03     19  0072   122 	BLSS	CHKTMQ			;IF LSS NO

                          FF89'  30  0074   123 	BSBW	SCH$QEND		;CALL SCHEDULER TO RESET QUANTUM

            55       0000'CF     D0  0077   124 CHKTMQ:	MOVL	W^EXE$GL_TQFL,R5	;GET ADDRESS OF FIRST ENTRY IN TIME QUEUE

                                     007C   125 	SETIPL	#IPL$_HWCLK		;RAISE IPL TO HARDWARE CLOCK LEVEL

       0004'CF         1C A5     D1  007F   126 	CMPL	TQE$Q_TIME+4(R5),W^EXE$GQ_SYSTIME+4 ;COMPARE HIGH ORDER PARTS OF TIME

                          0D     1F  0085   127 	BLSSU	20$			;IF LSSU ENTRY IS DUE

                          08     1A  0087   128 	BGTRU	10$			;IF GTRU ENTRY IS NOT DUE

       0000'CF         18 A5     D1  0089   129 	CMPL	TQE$Q_TIME(R5),W^EXE$GQ_SYSTIME ;COMPARE LOW ORDER PARTS OF TIME

                          03     1B  008F   130 	BLEQU	20$			;IF LEQU ENTRY IS DUE

                          3F     BA  0091   131 10$:	POPR	#^M<R0,R1,R2,R3,R4,R5>	;RESTORE REGISTERS R0 THRU R5

                                 02  0093   132 	REI				;

                                     0094   133  

                                     0094   134 ;

                                     0094   135 ; REMOVE DUE ENTRY FROM TIMER QUEUE

                                     0094   136 ;

                                     0094   137  

            55            65     0F  0094   138 20$:	REMQUE	(R5),R5			;REMOVE FIRST ENTRY FROM TIME QUEUE

                                     0097   139 	SETIPL	#IPL$_TIMER		;LOWER IPL TO SOFTWARE TIMER LEVEL

            02            00     EF  009A   140 	EXTZV	#0,#2,TQE$B_RQTYPE(R5),R0 ;GET REQUEST TYPE

            50         0B A5         009D       

                                     00A0   141 	CASE	R0,<TIMER,SYSUB,WAKEUP>	;DISPATCH TO PROCESSING ROUTINE

                                     00AA   142 	BUG_CHECK INVTQEFMT		;INVALID TIME QUEUE ENTRY FORMAT

                          C7     11  00AE   143 	BRB	CHKTMQ			;

                                     00B0   144  

                                     00B0   145 ;

                                     00B0   146 ; PROCESS SYSTEM SUBROUTINE

                                     00B0   147 ;

                                     00B0   148  

            53         10 A5     7D  00B0   149 SYSUB:	MOVQ	TQE$L_FR3(R5),R3	;LOAD SUBROUTINE CONTEXT

                       0C B5     16  00B4   150 	JSB	@TQE$L_FPC(R5)		;CALL SYSTEM SUBROUTINE

         0B A5            02     E1  00B7   151 	BBC	#TQE$V_REPEAT,TQE$B_RQTYPE(R5),CHKTMQ ;IF CLR, NOT REPEATABLE

                          BB         00BB       

                          59     11  00BC   152 	BRB	REPTIM			;INSERT REPEAT REQUEST IN TIME QUEUE

                                     00BE   153  

                                     00BE   154 ;

                                     00BE   155 ; PROCESS TIMER

                                     00BE   156 ;

                                     00BE   157  

                                     00BE   158 	.ENABL	LSB

            51         0C A5     D0  00BE   159 TIMER:	MOVL	TQE$L_PID(R5),R1	;GET TARGET PROCESS ID

            52            02     9A  00C2   160 	MOVZBL	#PRI$_TIMER,R2		;SET PRIORITY INCREMENT CLASS

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   4

01              SOFTWARE TIMER INTERRUPTS                                                                                        (1)



            53         29 A5     9A  00C5   161 	MOVZBL	TQE$B_EFN(R5),R3	;GET EVENT FLAG NUMBER

                          FF34'  30  00C9   162 	BSBW	SCH$POSTEF		;POST EVENT FLAG

            31            50     E9  00CC   163 	BLBC	R0,30$			;IF LBC PROCESS NO LONGER IN SYSTEM

                       4A A4     B6  00CF   164 	INCW	PCB$W_TQCNT(R4)		;UPDATE AVAILABLE TIME QUEUE ENTRIES

         28 A5            06     E1  00D2   165 	BBC	#ACB$V_QUOTA,TQE$B_RMOD(R5),20$ ;IF CLR, NO AST SPECIFIED

                          23         00D6       

         0B A5         28 A5     90  00D7   166 	MOVB	TQE$B_RMOD(R5),TQE$B_RQTYPE(R5) ;SET AST ACCESS MODE

            52            02     9A  00DC   167 	MOVZBL	#PRI$_TIMER,R2		;SET PRIORITY INCREMENT CLASS

                          FF1E'  30  00DF   168 	BSBW	SCH$QAST		;QUEUE AST FOR PROCESS

                          42     11  00E2   169 	BRB	40$			;

            54         2C A5     3C  00E4   170 10$:	MOVZWL	TQE$L_RQPID(R5),R4	;GET REQUESTING PROCESS INDEX

            54       0000'DF44   D0  00E8   171 	MOVL	@W^SCH$GL_PCBVEC[R4],R4	;GET PROCESS PCB ADDRESS

         2C A5         60 A4     D1  00EE   172 	CMPL	PCB$L_PID(R4),TQE$L_RQPID(R5) ;PROCESS ID MATCH?

                          0B     12  00F3   173 	BNEQ	30$			;IF NEQ NO

                       3C A4     B6  00F5   174 	INCW	PCB$W_ASTCNT(R4)	;UPDATE AVAILABLE AST QUEUE ENTRIES

                          06     11  00F8   175 	BRB	30$			;

            50            01     9A  00FA   176 20$:	MOVZBL	#RSN$_ASTWAIT,R0	;SET AST WAIT RESOURCE NUMBER

                          FF00'  30  00FD   177 	BSBW	SCH$RAVAIL		;DECLARE RESOURCE AVAILABLE

            50            55     D0  0100   178 30$:	MOVL	R5,R0			;SET ADDRESS OF BLOCK TO DEALLOCATE

                          FEFA'  30  0103   179 	BSBW	EXE$DEANONPAGED		;DEALLOCATE TIME QUEUE ENTRY

                          1E     11  0106   180 	BRB	40$			;

                                     0108   181  

                                     0108   182 ;

                                     0108   183 ; PROCESS WAKE UP

                                     0108   184 ;

                                     0108   185  

            51         0C A5     D0  0108   186 WAKEUP:	MOVL	TQE$L_PID(R5),R1	;GET TARGET PROCESS ID

                          FEF1'  30  010C   187 	BSBW	SCH$WAKE		;WAKE PROCESS

            D2            50     E9  010F   188 	BLBC	R0,10$			;IF LBC PROCESS NOT IN SYSTEM

         0B A5            02     E1  0112   189 	BBC	#TQE$V_REPEAT,TQE$B_RQTYPE(R5),10$ ;IF CLR, THEN NOT REPEATABLE

                          CD         0116       

            50         20 A5     7D  0117   190 REPTIM:	MOVQ	TQE$Q_DELTA(R5),R0	;GET DELTA REPEAT TIME

            50         18 A5     C0  011B   191 	ADDL	TQE$Q_TIME(R5),R0	;ADD LOW ORDER PARTS OF TIME

            51         1C A5     D8  011F   192 	ADWC	TQE$Q_TIME+4(R5),R1	;ADD HIGH ORDER PARTS OF TIME

                          FEDA'  30  0123   193 	BSBW	EXE$INSTIMQ		;INSERT ENTRY IN TIME QUEUE

                          FF4E   31  0126   194 40$:	BRW	CHKTMQ			;

                                     0129   195 	.DSABL	LSB

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   5

01              DEVICE TIME OUT                                                                                                  (1)



                                     0129   197 	.SBTTL	DEVICE TIME OUT

                                     0129   198 ;+

                                     0129   199 ; EXE$TIMEOUT - DEVICE TIME OUT

                                     0129   200 ;

                                     0129   201 ; THIS ROUTINE IS ENTERED ONCE A SECOND TO SCAN THE DEVICE TABLES FOR DEVICES

                                     0129   202 ; THAT HAVE TIMED OUT.

                                     0129   203 ;-

                                     0129   204  

                                     0129   205 EXE$TIMEOUT::				;DEVICE TIME OUT

            7E            55     7D  0129   206 	MOVQ	R5,-(SP)		;SAVE REGISTERS

            56            63     D0  012C   207 	MOVL	DDB$L_LINK(R3),R6	;GET ADDRESS OF FIRST DDB

                          FECE'  30  012F   208 	BSBW	SCH$SWPWAKE		;WAKE SWAPPER IF NECESSARY

                     0000'CF     D6  0132   209 	INCL	W^EXE$GL_ABSTIM		;UPDATE ABSOLUTE TIME IN SECONDS

       0000'CF            01     E1  0136   210 	BBC	#ERL$V_TIMER,W^ERL$GB_BUFFLAG,10$ ;IF CLR, TIMER NOT ACTIVE

                          03         013B       

                          FEC1'  30  013C   211 	BSBW	ERL$WAKE		;WAKE ERROR LOG FORMAT PROCESS

                          FEBE'  30  013F   212 10$:	BSBW	ECC$REENABLE		;WAKE CRD INTERRUPT REENABLE AND SCAN

            55         04 A6     D0  0142   213 20$:	MOVL	DDB$L_UCB(R6),R5	;GET ADDRESS OF FIRST UCB

         34 A5            14     E0  0146   214 	BBS	#DEV$V_MBX,UCB$L_DEVCHAR(R5),60$ ;IF SET, DEVICE IS MAILBOX

                          15         014A       

         58 A5            00     E0  014B   215 30$:	BBS	#UCB$V_TIM,UCB$W_STS(R5),70$ ;IF SET, TIME OUT ENABLED

                          19         014F       

         34 A5            02     E1  0150   216 40$:	BBC	#DEV$V_TRM,UCB$L_DEVCHAR(R5),50$ ;IF CLR, DEVICE NOT TERMINAL

                          05         0154       

         5A A5            01     E0  0155   217 	BBS	#UCB$V_TT_TIMO,UCB$W_DEVSTS(R5),90$ ;IF SET, READ TIMEOUT ENABLED

                          4A         0159       

            55         2C A5     D0  015A   218 50$:	MOVL	UCB$L_LINK(R5),R5	;GET ADDRESS OF NEXT UCB

                          EB     12  015E   219 	BNEQ	30$			;IF NEQ MORE TO SCAN

            56            66     D0  0160   220 60$:	MOVL	DDB$L_LINK(R6),R6	;GET ADDRESS OF NEXT DDB

                          DD     12  0163   221 	BNEQ	20$			;IF NEQ MORE TO SCAN

            55            8E     7D  0165   222 	MOVQ	(SP)+,R5		;RESTORE REGISTERS

                                 05  0168   223 	RSB				;

       0000'CF         5C A5     D1  0169   224 70$:	CMPL	UCB$L_DUETIM(R5),W^EXE$GL_ABSTIM ;POSSIBLE TIME OUT?

                          DF     1A  016F   225 	BGTRU	40$			;IF GTRU NO

                                     0171   226 	SETIPL	#IPL$_POWER		;RAISE TO POWERFAIL IPL

         58 A5            00     E1  0174   227 	BBC	#UCB$V_TIM,UCB$W_STS(R5),80$ ;IF CLR, THEN TIME OUT NOT ENABLED

                          26         0178       

       0000'CF         5C A5     D1  0179   228 	CMPL	UCB$L_DUETIM(R5),W^EXE$GL_ABSTIM ;DEVICE TIME OUT?

                          1E     1A  017F   229 	BGTRU	80$			;IF GTRU NO

         58 A5            03     AA  0181   230 	BICW	#UCB$M_INT!UCB$M_TIM,UCB$W_STS(R5) ;DISABLE INTERRUPT AND TIMEOUT

         58 A5       0040 8F     A8  0185   231 	BISW	#UCB$M_TIMOUT,UCB$W_STS(R5) ;SET DEVICE TIMED OUT

                                     018B   232 	SETIPL	UCB$B_DIPL(R5)		;LOWER TO DEVICE IPL

            53         10 A5     7D  018F   233 	MOVQ	UCB$L_FR3(R5),R3	;RETRIEVE SAVED R3 AND R4

            52         0C A5     D0  0193   234 	MOVL	UCB$L_FPC(R5),R2	;GET SAVED PC

            7E            72     32  0197   235 	CVTWL	-(R2),-(SP)		;GET OFFSET TO EXCEPTION ROUTINE

            52            8E     C0  019A   236 	ADDL	(SP)+,R2		;CALCULATE ADDRESS OF EXCEPTION ROUTINE

                          62     16  019D   237 	JSB	(R2)			;CALL EXCEPTION ROUTINE

                                     019F   238 80$:	SETIPL	#IPL$_TIMER		;LOWER IPL TO THAT OF TIMER

                          AC     11  01A2   239 	BRB	40$			;

                                     01A4   240  

                                     01A4   241 ;

                                     01A4   242 ; TERMINAL READ TIMED IN PROGRESS

                                     01A4   243 ;

                                     01A4   244  

       0000'CF       008C C5     D1  01A4   245 90$:	CMPL	UCB$L_TT_RDUE(R5),W^EXE$GL_ABSTIM ;TIME OUT POSSIBLE?

                          AD     1A  01AB   246 	BGTRU	50$			;IF GTRU THEN NO

                                     01AD   247 	SETIPL	#IPL$_POWER		;RAISE TO DEVICE IPL

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   6

01              DEVICE TIME OUT                                                                                                  (1)



         5A A5            01     E1  01B0   248 	BBC	#UCB$V_TT_TIMO,UCB$W_DEVSTS(R5),100$ ;IF CLR, TIMEOUT NOT ENABLED

                          22         01B4       

       0000'CF       008C C5     D1  01B5   249 	CMPL	UCB$L_TT_RDUE(R5),W^EXE$GL_ABSTIM ;TIMED OUT?

                          19     1A  01BC   250 	BGTRU	100$			;IF GTRU THEN NO

                                     01BE   251 	SETIPL	UCB$B_DIPL(R5)		; SET IPL TO DEVICE INTERRUPT LEVEL

            52         74 A5     9E  01C2   252 	MOVAB	UCB$L_TT_STATE(R5),R2	;ADDRESS STATE VECTOR

         6C A5       0000'8F     3C  01C6   253 	MOVZWL	#SS$_TIMEOUT,UCB$W_BOFF(R5) ;SET ERROR AND ZERO COUNT

                          FE31'  30  01CC   254 	BSBW	TTY$READONE		;COMPLETE THE READ

         74 A5            01     E1  01CF   255 	BBC	#TTY$V_ST_XOFF,UCB$L_TT_STATE(R5),100$; BR IF NOT XOFF

                          03         01D3       

                          FE29'  30  01D4   256 	BSBW	TTY$STARTOUTPUT		; START THE OUTPUT FOR THE UNIT

                                     01D7   257 100$:	SETIPL	#IPL$_TIMER		;LOWER IPL TO THAT OF TIMER

                          FF7D   31  01DA   258 	BRW	50$			;

                                     01DD   259  

                                     01DD   260 	.END

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



ACB$B_RMOD       0000000B            DEV$V_AVL      = 00000012            PCB$B_ASTEN      0000000D            

ACB$B_TYPE       0000000A            DEV$V_CCL      = 00000001            PCB$B_PRI        0000000B            

ACB$L_AST        00000010            DEV$V_DIR      = 00000003            PCB$B_PRIB       00000033            

ACB$L_ASTPRM     00000014            DEV$V_DMT      = 00000015            PCB$B_TYPE       0000000A            

ACB$L_ASTQBL     00000004            DEV$V_ELG      = 00000016            PCB$B_WEFC       00000032            

ACB$L_ASTQFL     00000000            DEV$V_FOD      = 0000000E            PCB$C_LENGTH     0000007C            

ACB$L_KAST       00000018            DEV$V_FOR      = 00000018            PCB$K_LENGTH     0000007C            

ACB$L_PID        0000000C            DEV$V_GEN      = 00000011            PCB$L_ASTQBL     00000014            

ACB$M_QUOTA    = 00000040            DEV$V_IDV      = 0000001A            PCB$L_ASTQFL     00000010            

ACB$S_MODE     = 00000002            DEV$V_MBX      = 00000014            PCB$L_EFC2P      00000058            

ACB$V_KAST     = 00000007            DEV$V_MNT      = 00000013            PCB$L_EFC3P      0000005C            

ACB$V_MODE     = 00000000            DEV$V_NET      = 0000000D            PCB$L_EFCS       00000050            

ACB$V_QUOTA    = 00000006            DEV$V_ODV      = 0000001B            PCB$L_EFCU       00000054            

ACB$W_SIZE       00000008            DEV$V_RCK      = 0000001E            PCB$L_EFWM       0000004C            

BIT...         = 00000008            DEV$V_REC      = 00000000            PCB$L_OWNER      0000001C            

BUG$_INVTQEFMT   ********   X   03   DEV$V_RND      = 0000001C            PCB$L_PHD        00000064            

CA$_MEASURE    = 00000002            DEV$V_RTM      = 0000001D            PCB$L_PHYPCB     00000018            

CA$_MEASURE_IOT= 00000004            DEV$V_SDI      = 00000004            PCB$L_PID        00000060            

CA$_SIMULATOR  = 00000001            DEV$V_SHR      = 00000010            PCB$L_PQB        0000004C            

CHKTMQ           00000077 R     03   DEV$V_SPL      = 00000006            PCB$L_SQBL       00000004            

DDB$B_ACPCLASS   00000013            DEV$V_SQD      = 00000005            PCB$L_SQFL       00000000            

DDB$B_TYPE       0000000A            DEV$V_SWL      = 00000019            PCB$L_STS        00000028            

DDB$C_LENGTH     00000034            DEV$V_TRM      = 00000002            PCB$L_UIC        00000020            

DDB$K_LENGTH     00000034            DEV$V_WCK      = 0000001F            PCB$L_WSSWP      00000024            

DDB$L_ACPD       00000010            ECC$REENABLE     ********   X   03   PCB$L_WTIME      0000002C            

DDB$L_DDT        0000000C            ERL$B_BUFIND     00000002            PCB$T_LNAME      0000006C            

DDB$L_LINK       00000000            ERL$B_BUSY       00000000            PCB$V_ASTPEN   = 00000011            

DDB$L_UCB        00000004            ERL$B_MSGCNT     00000001            PCB$V_BATCH    = 0000000E            

DDB$T_DRVNAME    00000024            ERL$C_LENGTH     0000000C            PCB$V_DELPEN   = 00000001            

DDB$T_NAME       00000014            ERL$GB_BUFFLAG   ********   X   03   PCB$V_FORCPEN  = 00000002            

DDB$W_SIZE       00000008            ERL$K_LENGTH     0000000C            PCB$V_HIBER    = 00000013            

DEV$M_ALL      = 00800000            ERL$L_END        00000008            PCB$V_INQUAN   = 00000003            

DEV$M_AVL      = 00040000            ERL$L_NEXT       00000004            PCB$V_LOGIN    = 00000014            

DEV$M_CCL      = 00000002            ERL$M_LOCK     = 00000001            PCB$V_NETWRK   = 00000015            

DEV$M_DIR      = 00000008            ERL$M_TIMER    = 00000002            PCB$V_NOACNT   = 0000000F            

DEV$M_DMT      = 00200000            ERL$V_LOCK     = 00000000            PCB$V_NODELET  = 00000017            

DEV$M_ELG      = 00400000            ERL$V_TIMER    = 00000001            PCB$V_PHDRES   = 00000012            

DEV$M_FOD      = 00004000            ERL$WAKE         ********   X   03   PCB$V_PSWAPM   = 00000004            

DEV$M_FOR      = 01000000            EXE$DEANONPAGED  ********   X   03   PCB$V_PWRAST   = 00000016            

DEV$M_GEN      = 00020000            EXE$GL_ABSTIM    ********   X   03   PCB$V_RES      = 00000000            

DEV$M_IDV      = 04000000            EXE$GL_TQFL      ********   X   03   PCB$V_RESPEN   = 00000005            

DEV$M_MBX      = 00100000            EXE$GQ_SYSTIME   ********   X   03   PCB$V_SSFEXC   = 00000006            

DEV$M_MNT      = 00080000            EXE$HWCLKINT     00000000 RG    03   PCB$V_SSFEXCE  = 00000007            

DEV$M_NET      = 00002000            EXE$INSTIMQ      ********   X   03   PCB$V_SSFEXCS  = 00000008            

DEV$M_ODV      = 08000000            EXE$SWTIMINT     00000064 RG    03   PCB$V_SSFEXCU  = 00000009            

DEV$M_RCK      = 40000000            EXE$TIMEOUT      00000129 RG    03   PCB$V_SSRWAIT  = 0000000A            

DEV$M_REC      = 00000001            GBL...         = 00000000            PCB$V_SUSPEN   = 0000000B            

DEV$M_RND      = 10000000            IPL$_ASTDEL    = 00000002            PCB$V_SWPVBN   = 00000010            

DEV$M_RTM      = 20000000            IPL$_HWCLK     = 00000018            PCB$V_WAKEPEN  = 0000000C            

DEV$M_SDI      = 00000010            IPL$_IOPOST    = 00000004            PCB$V_WALL     = 0000000D            

DEV$M_SHR      = 00010000            IPL$_MAILBOX   = 0000000B            PCB$W_APTCNT     00000034            

DEV$M_SPL      = 00000040            IPL$_POWER     = 0000001F            PCB$W_ASTCNT     0000003C            

DEV$M_SQD      = 00000020            IPL$_QUEUEAST  = 00000006            PCB$W_BIOCNT     0000003E            

DEV$M_SWL      = 02000000            IPL$_SCHED     = 00000003            PCB$W_BIOLM      00000040            

DEV$M_TRM      = 00000004            IPL$_SYNCH     = 00000007            PCB$W_BYTCNT     00000042            

DEV$M_WCK      = 80000000            IPL$_TIMER     = 00000007            PCB$W_BYTLM      00000068            

DEV$V_ALL      = 00000017            PCB$B_ASTACT     0000000C            PCB$W_DIOCNT     00000044            

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



PCB$W_DIOLM      00000046            PHD$L_SSP        00000080            PR$_P1LR       = 0000000B            

PCB$W_FILCNT     00000048            PHD$L_USP        00000084            PR$_PCBB       = 00000010            

PCB$W_GPGCNT     00000038            PHD$L_WSL        00000118            PR$_PME        = 0000003D            

PCB$W_GRP        00000022            PHD$M_DALCSTX  = 00000002            PR$_RXCS       = 00000020            

PCB$W_MEM        00000020            PHD$M_PFMFLG   = 00000001            PR$_RXDB       = 00000021            

PCB$W_MTXCNT     0000000E            PHD$M_WSPEAKCHK= 00000004            PR$_SBIER      = 00000034            

PCB$W_PPGCNT     0000003A            PHD$Q_PRIVMSK    00000000            PR$_SBIFS      = 00000030            

PCB$W_PRCCNT     0000006A            PHD$S_ASTLVL   = 00000008            PR$_SBIMT      = 00000033            

PCB$W_SIZE       00000008            PHD$S_P0LR     = 00000018            PR$_SBIQC      = 00000036            

PCB$W_STATE      00000030            PHD$V_ASTLVL   = 00000018            PR$_SBIS       = 00000031            

PCB$W_TMBU       00000036            PHD$V_DALCSTX  = 00000001            PR$_SBISC      = 00000032            

PCB$W_TQCNT      0000004A            PHD$V_P0LR     = 00000000            PR$_SBITA      = 00000035            

PHD$B_ASTLVL     000000CF            PHD$V_PFMFLG   = 00000000            PR$_SBR        = 0000000C            

PHD$B_DFPFC      00000038            PHD$V_WSPEAKCHK= 00000002            PR$_SCBB       = 00000011            

PHD$B_PAGFIL     0000001F            PHD$W_ASTLM      00000044            PR$_SID        = 0000003E            

PHD$B_PGTBPFC    00000039            PHD$W_BAK        00000048            PR$_SIRR       = 00000014            

PHD$C_LENGTH     00000118            PHD$W_DFWSCNT    0000001A            PR$_SISR       = 00000015            

PHD$C_PHDPAGCTX= 00000008            PHD$W_EMPTPG     000000D8            PR$_SLR        = 0000000D            

PHD$K_LENGTH     00000118            PHD$W_EXTDYNWS   00000076            PR$_SSP        = 00000002            

PHD$L_BIOCNT     00000054            PHD$W_FILLM      00000060            PR$_TBIA       = 00000039            

PHD$L_CPULIM     00000058            PHD$W_FLAGS      0000003A            PR$_TBIS       = 0000003A            

PHD$L_CPUTIM     0000003C            PHD$W_PHVINDEX   00000046            PR$_TODR       = 0000001B            

PHD$L_DIOCNT     00000050            PHD$W_PRCLM      00000042            PR$_TXCS       = 00000022            

PHD$L_ESP        0000007C            PHD$W_PST        00000020            PR$_TXDB       = 00000023            

PHD$L_FREP0VA    00000028            PHD$W_PSTBASMAX  0000004A            PR$_USP        = 00000003            

PHD$L_FREP1VA    00000030            PHD$W_PSTFREE    00000026            PR$_WCSA       = 0000002C            

PHD$L_FREPTECNT  0000002C            PHD$W_PSTLAST    00000024            PR$_WCSD       = 0000002D            

PHD$L_KSP        00000078            PHD$W_PTCNTACT   00000070            PRI$_IOCOM     = 00000001            

PHD$L_P0BR       000000C8            PHD$W_PTCNTLCK   0000006C            PRI$_NULL      = 00000000            

PHD$L_P0LRASTL   000000CC            PHD$W_PTCNTMAX   00000072            PRI$_RESAVL    = 00000002            

PHD$L_P1BR       000000D0            PHD$W_PTCNTVAL   0000006E            PRI$_TICOM     = 00000004            

PHD$L_P1LR       000000D4            PHD$W_QUANT      00000040            PRI$_TIMER     = 00000002            

PHD$L_PAGEFLTS   0000004C            PHD$W_TQLM       00000062            PRI$_TOCOM     = 00000003            

PHD$L_PAGFIL     0000001C            PHD$W_WSAUTH     0000000A            PSL$C_EXEC     = 00000001            

PHD$L_PC         000000C0            PHD$W_WSDYN      0000000E            PSL$C_KERNEL   = 00000000            

PHD$L_PCB        00000078            PHD$W_WSFLUID    00000074            PSL$C_SUPER    = 00000002            

PHD$L_PGFLCNT    00000034            PHD$W_WSLAST     00000012            PSL$C_USER     = 00000003            

PHD$L_PGFLQUOTA  0000005C            PHD$W_WSLIST     00000008            PSL$M_CM       = 80000000            

PHD$L_PSL        000000C4            PHD$W_WSLOCK     0000000C            PSL$M_CURMOD   = 03000000            

PHD$L_PSTBASOFF  00000020            PHD$W_WSLX       0000004A            PSL$M_DV       = 00000080            

PHD$L_PTWSLELCK  00000064            PHD$W_WSNEXT     00000010            PSL$M_FPD      = 08000000            

PHD$L_PTWSLEVAL  00000068            PHD$W_WSQUOTA    00000018            PSL$M_FU       = 00000040            

PHD$L_R0         00000088            PMS$GL_KERNEL    ********   X   03   PSL$M_IPL      = 001F0000            

PHD$L_R1         0000008C            PR$_ACCR       = 00000029            PSL$M_IS       = 04000000            

PHD$L_R10        000000B0            PR$_ACCS       = 00000028            PSL$M_IV       = 00000020            

PHD$L_R11        000000B4            PR$_ASTLVL     = 00000013            PSL$M_PRVMOD   = 00C00000            

PHD$L_R12        000000B8            PR$_ESP        = 00000001            PSL$M_SAFBITS  = 000037FF            

PHD$L_R13        000000BC            PR$_ICCS       = 00000018            PSL$M_TBIT     = 00000010            

PHD$L_R2         00000090            PR$_ICR        = 0000001A            PSL$M_TP       = 40000000            

PHD$L_R3         00000094            PR$_IPL        = 00000012            PSL$S_CURMOD   = 00000002            

PHD$L_R4         00000098            PR$_ISP        = 00000004            PSL$S_IPL      = 00000005            

PHD$L_R5         0000009C            PR$_KSP        = 00000000            PSL$S_PRVMOD   = 00000002            

PHD$L_R6         000000A0            PR$_MAPEN      = 00000038            PSL$V_CM       = 0000001F            

PHD$L_R7         000000A4            PR$_NICR       = 00000019            PSL$V_CURMOD   = 00000018            

PHD$L_R8         000000A8            PR$_P0BR       = 00000008            PSL$V_DV       = 00000007            

PHD$L_R9         000000AC            PR$_P0LR       = 00000009            PSL$V_FPD      = 0000001B            

PHD$L_REFERFLT   00000014            PR$_P1BR       = 0000000A            PSL$V_FU       = 00000006            

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



PSL$V_IPL      = 00000010            TTY$C_BLANK    = 00000020            TTY$M_CH_CTRL2 = 00000080            

PSL$V_IS       = 0000001A            TTY$C_BS       = 00000008            TTY$M_CH_LOWER = 00000040            

PSL$V_IV       = 00000005            TTY$C_CR       = 0000000D            TTY$M_CH_SPEC  = 00000010            

PSL$V_PRVMOD   = 00000016            TTY$C_CTRLC    = 00000003            TTY$M_ST_BADESC= 00100000            

PSL$V_TBIT     = 00000004            TTY$C_CTRLO    = 0000000F            TTY$M_ST_BRDCST= 00000080            

PSL$V_TP       = 0000001E            TTY$C_CTRLQ    = 00000011            TTY$M_ST_CTRLO = 00001000            

REPTIM           00000117 R     03   TTY$C_CTRLR    = 00000012            TTY$M_ST_CTRLR = 00000400            

RSN$_ASTWAIT   = 00000001            TTY$C_CTRLS    = 00000013            TTY$M_ST_CTRLS = 00000004            

RSN$_BRKTHRU   = 00000006            TTY$C_CTRLU    = 00000015            TTY$M_ST_CURSOR= 00000010            

RSN$_IACLOCK   = 00000007            TTY$C_CTRLX    = 00000018            TTY$M_ST_DEL   = 00002000            

RSN$_MAILBOX   = 00000002            TTY$C_CTRLY    = 00000019            TTY$M_ST_EOL   = 00000200            

RSN$_NPDYNMEM  = 00000003            TTY$C_CTRLZ    = 0000001A            TTY$M_ST_ESC   = 00080000            

RSN$_PGDYNMEM  = 00000005            TTY$C_DELETE   = 0000007F            TTY$M_ST_ESC_O = 04000000            

RSN$_PGFILE    = 00000004            TTY$C_DOLLAR   = 00000024            TTY$M_ST_FILL  = 00000008            

SCH$GL_CURPCB    ********   X   03   TTY$C_DS_ACTIVE= 00000001            TTY$M_ST_GETAHD= 01000000            

SCH$GL_PCBVEC    ********   X   03   TTY$C_DS_ATTN1 = 00000002            TTY$M_ST_MULTI = 00000040            

SCH$POSTEF       ********   X   03   TTY$C_DS_ATTN3 = 00000009            TTY$M_ST_NL    = 00200000            

SCH$QAST         ********   X   03   TTY$C_DS_HANG  = 0000000A            TTY$M_ST_NOECHO= 00008000            

SCH$QEND         ********   X   03   TTY$C_DS_IDLE  = 00000000            TTY$M_ST_NOFLTR= 00040000            

SCH$RAVAIL       ********   X   03   TTY$C_DS_RESET = 0000000B            TTY$M_ST_PASALL= 00004000            

SCH$SWPWAKE      ********   X   03   TTY$C_ESCAPE   = 0000001B            TTY$M_ST_PROMPT= 00020000            

SCH$WAKE         ********   X   03   TTY$C_FC_N_SET = 00000004            TTY$M_ST_READ  = 00000800            

SS$_TIMEOUT      ********   X   03   TTY$C_FC_READ  = 00000000            TTY$M_ST_SENDLF= 00000020            

SYSUB            000000B0 R     03   TTY$C_FC_SETC  = 00000003            TTY$M_ST_SKIPLF= 00800000            

TIMER            000000BE R     03   TTY$C_FC_SETM  = 00000002            TTY$M_ST_TYPFUL= 00400000            

TQE$B_EFN        00000029            TTY$C_FC_WRITE = 00000001            TTY$M_ST_UNSOL = 02000000            

TQE$B_RMOD       00000028            TTY$C_FF       = 0000000C            TTY$M_ST_WRITE = 00000100            

TQE$B_RQTYPE     0000000B            TTY$C_HIGHIPL  = 00000016            TTY$M_ST_WRTALL= 00010000            

TQE$B_TYPE       0000000A            TTY$C_LF       = 0000000A            TTY$M_ST_XOFF  = 00000002            

TQE$C_LENGTH     00000030            TTY$C_LOWA     = 00000061            TTY$M_ST_XON   = 00000001            

TQE$C_SSREPT   = 00000005            TTY$C_LOWZ     = 0000007B            TTY$Q_BD_LINK    00000000            

TQE$C_SSSNGL   = 00000001            TTY$C_NL       = 00000080            TTY$READONE      ********   X   03   

TQE$C_TMSNGL   = 00000000            TTY$C_ONE      = 00000031            TTY$STARTOUTPUT  ********   X   03   

TQE$C_WKREPT   = 00000006            TTY$C_PLUS     = 0000002B            TTY$S_A        = 0000000E            

TQE$C_WKSNGL   = 00000002            TTY$C_SCRIPT   = 00000060            TTY$V_A        = 00000000            

TQE$K_LENGTH     00000030            TTY$C_TAB      = 00000009            TTY$V_CH_CTRL  = 00000005            

TQE$L_AST        00000010            TTY$C_TYPAHDSIZ= 0000004E            TTY$V_CH_CTRL2 = 00000007            

TQE$L_ASTPRM     00000014            TTY$C_VT       = 0000000B            TTY$V_CH_LOWER = 00000006            

TQE$L_FPC        0000000C            TTY$C_XOFF     = 00000013            TTY$V_CH_SPEC  = 00000004            

TQE$L_FR3        00000010            TTY$C_XON      = 00000011            TTY$V_ST_BADESC= 00000014            

TQE$L_FR4        00000014            TTY$C_ZERO     = 00000030            TTY$V_ST_BRDCST= 00000007            

TQE$L_PID        0000000C            TTY$L_BD_DATA    00000018            TTY$V_ST_CTRLO = 0000000C            

TQE$L_RQPID      0000002C            TTY$L_BD_FORK    0000000C            TTY$V_ST_CTRLR = 0000000A            

TQE$L_TQBL       00000004            TTY$L_BD_MIN     00000028            TTY$V_ST_CTRLS = 00000002            

TQE$L_TQFL       00000000            TTY$L_BD_UCB     00000010            TTY$V_ST_CURSOR= 00000004            

TQE$M_REPEAT   = 00000004            TTY$L_RB_DATA    00000010            TTY$V_ST_DEL   = 0000000D            

TQE$Q_DELTA      00000020            TTY$L_RB_NXT     00000000            TTY$V_ST_EOL   = 00000009            

TQE$Q_TIME       00000018            TTY$L_RB_UVA     00000004            TTY$V_ST_ESC   = 00000013            

TQE$V_REPEAT   = 00000002            TTY$L_TA_DATA    00000010            TTY$V_ST_ESC_O = 0000001A            

TQE$W_SIZE       00000008            TTY$L_TA_END     0000000C            TTY$V_ST_FILL  = 00000003            

TTY$B_BD_CNT     00000015            TTY$L_TA_GET     00000004            TTY$V_ST_GETAHD= 00000018            

TTY$B_BD_IPL     00000017            TTY$L_TA_PUT     00000000            TTY$V_ST_MULTI = 00000006            

TTY$B_BD_REFC    00000016            TTY$L_WB_DATA    0000000C            TTY$V_ST_NL    = 00000015            

TTY$B_BD_TYPE    0000000A            TTY$L_WB_END     00000004            TTY$V_ST_NOECHO= 0000000F            

TTY$B_BD_WHO     00000014            TTY$L_WB_NXT     00000000            TTY$V_ST_NOFLTR= 00000012            

TTY$B_TA_TYPE    0000000A            TTY$M_A        = 00003FFF            TTY$V_ST_PASALL= 0000000E            

TTY$C_BELL     = 00000007            TTY$M_CH_CTRL  = 00000020            TTY$V_ST_PROMPT= 00000011            

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



TTY$V_ST_READ  = 0000000B            UCB$L_ASTQFL     0000000C            UCB$M_NOCNVRT  = 00000004            

TTY$V_ST_SENDLF= 00000005            UCB$L_CPID       0000005C            UCB$M_NT_BFROVF= 00000004            

TTY$V_ST_SKIPLF= 00000017            UCB$L_CRB        00000020            UCB$M_NT_BREAK = 00000020            

TTY$V_ST_TYPFUL= 00000016            UCB$L_DDB        00000024            UCB$M_NT_NAME  = 00000010            

TTY$V_ST_UNSOL = 00000019            UCB$L_DEVCHAR    00000034            UCB$M_ONLINE   = 00000010            

TTY$V_ST_WRITE = 00000008            UCB$L_DEVDEPEND  0000003C            UCB$M_POWER    = 00000020            

TTY$V_ST_WRTALL= 00000010            UCB$L_DPC        00000080            UCB$M_PRMMBX   = 00000001            

TTY$V_ST_XOFF  = 00000001            UCB$L_DUETIM     0000005C            UCB$M_TIM      = 00000001            

TTY$V_ST_XON   = 00000000            UCB$L_DX_BFPNT   0000009C            UCB$M_TIMOUT   = 00000040            

TTY$W_BD_SIZE    00000008            UCB$L_DX_BUF     00000098            UCB$M_TT_NOTIF = 00000004            

TTY$W_RB_ORGHOR  0000000C            UCB$L_DX_RXDB    000000A0            UCB$M_TT_ODD   = 00000080            

TTY$W_RB_SIZE    00000008            UCB$L_EMB        00000078            UCB$M_TT_PARTY = 00000040            

TTY$W_RB_TIMOS   0000000E            UCB$L_FIRST      00000014            UCB$M_TT_SPEED = 0000003F            

TTY$W_TA_SIZE    00000008            UCB$L_FPC        0000000C            UCB$M_TT_TIMO  = 00000002            

TTY$W_WB_SIZE    00000008            UCB$L_FQBL       00000004            UCB$M_UNLOAD   = 00001000            

UCB$B_AMOD       00000053            UCB$L_FQFL       00000000            UCB$M_VALID    = 00000800            

UCB$B_CEX        00000077            UCB$L_FR3        00000010            UCB$S_LNKPRI   = 00000002            

UCB$B_CM1        0000004A            UCB$L_FR4        00000014            UCB$S_LTYPE    = 00000002            

UCB$B_CM2        0000004B            UCB$L_IOQBL      00000044            UCB$S_TT_ODD   = 00000001            

UCB$B_DEVCLASS   00000038            UCB$L_IOQFL      00000040            UCB$S_TT_PARTY = 00000001            

UCB$B_DEVTYPE    00000039            UCB$L_IRP        0000004C            UCB$S_TT_SPEED = 00000006            

UCB$B_DIPL       00000052            UCB$L_LINK       0000002C            UCB$T_PARTNER    0000000C            

UCB$B_DX_SCTCNT  000000A6            UCB$L_LOGADR     00000064            UCB$V_BACKP    = 00000005            

UCB$B_ERTCNT     00000070            UCB$L_MAXBLOCK   00000084            UCB$V_BSY      = 00000008            

UCB$B_ERTMAX     00000071            UCB$L_MEDIA      0000008C            UCB$V_CANCEL   = 00000003            

UCB$B_ESCAPE     0000004B            UCB$L_NT_DATSSB  00000074            UCB$V_DEADMO   = 0000000A            

UCB$B_FEX        00000076            UCB$L_NT_INTSSB  00000078            UCB$V_DELMBX   = 00000001            

UCB$B_FIPL       0000000B            UCB$L_OPCNT      00000060            UCB$V_DIAGBUF  = 00000001            

UCB$B_LOCSRV     0000003C            UCB$L_OWNUIC     0000001C            UCB$V_DX_WRITE = 00000003            

UCB$B_OFFNDX     00000094            UCB$L_PID        00000028            UCB$V_ECC      = 00000000            

UCB$B_OFFRTC     00000095            UCB$L_RQBL       00000004            UCB$V_ERLOGIP  = 00000002            

UCB$B_REMSRV     0000003D            UCB$L_RQFL       00000000            UCB$V_INT      = 00000001            

UCB$B_SECTORS    0000003C            UCB$L_SVAPTE     00000068            UCB$V_INTTYPE  = 00000007            

UCB$B_SLAVE      00000074            UCB$L_SVPN       00000064            UCB$V_JOB      = 00000000            

UCB$B_SPR        00000075            UCB$L_TTCHAR     0000003C            UCB$V_LNKPRI   = 00000006            

UCB$B_STATE      00000052            UCB$L_TT_BRDCST  00000084            UCB$V_LTYPE    = 00000000            

UCB$B_TRACKS     0000003D            UCB$L_TT_CTRLC   00000080            UCB$V_MOUNTING = 00000009            

UCB$B_TT_BRDPT   00000098            UCB$L_TT_CTRLY   0000007C            UCB$V_MSGACK   = 00000004            

UCB$B_TT_CRFILL  0000009D            UCB$L_TT_DECHAR  000000A8            UCB$V_MSGFLO   = 00000003            

UCB$B_TT_DECRF   000000A1            UCB$L_TT_MULTI   00000078            UCB$V_NOCNVRT  = 00000002            

UCB$B_TT_DELFF   000000A2            UCB$L_TT_RDUE    0000008C            UCB$V_NT_BFROVF= 00000002            

UCB$B_TT_DESPEE  000000A0            UCB$L_TT_STATE   00000074            UCB$V_NT_BREAK = 00000005            

UCB$B_TT_DETYPE  000000A4            UCB$L_TT_TYPAHD  00000088            UCB$V_NT_NAME  = 00000004            

UCB$B_TT_DIAL    00000096            UCB$L_VCB        00000030            UCB$V_ONLINE   = 00000004            

UCB$B_TT_ESC     00000095            UCB$M_BACKP    = 00000020            UCB$V_POWER    = 00000005            

UCB$B_TT_ESC_O   00000099            UCB$M_BSY      = 00000100            UCB$V_PRMMBX   = 00000000            

UCB$B_TT_FILL    00000097            UCB$M_CANCEL   = 00000008            UCB$V_SEGFLO   = 00000002            

UCB$B_TT_LFFILL  0000009E            UCB$M_DEADMO   = 00000400            UCB$V_TIM      = 00000000            

UCB$B_TT_LINE    00000094            UCB$M_DELMBX   = 00000002            UCB$V_TIMOUT   = 00000006            

UCB$B_TT_SPEED   0000009C            UCB$M_DIAGBUF  = 00000002            UCB$V_TT_NOTIF = 00000002            

UCB$B_TYPE       0000000A            UCB$M_DX_WRITE = 00000008            UCB$V_TT_ODD   = 00000007            

UCB$B_VERTSZ     0000003F            UCB$M_ECC      = 00000001            UCB$V_TT_PARTY = 00000006            

UCB$C_LENGTH     00000074            UCB$M_ERLOGIP  = 00000004            UCB$V_TT_SPEED = 00000000            

UCB$C_LOGLNK   = 00000001            UCB$M_INT      = 00000002            UCB$V_TT_TIMO  = 00000001            

UCB$K_LENGTH     00000074            UCB$M_INTTYPE  = 00000080            UCB$V_UNLOAD   = 0000000C            

UCB$L_AMB        00000054            UCB$M_JOB      = 00000001            UCB$V_VALID    = 0000000B            

UCB$L_ASTQBL     00000010            UCB$M_MOUNTING = 00000200            UCB$W_BCNT       0000006E            

TIMESCHDL       - TIME DEPENDENT SCHEDULING                      21-AUG-1978 20:15:20   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



UCB$W_BCR        00000096            

UCB$W_BOFF       0000006C            

UCB$W_BUFQUO     00000018            

UCB$W_BYTESTOGO  0000003E            

UCB$W_CHARGE     0000004A            

UCB$W_CYLINDERS  0000003E            

UCB$W_DA         0000008C            

UCB$W_DC         0000008E            

UCB$W_DEVBUFSIZ  0000003A            

UCB$W_DEVSTS     0000005A            

UCB$W_DIRSEQ     00000088            

UCB$W_DSTADDR    00000018            

UCB$W_DX_BCR     000000A4            

UCB$W_EC1        00000090            

UCB$W_EC2        00000092            

UCB$W_ERRCNT     00000072            

UCB$W_FUNC       0000007E            

UCB$W_MB_SEED    FFFFFFFC            

UCB$W_MSGCNT     00000016            

UCB$W_MSGMAX     00000014            

UCB$W_NT_CHAN    0000007C            

UCB$W_OFFSET     0000008A            

UCB$W_REFC       00000050            

UCB$W_SIZE       00000008            

UCB$W_SRCADDR    0000001A            

UCB$W_STS        00000058            

UCB$W_TT_CURSOR  0000009A            

UCB$W_TT_DESIZE  000000A5            

UCB$W_TT_HOLD    00000090            

UCB$W_TT_INAHD   00000092            

UCB$W_UNIT       00000048            

UCB$W_VPROT      0000001A            

WAKEUP           00000108 R     03   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            FFFFFFFE      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

A$EXENONPAGED    000001DD      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT LONG  





THERE WERE NO ERRORS OR WARNINGS.

7050. BYTES LEFT IN FREE MEMORY POOL.

2826. BYTES OF RECLAIMED MEMORY.

OBJ$:TIMESCHDL,LIS$:TIMESCHDL/-SP=EXECML$/ML,SRC$:TIMESCHDL

14 MLB DIR RDS - 1141 GETS TO DEFINE 29 MACROS. 80 INTER. FILE WRITES. 

