Common COMDDBS

2 Modifications

Source

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

Line S00003 Modification History
`M01` (Added by)	`comddbs`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORPORATION. 1981.
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.comddbs +++| DBS      SPACE  4,10
00006  M01S00005.comddbs +++|***       COMDDBS - DISPLAY BIT STATUS.
00007  M01S00006.comddbs +++|*
00008  M01S00007.comddbs +++|*         C. B. LOSCHEIDER.  81/09/30.
00009  M01S00008.comddbs +++| DBS      SPACE  4,10
00010  M01S00009.comddbs +++|***       *COMDDBS* WILL DISPLAY UP TO 12 STATUS LETTERS OR DASHES AT
00011  M01S00010.comddbs +++|*         THE CURRENT X-COORDINATE POSITION ON THE SCREEN.
00012  M01S00011.comddbs +++| DBS      SPACE  4,10
00013  M01S00012.comddbs +++|**        DBS - DISPLAY BIT STATUS.
00014  M01S00013.comddbs +++|*
00015  M01S00014.comddbs +++|*         ENTRY  DISPLAY HARDWARE POSITIONED AT DESIRED LOCATION.
00016  M01S00015.comddbs +++|*                (A) = ADDRESS OF LETTER TABLE.  TABLE MUST BE
00017  M01S00016.comddbs +++|*                      TERMINATED BY A ZERO WORD.
00018  M01S00017.comddbs +++|*                (CN) = BIT STATUS LEFT JUSTIFIED.
00019  M01S00001.v23l617 +++|*
00020  M01S00002.v23l617 +++|*         EXIT   (A) = 0.
00021  M01S00018.comddbs +++|*
00022  M01S00019.comddbs +++|*         USES   CN, T1, T2.
00023  M01S00020.comddbs +++|
00024  M01S00021.comddbs +++|
00025  M01S00022.comddbs +++| DBS      SUBR               ENTRY/EXIT
00026  M01S00023.comddbs +++|          STD    T1          SAVE TABLE ADDRESS
00027  M01S00024.comddbs +++| DBS1     LDD    CN
00028  M01S00025.comddbs +++|          SHN    -12         GET NEXT 2 BITS
00029  M01S00026.comddbs +++|          STD    T2
00030  M01S00027.comddbs +++|          LDM    DBSB,T2     GET MASK
00031  M01S00028.comddbs +++|          STM    DBSA
00032  M01S00029.comddbs +++|          LDI    T1          GET 2 LETTERS TO DISPLAY
00033  M01S00030.comddbs +++|          ZJN    DBSX        IF END OF TABLE
00034  M01S00031.comddbs +++|          LPC    0
00035  M01S00032.comddbs +++| DBSA     EQU    *-1
00036  M01S00033.comddbs +++|          LMC    2R--        FORM LETTER IF BIT ON OR *-* IF BIT OFF
00037  M01S00034.comddbs +++|          OAN    CH+40
00038  M01S00035.comddbs +++|          AOD    T1          ADVANCE BIT INDEX
00039  M01S00036.comddbs +++|          LDD    CN          POSITION NEXT 2 BITS
00040  M01S00037.comddbs +++|          SHN    2
00041  M01S00038.comddbs +++|          STD    CN
00042  M01S00039.comddbs +++|          UJN    DBS1        PROCESS NEXT 2 BITS
00043  M01S00040.comddbs +++|
00044  M01S00041.comddbs +++|
00045  M01S00042.comddbs +++| DBSB     CON    0000        --
00046  M01S00043.comddbs +++|          CON    0077        -X
00047  M01S00044.comddbs +++|          CON    7700        X-
00048  M01S00045.comddbs +++|          CON    7777        XX
00049  M01S00046.comddbs +++| DBS      SPACE  4
00050  M01S00047.comddbs +++|          ENDX