*COMDECK /CLSFLOF/
*#
*0        TO REMOVE A FILE FROM THE LIST OF FILES (CF"NR,R), GET
*         THE ADDRESS OF THE LIST FROM THE (PASSLOC-ED) CTL$RM ENTRY
*         POINT LOF$RM (IF>0) OR FROM MACRO GETLOF (IF LOF$RM<0). 
*         THEN SEARCH THE ENTIRE LIST LOOKING FOR A MATCH ON LFN
*         OR FIT ADDRESS. FOR EACH MATCH SET THE UPPER 12 BITS = 7777B. 
*#
          SA1       =XLOF$RM
          SB3       A0
          SA2       X1             INITIALIZE A2
          MX1       12
 CSF.COMP BSS       0 
          SA2       A2+B1          GET NEXT LIST ENTRY
          ZR        X2,CSF.LOFX    END OF LIST
          SB2       X2             FIT ADDR 
          NE        B2,B3,CSF.COMP  LOOP IF DIFFERENT FIT ADDR
          BX7       X1+X2          CLOBBER ENTRY
          SA7       A2
          EQ        CSF.COMP
 CSF.LOFX BSS       0 
* END /CLSFLOF/ 
