!   NAME: Z6060784  PRODUCT: FSP      CATEGORY: RECO    SYSTEM: VMS
!   DATE: 11OCT90   STATUS:  DZ+UT    USAGE-ID: V6-FSVIEW-0784
!
!   BEST format may be used in FSVIEW if you CPORT the data set and formula
!
!   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}SASFPP.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASFPP.EXE
DEFINE FVFRM=^X06738
DEFINE PATAREA=0
SET ECO ^X07F
ALIGN/BYTE PATAREA
REPLACE/I FVFRM+^X1101
'CMPL R4,#^X46'
EXIT
'CMPL R4,#^X1'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I FVFRM+^X1114
'CMPL R4,#^X46'
EXIT
'CMPL R4,#^X01'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I FVFRM+^X1147
'CMPL R4,#^X46'
EXIT
'CMPL R4,#^X01'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I FVFRM+^X1160
'MOVL B^^X3C(R0),B^^X04(R2)'
EXIT
'MOVL B^^X38(R0),B^^X04(R2)'
EXIT
ALIGN/BYTE AREA
REPLACE/I FVFRM+^X1168
'CMPL R4,#^X46'
EXIT
'CMPL R4,#^X01'
EXIT
ALIGN/BYTE PATAREA
REPLAC/I FVFRM+^X1175
'MOVL B^^X38(R0),B^^X04(R2)'
EXIT
'MOVL B^^X3C(R0),B^^X04(R2)'
EXIT
UPDATE
EXIT