Common COMSESS

Library Member Format: MODIFY

Source

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

Line S00003 Modification History
`M01` (Removed by)	`281l803`

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

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M00S00005.comsess +++|          SPACE  4,10
00007  M00S00006.comsess +++|***       COMSESS - ENGINEERING SERVICES SUPPORT DEFINITIONS.
00008  M00S00007.comsess +++|*         R. L. CLAESON.    75/09/25.
00009  M00S00008.comsess +++|          SPACE  4,10
00010  M00S00009.comsess +++|***       COMSESS CONTAINS ALL TAGS REQUIRED BY ENGINEERING SERVICES
00011  M00S00010.comsess +++|*         SUPPORT TO BE DEFINED IN SCOPE STYLE TAG DEFINITONS IN
00012  M00S00011.comsess +++|*         CETEXT BUT REQUIRED FOR USE WITHIN THE NOS SYSTEM ITSELF.
00013  M00S00012.comsess +++|          SPACE  4,10
00014  M00S00013.comsess +++|          BASE   MIXED
00015  M00S00014.comsess +++|          SPACE  4,10

Line S00015 Modification History
`M01` (Removed by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00015.252l678 ---| CETK     EQU    4000B+1     ECS TRACK RESERVED FOR SEQUENCER
00017  M01S00016.252l678 ---| CECSA    SPACE  4,15
00018  M01S00017.252l678 ---|***       CECSA - CONVERT ECS ADDRESS FROM A GIVEN TRACK.
00019  M01S00018.252l678 ---|*
00020  M01S00019.252l678 ---|* TAG     CECSA  TRACK,ROUND
00021  M01S00020.252l678 ---|*
00022  M01S00021.252l678 ---|*         ENTRY  TRACK = TRACK TO BE CONVERTED BIASED BY 4000B.
00023  M01S00022.252l678 ---|*                ROUND = RU100  = ROUND UP BY 100.
00024  M01S00023.252l678 ---|*                        RU1000 = ROUND UP BY 1000.
00025  M01S00024.252l678 ---|*                        RD100  = ROUND DOWN BY 100.
00026  M01S00025.252l678 ---|*                        RD1000 = ROUND DOWN BY 1000.
00027  M01S00026.252l678 ---|*
00028  M01S00027.252l678 ---|*         EXIT   TAG EQUATED TO ECS ROUNDED ADDRESS IN HUNDREDS.
00029  M01S00028.252l678 ---|
00030  M01S00029.252l678 ---|
00031  M01S00030.252l678 ---|          PURGMAC  CECSA
00032  M01S00031.252l678 ---|
00033  M01S00032.252l678 ---|          MACRO  CECSA,LOCN,TRACK,ROUND
00034  M01S00033.252l678 ---|          LOCAL  A
00035  M01S00034.252l678 ---| A        SET    TRACK-4000B
00036  M01S00035.252l678 ---|          ERRNG  A
00037  M01S00036.252l678 ---| A        SET    A*2020B
00038  M01S00037.252l678 ---|
00039  M01S00038.252l678 ---| RU100    IFC    EQ,$ROUND$RU100$
00040  M01S00039.252l678 ---| A        SET    A+77B
00041  M01S00040.252l678 ---| A        SET    A/100B
00042  M01S00041.252l678 ---| RU100    ELSE
00043  M01S00042.252l678 ---|
00044  M01S00043.252l678 ---| RU1000   IFC    EQ,$ROUND$RU1000$
00045  M01S00044.252l678 ---| A        SET    A+777B
00046  M01S00045.252l678 ---| A        SET    A/1000B*10B
00047  M01S00046.252l678 ---| RU1000   ELSE
00048  M01S00047.252l678 ---|
00049  M01S00048.252l678 ---| RD100    IFC    EQ,$ROUND$RD100$
00050  M01S00049.252l678 ---| A        SET    A/100B
00051  M01S00050.252l678 ---| RD100    ELSE
00052  M01S00051.252l678 ---|
00053  M01S00052.252l678 ---| RD1000   IFC    EQ,$ROUND$RD1000$
00054  M01S00053.252l678 ---| A        SET    A/1000B*10B
00055  M01S00054.252l678 ---| RD1000   ELSE
00056  M01S00055.252l678 ---| P        ERR    *ROUND* PARAMETER INCORRECT
00057  M01S00056.252l678 ---|          ENDIF
00058  M01S00057.252l678 ---| LOCN     EQU    A
00059  M01S00058.252l678 ---|          ENDM
00060  M01S00059.252l678 ---|          SPACE  4
00061  M01S00060.252l678 ---| ECSRA CECSA  CETK,RU1000
00062  M01S00061.252l678 ---| ECSFA CECSA  CETK+1,RD1000
00063  M01S00062.252l678 ---| ECSFL EQU    ECSFA-ECSRA
00064  M01S00063.252l678 ---|          IFLT   ECSFL,10B,1
00065  M01S00064.252l678 ---| P        ERR    ECS FL MUST BE 1000B OR GREATER
00066  M01S00065.252l678 ---|          SPACE  4,10

Line S00001 Modification History
`M01` (Added by)	`252l678`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00066.comsess +++|          BASE   *
00077  M00S00067.comsess +++|          ENDX