         DEF      PLOT:
PLOT:    EQU      %
*        SIGMA 5/7 RBM-2 AND BPM I/O HANDLER FOR 7530/7531 PLOTTERS
         SYSTEM   SIG5
*
*        EXTERNAL DEF'S AND REF'S
*
         DEF      PLOT,PLOTCU
*
         REF      COMLIST,IOSERCK,IOSCU
         REF      IOQ4,IOQ5
*
*        DEVICE OPERATION TABLE FOR PLOTTER
*
         BOUND    4
DOT      GEN,8,8,8,8 BA(WRITE)-BA(DOT),X'FF',1,1
*
*        COMMAND LIST POINTER
*
WRITE    GEN,8    DA(WTDW)-DA(DOT)
*
*        COMMAND LIST DOUBLEWORD
*
         BOUND    8
WTDW     GEN,8,24,8,8,8,8 1,0,X'16',0,2,0
*
*        PLOTTER HANDLER PRE-PROCESSOR
*
         BOUND    4
PLOT     LI,10    DOT               ADDRESS OF TABLES
         LI,5     0                 SET FUNCTION CODE TO ZERO
         STB,5    IOQ4,3
         STB,5    IOQ5,3
         B        COMLIST
*
*        PLOTTER HANDLER POST-PROCESSOR
*
PLOTCU   EQU      %
         BAL,9    IOSERCK           CHECK FOR ERRORS
         NOP                        ERROR NOTED,IGNORE IT
         LI,12    1                 SET TYC TO NORMAL
         LI,13    0                 SET MESSAGE ADDRESS TO ZERO
         B        IOSCU             EXIT
         END

