Common COMPCRS

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compcrs +++|          CTEXT  COMPCRS - CHECK RECALL STATUS.
00002  M01S00002.compcrs +++|          SPACE  4
00003  M01S00003.compcrs +++|          IF     -DEF,QUAL$,1
00004  M01S00004.compcrs +++|          QUAL   COMPCRS

Line S00005 Modification History
`M01` (Added by)	`compcrs`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP.1972.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.compcrs +++| CRS      SPACE  4
00008  M01S00007.compcrs +++|***       CRS - CHECK RECALL STATUS.
00009  M01S00008.compcrs +++|*         G. R. MANSFIELD.  70/03/14.
00010  M01S00009.compcrs +++|*         R. E. TATE.       73/05/04.
00011  M01S00010.compcrs +++| CRS      SPACE  4
00012  M01S00011.compcrs +++|***              CRS DETERMINES WHETHER THE PP HAS BEEN ASSIGNED
00013  M01S00012.compcrs +++|*         WITH AUTO RECALL SET.
00014  M01S00013.compcrs +++|*
00015  M01S00014.compcrs +++|*         ENTRY  NONE.
00016  M01S00015.compcrs +++|*
00017  M01S00016.compcrs +++|*         EXIT   (A) = 0 IF NO AUTO RECALL.
00018  M01S00017.compcrs +++|*                (A) " 0 IF AUTO RECALL WITH REQUEST.
00019  M01S00018.compcrs +++|*
00020  M01S00019.compcrs +++|*         USES   (CM - CM+4).
00021  M01S00020.compcrs +++|*
00022  M01S00021.compcrs +++|*         CALLS  NONE.
00023  M01S00022.compcrs +++|
00024  M01S00023.compcrs +++|
00025  M01S00024.compcrs +++| CRS      SUBR               ENTRY/EXIT
00026  M01S00025.compcrs +++|          LDD    IA          READ INPUT REGISTER
00027  M01S00026.compcrs +++|          CRD    CM
00028  M01S00027.compcrs +++|          LDD    CM+1
00029  M01S00028.compcrs +++|          LPN    40
00030  M01S00029.compcrs +++|          UJN    CRSX
00031  M01S00030.compcrs +++|          SPACE  4
00032  M01S00031.compcrs +++| QUAL$    IF     -DEF,QUAL$
00033  M01S00032.compcrs +++|          QUAL   *
00034  M01S00033.compcrs +++| CRS      EQU    /COMPCRS/CRS
00035  M01S00034.compcrs +++| QUAL$    ENDIF
00036  M01S00035.compcrs +++|          ENDX