PROCESS_MANAGEMENT.EXE
!
!	Patch to module RSE (SCH$QEND) ...
!		... in PROCESS_MANAGEMENT.EXE (VMS V5)
!
!	w.j.m. may 1991
!
!	Intention of this patch:
!		Do not give a vector consumer (at base priority)
!		a quantum different from other processes.
!
! This patch is valid for:
!	VMS 5.4,-1,-2
!
!
define CPB$C_VECTOR = 01
define PHD$W_QUANT = 0B0
define PCB$L_CAPABILITY = 012C
define PCB$B_PRI = 01C
define PCB$B_PRIB = 01D
!
define RSE_nonpaged_data = 03AD0
define VP_QUANTUM = RSE_nonpaged_data + 3E
!
define SCH$QEND_30$ = SCH$QEND - 068B + 06E1
define DETECT_MARGINAL_VP_CONSUMER = SCH$QEND - 068B + 903
!
set eco 101
!
verify/instr SCH$QEND - 068B + 6C7
'bbc    #CPB$C_VECTOR,w^PCB$L_CAPABILITY(r4),SCH$QEND_30$'
'jsb    DETECT_MARGINAL_VP_CONSUMER'
'cmpb   b^PCB$B_PRI(r4),b^PCB$B_PRIB(r4)'
'bneq   SCH$QEND_30$'
'mnegw  w^VP_QUANTUM,w^PHD$W_QUANT(r5)'
exit
!
replace/ins SCH$QEND - 068B + 06D8
'bneq   SCH$QEND_30$'
exit
'brb    SCH$QEND_30$'
exit
!
update
!
exit