*DECK S$PRTCD 
          IDENT  S$PRTCD
          TITLE  S$PRTCD -  PRINT CODE
          COMMENT  PRINT CODE 
          LIST   F
          SPACE  4
**        S$PRTCD -  PRINT CODE 
* 
*     CALLING SEQUENCE- 
*         S$PRTCD(LINE);
* 
*     GIVEN-
*         LINE = 60 CHARACTERS FOR PRINTING, OR 
*                ZERO FOR FLUSHING THE BUFFER.
* 
*     DOES- 
*         IF THE FIRST WORD OF *LINE* IS NON-ZERO,
*             ADDS THE 60 CHARACTERS TO THE BUFFER
*            WITH A WORD OF ZERO FOR A LINE TERMINATOR
*         ELSE
*             FLUSHES THE OUTPUT BUFFER.
  
  
          ENTRY  S$PRTCD
 S$PRTCD  SUBR
        IFDEBUG              IF DEBUG CODE TO BE ASSEMBLED, 
          SB1    1           CONSTANT 1 
          SA2    X1          FIRST WORD 
          ZR     X2,PRTCD1   IF TO FLUSH BUFFER 
          SA3    PRTCDA+2    IN 
          BX6    X2 
          SA6    X3          STORE FIRST WORD IN BUFFER 
          DUP    5,3
          SA2    A2+B1       GET NEXT WORD
          BX6    X2 
          SA6    A6+B1       STORE NEXT WORD IN BUFFER
          MX6    0           STORE LINE TERMINATOR
          SA6    A6+B1
          SX6    X3+7        SET IN = IN + 7
          SA6    PRTCDA+2 
          SB6    X6          NEW IN 
          SB7    PRTCDC+PRTCDB-1
          NE     B6,B7,S$PRTCD  IF STILL ROOM IN BUFFER, EXIT 
          WRITE  PRTCDA,RECALL
          SX6    PRTCDC      RESET BUFFER POINTERS
          SA6    PRTCDA+2    IN 
          SA6    PRTCDA+3    OUT
          ENDIF 
          EXIT
  
        IFDEBUG              IF DEBUG CODE TO BE ASSEMBLED, 
 PRTCD1   WRITER PRTCDA,RECALL
          SX6    PRTCDC      RESET BUFFER POINTERS
          SA6    PRTCDA+2    IN 
          SA6    PRTCDA+3    OUT
          EQ     S$PRTCD     EXIT 
  
  
 PRTCDA   VFD    42/0LCODE,18/1 
          VFD    42/,18/PRTCDC
          VFD    42/,18/PRTCDC
          VFD    42/,18/PRTCDC
          VFD    42/,18/PRTCDC+PRTCDB 
  
PRTCDB    EQU    7*1000B+1   LENGTH OF BUFFER 
  
 PRTCDC   BSS    PRTCDB      BUFFER 
  
          ENDIF 
          SPACE  4
          END 
