Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comptgb +++| CTEXT COMPTGB - SET/CLEAR GLOBAL MST FLAG (ACGL).
00002 M01S00002.comptgb +++| IF -DEF,QUAL$,1
00003 M01S00003.comptgb +++| QUAL COMPTGB
00004 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00005 M01S00004.comptgb +++| TGB SPACE 4
00006 M01S00005.comptgb +++|*** TGB - SET/CLEAR BIT IN GLOBAL MST WORD *ACGL*.
00007 M01S00006.comptgb +++|* P. D. HAAS. 75/09/19.
00008 M01S00007.comptgb +++| TGB SPACE 4
00009 M01S00008.comptgb +++|*** TGB SETS UP A MONITOR REQUEST TO SET OR CLEAR
00010 M01S00009.comptgb +++|* A SPECIFIED BIT IN THE *ACGL* WORD OF THE MST.
00011 M01S00010.comptgb +++|*
00012 M01S00011.comptgb +++|* ENTRY (A) = BIT TO BE SET.
00013 M01S00012.comptgb +++|* = COMPLEMENT OF BIT TO BE CLEARED.
| Line S00013 Modification History |
M01 (Added by) | comptgb |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00014 M02S00013.ns22000 ---|* (T5) = EQUIPMENT NUMBER.
00015 M01S00001.ns22000 +++|* (T5) = EST ORDINAL.
00016 M01S00014.comptgb +++|*
00017 M01S00015.comptgb +++|* EXIT (A) = 0.
00018 M01S00016.comptgb +++|*
00019 M01S00017.comptgb +++|* USES CM - CM+4.
00020 M01S00018.comptgb +++|
00021 M01S00019.comptgb +++|
00022 M01S00020.comptgb +++| TGB SUBR ENTRY/EXIT
00023 M01S00021.comptgb +++| PJN TGB1 IF SETTING BIT
00024 M01S00022.comptgb +++| LMC 377777
00025 M01S00023.comptgb +++| TGB1 STD CM+2 SET BIT NUMBER IN REQUEST
00026 M01S00024.comptgb +++| SHN 0-21
00027 M01S00025.comptgb +++| ADN SGBS SET SUBFUNCTION
00028 M01S00026.comptgb +++| STD CM+3
| Line S00027 Modification History |
M01 (Added by) | comptgb |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00029 M02S00027.ns22000 ---| LDD T5 INSERT EQUIPMENT NUMBER
00030 M01S00002.ns22000 +++| LDD T5 SET EST ORDINAL
00031 M01S00028.comptgb +++| STD CM+1
00032 M01S00029.comptgb +++| MONITOR STBM ISSUE REQUEST
00033 M01S00030.comptgb +++| UJN TGBX RETURN
00034 M01S00031.comptgb +++| TGB SPACE 4
00035 M01S00032.comptgb +++| QUAL$ IF -DEF,QUAL$
00036 M01S00033.comptgb +++| QUAL *
00037 M01S00034.comptgb +++| TGB EQU /COMPTGB/TGB
00038 M01S00035.comptgb +++| QUAL$ ENDIF
00039 M01S00036.comptgb +++| ENDX