Common COMPTGB

2 Modifications

Source

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