Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comsjro +++| CTEXT COMSJRO - JOB ROLLOUT EQUIVALENCES.
00002 M01S00002.comsjro +++| COMSJRO SPACE 4
| Line S00003 Modification History |
M01 (Added by) | comsjro |
M02 (Updated by) | 281l803 |
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