{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: GSPERI)}}
====== GSPERI ======
(GIN Macro)

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

**Used in:** [[george:source:IPBERROR867|IPBERROR867]], [[george:source:IPBIN867|IPBIN867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]]

<code - GSPERI.mac.txt>
 84#Q    #MAC  GSPERI
 84SB          LDCT  0  #400 
 85#2    #STR  NC,%C 
 85RL          STO   0  CHAINADD(%B) 
 86?=          ADN   0  CHAINADD(%B) 
 86QW     MODD STO   0  JSCA5,%A,CPPTR(%B)   
 87=G          LDN   0  CPRW1(%B)
 87Q6     MODD STO   0  JSCA1,%A,CPPTR(%B)   
 889Q    #STR  %A
 88PB          PERI  0  %A   
 8992    #STR  %A
 89NL    #SKI
 8=8=          PERI  0  CPPTR(%B)
 8=MW    #NOR
</code>