COMDDBS 
COMMON
          CTEXT  COMDDBS - DISPLAY BIT STATUS.
          SPACE  4,10 
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 DBS      SPACE  4,10 
***       COMDDBS - DISPLAY BIT STATUS. 
* 
*         C. B. LOSCHEIDER.  81/09/30.
 DBS      SPACE  4,10 
***       *COMDDBS* WILL DISPLAY UP TO 12 STATUS LETTERS OR DASHES AT 
*         THE CURRENT X-COORDINATE POSITION ON THE SCREEN.
 DBS      SPACE  4,10 
**        DBS - DISPLAY BIT STATUS. 
* 
*         ENTRY  DISPLAY HARDWARE POSITIONED AT DESIRED LOCATION. 
*                (A) = ADDRESS OF LETTER TABLE.  TABLE MUST BE
*                      TERMINATED BY A ZERO WORD. 
*                (CN) = BIT STATUS LEFT JUSTIFIED.
* 
*         EXIT   (A) = 0. 
* 
*         USES   CN, T1, T2.
  
  
 DBS      SUBR               ENTRY/EXIT 
          STD    T1          SAVE TABLE ADDRESS 
 DBS1     LDD    CN 
          SHN    -12         GET NEXT 2 BITS
          STD    T2 
          LDM    DBSB,T2     GET MASK 
          STM    DBSA 
          LDI    T1          GET 2 LETTERS TO DISPLAY 
          ZJN    DBSX        IF END OF TABLE
          LPC    0
 DBSA     EQU    *-1
          LMC    2R--        FORM LETTER IF BIT ON OR *-* IF BIT OFF
          OAN    CH+40
          AOD    T1          ADVANCE BIT INDEX
          LDD    CN          POSITION NEXT 2 BITS 
          SHN    2
          STD    CN 
          UJN    DBS1        PROCESS NEXT 2 BITS
  
  
 DBSB     CON    0000        -- 
          CON    0077        -X 
          CON    7700        X- 
          CON    7777        XX 
 DBS      SPACE  4
          ENDX
