CONMOPOFF [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: CONMOPOFF)}}
====== CONMOPOFF ======
(GIN Macro)

**Defined in:** [[george:source:MACS_JIB|MACS JIB]]

**Used in:** [[george:source:MOPCOM867|MOPCOM867]]

<code - CONMOPOFF.mac.txt>
 3XHR ...[     MOP OFF PROCEDURE FOR IDENT CONTROLLED BY IPBCCA ACT  
 3XJ6 ...#MAC  CONMOPOFF 
 3XJF ...      LDX   1  %A   
 3XJS ...      ADX   1  BSTART(1)           [TOP OF CONDCB   
 3XK7 ...      LDX   2  1
 3XKG ...      HUNTACT  AMOP,1              [IPBCCA  
 3XKT ...      LDX   0  CONREL(1)
 3XL8 ...      ERX   0  CACT 
 3XLH ...      ANDX  0  CACT 
 3XLW ...      BZE   0  MCONMREL            [J IF CONCEP BEING RELEASED  
 3XM9 ...      SUBRELT  %A   
 3XMJ ...      BRN      MCONNU              [J TO NULL RING  
 3XMX ...MCONMREL
 3XN= ...      LDN   0  1
 3XNK ...      SBS   0  A1+IDSTATUS(2)      [UPDATE CLOSEDOWN CT 
 3XNY ...      MOD      STOZ BPTR,%A        [NULL CONDCBS RING   
 3XP? ...MCONNU  
 3XPL ...      MOD      STOZ BPTR,%B 
 3XP^ ...#NOR
</code>