!   NAME: Z6060370  PRODUCT: BASE     CATEGORY: HIGH    SYSTEM: VMS
!   DATE: 08MAY90   STATUS:  DZ+UT    USAGE-ID: V6-FORMATS-0370
!
!   The PD format applied to a missing value produces Generic Critical Error
!
!   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:{IMAGE}SAS606.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SAS606.EXE
DEFINE PATAREA=0
DEFINE VZFMPD=^X030998
DEFINE ZMISS=^X06B28
DEFINE SYM1=VZFMPD+^X058
DEFINE SYM2=VZFMPD+^X06C
SET ECO ^X07C
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION VZFMPD+^X038
'MOVD @B^^D4(AP),R5'
'BGEQ SYM1'
EXIT
'MOVD @B^^D4(AP),R5'
'CMPD R5,ZMISS'
'BGTR LAB2'
'CLRQ R8'
'MOVL #^D12,R7'
'JMP SYM2'
'LAB2: TSTD R5'
'BLSS LAB3'
'JMP SYM1'
'LAB3: NOP'
EXIT
UPDATE
EXIT