!   NAME: Z6061076  PRODUCT: GRAPH    CATEGORY: SPEC    SYSTEM: VMS
!   DATE: 10SEP90   STATUS:  DZ+UT    USAGE-ID: V6-DEV.DEV-1076
!
!   Special Consideration patch required to use the DDIF graphics driver
!
!   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 VXASGN=^X0222B8
DEFINE META=0
DEFINE FILE=0
DEFINE OUT=0
DEFINE COMMAND=0
DEFINE SPACE=0
DEFINE SAS=0
SET ECO ^X068
ALIGN/BYTE META
DEPOSIT/ASCII/PATCH META
"META"
EXIT
ALIGN/BYTE FILE
DEPOSIT/ASCII/PATCH FILE
"FILE"
EXIT
ALIGN/BYTE OUT
DEPOSIT/ASCII/PATCH OUT
"OUT "
EXIT
ALIGN/BYTE COMMAND
DEPOSIT/ASCII/PATCH COMMAND
"DEFI"
"NE/J"
"OB/N"
"OLOG"
" "
EXIT
ALIGN/BYTE SPACE
DEPOSIT/ASCII/PATCH SPACE
" "
EXIT
ALIGN/BYTE SAS
DEPOSIT/ASCII/PATCH SAS
"SAS$"
EXIT
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION VXASGN+^X96F
'CALLS  #5,L^020464'
'MOVL   R0,B^-8(FP)'
'RET'
EXIT
'CALLS  #5,L^020464'
'MOVL   R0,B^-8(FP)'
'BEQL   LAB96'
'MOVL   B^-8(FP),R0'
'RET'
'LAB96: MOVAL   W^-^D548(FP),R3'
'CMPL   (R3),META'
'BNEQ   LAB97'
'CMPL   B^4(R3),FILE'
'BEQL   LAB98'
'LAB97: CMPL    (R3),META'
'BNEQ   LAB99'
'CMPL   B^4(R3),OUT'
'BNEQ   LAB99'
'LAB98: CVTBL   #-1,-(SP)'
'MOVL   B^-^D16(FP),R2'
'PUSHAB B^^D16(R2)'
'PUSHL  #1'
'PUSHAL SPACE'
'PUSHL  #8'
'PUSHAL W^-^D548(FP)'
'PUSHL  #4'
'PUSHAL SAS'
'PUSHL  #^D17'
'PUSHAL COMMAND'
'PUSHL  #5'
'CVTBL  #-1,-(SP)'
'CVTWL  #-^D256,-(SP)'
'PUSHAL W^-^D1436(FP)'
'CALLS  #^D14,L^02D870'
'PUSHAL B^-^D12(FP)'
'PUSHAL W^-^D1436(FP)'
'CALLS  #2,L^02F54C'
'MOVL   R0,B^-8(FP)'
'LAB99: MOVL    B^-8(FP),R0'
'RET'
EXIT
UPDATE
EXIT