         SYSTEM   SIG7
         REF      M:SI,M:LL,M:GO
R0       EQU      0
R1       EQU      1
R2       EQU      2
R3       EQU      3
R4       EQU      4
R5       EQU      5
R6       EQU      6
R10      EQU      10
BEGIN    CAL1,8   INT
         LCI      8
         LM,R0    M:SI+23
         STM,R0   OPENNM
         CAL1,1   OPENGO
READIT   CAL1,1   READSI
         MTW,1    CN:TR
         LW,R1    M:SI+4
         SLS,R1   -17
         LI,R3    0
         LI,R4    0
LOOP     LB,R0    SIBUFF,R3
         LW,R5    R3
LOOP0    AI,R5    1
         CW,R5    R1
         BGE      LOOP1
         CB,R0    SIBUFF,R5
         BE       LOOP0
LOOP1    SW,R5    R3
         CI,R5    4
         BL       LOOP2
         LI,R6    X'13'
         STB,R6   OUTBUFF,R4
         AI,R4    1
         STB,R5   OUTBUFF,R4
         AI,R4    1
         AW,R3    R5
         AI,R3    -1
LOOP2    STB,R0   OUTBUFF,R4
         AI,R4    1
         AI,R3    1
         CW,R3    R1
         BL       LOOP
         CAL1,1   WRITEGO
         B        READIT
ABNRD    LB,R10   R10
         CI,R10   6
         BNE      ABNRD1
         CAL1,1   CLOSESI
         CAL1,1   CLOSEGO
ABNRD0   CAL1,9   1
ABNRD1   LI,R10   RDERMS
         CAL1,2   PRINT
         B        ABNRD0
RDERMS   TEXTC    '....READ ERROR'
CLOSESI  GEN,8,24 21,M:SI
         PZE      *0
         DATA     2
OPENGO   GEN,8,24 20,M:GO
         DATA     X'01400001'
         DATA     2,2
         DATA     X'01010808'
OPENNM   RES      8
CLOSEGO  GEN,8,24 21,M:GO
         PZE      *0
         DATA     2
WRITEGO  GEN,8,24 17,M:GO
         GEN,4,28 3,0
         DATA     OUTBUFF
         PZE      *R4
OUTBUFF  RES      40
PRINT    GEN,8,24 1,0
         PZE      *0
         PZE      *R10
READSI   GEN,8,24 16,M:SI
         GEN,4,28 7,0
         DATA     ABNRD,SIBUFF,140
SIBUFF   RES      40
INT      GEN,8,24 14,INTADD
RSETBK   DATA     X'06200000'
         PZE      *0
         DATA     3
LINEMS   TEXTC    'LINE '
         RES      2
CN:TR    DATA     0
RE:ENT   DATA     0
DEC10    DATA     10
NUM      RES      3
INTADD   LW,R3    RE:ENT
         BNEZ     GETOUT
         MTW,1    RE:ENT
         LW,R5    CN:TR
INTADD0  AI,R3    1
         LI,R4    0
         DW,R4    DEC10
         AI,R4    '0'
         STB,R4   NUM,R3
         AI,R5    0
         BNEZ     INTADD0
         LB,R4    LINEMS
         LW,R2    R4
INTADD1  AI,R4    1
         LB,R5    NUM,R3
         STB,R5   LINEMS,R4
         BDR,R3   INTADD1
         STB,R4   LINEMS
         LI,R10   LINEMS
         CAL1,2   PRINT
         STB,R2   LINEMS
         MTW,-1   RE:ENT
GETOUT   CAL1,8   RSETBK
         CAL1,9   5
         END      BEGIN
