FORM  ÐPTCHVERS   "   SAS Institute, Inc. Patch V6.0INPF   : 1n  Täsasc_6.0_Disk_7:Source_and_examples/source/cback.aOUTF   < Î  W“work:6.0_disks/7/source_and_examples/source/cback.a PSEQ  Uúi!
        move.l  DOSBase(a4),a6

U sàI÷
*------ If under 2.0 Flush cache and get ProgramDir
   
        moveq        #36,d0
        cmp.w        $14(a6),d0
        bgt.b        nov36
        
        move.l       DOSBase(A4),A6
        jsr          -$258(a6)                  ;GetProgramDir
        move.l       d0,d1
        callsys       DupLock
        move.l       d0,ProgramDir(a4)

        move.l       AbsExecBase.w,A6
        moveq        #-1,d0
        callsys      CacheClearU

nov36:
        
        move.l       AbsExecBase.w,A6
U(ig        move.l        ProgramDir(a4),d1
        jsr           -$252(a6)                ;SetProgramDir

U¦siù
done_4:
        tst.l         ProgramDir(a4)
        beq.s         noprogdir
        moveq.l       #0,d1
        jsr           -$252(a6)                ;SetProgramDir
        move.l        ProgramDir(a4),d1
        callsys       UnLock
 

noprogdirU×s_i|ProgramDir     dc.l        0
DOSName        dc.b        'dos.library',0
current_window dc.b        '*',0
               END