Common COMPRJC

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comprjc +++|          CTEXT  COMPRJC - CALCULATE JCB ADDRESS.
00002  M00S00002.comprjc +++| RJC      SPACE  4,10
00003  M00S00003.comprjc +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comprjc +++|          QUAL   COMPRJC

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.comprjc +++| RJC      SPACE  4
00008  M00S00007.comprjc +++|***       RJC - READ JOB CONTROL WORD.
00009  M00S00008.comprjc +++|*         G. R. MANSFIELD.  70/07/20.
00010  M00S00009.comprjc +++| RJC      SPACE  4
00011  M00S00010.comprjc +++|***              *RJC* CALCULATES THE FIRST WORD ADDRESS OF THE
00012  M00S00011.comprjc +++|*         JOB CONTROL BLOCK FOR A GIVEN SERVICE CLASS.
00013  M00S00012.comprjc +++|*
00014  M00S00013.comprjc +++|*         ENTRY  (A) = SERVICE CLASS.
00015  M00S00014.comprjc +++|*
00016  M00S00015.comprjc +++|*         EXIT   (A) = ADDRESS OF FIRST WORD OF JOB CONTROL BLOCK.
00017  M00S00016.comprjc +++|*                    = 0 IF NO *JCB* EXISTS FOR THE SERVICE CLASS.

Line S00001 Modification History
`M01` (Added by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00018  M01S00001.271l750 +++|*                (T0) = *JCB* OFFSET.
00019  M00S00017.comprjc +++|*
00020  M00S00018.comprjc +++|*         USES   T0, CM - CM+4.

Line S00002 Modification History
`M01` (Added by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00002.271l750 +++|*
00022  M01S00003.271l750 +++|*         MACROS CFI.
00023  M00S00019.comprjc +++|
00024  M00S00020.comprjc +++|
00025  M00S00021.comprjc +++| RJC1     LDN    0           INDICATE NO *JCB*
00026  M00S00022.comprjc +++|
00027  M00S00023.comprjc +++| RJC      SUBR               ENTRY/EXIT

Line S00024 Modification History
`M01` (Removed by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00028  M01S00024.271l750 ---|          ERRNZ  JCBE-10     CODE DEPENDS ON *JCB* LENGTH
00029  M01S00025.271l750 ---|          SHN    3

Line S00004 Modification History
`M01` (Added by)	`271l750`

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00004.271l750 +++|          CFI    JCB         CONVERT ORDINAL TO OFFSET
00031  M00S00026.comprjc +++|          STD    T0          SAVE OFFSET OF *JCB*
00032  M00S00027.comprjc +++|          ADC    -MXJC*JCBE
00033  M00S00028.comprjc +++|          PJN    RJC1        IF NO *JCB* EXISTS FOR THIS SERVICE CLASS

Line S00029 Modification History
`M01` (Removed by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00029.273l780 ---|          LDN    JBCP        READ JOB CONTROL AREA POINTER

Line S00001 Modification History
`M01` (Added by)	`273l780`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.273l780 +++|          LDK    JBCP        READ JOB CONTROL AREA POINTER
00036  M00S00030.comprjc +++|          CRD    CM
00037  M00S00031.comprjc +++|          LDD    CM          ASSEMBLE *JCB* ADDRESS
00038  M00S00032.comprjc +++|          SHN    14
00039  M00S00033.comprjc +++|          LMD    CM+1
00040  M00S00034.comprjc +++|          ADD    T0
00041  M00S00035.comprjc +++|          UJN    RJCX        RETURN
00042  M00S00036.comprjc +++|          SPACE  4
00043  M00S00037.comprjc +++| QUAL$    IF     -DEF,QUAL$
00044  M00S00038.comprjc +++|          QUAL   *
00045  M00S00039.comprjc +++| RJC      EQU    /COMPRJC/RJC
00046  M00S00040.comprjc +++| QUAL$    ENDIF
00047  M00S00041.comprjc +++|          ENDX