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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

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

<code - PARAMSUB.mac.txt>
 GMD# ...[??? PARAMSUB SECT CENT FGN 21 DOC  
 GMN6    #MAC           PARAMSUB 
 GN7Q          LDX   2  FX2  
 GNMB          LDN   0  %B+%A
 GP72          SLL   0  12   
 GPLL          ADN   0  %E+%D
 GQ6=          STO   0  ACOMMUNE1(2) 
 GQKW    #STR %C 
 GR5G    #STR
 GRK6    (   
 GS4Q          LDN   0  CPDATA   
 GSJB    )   
 GT42    #STR  %C
 GTHL    (   
 GW3=          LDN   0  %C   
 GWGW    )   
 GX2G          STO   0  ACOMMUNE2(2) 
 GXG6    #STR %F 
 GX^Q    (   
 GYFB          LDN   0  %F   
 GY^2    )   
 G^DL          STO   0  ACOMMUNE3(2) 
 G^Y=    #STR %G 
 H2CW    #STR
 H2XG    (   
 H3C6          LDX   0  GSIGN
 H3WQ    )   
 H4BB    #STR %G 
 H4W2    (   
 H5*L          LDX   0  %G   
 H5T=    )   
 H6#W          STO   0  ACOMMUNE4(2) 
 H6SG    #STR %H 
 H7#6    #STR
 H7RQ    (   
 H8?B          LDX   0  GSIGN
 H8R2    )   
 H9=L    #STR %H 
 H9Q=    (   
 H=9W          LDN   0  0
 H=PG    )   
 H?96          STO   0  ACOMMUNE5(2) 
 H?NQ ...      DOWN     ALAS,2   
 H#8B    #NOR
</code>