*SYMBIONT TEST MODULE
*        THIS MODULE ATTEMPTS TO TEST THE SYMBIONT DISC
*        AREA AND SYMBIONT OPERATIONS TO EACH OF UP
*        TO 3 LINE PRINTERS.
*IT SLEEPS FOR 15 MINUTES AND REPEATES THE TEST.
*        LINE SPACING IS INHIBITES TO SAVE PAPER AND
*        TO INCREASE THROUGHPUT
*A SUPER CLOSE IS DONE AFTER EACH PASS TO FLUSH OUT THE
*        SYMBIONT AREA
       REF    M:LO
         SYSTEM   BPM
         SYSTEM   SIG7
F:CPVCTL DSECT    1
F:CPVCTL M:DCB (FILE,'CPVEXCONTROL'),(CONSEC),(SEQUEN),;
         (IN),(RECL,80),(TRIES,10)
         CSECT    0
START    EQU      $
    M:TYPE  (MESS,SYHEREM)
     M:STIMER    (SEC,1),CPVCNTL
         BAL,15   DOIT              PRINT AND SUPER CLOSE
         B        START             DO IT AGAIN AFTER 15 MIN
DOIT     M:OPEN   M:LO,(DEVICE,'LP')
         M:DEVICE M:LO,(VFC)
         LI,1     X'FF'             STARTING CHAR
DOITLP1  LI,3     132
         LI,4     ' '               SPACE
DOITLP2  STB,1    BDATA,3           PUT CHAR IN BUFF
         LI,5     3                 NUMBER OF BLANK LINES
         M:WRITE  M:LO,(BUF,BDATA),(SIZE,133)
         STB,4    BDATA,3           PUT BLANK BACK
         BDR,3    DOITLP2           132 CHARS PER LINE
         M:WRITE  M:LO,(BUF,SPC),(SIZE,133)
         BDR,1    DOITLP1           64 CHAR SET
         M:CLOSE      M:LO,(REL)
         CAL1,9   6                 SUPER CLOSE, FLUSH
         B        *15               RETURN
BDATA    DATA,1   X'60'             INHIBIT LINE FEED
         DO1      132
         DATA,1   ' '               SPACES
         BOUND    4
SPC      DATA,1   X'C1'             ADVANCE ONE LINE
         DO1      132
         DATA,1   ' '               BLANKS
SYHEREM TEXTC '*** SYMBIONT TESTER HERE****'
CPVCNTL  LI,1     0
         M:READ   F:CPVCTL,(BUF,CBUFF),(SIZE,80),(WAIT),(ABN,CNTRLAB),;
         (ERR,CNTRLAB)
         LW,1     CBUFF
         CW,1     ='WAIT'
         BCR,3    CWAITR
         M:CLOSE F:CPVCTL
CNTRLAB  M:STIMER (SEC,1),CPVCNTL
         M:TRTN
CWAITR   M:CLOSE F:CPVCTL
         M:WAIT   25
         B        CPVCNTL
CBUFF    RES      80
         END      START
