Common COMSJRO

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comsjro +++|          CTEXT  COMSJRO - JOB ROLLOUT EQUIVALENCES.
00002  M00S00002.comsjro +++| COMSJRO  SPACE  4

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.comsjro +++| COMSJRO  SPACE  4
00006  M00S00005.comsjro +++|***       COMSJRO - JOB ROLLOUT EQUIVALENCES.
00007  M00S00006.comsjro +++|*         G. R. MANSFIELD.  70/09/03.
00008  M00S00007.comsjro +++| COMSJRO  SPACE  4
00009  M00S00008.comsjro +++|***              COMSJRO DEFINES PARAMETERS ASSOCIATED WITH JOB
00010  M00S00009.comsjro +++|*         ROLLOUT AND ROLLIN.
00011  M00S00010.comsjro +++|          SPACE  4
00012  M00S00011.comsjro +++|***       SEQUENCE OF ROLLOUT FILE.
00013  M00S00012.comsjro +++| CPAI     SPACE  4
00014  M00S00013.comsjro +++|***       CONTROL POINT AREA.
00015  M00S00014.comsjro +++|*         THE CONTROL POINT AREA SECTION IS 2 SECTORS IN LENGTH,
00016  M00S00015.comsjro +++|*         AND IS AN EXACT IMAGE OF THE CONTROL POINT AREA IN CENTRAL
00017  M00S00016.comsjro +++|*         MEMORY.
00018  M00S00017.comsjro +++|
00019  M00S00018.comsjro +++|
00020  M00S00019.comsjro +++| CPAI     EQU    1           CONTROL POINT AREA
00021  M00S00020.comsjro +++| TOPI     SPACE  4
00022  M00S00021.comsjro +++|***       TERMINAL OUTPUT.
00023  M00S00022.comsjro +++|*         THE OUTPUT FOR A TERMINAL IS N SECTORS LONG, TERMINATED
00024  M00S00023.comsjro +++|*         BY A SHORT SECTOR (LOGICAL RECORD).  THIS IS ONLY PART
00025  M00S00024.comsjro +++|*         OF THE ROLLOUT FILE FOR *TXOT* ORGIN JOBS.
00026  M00S00025.comsjro +++|
00027  M00S00026.comsjro +++|
00028  M00S00027.comsjro +++| TOPI     EQU    2           TERMINAL OUTPUT
00029  M00S00028.comsjro +++| JFLI     SPACE  4
00030  M00S00029.comsjro +++|***       JOB FIELD LENGTH.
00031  M00S00030.comsjro +++|*         THE FIELD LENGTH SECTION IS *N* SECTORS LONG, TERMINATED
00032  M00S00031.comsjro +++|*         BY AN *EOI* SECTOR.  THE FIRST *M* SECTORS ARE THE JOBS
00033  M00S00032.comsjro +++|*         NEGATIVE FIELD LENGTH (NFL), THE REMAINING *N*-*M* SECTORS
00034  M00S00033.comsjro +++|*         CONTAIN THE USERS FIELD LENGTH.  IF USER ECS IS
00035  M00S00034.comsjro +++|*         PRESENT, THE USER FIELD LENGTH
00036  M00S00035.comsjro +++|*         SECTION WILL BE BROKEN INTO TWO PARTS AS FOLLOWS--
00037  M00S00036.comsjro +++|*                THE FIRST PART IS THE FIELD LENGTH FROM RA THROUGH
00038  M00S00037.comsjro +++|*                RA+(MCMX/2)-1.
00039  M00S00038.comsjro +++|*                THE SECOND PART, WHICH WILL FOLLOW THE ECS SECTION,
00040  M00S00039.comsjro +++|*                IS THE FIELD LENGTH FROM RA+MCMX/2 THROUGH RA+FL-1.
00041  M00S00040.comsjro +++|*         THE VALUE *MCMX* DEFINES THE MINIMUM CM FL WHEN ECS IS
00042  M00S00041.comsjro +++|*         ASSIGNED TO A CONTROL POINT (THIS IS REQUIRED TO
00043  M00S00042.comsjro +++|*         INSURE BUFFER SPACE THROUGH WHICH TO ROLL THE ECS FL).
00044  M00S00043.comsjro +++|*         THE FIELD LENGTH SECTION IS AN EXACT IMAGE OF THE JOB
00045  M00S00044.comsjro +++|*         FIELD LENGTH IN CENTRAL MEMORY.
00046  M00S00045.comsjro +++|
00047  M00S00046.comsjro +++|
00048  M00S00047.comsjro +++| JFLI     EQU    3           JOB FIELD LENGTH
00049  M00S00048.comsjro +++| JECI     SPACE  4,10
00050  M00S00049.comsjro +++|***       JOB ECS FIELD LENGTH.
00051  M00S00050.comsjro +++|*         THE ECS FIELD LENGTH SECTION IS N SECTORS IN LENGTH AND
00052  M00S00051.comsjro +++|*         IS AN EXACT IMAGE OF THE JOB ECS FL.  THE ECS SECTION IS
00053  M00S00052.comsjro +++|*         PRESENT IN THE ROLLOUT FILE FOR--
00054  M00S00053.comsjro +++|*                ALL NON-DMP= ROLLOUTS.
00055  M00S00054.comsjro +++|*                FOR DMP= ROLLOUTS WITH FL=0, I.E. ROLL ALL CM FL.
00056  M00S00055.comsjro +++|
00057  M00S00056.comsjro +++|
00058  M00S00057.comsjro +++| JECI     EQU    4           JOB ECS FIELD LENGTH
00059  M00S00058.comsjro +++|          SPACE  4
00060  M00S00059.comsjro +++| MXFI     EQU    5           LAST ROLL SEQUENCE +1
00061  M00S00060.comsjro +++| IROB     SPACE  4,10
00062  M00S00061.comsjro +++|***       TERMINAL OUTPUT BUFFER ADDRESS.
00063  M00S00062.comsjro +++|*         BUFFER ADDRESS OF THE FIRST SECTOR OF OUTPUT DATA PASSED
00064  M00S00063.comsjro +++|*         FROM *1RO* TO *1TO*.
00065  M00S00064.comsjro +++|
00066  M00S00065.comsjro +++|
00067  M00S00066.comsjro +++| IROB     EQU    BFMS-502
00068  M00S00067.comsjro +++| SEQUENCE SPACE  4
00069  M00S00068.comsjro +++|***       SEQUENCE - GENERATE ROLLIN SEQUENCE.
00070  M00S00069.comsjro +++|*
00071  M00S00070.comsjro +++|*
00072  M00S00071.comsjro +++|*         SEQUENCE N,ADDRESS
00073  M00S00072.comsjro +++|*         ENTRY  *N* = SEQUENCE NUMBER OF ROLLOUT/ROLLIN FILE
00074  M00S00073.comsjro +++|*                *ADDRESS* = RJM ADDRESS OF PROCESSOR.
00075  M00S00074.comsjro +++|
00076  M00S00075.comsjro +++|
00077  M00S00076.comsjro +++|          NOREF  .SEQ
00078  M00S00077.comsjro +++| SEQUENCE MACRO  N,A
00079  M00S00078.comsjro +++|          IF     -DEF,.SEQ,1
00080  M00S00079.comsjro +++| .SEQ     EQU    *
00081  M00S00080.comsjro +++|          ORG    .SEQ+2*N-2
00082  M00S00081.comsjro +++|          LOC    N
00083  M00S00082.comsjro +++|          IFC    NE,$A$$,1
00084  M00S00083.comsjro +++|          RJM    A
00085  M00S00084.comsjro +++|          LOC    *O
00086  M00S00085.comsjro +++|          ENDM
00087  M00S00086.comsjro +++|          SPACE  4
00088  M00S00087.comsjro +++|          ENDX