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