Common COMPTGB

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comptgb +++|          CTEXT  COMPTGB - SET/CLEAR GLOBAL MST FLAG (ACGL).
00002  M00S00002.comptgb +++|          IF     -DEF,QUAL$,1
00003  M00S00003.comptgb +++|          QUAL   COMPTGB

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comptgb +++| TGB      SPACE  4
00006  M00S00005.comptgb +++|***       TGB - SET/CLEAR BIT IN GLOBAL MST WORD *ACGL*.
00007  M00S00006.comptgb +++|*         P. D. HAAS.        75/09/19.
00008  M00S00007.comptgb +++| TGB      SPACE  4
00009  M00S00008.comptgb +++|***              TGB SETS UP A MONITOR REQUEST TO SET OR CLEAR
00010  M00S00009.comptgb +++|*         A SPECIFIED BIT IN THE *ACGL* WORD OF THE MST.
00011  M00S00010.comptgb +++|*
00012  M00S00011.comptgb +++|*         ENTRY  (A) = BIT TO BE SET.
00013  M00S00012.comptgb +++|*                    = COMPLEMENT OF BIT TO BE CLEARED.

Line S00013 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00016  M00S00014.comptgb +++|*
00017  M00S00015.comptgb +++|*         EXIT   (A) = 0.
00018  M00S00016.comptgb +++|*
00019  M00S00017.comptgb +++|*         USES   CM - CM+4.
00020  M00S00018.comptgb +++|
00021  M00S00019.comptgb +++|
00022  M00S00020.comptgb +++| TGB      SUBR               ENTRY/EXIT
00023  M00S00021.comptgb +++|          PJN    TGB1        IF SETTING  BIT
00024  M00S00022.comptgb +++|          LMC    377777
00025  M00S00023.comptgb +++| TGB1     STD    CM+2        SET BIT NUMBER IN REQUEST
00026  M00S00024.comptgb +++|          SHN    0-21
00027  M00S00025.comptgb +++|          ADN    SGBS        SET SUBFUNCTION
00028  M00S00026.comptgb +++|          STD    CM+3

Line S00027 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00027.ns22000 ---|          LDD    T5          INSERT EQUIPMENT NUMBER

Line S00002 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00002.ns22000 +++|          LDD    T5          SET EST ORDINAL
00031  M00S00028.comptgb +++|          STD    CM+1
00032  M00S00029.comptgb +++|          MONITOR STBM       ISSUE REQUEST
00033  M00S00030.comptgb +++|          UJN    TGBX        RETURN
00034  M00S00031.comptgb +++| TGB      SPACE  4
00035  M00S00032.comptgb +++| QUAL$    IF     -DEF,QUAL$
00036  M00S00033.comptgb +++|          QUAL   *
00037  M00S00034.comptgb +++| TGB      EQU    /COMPTGB/TGB
00038  M00S00035.comptgb +++| QUAL$    ENDIF
00039  M00S00036.comptgb +++|          ENDX