INMOP [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: INMOP)}}
====== INMOP ======
(GIN Macro)

**Defined in:** [[george:source:OLPMACROS|OLPMACROS]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:COMPS_ACTBLK|COMPS ACTBLK]], [[george:source:CROBJ6|CROBJ6]], [[george:source:FHOBJ860|FHOBJ860]], [[george:source:INKS|INKS]], [[george:source:TROBJ867|TROBJ867]]

<code - INMOP.mac.txt>
 97FQ ...#MAC  INMOP 
 97^B ...      SMO      FX2  
 98F2 ...      LDX   0  IDENTINFO
 98YL ...      BZE   0  MNOTMOP             [J. NOT MOP OR JDF   
 99D= ...      LDX   2  FX2  
 99XW ...      LDN   0  3
 9=CG ...      LDN   1  ACC3(2)  
 9=X6 ...      MOVE  0  5
 9?BQ ...      LDX   1  FX1                 [RESET X1.   
 9?WB ...      LDX   0  APETADDR(2)  
 9#B2 ...      SBS   0  EVENT1(2)
 9#TL ...      LDX   5  IDENTINFO(2)        [LD. PERI TYPE & UNIT NO.
 9**= ...      LDX   7  ACNUM(2)            [LD. ACT.NO. OF AOLPT.   
 9*SW ...      LDCT  6  #100 
 9B#G ...      ANDX  6  ALTMARK(2)          [LD. NEWLINE SUPPRESSION INDICATOR.  
 9BS6 ...      ERS   6  ALTMARK(2)   
 9C?Q ...      ORX   6  IDENTIND(2)         [ORX IN IDENT.OR NOT INDICATOR.  
 9CRB ...      TOPCA    MPAIR(1)            [CHANGE ACT AND GO AWAY  
 9D?2 ...      COOR1Y                       [PUT THIS TO SLEEP   
 9DQL ...      BRN      %A                  [
 9F== ...      LDX   0  APETADDR(2)  
 9FPW ...      ADS   0  EVENT1(2)
 9G9G ...      BRN      %B   
 9GP6 ...MPAIR PAIR     INMOP,1  
 9H8Q ...MNOTMOP                            [CONTINUE
 9HNB ...      LDX   1  FX1                 [LD. VALUES OF FX1 & FX2 
 9J82 ...      LDX   2  FX2  
 9JML ...#NOR
</code>