PROCESS_MANAGEMENT.EXE/journal=vector_quant
!
!	Patch to module RSE (SCH$QEND) ...
!		... in PROCESS_MANAGEMENT.EXE (VMS V5)
!
!	w.j.m. aug 1992 (from 5.5 listing CD)
!
!	Intention of this patch:
!		Do _not_ give a vector consumer (on base priority)
!		a quantum different from other processes.
!
! This patch is valid for:
!	VMS 5.5,-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 = 03CD0
define VP_QUANTUM = RSE_nonpaged_data + 3E
!
define SCH$QEND_30$ = SCH$QEND - 06C0 + 0724
define DETECT_MARGINAL_VP_CONSUMER = SCH$QEND - 06C0 + 0960
!
set eco 101
!
verify/instr SCH$QEND - 06C0 + 070A
'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 - 06C0 + 071B
'bneq   SCH$QEND_30$'
exit
'brb    SCH$QEND_30$'
exit
!
update
!
exit