!   NAME: Z6060790  PRODUCT: BASE     CATEGORY: REQU    SYSTEM: VMS
!   DATE: 25SEP90   STATUS:  DZ+UT    USAGE-ID: V6-SYS.FILE-0790
!
!   Update of external files using the END= option is incorrect
!
!   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}SASDS.EXE
!
!   NOTE: Use SAS$ROOT:{USAGE.PATCH}APPLY_PATCH.COM to apply this patch
!-----------------------------------------------------------------------
!   END
SASDS.EXE
DEFINE PATAREA=0
DEFINE DSEINIT=^X05FDC
DEFINE DSEREAD=^X092F4
SET ECO ^X07F
ALIGN/BYTE PATAREA
REPLACE/INSTRUCTION DSEINIT+^X0FB8
'TSTB    W^0103(R10)'
'BNEQ    00006F9D'
'BRW     00007088'
'MOVL    #24,W^008E(R10)'
'MULL3   W^008A(R10),W^008E(R10),R2'
'PUSHL   #06'
'PUSHL   R2'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^51(R10)'
'BNEQ    00006FC8'
'PUSHL   #01'
'CALLS   #01,@L^000369AC'
'MOVL    #01,B^2C(SP)'
'MOVAL   B^04(AP),B^30(SP)'
'MOVL    @B^30(SP),R2'
'CMPL    B^2C(SP),W^008A(R2)'
'BLEQ    00006FE0'
'BRW     000071BE'
'MOVL    @B^30(SP),R9'
'ADDL3   #01,R11,L^00000014(SP)'
'CMPL    W^008A(R9),#01'
'BNEQ    00007000'
'MOVL    @B^30(SP),R2'
'MOVL    B^51(R2),R4'
'BRB     0000701B'
'TSTL    R0'
'NOP'
'MOVL    @B^30(SP),R2'
'EMUL    #00,#00,B^2C(SP),R0'
'EDIV    W^008A(R2),R0,R1,R0'
'MULL3   W^008E(R2),R0,R4'
'ADDL2   B^51(R2),R4'
'MOVL    R4,R7'
'MOVL    R11,B^1A(R7)'
'PUSHL   #04'
'PUSHL   B^18(SP)'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^20(R7)'
'BNEQ    00007044'
'PUSHL   #01'
'CALLS   #01,@L^000369AC'
'TSTL    R0'
'NOP'
'MOVL    R11,R8'
'CMPL    R8,#00007FFF'
'BGTR    00007068'
'CLRL    R3'
'ADDL3   #01,B^20(R7),R2'
'MOVAL   B^0F8(FP),R6'
'MOVC5   #00,(R3),#20,R8,(R2)'
'MOVL    R0,(R6)'
'BRB     0000707A'
'TSTL    R0'
'ADDL3   #01,B^20(R7),-(SP)'
'PUSHL   R8'
'PUSHL   #20'
'CLRQ    -(SP)'
'CALLS   #05,@L^00036A30'
'ACBL    W^008A(R9),#01,B^2C(SP),00006FEC'
'BRW     000071BE'
'TSTL    R0'
'TSTB    W^0125(R10)'
'BEQL    000070B4'
'PUSHL   #06'
'PUSHL   #24'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^51(R10)'
'BEQL    000070A6'
'BRW     000071BE'
'PUSHL   #01'
'CALLS   #01,@L^000369AC'
'BRW     000071BE'
'TSTL    R0'
'MOVL    B^08(SP),W^008E(R10)'
'MULL3   W^008A(R10),W^008E(R10),R2'
'PUSHL   #06'
'PUSHL   R2'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^51(R10)'
'BNEQ    000070E0'
'PUSHL   #01'
'CALLS   #01,@L^000369AC'
'MOVAL   B^04(AP),B^34(SP)'
'MOVL    @B^34(SP),R2'
'MOVL    B^51(R2),R9'
'CMPL    W^008A(R2),#01'
'BGTR    000070F7'
'BRW     00007184'
'MOVL    #01,B^3C(SP)'
'CMPL    #01,W^008A(R2)'
'BLEQ    00007105'
'BRW     000071BE'
'MOVL    @L^00000034(SP),R10'
'CMPL    W^008A(R10),#01'
'BNEQ    00007120'
'MOVL    @B^34(SP),R2'
'MOVL    B^51(R2),R4'
'BRB     0000713B'
'TSTL    R0'
'NOP'
'MOVL    @B^34(SP),R2'
'EMUL    #00,#00,B^3C(SP),R0'
'EDIV    W^008A(R2),R0,R1,R0'
'MULL3   W^008E(R2),R0,R4'
'ADDL2   B^51(R2),R4'
'MOVL    R4,R7'
'ADDL3   #24,R7,B^20(R7)'
'MOVL    R11,R8'
'CMPL    R8,#00007FFF'
'BGTR    00007168'
'CLRL    R3'
'ADDL3   #01,B^20(R7),R2'
'MOVAL   B^0F4(FP),R6'
'MOVC5   #00,(R3),#20,R8,(R2)'
'MOVL    R0,(R6)'
'BRB     0000717A'
'TSTL    R0'
'NOP'
'ADDL3   #01,B^20(R7),-(SP)'
'PUSHL   R8'
'PUSHL   #20'
'CLRQ    -(SP)'
'CALLS   #05,@L^00036A30'
'AOBLEQ  W^008A(R10),B^3C(SP),0000710C'
'BRB     000071BE'
'NOP'
'ADDL3   #24,R9,B^20(R9)'
'MOVL    R11,R7'
'CMPL    R7,#00007FFF'
'BGTR    000071AC'
'CLRL    R3'
'ADDL3   #01,B^20(R9),R2'
'MOVAL   B^0F0(FP),R6'
'MOVC5   #00,(R3),#20,R7,(R2)'
'MOVL    R0,(R6)'
'BRB     000071BE'
'NOP'
'ADDL3   #01,B^20(R9),-(SP)'
'PUSHL   R7'
'PUSHL   #20'
'CLRQ    -(SP)'
'CALLS   #05,@L^00036A30'
'TSTL    B^10(SP)'
EXIT
'TSTB    W^0103(R10)'
'BNEQ    GEN22'
'BRW     SYM168'
'GEN22:	 MOVL    #24,W^008E(R10)'
'MULL3   W^008A(R10),W^008E(R10),R2'
'PUSHL   #06'
'PUSHL   R2'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^51(R10)'
'BNEQ    SYM161'
'PUSHL   #01'
'CALLS   #01,@L^000369AC'
'SYM161: MOVL    #01,B^2C(SP)'
'MOVAL   B^04(AP),B^30(SP)'
'MOVL    @B^30(SP),R2'
'CMPL    B^2C(SP),W^008A(R2)'
'BLEQ    GEN23'
'BRW     LAB181'
'GEN23:	 MOVL    @B^30(SP),R9'
'ADDL3   #01,R11,L^00000014(SP)'
'SYM162: CMPL    W^008A(R9),#01'
'BNEQ    SYM163'
'MOVL    @B^30(SP),R2'
'MOVL    B^51(R2),R4'
'BRB     SYM164'
'TSTL    R0'
'NOP'
'SYM163: MOVL    @B^30(SP),R2'
'EMUL    #00,#00,B^2C(SP),R0'
'EDIV    W^008A(R2),R0,R1,R0'
'MULL3   W^008E(R2),R0,R4'
'ADDL2   B^51(R2),R4'
'SYM164: MOVL    R4,R7'
'MOVL    R11,B^1A(R7)'
'PUSHL   #04'
'PUSHL   B^18(SP)'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^20(R7)'
'BNEQ    SYM165'
'PUSHL   #01'
'CALLS   #01,@L^000369AC'
'TSTL    R0'
'NOP'
'SYM165: MOVL    R11,R8'
'CMPL    R8,#00007FFF'
'BGTR    SYM166'
'CLRL    R3'
'ADDL3   #01,B^20(R7),R2'
'MOVAL   B^0F8(FP),R6'
'MOVC5   #00,(R3),#20,R8,(R2)'
'MOVL    R0,(R6)'
'BRB     SYM167'
'TSTL    R0'
'SYM166: ADDL3   #01,B^20(R7),-(SP)'
'PUSHL   R8'
'PUSHL   #20'
'CLRQ    -(SP)'
'CALLS   #05,@L^00036A30'
'SYM167: ACBL    W^008A(R9),#01,B^2C(SP),SYM162'
'BRW     LAB181'
'TSTL    R0'
'SYM168: TSTB    W^0125(R10)'
'BEQL    SYM169'
'PUSHL   #06'
'PUSHL   #24'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^51(R10)'
'BEQL    GEN24'
'BRW     LAB180'
'GEN24:  PUSHL   #01'
'CALLS   #01,@L^000369AC'
'BRW     LAB180'
'TSTL    R0'
'SYM169: MOVL    B^08(SP),W^008E(R10)'
'MULL3   W^008A(R10),W^008E(R10),R2'
'PUSHL   #06'
'PUSHL   R2'
'CVTBL   #0FF,-(SP)'
'CALLS   #03,@L^000369A8'
'MOVL    R0,B^51(R10)'
'BNEQ    SYM170'
'PUSHL   #01'
'CALLS   #01,@L^000369AC'
'SYM170: MOVAL   B^04(AP),B^34(SP)'
'MOVL    @B^34(SP),R2'
'MOVL    B^51(R2),R9'
'CMPL    W^008A(R2),#01'
'BGTR    GEN25'
'BRW     SYM176'
'GEN25:  MOVL    #01,B^3C(SP)'
'CMPL    #01,W^008A(R2)'
'BLEQ    GEN26'
'BRW     SYM179'
'GEN26:  MOVL    @L^00000034(SP),R10'
'SYM171: CMPL    W^008A(R10),#01'
'BNEQ    SYM172'
'MOVL    @B^34(SP),R2'
'MOVL    B^51(R2),R4'
'BRB     SYM173'
'TSTL    R0'
'NOP'
'SYM172: MOVL    @B^34(SP),R2'
'EMUL    #00,#00,B^3C(SP),R0'
'EDIV    W^008A(R2),R0,R1,R0'
'MULL3   W^008E(R2),R0,R4'
'ADDL2   B^51(R2),R4'
'SYM173: MOVL    R4,R7'
'ADDL3   #24,R7,B^20(R7)'
'MOVL    R11,R8'
'CMPL    R8,#00007FFF'
'BGTR    SYM174'
'CLRL    R3'
'ADDL3   #01,B^20(R7),R2'
'MOVAL   B^0F4(FP),R6'
'MOVC5   #00,(R3),#20,R8,(R2)'
'MOVL    R0,(R6)'
'BRB     SYM175'
'TSTL    R0'
'NOP'
'SYM174: ADDL3   #01,B^20(R7),-(SP)'
'PUSHL   R8'
'PUSHL   #20'
'CLRQ    -(SP)'
'CALLS   #05,@L^00036A30'
'SYM175: AOBLEQ  W^008A(R10),B^3C(SP),SYM171'
'BRB     SYM179'
'NOP'
'SYM176: ADDL3   #24,R9,B^20(R9)'
'MOVL    R11,R7'
'CMPL    R7,#00007FFF'
'BGTR    SYM177'
'CLRL    R3'
'ADDL3   #01,B^20(R9),R2'
'MOVAL   B^0F0(FP),R6'
'MOVC5   #00,(R3),#20,R7,(R2)'
'MOVL    R0,(R6)'
'BRB     SYM178'
'NOP'
'SYM177: ADDL3   #01,B^20(R9),-(SP)'
'PUSHL   R7'
'PUSHL   #20'
'CLRQ    -(SP)'
'CALLS   #05,@L^00036A30'
'SYM178: NOP'
'SYM179: NOP'
'MOVL	B^4(AP),R3'
'TSTL	W^^D362(R3)'
'BEQL	LAB181'
'TSTB	W^^D207(R3)'
'BEQL	LAB181'
'CVTBL	#-1,-(SP)'
'PUSHL	W^^D89(R3)'
'CVTBL	#-1,-(SP)'
'CALLS	#3,@L^00036898'
'PUSHL	#4'
'ADDL3	#1,R11,-(SP)'
'CVTBL	#-1,-(SP)'
'CALLS	#3,@L^000369A8'
'MOVL	R0,W^^D89(R3)'
'BNEQ	LAB180'
'PUSHL	#1'
'CALLS	#1,@L^000369AC'
'LAB180:NOP'
'LAB181:TSTL    B^10(SP)'
EXIT
REPLACE/INSTRUCTION DSEREAD+^X0906
'SUBL2	#^D4,SP'
'MOVL	B^4(AP),R2'
EXIT
'SUBL2	#^D8,SP'
'MOVL	B^4(AP),R2'
EXIT
REPLACE/INSTRUCTION DSEREAD+^X097B
'PUSHAB	B^^D93(R2)'
'PUSHAB	B^^D89(R2)'
'PUSHL	B^^D56(R2)'
EXIT
'PUSHAB	B^^D93(R2)'
'PUSHAL	B^-^D8(FP)'
'PUSHL	B^^D56(R2)'
EXIT
REPLACE/INSTRUCTION DSEREAD+^X0A42
'BEQL	DSEREAD+^X0A55'
'PUSHL	R2'
'CALLS 	#1,@L^00036884'
'TSTL	R2'
'BGEQ	DSEREAD+^X0A55'
'MOVL	#1,R0'
'RET'
EXIT
'BEQL	LAB104'
'PUSHL	R2'
'CALLS 	#1,@L^00036884'
'TSTL	R2'
'BGEQ	LAB103'
'MOVL	#1,R0'
'RET'
'LAB103:NOP'
'LAB104:MOVL	B^4(AP),R6'
'TSTB	W^^D204(R6)'
'BEQL	LAB1'
'MOVC3	W^^D93(R6),@W^-^D8(FP),@W^^D89(R6)'
'MOVL	W^^D89(R6),W^-^D8(FP)'
'LAB1:	NOP'
'LAB2:	MOVL	B^4(AP),R2'
'MOVL	W^-^D8(FP),W^^D89(R2)'
'CMPL	W^^D97(R2),W^^D158(R2)'
'BGTR	LAB3'
'JMP	DSEREAD+^X0A70'
'LAB3:	NOP'
EXIT
REPLACE/INSTRUCTION DSEREAD+^X0A2F
'BEQL	DSEREAD+^X0A55'
'PUSHAB	W^^D392(R2)'
'PUSHL	B^^D56(R2)'
EXIT
'BNEQ	LAB4'
'JMP	LAB2'
'LAB4:	PUSHAB	W^^D392(R2)'
'PUSHL	B^^D56(R2)'
EXIT
UPDATE
EXIT