Common COMSESS

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comsess +++|          CTEXT  COMSESS - ENGINEERING SERVICES SUPPORT DEFINITIONS.
00002  M01S00002.comsess +++|          SPACE  4,10

Line S00003 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.281l803 ---|*COMMENT COPYRIGHT CONTROL DATA CORP. 1975.

Line S00004 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.comsess +++|          SPACE  4,10
00007  M01S00006.comsess +++|***       COMSESS - ENGINEERING SERVICES SUPPORT DEFINITIONS.
00008  M01S00007.comsess +++|*         R. L. CLAESON.    75/09/25.
00009  M01S00008.comsess +++|          SPACE  4,10
00010  M01S00009.comsess +++|***       COMSESS CONTAINS ALL TAGS REQUIRED BY ENGINEERING SERVICES
00011  M01S00010.comsess +++|*         SUPPORT TO BE DEFINED IN SCOPE STYLE TAG DEFINITONS IN
00012  M01S00011.comsess +++|*         CETEXT BUT REQUIRED FOR USE WITHIN THE NOS SYSTEM ITSELF.
00013  M01S00012.comsess +++|          SPACE  4,10
00014  M01S00013.comsess +++|          BASE   MIXED
00015  M01S00014.comsess +++|          SPACE  4,10

Line S00015 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00015.252l678 ---| CETK     EQU    4000B+1     ECS TRACK RESERVED FOR SEQUENCER

Line S00016 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00017  M02S00016.252l678 ---| CECSA    SPACE  4,15

Line S00017 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00017.252l678 ---|***       CECSA - CONVERT ECS ADDRESS FROM A GIVEN TRACK.

Line S00018 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00018.252l678 ---|*

Line S00019 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00019.252l678 ---|* TAG     CECSA  TRACK,ROUND

Line S00020 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00020.252l678 ---|*

Line S00021 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00022  M02S00021.252l678 ---|*         ENTRY  TRACK = TRACK TO BE CONVERTED BIASED BY 4000B.

Line S00022 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00023  M02S00022.252l678 ---|*                ROUND = RU100  = ROUND UP BY 100.

Line S00023 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00024  M02S00023.252l678 ---|*                        RU1000 = ROUND UP BY 1000.

Line S00024 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00024.252l678 ---|*                        RD100  = ROUND DOWN BY 100.

Line S00025 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00026  M02S00025.252l678 ---|*                        RD1000 = ROUND DOWN BY 1000.

Line S00026 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00027  M02S00026.252l678 ---|*

Line S00027 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00028  M02S00027.252l678 ---|*         EXIT   TAG EQUATED TO ECS ROUNDED ADDRESS IN HUNDREDS.

Line S00028 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00028.252l678 ---|

Line S00029 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00029.252l678 ---|

Line S00030 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00031  M02S00030.252l678 ---|          PURGMAC  CECSA

Line S00031 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00032  M02S00031.252l678 ---|

Line S00032 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00032.252l678 ---|          MACRO  CECSA,LOCN,TRACK,ROUND

Line S00033 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00034  M02S00033.252l678 ---|          LOCAL  A

Line S00034 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00035  M02S00034.252l678 ---| A        SET    TRACK-4000B

Line S00035 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00036  M02S00035.252l678 ---|          ERRNG  A

Line S00036 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00036.252l678 ---| A        SET    A*2020B

Line S00037 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00037.252l678 ---|

Line S00038 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00038.252l678 ---| RU100    IFC    EQ,$ROUND$RU100$

Line S00039 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00039.252l678 ---| A        SET    A+77B

Line S00040 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00040.252l678 ---| A        SET    A/100B

Line S00041 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00042  M02S00041.252l678 ---| RU100    ELSE

Line S00042 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00043  M02S00042.252l678 ---|

Line S00043 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00044  M02S00043.252l678 ---| RU1000   IFC    EQ,$ROUND$RU1000$

Line S00044 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00044.252l678 ---| A        SET    A+777B

Line S00045 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00045.252l678 ---| A        SET    A/1000B*10B

Line S00046 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00047  M02S00046.252l678 ---| RU1000   ELSE

Line S00047 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00047.252l678 ---|

Line S00048 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00048.252l678 ---| RD100    IFC    EQ,$ROUND$RD100$

Line S00049 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00049.252l678 ---| A        SET    A/100B

Line S00050 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00050.252l678 ---| RD100    ELSE

Line S00051 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00051.252l678 ---|

Line S00052 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00052.252l678 ---| RD1000   IFC    EQ,$ROUND$RD1000$

Line S00053 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00053.252l678 ---| A        SET    A/1000B*10B

Line S00054 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00054.252l678 ---| RD1000   ELSE

Line S00055 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00055.252l678 ---| P        ERR    *ROUND* PARAMETER INCORRECT

Line S00056 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00056.252l678 ---|          ENDIF

Line S00057 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00058  M02S00057.252l678 ---| LOCN     EQU    A

Line S00058 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00059  M02S00058.252l678 ---|          ENDM

Line S00059 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00060  M02S00059.252l678 ---|          SPACE  4

Line S00060 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00060.252l678 ---| ECSRA CECSA  CETK,RU1000

Line S00061 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00062  M02S00061.252l678 ---| ECSFA CECSA  CETK+1,RD1000

Line S00062 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00063  M02S00062.252l678 ---| ECSFL EQU    ECSFA-ECSRA

Line S00063 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00064  M02S00063.252l678 ---|          IFLT   ECSFL,10B,1

Line S00064 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00065  M02S00064.252l678 ---| P        ERR    ECS FL MUST BE 1000B OR GREATER

Line S00065 Modification History
`M01` (Added by)	`comsess`
`M02` (Updated by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00065.252l678 ---|          SPACE  4,10
00067  M01S00001.252l678 +++|
00068  M01S00002.252l678 +++|*         *CETK* DEFINES THE EM TRACK WHEN THE STANDARD TRACK SIZE IS
00069  M01S00003.252l678 +++|*         USED.  WHEN A LARGER TRACK SIZE IS IN USE, *ECSRA* AND
00070  M01S00004.252l678 +++|*         *ECSFL* ARE AT THE END OF TRACK ZERO, WHICH IS NORMALLY
00071  M01S00005.252l678 +++|*         THE LABEL TRACK.  CODE ADDED TO *MSI* CHECKS FOR THIS CASE.
00072  M01S00006.252l678 +++|
00073  M01S00007.252l678 +++| CETK     EQU    4001B       EM TRACK FOR SEQUENCER (TRACK SIZE = 20B)
00074  M01S00008.252l678 +++| ECSRA    EQU    30B
00075  M01S00009.252l678 +++| ECSFL    EQU    10B
00076  M01S00066.comsess +++|          BASE   *
00077  M01S00067.comsess +++|          ENDX