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

**Defined in:** [[george:source:MACROS_RME10|MACROS RME10]]

**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:DEAD867|DEAD867]], [[george:source:DEADA867|DEADA867]], [[george:source:DTSUBS867|DTSUBS867]], [[george:source:DTSUBSA867|DTSUBSA867]], [[george:source:DTSUBSS867|DTSUBSS867]], [[george:source:FSERR867|FSERR867]], [[george:source:GET6|GET6]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:INKS|INKS]], [[george:source:LIBLOADB867|LIBLOADB867]], [[george:source:LIBQUERY|LIBQUERY]], [[george:source:LIBREQ866|LIBREQ866]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:LISTDIR867|LISTDIR867]], [[george:source:RETURNIT867|RETURNIT867]], [[george:source:SETPF867|SETPF867]], [[george:source:UNLOAD7|UNLOAD7]], [[george:source:WHATPERA867|WHATPERA867]], [[george:source:WHATPERB867|WHATPERB867]], [[george:source:WHATRVSA867|WHATRVSA867]], [[george:source:XENON|XENON]]

<code - CONSERNO.mac.txt>
 26BL ...[??? CONSERNO SECT FILE FGN 4 DOC   
 26W= ...#MAC  CONSERNO  
 27*W ...#STR  %A,0  
 27TG ...      LDX   0  %A   
 28*6 ...      LDX   2  FX2  
 28SQ ...      STO   0  ACOMMUNE1(2) 
 29#B ...#STR  %B
 29S2 ...#SKI
 2=?L ...      LDN   0  0
 2=R= ...#STR  %B
 2?=W ...(   
 2?QG ...#STR  %C
 2#=6 ...(   
 2#PQ ...      LDN   0  %C+%D
 2*9B ...      STO   0  ACOMMUNE3(2) 
 2*P2 ...)   
 2B8L ...#STR  %C
 2BN= ...#SKI
 2C7W ...      STOZ     ACOMMUNE3(2) 
 2CMG ...      LDN   0  %B   
 2D76 ...)   
 2DLQ ...      STO   0  ACOMMUNE2(2) 
 2F6B ...      DOWN     CONSERNO,1   
 2FL2 ...#NOR
</code>