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

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

**Used in:** [[george:source:PMTABLEA|PMTABLEA]], [[george:source:PMTABLEB|PMTABLEB]], [[george:source:PMTABLEC|PMTABLEC]], [[george:source:PMTABLED|PMTABLED]], [[george:source:PMTABLEE|PMTABLEE]], [[george:source:PMTABLEF|PMTABLEF]], [[george:source:PMTABLEG|PMTABLEG]], [[george:source:PMTABLEH|PMTABLEH]], [[george:source:PMTABLEJ|PMTABLEJ]]

<code - PMREPCON.mac.txt>
 KMJ=    [??? PMREPCON SECT DIAG FGN 104 DOC 
 KN3=    #MAC  PMREPCON                     [M.C.D. MANN 
 KNG=    [   
 KN^=    [   
 KPD=    [     **************
 KPX=    [     *  PMREPCON  *
 KQB=    [     **************
 KQT=    [   
 KR#=    [   
 KRR=    [     THIS MACRO IS A CONTINUATION MACRO FOR PMREP OR PMLIST OR PMLISTC 
 KS=W    [   
 KSQG    #OPT  Z=0   
 KT=6    #OPT  S=0   
 KTPQ    #DEF  19?+0=Z   
 KW9B    #DEF  19?+1=XXX 
 KWP2    #DEF  19?+2=S   
 KX8L    #FREE XXX,Z,S   
 KXN=    #DEF  Z=19?+0]  
 KY7W    #DEF  XXX=19?+1]
 KYMG    #SKI  19?+2]
 K^76    #DEF  S=19?+2]  
 K^LQ    #SKI  Z<1$1                        [SKIP IF ERROR IN PREVIOUS MACROS
 L26B    (   
 L2L2    #STR  %A
 L35L    (   
 L3K=    #DEF  0?=0?-1                      [SET 0?=LAST WORD OF LAST TABLE  
 L44W    #STR  %A,+  
 L4JG    (   
 L546                   +0                  [ERASE 'TERMINATOR' OF PREVIOUS MACRO
 L5HQ    #FREE Z 
 L63B    #DEF  0?=0?-1   
 L6H2    #SKI  %A<0$0                       [FALL THROUGH IF IDENTIFIER %A UNSET 
 L72L    #SKI
 L7G=    (   
 L7^W ...#DEF  0?=XXX-A1-A1+%A+%A>0? 
 L8FG ...#SKI  XXX-A1-A1+%A+%A-0?                 [SKIP IF %A GREATER THAN LAST P
 L8^6    (                                  [OF PREVIOUS MACRO   
 L9DQ    ?%A   INCORRECTLY SEQUENCED 
 L9YB    #OPT  Z=1                          [SET ERROR INDICATOR 
 L=D2    )   
 L=XL    #OPT  Z=0   
 L?C=    )   
 L?WW    #OPT  Z=1                          [SET ERROR INDICATOR IF %A UNSET 
 L#BG    )   
 L#W6    #OPT  S=0?                         [IF FOLLOWING MACRO PMLIST OR PMLISTC
 L**Q                                       [SET S TO START OF 'REPEAT' SEQUENCE 
 L*TB    #SKI  Z<1$1 
 LB*2     PMP %A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P
 LBSL    #SKI  Z<1$1 
 LC#=                   #72000000+0?-S      [IF NO ERRORS IN TABLE SET END OF
 LCRW                                       ['REPEAT' SEQUENCE TERMINATOR
 LD?G    #SKI  Z 
 LDR6    (   
 LF=Q ...#DEF  0?=XXX
 LFQB                   4H^^^^              [IF ERRORS IN TABLE ERASE TABLE  
 LG=2    )   
 LGNX    )   
 LH7S    )   
 LHLP    #NOR
</code>