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

**Defined in:** [[george:source:MACROS_PERI|MACROS PERI]]

**Used in:** [[george:source:IPCON864|IPCON864]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCONB8|IPCONB8]], [[george:source:IPCONC8|IPCONC8]], [[george:source:IPCONE865|IPCONE865]], [[george:source:IPCONG8|IPCONG8]], [[george:source:IPCSTART864|IPCSTART864]]

<code - GPERIIPC.mac.txt>
 6#7W    #MAC  GPERIIPC  
 6#MG          LDCT  0  #400 
 6*76          ADN   0  1
 6*LQ          STO   0  CHAINADD(%B) 
 6B6B          ADN   0  CHAINADD-1(%B)   
 6BL2    #STR  SP,%C 
 6C5L     MODD STO   0  JCCA5,%A,CPPTR(%B)   
 6CK=    #STR  CT,%C 
 6D4W     MODD STO   0  JSCA5,%A,CPPTR(%B)   
 6DJG    #STR  SP,%C 
 6F46    (   
 6FHQ          LDN   0  CPRW1(%B)
 6G3B     MODD STO   0  JCCA1,%A,CPPTR(%B)   
 6GH2    )   
 6H2L    #STR  CT,%C 
 6HG=    (   
 6H^W          LDN   0  CPRW2(%B)
 6JFG     MODD STO   0  JSCA1,%A,CPPTR(%B)   
 6J^6    )   
 6KDQ    #STR  %A
 6KYB          PERI  0  %A   
 6LD2    #STR  %A
 6LXL    #SKI
 6MC=          PERI  0  CPPTR(%B)
 6MWW    #NOR
</code>