*COMDECK  IOWTL 
          TITLE  IOWTL - WRITE LINES
**        IOWTL  -  WRITE LINES 
* 
*         WRITE A SPECIFIED NUMBER OF LINES TO A FILE 
* 
*         ENTRY  X2 = FIT ADDRESS 
*                X3 = LINE BUFFER ADDRESS 
*                X4 = NUMBER OF CHARACTERS TO WRITE 
* 
  
 IOWTL    SUBR   =
          ZR     X4,IOWTL1   IF ZERO LENGTH 
          SA3    X3+
          NZ     X3,IOWTL2   IF NOT WORD OF ZERO
          NG     X3,IOWTL2   IF NEGATIVE ZERO (NOT NULL)
 IOWTL1   SA3    IOWTLA      USE BLANK WORD 
          SX4    2
 IOWTL2   SX3    A3          SET OR RESTORE LINE ADDRESS
  
 OSSC2    IFEQ   HOST,SC2 
          PUT    X2,X3,X4 
 OSSC2    ELSE
  
 OSNOS    IFEQ   HOST,NOS 
          RECALL X2 
 OSNOS    ENDIF 
          SB6    X3          LINE BUFFER ADDRESS
          WRITEC X2,B6       WRITE A CODED LINE 
  
 OSSC2    ENDIF 
  
          JP     IOWTL       EXIT 
  
 IOWTLA   CON    2L          TWO BLANKS 
  
