Common COMDDBS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comddbs ---|          CTEXT  COMDDBS - DISPLAY BIT STATUS.
00002  M00S00002.comddbs ---|          SPACE  4,10

Line S00003 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M01S00003.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1981.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comddbs +++| DBS      SPACE  4,10
00006  M00S00005.comddbs +++|***       COMDDBS - DISPLAY BIT STATUS.
00007  M00S00006.comddbs +++|*
00008  M00S00007.comddbs +++|*         C. B. LOSCHEIDER.  81/09/30.
00009  M00S00008.comddbs +++| DBS      SPACE  4,10
00010  M00S00009.comddbs +++|***       *COMDDBS* WILL DISPLAY UP TO 12 STATUS LETTERS OR DASHES AT
00011  M00S00010.comddbs +++|*         THE CURRENT X-COORDINATE POSITION ON THE SCREEN.
00012  M00S00011.comddbs +++| DBS      SPACE  4,10
00013  M00S00012.comddbs +++|**        DBS - DISPLAY BIT STATUS.
00014  M00S00013.comddbs +++|*
00015  M00S00014.comddbs +++|*         ENTRY  DISPLAY HARDWARE POSITIONED AT DESIRED LOCATION.
00016  M00S00015.comddbs +++|*                (A) = ADDRESS OF LETTER TABLE.  TABLE MUST BE
00017  M00S00016.comddbs +++|*                      TERMINATED BY A ZERO WORD.
00018  M00S00017.comddbs +++|*                (CN) = BIT STATUS LEFT JUSTIFIED.

Line S00001 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00001.v23l617 +++|*
00020  M01S00002.v23l617 +++|*         EXIT   (A) = 0.
00021  M00S00018.comddbs +++|*
00022  M00S00019.comddbs +++|*         USES   CN, T1, T2.
00023  M00S00020.comddbs +++|
00024  M00S00021.comddbs +++|
00025  M00S00022.comddbs +++| DBS      SUBR               ENTRY/EXIT
00026  M00S00023.comddbs +++|          STD    T1          SAVE TABLE ADDRESS
00027  M00S00024.comddbs +++| DBS1     LDD    CN
00028  M00S00025.comddbs +++|          SHN    -12         GET NEXT 2 BITS
00029  M00S00026.comddbs +++|          STD    T2
00030  M00S00027.comddbs +++|          LDM    DBSB,T2     GET MASK
00031  M00S00028.comddbs +++|          STM    DBSA
00032  M00S00029.comddbs +++|          LDI    T1          GET 2 LETTERS TO DISPLAY
00033  M00S00030.comddbs +++|          ZJN    DBSX        IF END OF TABLE
00034  M00S00031.comddbs +++|          LPC    0
00035  M00S00032.comddbs +++| DBSA     EQU    *-1
00036  M00S00033.comddbs +++|          LMC    2R--        FORM LETTER IF BIT ON OR *-* IF BIT OFF
00037  M00S00034.comddbs +++|          OAN    CH+40
00038  M00S00035.comddbs +++|          AOD    T1          ADVANCE BIT INDEX
00039  M00S00036.comddbs +++|          LDD    CN          POSITION NEXT 2 BITS
00040  M00S00037.comddbs +++|          SHN    2
00041  M00S00038.comddbs +++|          STD    CN
00042  M00S00039.comddbs +++|          UJN    DBS1        PROCESS NEXT 2 BITS
00043  M00S00040.comddbs +++|
00044  M00S00041.comddbs +++|
00045  M00S00042.comddbs +++| DBSB     CON    0000        --
00046  M00S00043.comddbs +++|          CON    0077        -X
00047  M00S00044.comddbs +++|          CON    7700        X-
00048  M00S00045.comddbs +++|          CON    7777        XX
00049  M00S00046.comddbs +++| DBS      SPACE  4
00050  M00S00047.comddbs +++|          ENDX