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