Common COMPIFR

1 Modification
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compifr +++|          CTEXT  COMPIFR - SET/CLEAR FLAG REGISTER INTERLOCK.
00002  M01S00002.compifr +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compifr +++|          QUAL   COMPIFR
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compifr +++| IFR      SPACE  4
00006  M01S00005.compifr +++|***       IFR - SET/CLEAR FLAG REGISTER INTERLOCK.
00007  M01S00006.compifr +++|*         P. D. HAAS.        75/01/20.
00008  M01S00007.compifr +++| IFR      SPACE  4
00009  M01S00008.compifr +++|***              IFR SETS UP A MONITOR REQUEST TO SET OR CLEAR
00010  M01S00009.compifr +++|*         THE ECS FLAG REGISTER.
00011  M01S00010.compifr +++|*
00012  M01S00011.compifr +++|*         ENTRY  (A) = INTERLOCK TO BE SET.
00013  M01S00012.compifr +++|*                    = COMPLEMENT OF INTERLOCK TO BE CLEARED.
00014  M01S00013.compifr +++|*
00015  M01S00014.compifr +++|*         EXIT   (A) = MONITOR STATUS.
00016  M01S00015.compifr +++|*
00017  M01S00016.compifr +++|*         USES   CM+1, CM+3.
00018  M01S00017.compifr +++|
00019  M01S00018.compifr +++|
00020  M01S00019.compifr +++| IFR      SUBR               ENTRY/EXIT
00021  M01S00020.compifr +++|          SHN    6           POSITION INTERLOCK
00022  M01S00021.compifr +++|          PJN    IFR1        IF SETTING FLAG REGISTER
00023  M01S00022.compifr +++|          LMC    677777
00024  M01S00023.compifr +++| IFR1     STD    CM+1        SET INTERLOCK IN REQUEST
00025  M01S00024.compifr +++|          SHN    -6
00026  M01S00025.compifr +++|          ADC    SFRS*1000   SET SUBFUNCTION
00027  M01S00026.compifr +++|          STD    CM+3
00028  M01S00027.compifr +++|          MONITOR ECSM       ISSUE REQUEST
00029  M01S00028.compifr +++|          LDD    CM+1
00030  M01S00029.compifr +++|          UJN    IFRX        RETURN
00031  M01S00030.compifr +++| IFR      SPACE  4
00032  M01S00031.compifr +++| QUAL$    IF     -DEF,QUAL$
00033  M01S00032.compifr +++|          QUAL   *
00034  M01S00033.compifr +++| IFR      EQU    /COMPIFR/IFR
00035  M01S00034.compifr +++| QUAL$    ENDIF
00036  M01S00035.compifr +++|          ENDX