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

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

**Used in:** [[george:source:BSQ867|BSQ867]], [[george:source:BSTS867|BSTS867]], [[george:source:CAFSINFO866|CAFSINFO866]], [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CONSET864|CONSET864]], [[george:source:CONSOLE867|CONSOLE867]], [[george:source:DRUM852|DRUM852]], [[george:source:EMSENG864|EMSENG864]], [[george:source:INLOOP84|INLOOP84]], [[george:source:INRESTAR84|INRESTAR84]], [[george:source:IPBERROR867|IPBERROR867]], [[george:source:IPBOUT867|IPBOUT867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:LABEL866|LABEL866]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LIBLOADB867|LIBLOADB867]], [[george:source:LISTDEV866|LISTDEV866]], [[george:source:LISTINIT867|LISTINIT867]], [[george:source:LISTINTC865|LISTINTC865]], [[george:source:LISTLOOP867|LISTLOOP867]], [[george:source:LISTNEXT867|LISTNEXT867]], [[george:source:LISTTPCP867|LISTTPCP867]], [[george:source:LOAD60|LOAD60]], [[george:source:LOADERDA867|LOADERDA867]], [[george:source:LOADERDR867|LOADERDR867]], [[george:source:LOADERFS867|LOADERFS867]], [[george:source:LOADERGO867|LOADERGO867]], [[george:source:LOADERI867|LOADERI867]], [[george:source:LOADERMT867|LOADERMT867]], [[george:source:LOADERPM867|LOADERPM867]], [[george:source:MODE866|MODE866]], [[george:source:MOVCART867|MOVCART867]], [[george:source:MTDUMP860|MTDUMP860]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:OLMTB867|OLMTB867]], [[george:source:OLMTD65|OLMTD65]], [[george:source:OLMTE85|OLMTE85]], [[george:source:OPER864|OPER864]], [[george:source:OPERA864|OPERA864]], [[george:source:OPERIN867|OPERIN867]], [[george:source:PATCH|PATCH]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PM|PM]], [[george:source:PMDR864|PMDR864]], [[george:source:PMDUMP85|PMDUMP85]], [[george:source:PMDUMPDA85|PMDUMPDA85]], [[george:source:PMDUMPMT85|PMDUMPMT85]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:READLINE8|READLINE8]], [[george:source:REDONMT867|REDONMT867]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:RESTMERG864|RESTMERG864]], [[george:source:RESTOREA866|RESTOREA866]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:SETUP867|SETUP867]], [[george:source:SETUPA867|SETUPA867]], [[george:source:TAPEWAIT65|TAPEWAIT65]], [[george:source:UNLOADMT867|UNLOADMT867]]

<code - GPERI.mac.txt>
 5^XQ    #MAC  GPERI 
 62CB          LDCT  0  #400 
 62X2    #STR  NC,%C 
 63BL          STO   0  CHAINADD(%B) 
 63W=          ADN   0  CHAINADD(%B) 
 64*W     MODD STO   0  JCCA5,%A,CPPTR(%B)   
 64TG          LDN   0  CPRW1(%B)
 65*6     MODD STO   0  JCCA1,%A,CPPTR(%B)   
 65SQ    #STR  %A
 66#B          PERI  0  %A   
 66S2    #STR  %A
 67?L    #SKI
 67R=          PERI  0  CPPTR(%B)
 68=W    #NOR
</code>