nam    fpermit
        ttl    routines using F$Permit 
        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  fpermit,Typ_Lang,Attr_Rev,Edition,Stacksiz,fpermit
*
*  based on code received by A. Gagnaire ( july 1990 )
*  see original in /h0/os9news/F$Permit
*
 
 
* ____________
*| RWF_Permit | Local subroutine to open an access window in VME space
*|____________| bypassing SSM module protection.
*               On entry: d0=> start add, d1=> size
*

fpermit: 
        movem.l d0-d2/a0-a2,-(a7)
        movea.l	d0,a2
        move.l	d1,d0
        move.b	#7,d1
        os9	F$Permit
        movem.l (a7)+,d0-d2/a0-a2
        rts
        ends