Common COMPCRS

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compcrs +++|          CTEXT  COMPCRS - CHECK RECALL STATUS.
00002  M00S00002.compcrs +++|          SPACE  4
00003  M00S00003.compcrs +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compcrs +++|          QUAL   COMPCRS

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compcrs +++| CRS      SPACE  4
00008  M00S00007.compcrs +++|***       CRS - CHECK RECALL STATUS.
00009  M00S00008.compcrs +++|*         G. R. MANSFIELD.  70/03/14.
00010  M00S00009.compcrs +++|*         R. E. TATE.       73/05/04.
00011  M00S00010.compcrs +++| CRS      SPACE  4
00012  M00S00011.compcrs +++|***              CRS DETERMINES WHETHER THE PP HAS BEEN ASSIGNED
00013  M00S00012.compcrs +++|*         WITH AUTO RECALL SET.
00014  M00S00013.compcrs +++|*
00015  M00S00014.compcrs +++|*         ENTRY  NONE.
00016  M00S00015.compcrs +++|*
00017  M00S00016.compcrs +++|*         EXIT   (A) = 0 IF NO AUTO RECALL.
00018  M00S00017.compcrs +++|*                (A) " 0 IF AUTO RECALL WITH REQUEST.
00019  M00S00018.compcrs +++|*
00020  M00S00019.compcrs +++|*         USES   (CM - CM+4).
00021  M00S00020.compcrs +++|*
00022  M00S00021.compcrs +++|*         CALLS  NONE.
00023  M00S00022.compcrs +++|
00024  M00S00023.compcrs +++|
00025  M00S00024.compcrs +++| CRS      SUBR               ENTRY/EXIT
00026  M00S00025.compcrs +++|          LDD    IA          READ INPUT REGISTER
00027  M00S00026.compcrs +++|          CRD    CM
00028  M00S00027.compcrs +++|          LDD    CM+1
00029  M00S00028.compcrs +++|          LPN    40
00030  M00S00029.compcrs +++|          UJN    CRSX
00031  M00S00030.compcrs +++|          SPACE  4
00032  M00S00031.compcrs +++| QUAL$    IF     -DEF,QUAL$
00033  M00S00032.compcrs +++|          QUAL   *
00034  M00S00033.compcrs +++| CRS      EQU    /COMPCRS/CRS
00035  M00S00034.compcrs +++| QUAL$    ENDIF
00036  M00S00035.compcrs +++|          ENDX