!   NAME: Z6060880  PRODUCT: ETS      CATEGORY: REQU    SYSTEM: VMS
!   DATE: 06AUG90   STATUS:  DZ+UT    USAGE-ID: V6-MODEL-0880
!
!   STATIC option in PROC MODEL is disabled by the SINGLE (ONEPASS) option
!
!   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}SASMODEL.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASMODEL.EXE
DEFINE MODUL=^X0140C8
DEFINE PATAREA=0
SET ECO ^X080
ALIGN/BYTE PATAREA
REPLACE/I MODUL+^X013
'CMPB W^^X84(AP),#^X66'
'BEQL MODUL+^X02B'
'TSTL W^^X9C(R2)'
'BNEQ MODUL+^X02B'
'TSTL W^^X94(R2)'
'BNEQ MODUL+^X02B'
'CALLS #^X0,B^^X0140FC'
EXIT
'CMPB W^^X84(AP),#^X66'
'BEQL LBL1'
'TSTL W^^X94(R2)'
'BNEQ LBL1'
'CALLS #^X0,B^^X0140FC'
'BRB LBL2'
'LBL1: CMPB W^^X84(AP),#^X66'
'BEQL LBL2'
'TSTL W^^X94(R2)'
'BEQL LBL2'
'TSTL W^^X9C(R2)'
'BEQL LBL2'
'TSTL W^^X99(ap)'
'BEQL LBL2'
'PUSHL #0'
'PUSHAB W^^XF4(R5)'
'PUSHL #^X1'
'PUSHL #^X1'
'CLRQ -(SP)'
'PUSHL W^^XD8(R5)'
'CLRQ -(SP)'
'PUSHL #0'
'CALLS #^XA,@L^^X00029534'
'MOVL R0,W^^XF0(R5)'
'LBL2: NOP'
EXIT
ALIGN/BYTE PATAREA
REPLACE/I MODUL+^XAA
'TSTL W^^X99(R7)'
'BNEQ MODUL+^X0B1'
'RET'
EXIT
'TSTL W^^X099(R7)'
'BEQL LBL3'
'TSTL W^^X09C(R5)'
'BEQL LBL4'
'LBL3: RET'
'LBL4: NOP'
EXIT
UPDATE
EXIT