FasterForbid: movem.l D0/A1-A3/A6,-(A7)
    addq.b #1,TDNestCnt(A6)
    bset #$1,LIB_FLAGS(A6)
    lea _LVOForbid(A6),A3
    move.l #$522E0127,(A3)+
    move.w #$4E75,(A3)
     jsr _LVOCacheClearU(A6)
     jsr _LVOPermit(A6)
    movea.l A6,A1
     jsr _LVOSumLibrary(A6)
    movem.l (A7)+,D0/A1-A3/A6
   rts
