         REF      M:LO
R2       EQU      2
R3       EQU      3
R4       EQU      4
START    LI,R3    BA(B1)
         LI,R4    78
NA       M:OPEN   F:N,NXTA,TEST,(ABN,A1)
         CI,R3    BA(B1)+80
         BL       ADD
,WRTB1   M:WRITE  M:LO,(BUF,B1),(SIZE,*R4),WAIT
         LI,R3    BA(B1)
ADD      LI,R2    BA(F:N+32)
         OR,R3    Y08
         MBS,R2   0
         AI,R3    2
         B        NA
A1       LW,R4    R3
         AI,R4    -BA(B1)-2
         BLEZ     %+2
         CAL1,1   WRTB1             DUMP LAST BUFFER
         CAL1,9   1
Y08      DATA     X'08000000'
B1       DO1      20
         DATA     '    '
F:N      DSECT
F:N      M:DCB    FILE,PASS,SYNON
         END      START
