GPERIIPC

(GIN Macro)

Used in: IPCON864, IPCONA864, IPCONB8, IPCONC8, IPCONE865, IPCONG8, IPCSTART864

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