*DECK ABORTSS 
          IDENT  ABORTSS
          COMMENT  ABORT SOURCE SCANNER 
          SST 
          SPACE  4
**        ABORTSS -  ABORT SOURCE SCANNER 
* 
*     CALLING SEQUENCE- 
*         ABORTSS("ROUTINE-N"); 
* 
*     DOES- 
*         SETS X2 = VALUE OF PARAMETER. 
*         FLUSHES OUTPUT BUFFER.
  
  
 DBUG1    IFEQ   DEBUGC,1 
          ENTRY  ABORTSS
 ABORTSS  BSS    1
          SA2    X1          X2 = VALUE OF PARAMETER
          SA3    OUTFET      X3 = ADDRESS OF FET
 ABORTSS1 SA4    X3          X4 = FIRST WORD OF FET 
          LX4  -1            EXAMINE BUSY BIT 
          NG     X4,ABORTSS2 IF FILE IS QUIET 
+         SA5    1
          NZ     X5,* 
          SX6    3RRCL
          LX6    42 
          SA6    A5 1 
+         SA5    1
          NZ     X5,* 
          EQ     ABORTSS1 
  
 ABORTSS2 LX4  1 -1          RESET FIRST WORD 
          MX0    42 
          BX6    X0*X4       KEEP ONLY FILE NAME
          SX0    26B         BINARY WRITER
          BX6    X6+X0
          SA6    A4 
          SX5    3RCIO
          PX5    X5 
          LX5    42 
          SX6    A6          ADDRESS OF FET 
          BX6    X5+X6
+         SA5    1
          NZ     X5,* 
          SA6    1
+         SA5    1
          NZ     X5,* 
          SA5    ABORTSS
          LX5    30 
          SB7    X5 
          JP     400000B+B7 
  
          USE    /FET/
          BSS    1           INFET
 OUTFET   BSS    1
          BSS    1           LIBFET 
          USE    *
  
 DBUG1    ENDIF 
          END 
