COMSJRO 
COMMON
          CTEXT  COMSJRO - JOB ROLLOUT EQUIVALENCES.
 COMSJRO  SPACE  4
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMSJRO  SPACE  4
***       COMSJRO - JOB ROLLOUT EQUIVALENCES. 
*         G. R. MANSFIELD.  70/09/03. 
 COMSJRO  SPACE  4
***              COMSJRO DEFINES PARAMETERS ASSOCIATED WITH JOB 
*         ROLLOUT AND ROLLIN. 
          SPACE  4
***       SEQUENCE OF ROLLOUT FILE. 
 CPAI     SPACE  4
***       CONTROL POINT AREA. 
*         THE CONTROL POINT AREA SECTION IS 2 SECTORS IN LENGTH,
*         AND IS AN EXACT IMAGE OF THE CONTROL POINT AREA IN CENTRAL
*         MEMORY. 
  
  
 CPAI     EQU    1           CONTROL POINT AREA 
 TOPI     SPACE  4
***       TERMINAL OUTPUT.
*         THE OUTPUT FOR A TERMINAL IS N SECTORS LONG, TERMINATED 
*         BY A SHORT SECTOR (LOGICAL RECORD).  THIS IS ONLY PART
*         OF THE ROLLOUT FILE FOR *TXOT* ORGIN JOBS.
  
  
 TOPI     EQU    2           TERMINAL OUTPUT
 JFLI     SPACE  4
***       JOB FIELD LENGTH. 
*         THE FIELD LENGTH SECTION IS *N* SECTORS LONG, TERMINATED
*         BY AN *EOI* SECTOR.  THE FIRST *M* SECTORS ARE THE JOBS 
*         NEGATIVE FIELD LENGTH (NFL), THE REMAINING *N*-*M* SECTORS
*         CONTAIN THE USERS FIELD LENGTH.  IF USER ECS IS 
*         PRESENT, THE USER FIELD LENGTH
*         SECTION WILL BE BROKEN INTO TWO PARTS AS FOLLOWS--
*                THE FIRST PART IS THE FIELD LENGTH FROM RA THROUGH 
*                RA+(MCMX/2)-1. 
*                THE SECOND PART, WHICH WILL FOLLOW THE ECS SECTION,
*                IS THE FIELD LENGTH FROM RA+MCMX/2 THROUGH RA+FL-1.
*         THE VALUE *MCMX* DEFINES THE MINIMUM CM FL WHEN ECS IS
*         ASSIGNED TO A CONTROL POINT (THIS IS REQUIRED TO
*         INSURE BUFFER SPACE THROUGH WHICH TO ROLL THE ECS FL).
*         THE FIELD LENGTH SECTION IS AN EXACT IMAGE OF THE JOB 
*         FIELD LENGTH IN CENTRAL MEMORY. 
  
  
 JFLI     EQU    3           JOB FIELD LENGTH 
 JECI     SPACE  4,10 
***       JOB ECS FIELD LENGTH. 
*         THE ECS FIELD LENGTH SECTION IS N SECTORS IN LENGTH AND 
*         IS AN EXACT IMAGE OF THE JOB ECS FL.  THE ECS SECTION IS
*         PRESENT IN THE ROLLOUT FILE FOR-- 
*                ALL NON-DMP= ROLLOUTS. 
*                FOR DMP= ROLLOUTS WITH FL=0, I.E. ROLL ALL CM FL.
  
  
 JECI     EQU    4           JOB ECS FIELD LENGTH 
          SPACE  4
 MXFI     EQU    5           LAST ROLL SEQUENCE +1
 IROB     SPACE  4,10 
***       TERMINAL OUTPUT BUFFER ADDRESS. 
*         BUFFER ADDRESS OF THE FIRST SECTOR OF OUTPUT DATA PASSED
*         FROM *1RO* TO *1TO*.
  
  
 IROB     EQU    BFMS-502 
 SEQUENCE SPACE  4
***       SEQUENCE - GENERATE ROLLIN SEQUENCE.
* 
* 
*         SEQUENCE N,ADDRESS
*         ENTRY  *N* = SEQUENCE NUMBER OF ROLLOUT/ROLLIN FILE 
*                *ADDRESS* = RJM ADDRESS OF PROCESSOR.
  
  
          NOREF  .SEQ 
 SEQUENCE MACRO  N,A
          IF     -DEF,.SEQ,1
 .SEQ     EQU    *
          ORG    .SEQ+2*N-2 
          LOC    N
          IFC    NE,$A$$,1
          RJM    A
          LOC    *O 
          ENDM
          SPACE  4
          ENDX
