!   NAME: Z6062102  PRODUCT: STAT     CATEGORY: REQU    SYSTEM: VMS
!   DATE: 07FEB91   STATUS:  DZ+UT    USAGE-ID: V6-CALIS-2102
!
!   GFI may be incorrect in the OUTRAM= data set with PROC CALIS
!
!   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}SASCALIS.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASCALIS.EXE
DEFINE COSFUNC = ^X010FA0
DEFINE COSRESI = ^X0558B4
DEFINE DET4 = 0
DEFINE PATAREA = 0
SET ECO ^X080
ALIGN/BYTE DET4
DEPOSIT/LONG/PATCH DET4
00000000
00000000
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSRESI+^X012A
'MOVD W^^D582(R6),B^^D16(SP)'
EXIT
'MOVD DET4, B^^D16(SP)'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSRESI+^X0AD8
'DIVD2 W^^D200(SP),W^^D582(R3)'
EXIT
'DIVD3 W^^D200(SP),DET4,W^^D582(R3)'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X01C2
'MOVD B^^D116(R2),W^^D582(R3)'
'MOVD W^^D582(R3),W^^D734(R3)'
EXIT
'MOVD B^^D116(R2),DET4'
'MOVD DET4, W^^D734(R3)'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X030E
'MOVD B^^D116(R2),W^^D582(R3)'
'MOVD W^^D582(R3),W^^D734(R3)'
EXIT
'MOVD B^^D116(R2),DET4'
'MOVD DET4, W^^D734(R3)'
EXIT
REPLACE/I COSFUNC+^X0567
'MOVL B^^D60(SP),R2'
'MOVD R0, W^^D582(R2)'
EXIT
'MOVD R0, DET4'
EXIT
REPLACE/I COSFUNC+^X06EC
'MOVL B^^D60(SP),R2'
'MOVD R9, W^^D582(R2)'
EXIT
'MOVD R9, DET4'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X082B
'MOVD B^^D116(R2),W^^D582(R3)'
'MOVD W^^D582(R3),W^^D734(R3)'
EXIT
'MOVD B^^D116(R2),DET4'
'MOVD DET4, W^^D734(R3)'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X09BC
'MOVL B^^D60(SP),R2'
'MOVD R9, W^^D582(R2)'
EXIT
'MOVL B^^D60(SP),R2'
'MOVD R9, DET4'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X0AB0
'MULD3 R0,R0,R3'
'MOVD R3,W^^D582(R2)'
EXIT
'MULD3 R0,R0,R3'
'MOVD R3,DET4'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X0B24
'MULD3 R0,R0,R3'
'MOVD R3,W^^D582(R2)'
EXIT
'MULD3 R0,R0,R3'
'MOVD R3,DET4'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X0B6E
'MOVD B^^D116(R2),W^^D582(R3)'
'MOVD W^^D582(R3),W^^D734(R3)'
EXIT
'MOVD B^^D116(R2),DET4'
'MOVD DET4, W^^D734(R3)'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I COSFUNC+^X0B89
'MOVL B^^D60(SP),R2'
'TSTD W^^D582(R2)'
'BGEQ COSFUNC+^X0B97'
'CLRQ W^^D582(R2)'
'CLRL R0'
'RET'
EXIT
'MOVL B^^D60(SP),R2'
'TSTD DET4'
'BGEQ LBL1'
'CLRQ DET4'
'LBL1: CLRL R0'
'RET'
EXIT
UPDATE
EXIT