Common COMPIFR

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compifr +++|          CTEXT  COMPIFR - SET/CLEAR FLAG REGISTER INTERLOCK.
00002  M00S00002.compifr +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compifr +++|          QUAL   COMPIFR

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compifr +++| IFR      SPACE  4
00006  M00S00005.compifr +++|***       IFR - SET/CLEAR FLAG REGISTER INTERLOCK.
00007  M00S00006.compifr +++|*         P. D. HAAS.        75/01/20.
00008  M00S00007.compifr +++| IFR      SPACE  4
00009  M00S00008.compifr +++|***              IFR SETS UP A MONITOR REQUEST TO SET OR CLEAR
00010  M00S00009.compifr +++|*         THE ECS FLAG REGISTER.
00011  M00S00010.compifr +++|*
00012  M00S00011.compifr +++|*         ENTRY  (A) = INTERLOCK TO BE SET.
00013  M00S00012.compifr +++|*                    = COMPLEMENT OF INTERLOCK TO BE CLEARED.
00014  M00S00013.compifr +++|*
00015  M00S00014.compifr +++|*         EXIT   (A) = MONITOR STATUS.
00016  M00S00015.compifr +++|*
00017  M00S00016.compifr +++|*         USES   CM+1, CM+3.
00018  M00S00017.compifr +++|
00019  M00S00018.compifr +++|
00020  M00S00019.compifr +++| IFR      SUBR               ENTRY/EXIT
00021  M00S00020.compifr +++|          SHN    6           POSITION INTERLOCK
00022  M00S00021.compifr +++|          PJN    IFR1        IF SETTING FLAG REGISTER
00023  M00S00022.compifr +++|          LMC    677777
00024  M00S00023.compifr +++| IFR1     STD    CM+1        SET INTERLOCK IN REQUEST
00025  M00S00024.compifr +++|          SHN    -6
00026  M00S00025.compifr +++|          ADC    SFRS*1000   SET SUBFUNCTION
00027  M00S00026.compifr +++|          STD    CM+3
00028  M00S00027.compifr +++|          MONITOR ECSM       ISSUE REQUEST
00029  M00S00028.compifr +++|          LDD    CM+1
00030  M00S00029.compifr +++|          UJN    IFRX        RETURN
00031  M00S00030.compifr +++| IFR      SPACE  4
00032  M00S00031.compifr +++| QUAL$    IF     -DEF,QUAL$
00033  M00S00032.compifr +++|          QUAL   *
00034  M00S00033.compifr +++| IFR      EQU    /COMPIFR/IFR
00035  M00S00034.compifr +++| QUAL$    ENDIF
00036  M00S00035.compifr +++|          ENDX