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

**Defined in:** [[george:source:MACROS_JSR|MACROS JSR]]

**Used in:** [[george:source:CONMXA85|CONMXA85]], [[george:source:CONMXB8|CONMXB8]], [[george:source:CONMXC8|CONMXC8]], [[george:source:EVENTFN|EVENTFN]], [[george:source:GIVE867|GIVE867]], [[george:source:GIVEA867|GIVEA867]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:OPCA867|OPCA867]], [[george:source:OPCAXCOD5|OPCAXCOD5]], [[george:source:OPILLS70|OPILLS70]], [[george:source:PLUGIN867|PLUGIN867]], [[george:source:PNTLAST860|PNTLAST860]], [[george:source:TPINS861|TPINS861]]

<code - MACCS.mac.txt>
 4#YD ...[??? MACCS SECT CENT FGN 9 DOC  
 4*8=    # THIS MACRO LEAVES THE ADDRESS OF X0 OF THE MEMBER (IN %A) IN X0   
 4*MW    # & %C (IF SPECIFIED).%B PTR       TO PROG  
 4B7G    #MAC  MACCS    [JSRAYNER.FIND ADDRESS OF MEMBERS X0 
 4BM6          MOD LDX 0 ADATUM,%B   
 4C6Q    #STR  %C
 4CLB          STO   0  %C   
 4D62    #NOR
</code>