!   NAME: Z6062579  PRODUCT: STAT     CATEGORY: REQU    SYSTEM: VMS
!   DATE: 02MAY91   STATUS:  DZ+UT    USAGE-ID: V6-GLM-2579
!
!   Incorrect SS with PRINTE option on the REPEATED statement
!
!   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}SASGLM.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASGLM.EXE
DEFINE GLMREP1 = ^X017C14
DEFINE PATAREA = 0
SET ECO ^X080
ALIGN/BYTE PATAREA
REPLACE/I GLMREP1 +^X0261
'ADDL2 R3,R2'
'ASHL #^X3,R2,B^^X9C(FP)'
EXIT
'ADDL2 R3,R2'
'ASHL #^X3,R2,B^^X9C(FP)'
'MOVL B^^XA4(FP), R5'
'MULL3 #^D9,B^^D60(SP),R2'
'CMPL R5,R2'
'BLEQ SYM.16'
'SUBL2 r2,R5'
'ASHL #^D3,R5,R5'
'ADDL2 R5, B^^X9C(FP)'
'SYM.16: NOP'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I GLMREP1+^X03A6
'MOVL L^^X00000809,R3'
'MULL3 #^D9,R3,R2'
EXIT
'MOVL L^^X00000809,R3'
'PUSHL L^^X0000410'
'MULL3 #^D9,R3,-(SP)'
'CALLS #^D2,L^^X37118'
'MOVL R0,R2'
EXIT
UPDATE
EXIT