CONMOPOFF

(GIN Macro)
Defined in: MACS JIB
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