*COMDECK MACIOQ 
IO.MAC    EJECT  4,6
**
*     MACROS TO REPLACE SCPTEXT MACROS.  ALL FILE ACTION
*     MACROS ARE PROVIDED.
* 
*     *** NOTE - WAIT REPLACES RECALL FOR FILE ACTIONS. *** 
* 
          PURGMAC  BKSP 
BKSP      MACRO  LFN,R
          SCP=00  LFN,40B,R,3,,0
          ENDM
  
          PURGMAC  BKSPRU 
BKSPRU    MACRO  LFN,N,R
          SCP=00  LFN,44B,R,3,,N
          ENDM
  
          PURGMAC  CLOSE
CLOSE     MACRO  LFN,X,R
SCP=90    SET    0
          SCP=01  X,,150B 
          SCP=01  X,NR,130B 
          SCP=01  X,UNLOAD,170B 
          SCP=01  X,RETURN,174B 
          IFEQ   SCP=90,0,1 
          ERR CLOSE PARAMETER ERROR 
          SCP=00  LFN,SCP=90,R,7,,0 
          ENDM
  
          PURGMAC  CLOSER 
CLOSER    MACRO  LFN,X,R
SCP=90    SET    0
          SCP=01  X,,350B 
          SCP=01  X,NR,330B 
          SCP=01  X,UNLOAD,370B 
          IFEQ   SCP=90,0,1 
          ERR CLOSER PARAMETER ERROR
          SCP=00  LFN,SCP=90,R,3,,0 
          ENDM
  
          PURGMAC  EVICT
EVICT     MACRO  LFN,R
          SCP=00  LFN,114B,R,3,,0 
          ENDM
  
          PURGMAC  OPEN 
OPEN      MACRO  LFN,X,R
SCP=90    SET    0
          SCP=01  X,READ,140B 
          SCP=01  X,WRITE,144B
          SCP=01  X,ALTER,160B
          SCP=01  X,READNR,100B 
          SCP=01  X,WRITENR,104B
          SCP=01  X,REEL,340B 
          SCP=01  X,REELNR,300B 
          SCP=01  X,ALTERNR,120B
          SCP=01  X,NR,120B 
          SCP=01  X,,160B 
          IFEQ   SCP=90,0,1 
          ERR OPEN PARAMETER ERROR
          SCP=00  LFN,SCP=90,R,3,,0 
          ENDM
  
          PURGMAC  POSMF
POSMF     MACRO  LFN,R
          SCP=00  LFN,110B,R,3,,0 
          ENDM
  
          PURGMAC  READ 
READ      MACRO  LFN,R
          SCP=00  LFN,10B,R,2,,0
          ENDM
  
          PURGMAC  READC
READC     MACRO  LFN,R
          SCP=00  LFN,200B,R,2,,0 
          ENDM
  
          PURGMAC  READN
READN     MACRO  LFN,R
          SCP=00  LFN,260B,R,2,,0 
          ENDM
  
          PURGMAC  READNS 
READNS    MACRO  LFN,R
          SCP=00  LFN,250B,R,2,,0 
          ENDM
  
          PURGMAC  READSKP
READSKP   MACRO  LFN,L,R
          SCP=00  LFN,20B,R,3,L,0 
          ENDM
  
          PURGMAC  REWIND 
REWIND    MACRO  LFN,R
          SCP=00  LFN,50B,R,3,,0
          ENDM
  
          PURGMAC  REWRITE
REWRITE   MACRO  LFN,R
          SCP=00  LFN,214B,R,2,,0 
          ENDM
  
          PURGMAC  REWRITEF 
REWRITEF  MACRO  LFN,R
          SCP=00  LFN,234B,R,7,,0 
          ENDM
  
          PURGMAC  REWRITER 
REWRITER  MACRO  LFN,L,R
          SCP=00  LFN,224B,R,7,L,0
          ENDM
  
          PURGMAC  RPHR 
RPHR      MACRO  LFN,R
          SCP=00  LFN,0,R,3,,0
          ENDM
  
          PURGMAC  SKIPB
SKIPB     MACRO  LFN,N,L,R
          SCP=00  LFN,640B,R,3,L,N
          ENDM
  
          PURGMAC  SKIPF
SKIPF     MACRO  LFN,N,L,R
          SCP=00  LFN,240B,R,3,L,N
          ENDM
  
          PURGMAC  UNLOAD 
UNLOAD    MACRO  LFN,R
          SCP=00  LFN,60B,R,3,,0
          ENDM
  
          PURGMAC   WAIT
WAIT      MACRO  LFN
          SCP=00  LFN,,R,1,,0 
          ENDM
  
          PURGMAC  WRITE
WRITE     MACRO  LFN,R
          SCP=00  LFN,14B,R,2,,0
          ENDM
  
          PURGMAC  WRITEC 
WRITEC    MACRO  LFN,R
SCP=2P    SET    2
          IFC    NE,*R**,1
SCP=2P    SET    6
          SCP=00  LFN,204B,R,SCP=2P,,0
          ENDM
  
          PURGMAC  WRITEF 
WRITEF    MACRO  LFN,R
          SCP=00  LFN,34B,R,7,,0
          ENDM
  
          PURGMAC  WRITEN 
WRITEN    MACRO  LFN,R
SCP=2P    SET    2
          IFC    NE,*R**,1
SCP=2P    SET    6
          SCP=00  LFN,264B,R,SCP=2P,,0
          ENDM
  
          PURGMAC  WRITER 
WRITER    MACRO  LFN,L,R
          SCP=00  LFN,24B,R,7,L,0 
          ENDM
  
          PURGMAC  WPHR 
WPHR      MACRO  LFN,R
          SCP=00  LFN,4,R,3,,0
          ENDM
  
          PURGMAC  SCP=00 
SCP=00    MACRO  LFN,CODE,R,P,L,N 
+         SB2    =X_LFN 
          RJ   =XIO.
SCP=9RCL  SET    0
          IFC    NE,$R$$,1
SCP=9RCL  SET    1
SCP=2N    SET    N
          IFC    EQ,*N**,1
SCP=2N    SET    1
          VFD    18D/P,2/SCP=9RCL,22D/SCP=2N,4/L,14D/CODE 
          ENDM
  
          PURGMAC  SCP=01 
SCP=01    MACRO  X,N,C
          IFC    EQ,$X$N$,1 
SCP=90    SET    C
          ENDM
