{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: YMOPON)}}
====== YMOPON ======
(GIN Macro)

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

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

<code - YMOPON.mac.txt>
 B*24 ...[??? YMOPON SECT COMM FGN 25 DOC
 BKRW    #MAC  YMOPON
 BL?G    #STR  %C
 BLR6    #SKI
 BM=Q          LDX   0  CPPTR(2) 
 BMQB    #STR  %C
 BN=2          LDX   0  %C   
 BNPL          LDX   2  FX2  
 BP9=          STO   0  ACOMMUNE2(2) 
 BP?T ...#STR IPBSW,%D   
 BPBD ...      STO   2  ACOMMUNE3(2) 
 BPF3 ...#STR IPBSW,%D   
 BPHL ...#SKI
 BPL9 ...      STOZ     ACOMMUNE3(2) 
 BPNW          DOWN     IDFSCON,4
 BQ8G          BRN      %A   
 BQN6          BRN      %B   
 BR7Q    #NOR
</code>