Common COMPSES

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compses +++|          CTEXT  COMPSES - SET ERROR STATUS IN LOCAL MST (STLL).
00002  M01S00002.compses +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compses +++|          QUAL   COMPSES
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compses +++| SES      SPACE  4
00006  M01S00005.compses +++|***       SES - SET ERROR STATUS IN LOCAL MST WORD *STLL*.
00007  M01S00006.compses +++|*         P. D. HAAS.        75/11/04.
00008  M01S00007.compses +++| SES      SPACE  4
00009  M01S00008.compses +++|***              SES ISSUES A MONITOR REQUEST TO SET OR CLEAR
00010  M01S00009.compses +++|*         AN ERROR STATUS IN THE *STLL* WORD OF THE MST.
00011  M01S00010.compses +++|*
00012  M01S00011.compses +++|*         ENTRY  (A) = ERROR CODE.
00013  M01S00012.compses +++|*                    = 0 IF ERROR STATUS TO BE CLEARED.

Line S00013 Modification History
`M01` (Added by)	`compses`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00014  M02S00013.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.
00015  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00016  M01S00014.compses +++|*
00017  M01S00015.compses +++|*         EXIT   (A) = 0.
00018  M01S00016.compses +++|*
00019  M01S00017.compses +++|*         USES   CM - CM+4.
00020  M01S00018.compses +++|
00021  M01S00019.compses +++|
00022  M01S00020.compses +++| SES      SUBR               ENTRY/EXIT
00023  M01S00021.compses +++|          STD    CM+2        SET ERROR CODE

Line S00022 Modification History
`M01` (Added by)	`compses`
`M02` (Updated by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00022.ns22000 ---|          LDD    T5          INSERT EQUIPMENT NUMBER
00025  M01S00002.ns22000 +++|          LDD    T5          INSERT EST ORDINAL
00026  M01S00023.compses +++|          STD    CM+1
00027  M01S00024.compses +++|          LDN    SERS        SET SUBFUNCTION
00028  M01S00025.compses +++|          STD    CM+3

Line S00026 Modification History
`M01` (Added by)	`compses`
`M02` (Updated by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00026.253l688 ---|          MONITOR STBM       ISSUE REQUEST
00030  M01S00001.253l688 +++|          MONITOR  SMDM      ISSUE REQUEST
00031  M01S00027.compses +++|          UJN    SESX        RETURN
00032  M01S00028.compses +++| SES      SPACE  4
00033  M01S00029.compses +++| QUAL$    IF     -DEF,QUAL$
00034  M01S00030.compses +++|          QUAL   *
00035  M01S00031.compses +++| SES      EQU    /COMPSES/SES
00036  M01S00032.compses +++| QUAL$    ENDIF
00037  M01S00033.compses +++|          ENDX