nam    fprotect
        ttl    routines using F$Protect     
        use    /dd/defs/oskdefs.d

Edition equ    1
* Typ_Lang equ   (Sbrtn<<8)+Objct
Typ_Lang equ   0
Attr_Rev equ   (ReEnt<<8)+0
Stacksiz equ   256

        psect  fprotect,Typ_Lang,Attr_Rev,Edition,Stacksiz,fprotect
* _____________
*| fprotect    | Local subroutine to close an access window in VME space
*|_____________| to stop bypassing SSM module protection.
*                On entry: d0= start add, d1= size
*

fprotect:
        movem.l d0-d2/a0-a2,-(a7)
        movea.l	d0,a2
        move.l	d1,d0
        os9	F$Protect
        movem.l (a7)+,d0-d2/a0-a2
        rts
        ends