!   NAME: Z6061360  PRODUCT: BASE     CATEGORY: RECO    SYSTEM: VMS
!   DATE: 03OCT90   STATUS:  DZ+UT    USAGE-ID: V6-PMENU-1360
!
!   Some entries in the BASE SAS PMENUs are not upper cased by MSGCASE
!
!   NOTE: THE ^ CHARACTER IS THE ASCII 'HAT' CHARACTER (X'5E')
!   NOTE: THE { CHARACTER IS THE ASCII LEFT SQUARE BRACKET (X'5B')
!   NOTE: THE } CHARACTER IS THE ASCII RIGHT SQUARE BRACKET (X'5D')
!
!   IMAGE: SAS$ROOT:{PROCS}SASVU.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASVU.EXE
DEFINE PATAREA=0
DEFINE WUXGPMU=^X0379C
SET ECO ^X07F
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION WUXGPMU+^X0201
'CLRL	R2'
'MOVL	B^^D48(SP),R3'
'TSTL	B^^D36(R3)'
'BEQL	WUXGPMU+^X20E'
'INCL	R2'
'MOVL	R2,B^^D72(SP)'
EXIT
'MOVL	#1,B^^D72(SP)'
EXIT
REPLACE/INSTRUCTION WUXGPMU+^X26D
'ADDL2	#8,B^-^D40(FP)'
'INCL	B^-^D36(FP)'
'MOVL	B^^D48(SP),R2'
'MOVL	B^^D36(R2),B^^D52(SP)'
EXIT
'MOVL	B^-^D24(FP),B^^D52(SP)'
'CLRL	B^^D72(SP)'
EXIT
REPLACE/INSTRUCTION WUXGPMU+^X2CB
'TSTL	B^^D72(SP)'
'BEQL	WUXGPMU+^X2DA'
'MOVL	B^^D52(SP),R2'
'MOVC3	#8,B^^D4(R2),@B^^D8(R7)'
EXIT
'NOP'
EXIT
REPLACE/INSTRUCTION WUXGPMU+^X2E0
'TSTL	B^-^D24(FP)'
EXIT
'TSTL	B^^D52(FP)'
EXIT
UPDATE
EXIT