COMPSFB 
COMMON
          CTEXT  COMPSFB - SET FILE BUSY. 
 SFB      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   COMPSFB
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SFB      SPACE  4
***       SFB - SET FILE BUSY.
*         G. R. MANSFIELD.  70/08/30. 
 SFB      SPACE  4
***              *SFB* SETS THE SPECIFIED LOCAL FILE TO BUSY STATUS.
* 
*         ENTRY  (FA) = RELATIVE ADDRESS OF FNT ENTRY IN NFL. 
*                (FS - FS+4) = FNT ENTRY. 
* 
*         EXIT   (FS - FS+4) = FST ENTRY. 
*                (CM - CM+4) = FNT ENTRY. 
*                (A) = 1 IF FILE INTERLOCK REJECT.
*                (A) = 2 IF FILE COMPARE FAILURE. 
* 
*         USES   CM - CM+4, FS - FS+4.
* 
*         MACROS MONITOR, NFA.
  
  
 SFB2     NFA    FA,R        READ FNT WORD
          CRD    CM 
          ADN    FSTL        READ FST WORD
          CRD    FS 
          LDN    0           SET NO REJECT EXIT 
  
 SFB      SUBR               ENTRY/EXIT 
          LDD    MA          WRITE FNT ENTRY
          CWD    FS 
          LDN    ZERL 
          CRD    CM 
  
          LDD    FA          SET FILE BUSY
          STD    CM+4 
          MONITOR SFBM
          LDD    CM+1 
          ZJN    SFB2        IF FILE MADE BUSY
          UJN    SFBX 
          SPACE  4
 QUAL$    IF     -DEF,QUAL$ 
          QUAL   *
 SFB      EQU    /COMPSFB/SFB 
 QUAL$    ENDIF 
          ENDX
