Utility:  tst.l opt4
   bne.w utex
  btst #AFB_68040,AttnFlags+1(a6)  ;check for 040/060 cpu
   bne.w utex                      ;if there is one then no patch
  movem.l D0/A1/A5-A6,-(A7)
  movea.l 4.w,A6
  moveq.l #0,d0
  lea utilityname,a1
   jsr _LVOOpenLibrary(a6)
  move.l d0,UtilityBase
   jsr _LVOForbid(A6)
  movea.l UtilityBase,A1
  movea.l A1,A5
  bset #$1,LIB_FLAGS(A1)
  lea _LVOSMult32(A5),A1
  move.l #$4C010800,(A1)+
  move.w #$4E75,(A1)
  lea _LVOUMult32(A5),A1
  move.l #$4C010000,(A1)+
  move.w #$4E75,(A1)
  lea _LVOSMult64(A5),A1
  move.l #$4C010C01,(A1)+
  move.w #$4E75,(A1)
  lea _LVOUMult64(A5),A1
  move.l #$4C010401,(A1)+
  move.w #$4E75,(A1)   
  lea _LVOUDivMod32(a5),a1
  move.l #$4C410001,(a1)+
  move.w #$4E75,(a1)
  lea _LVOSDivMod32(a5),a1
  move.l #$4C410801,(a1)+
  move.w #$4E75,(a1)
  movea.l A5,A1
   jsr _LVOSumLibrary(A6)
   jsr _LVOCacheClearU(A6)
   jsr _LVOPermit(A6)
   jsr _LVOCloseLibrary(A6)
  tst.l opt0
   bne.b utex2
  movea.l DOSBase,a6
  move.l #InstalledUtility,d1
   jsr _LVOPutStr(a6)
utex2:  movem.l (A7)+,D0/A1/A5-A6
utex: rts
