1 Modification

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

Seq #  *Modification Id* Act 
----------------------------+
00003  M02S00003.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.comsjro +++| COMSJRO  SPACE  4
00006  M01S00005.comsjro +++|***       COMSJRO - JOB ROLLOUT EQUIVALENCES.
00007  M01S00006.comsjro +++|*         G. R. MANSFIELD.  70/09/03.
00008  M01S00007.comsjro +++| COMSJRO  SPACE  4
00009  M01S00008.comsjro +++|***              COMSJRO DEFINES PARAMETERS ASSOCIATED WITH JOB
00010  M01S00009.comsjro +++|*         ROLLOUT AND ROLLIN.
00011  M01S00010.comsjro +++|          SPACE  4
00012  M01S00011.comsjro +++|***       SEQUENCE OF ROLLOUT FILE.
00013  M01S00012.comsjro +++| CPAI     SPACE  4
00014  M01S00013.comsjro +++|***       CONTROL POINT AREA.
00015  M01S00014.comsjro +++|*         THE CONTROL POINT AREA SECTION IS 2 SECTORS IN LENGTH,
00016  M01S00015.comsjro +++|*         AND IS AN EXACT IMAGE OF THE CONTROL POINT AREA IN CENTRAL
00017  M01S00016.comsjro +++|*         MEMORY.
00018  M01S00017.comsjro +++|
00019  M01S00018.comsjro +++|
00020  M01S00019.comsjro +++| CPAI     EQU    1           CONTROL POINT AREA
00021  M01S00020.comsjro +++| TOPI     SPACE  4
00022  M01S00021.comsjro +++|***       TERMINAL OUTPUT.
00023  M01S00022.comsjro +++|*         THE OUTPUT FOR A TERMINAL IS N SECTORS LONG, TERMINATED
00024  M01S00023.comsjro +++|*         BY A SHORT SECTOR (LOGICAL RECORD).  THIS IS ONLY PART
00025  M01S00024.comsjro +++|*         OF THE ROLLOUT FILE FOR *TXOT* ORGIN JOBS.
00026  M01S00025.comsjro +++|
00027  M01S00026.comsjro +++|
00028  M01S00027.comsjro +++| TOPI     EQU    2           TERMINAL OUTPUT
00029  M01S00028.comsjro +++| JFLI     SPACE  4
00030  M01S00029.comsjro +++|***       JOB FIELD LENGTH.
00031  M01S00030.comsjro +++|*         THE FIELD LENGTH SECTION IS *N* SECTORS LONG, TERMINATED
00032  M01S00031.comsjro +++|*         BY AN *EOI* SECTOR.  THE FIRST *M* SECTORS ARE THE JOBS
00033  M01S00032.comsjro +++|*         NEGATIVE FIELD LENGTH (NFL), THE REMAINING *N*-*M* SECTORS
00034  M01S00033.comsjro +++|*         CONTAIN THE USERS FIELD LENGTH.  IF USER ECS IS
00035  M01S00034.comsjro +++|*         PRESENT, THE USER FIELD LENGTH
00036  M01S00035.comsjro +++|*         SECTION WILL BE BROKEN INTO TWO PARTS AS FOLLOWS--
00037  M01S00036.comsjro +++|*                THE FIRST PART IS THE FIELD LENGTH FROM RA THROUGH
00038  M01S00037.comsjro +++|*                RA+(MCMX/2)-1.
00039  M01S00038.comsjro +++|*                THE SECOND PART, WHICH WILL FOLLOW THE ECS SECTION,
00040  M01S00039.comsjro +++|*                IS THE FIELD LENGTH FROM RA+MCMX/2 THROUGH RA+FL-1.
00041  M01S00040.comsjro +++|*         THE VALUE *MCMX* DEFINES THE MINIMUM CM FL WHEN ECS IS
00042  M01S00041.comsjro +++|*         ASSIGNED TO A CONTROL POINT (THIS IS REQUIRED TO
00043  M01S00042.comsjro +++|*         INSURE BUFFER SPACE THROUGH WHICH TO ROLL THE ECS FL).
00044  M01S00043.comsjro +++|*         THE FIELD LENGTH SECTION IS AN EXACT IMAGE OF THE JOB
00045  M01S00044.comsjro +++|*         FIELD LENGTH IN CENTRAL MEMORY.
00046  M01S00045.comsjro +++|
00047  M01S00046.comsjro +++|
00048  M01S00047.comsjro +++| JFLI     EQU    3           JOB FIELD LENGTH
00049  M01S00048.comsjro +++| JECI     SPACE  4,10
00050  M01S00049.comsjro +++|***       JOB ECS FIELD LENGTH.
00051  M01S00050.comsjro +++|*         THE ECS FIELD LENGTH SECTION IS N SECTORS IN LENGTH AND
00052  M01S00051.comsjro +++|*         IS AN EXACT IMAGE OF THE JOB ECS FL.  THE ECS SECTION IS
00053  M01S00052.comsjro +++|*         PRESENT IN THE ROLLOUT FILE FOR--
00054  M01S00053.comsjro +++|*                ALL NON-DMP= ROLLOUTS.
00055  M01S00054.comsjro +++|*                FOR DMP= ROLLOUTS WITH FL=0, I.E. ROLL ALL CM FL.
00056  M01S00055.comsjro +++|
00057  M01S00056.comsjro +++|
00058  M01S00057.comsjro +++| JECI     EQU    4           JOB ECS FIELD LENGTH
00059  M01S00058.comsjro +++|          SPACE  4
00060  M01S00059.comsjro +++| MXFI     EQU    5           LAST ROLL SEQUENCE +1
00061  M01S00060.comsjro +++| IROB     SPACE  4,10
00062  M01S00061.comsjro +++|***       TERMINAL OUTPUT BUFFER ADDRESS.
00063  M01S00062.comsjro +++|*         BUFFER ADDRESS OF THE FIRST SECTOR OF OUTPUT DATA PASSED
00064  M01S00063.comsjro +++|*         FROM *1RO* TO *1TO*.
00065  M01S00064.comsjro +++|
00066  M01S00065.comsjro +++|
00067  M01S00066.comsjro +++| IROB     EQU    BFMS-502
00068  M01S00067.comsjro +++| SEQUENCE SPACE  4
00069  M01S00068.comsjro +++|***       SEQUENCE - GENERATE ROLLIN SEQUENCE.
00070  M01S00069.comsjro +++|*
00071  M01S00070.comsjro +++|*
00072  M01S00071.comsjro +++|*         SEQUENCE N,ADDRESS
00073  M01S00072.comsjro +++|*         ENTRY  *N* = SEQUENCE NUMBER OF ROLLOUT/ROLLIN FILE
00074  M01S00073.comsjro +++|*                *ADDRESS* = RJM ADDRESS OF PROCESSOR.
00075  M01S00074.comsjro +++|
00076  M01S00075.comsjro +++|
00077  M01S00076.comsjro +++|          NOREF  .SEQ
00078  M01S00077.comsjro +++| SEQUENCE MACRO  N,A
00079  M01S00078.comsjro +++|          IF     -DEF,.SEQ,1
00080  M01S00079.comsjro +++| .SEQ     EQU    *
00081  M01S00080.comsjro +++|          ORG    .SEQ+2*N-2
00082  M01S00081.comsjro +++|          LOC    N
00083  M01S00082.comsjro +++|          IFC    NE,$A$$,1
00084  M01S00083.comsjro +++|          RJM    A
00085  M01S00084.comsjro +++|          LOC    *O
00086  M01S00085.comsjro +++|          ENDM
00087  M01S00086.comsjro +++|          SPACE  4
00088  M01S00087.comsjro +++|          ENDX