FBlitCheck:
    movea.l 4.w,a6
    lea fblitportname,a1
     jsr _LVOFindPort(a6)
    tst.l d0
     beq.b .InstallQBSBlit
    tst.l gopt19
      bne.b .exit
    move.l #$1004,D0
    move.l #$40004,D1
     jsr _LVOAllocMem(A6)
    tst.l d0
     beq.b .exit
    movea.l MemForPatch,a4 
    move.l D0,FtextMemSelf1-StartPatch+2(a4)
    move.l D0,FtextMemSelf2-StartPatch+2(a4)
    move.l D0,FtextMemSelf3-StartPatch+2(a4)
    add.l #$1000,d0
    move.l d0,FtextSwapSelf1-StartPatch+2(a4)
    move.l d0,FtextSwapSelf2-StartPatch+2(a4)
    move.l d0,FtextSwapSelf3-StartPatch+2(a4)
    movea.l GFXBase,a1
    PATCH Text
    tst.l opt0
     bne.b .exit
    movea.l DOSBase,a6
    move.l #FBlitMsg,d1
     jsr _LVOPutStr(a6)
    movea.l 4.w,a6
.exit:
    movea.l GFXBase,a1
   rts
.InstallQBSBlit:
    movea.l GFXBase,a1
    tst.l gopt20
     bne.b .rts
    PATCH QBSBlit
.rts
   rts


