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

**Defined in:** [[george:source:PMACS|PMACS]]

**Used in:** 

<code - REPETE.mac.txt>
 NPDG    [??? REPETE SECT DIAG FGN 104 DOC   
 NPXD    #MAC  REPETE                       [M.C.D. MANN 
 NQBB    [   
 NQT#    [   
 NR#=    [     ************  
 NRR8    [     *  REPETE  *  
 NS=6    [     ************  
 NSP4    [   
 NT82    [   
 NTLY    #STRING     %A                     [SKIP IF NO MORE IDENTIFIERS 
 NW5W    (   
 NWJS    #STRING     %B  
 NX3Q    #SKI        %B<JCONO$JCONO         [SKIP IF PRINT STYLE INDICATOR   
 NXGN    (                                  [ILLEGAL 
 NX^L    #STRING     %A,+
 NYDJ    (   
 NYXG    #SKI  %A<1$1
 N^BD    #DEF  NUM=0 
 N^TB    )   
 P2##    #OPT  NUM=1 
 P2R=    #SKI  NUM                          [SKIP IF %A=ZERO OR UNSET
 P3=8    (   
 P3P6    #STRING     %A,+                   [SKIP IF NOT INSERTING IDENTIFIER
 P484    (                                  [MNEMONICS   
 P4M2 ...#DEF        0?=XXX+%A+%A-A1-A1           [SET TRANSFER ADDRESS TO REQUIR
 P55Y                                       [POSITION IN TABLE   
 P5JW    #SKI        0?-XXX<JREP2$JREP2     [SKIP IF IDENTIFIER VALUE>JREP   
 P63S                   5H%A                [INSERT IDENTIFIER MNEMONICS 
 P6GQ    #SKI        0?-XXX>JREP2$JREP2  
 P6^N    ?%A IDENTIFIER VALUE TOO LARGE  
 P7DL    )   
 P7XJ    #SKI        0?-XXX<JREP2$JREP2  
 P8BG    (   
 P8TD    #STRING     %A,+
 P9#B    #SKI                               [IF NO MNEMONICS FOR CURRENT 
 P9R#                   5H00000             [IDENTIFIER INSERT ZEROS 
 P===    #FIDDLE 18 23 -16+0%B              [SET 3RD CHAR. OF LAST WORD=PRINT
 P=P8                                       [STYLE INDICATOR 
 P?86 ...#DEF  XA=0?>Y   
 P?M4    #FREE Y                            [RESET Y TO BIGGEST ADDRESS REACHED  
 P#62    #DEF  Y=XA  
 P#JY    #FREE XA
 P*3W    )   
 P*HW    )   
 PB3G    #FREE NUM   
 PBH6     REPETE %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P   
 PC2Q    )   
 PCGB    #SKI  %B>JCONO$JCONO               [IF PRINT STYLE INDICATOR ILLEGAL
 PD22    (                                  [SET INDICATOR AND CONTINUE FROM 
 PDFL                                       [NEXT PARAMETER  
 PD^=    ?%A PRINT STYLE ILLEGAL 
 PFDW     REPETE %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P   
 PFYG    )   
 PGD6    )   
 PGXQ    #SKI  18?+1]+65]>1?>K0LOCAL        [SKIP IF LISTING LEVEL=0 
 PHCB    (   
 PHX2    #DEF  23?=1?
 PJBL    #LIS  4 
 PJW=    #DEF  20?=69?-70?                  [LOCAL WORKING SPACE LEFT
 PK*W    #LIS  23?   
 PKTG    )   
 PL*6    #NOR
</code>