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