PMP

(GIN Macro)

Defined in: PMACS

Used in:

PMP.mac.txt

 J654    [??? PMP SECT DIAG FGN 104 DOC  
 J6J6    #MAC  PMP                          [M.C.D. MANN 
 J73Q    [   
 J7HB    [   
 J832    [     ********* 
 J8GL    [     *  PMP  * 
 J92=    [     ********* 
 J9FW    [   
 J9^G    [   
 J=F6    [     THIS MACRO SETS UP 'REPEAT' TABLES CALLED BY MACROS PMREP 
 J=YQ    [     AND PMREPCON  
 J?DB    #STR  %A
 J?Y2    (   
 J#CL    #STR  %A,+  
 J#X=    (   
 J*BW    #SKI  %A<0$0                       [FALL THROUGH IF %A UNSET
 J*WG    (   
 JBB6    #FREE Z 
 JBTQ    #DEF  Z=1                          [SET ERROR INDICATOR 
 JC*B    )   
 JCT2    )   
 JD#L    #SKI  Z<1$1                        [SKIP IF ERROR IN TABLE  
 JDS=    (   
 JF?W    #FREE Z 
 JFRG    #STR  %A,+  
 JG?6    (   
 JGQQ    #SKI  %A<A1$A1  
 JH=B    (   
 JHQ2    ?%A LESS THAN A1
 JJ9L    #DEF  Z=1   
 JJP=    )   
 JK8W    #SKI  %A>JREP$JREP  
 JKNG    (   
 JL86    ?%A VALUE TOO LARGE 
 JLMQ    #OPT  Z=1   
 JM7B    )   
 JMM2    )   
 JN6L    #SKI  %B+1>JCONO$JCONO             [JCONO = MAXIMUM VALUE OF PRINT STYLE
 JNL=    (   
 JP5W    ?%B NO SUCH CONVERSION ROUTINE  
 JPKG    #OPT  Z=1   
 JQ56    )   
 JQJQ    #OPT  Z=0   
 JR4B    #SKI  Z<1$1 
 JRJ2    (   
 JS3L    #STR  %A,+  
 JSH=                   5H%A                [INSERT IDENTIFIER MNEMONICS 
 JT2W    #STR  %A,+  
 JTGG    #SKI
 JW26                   5H00000             [IF NO IDENTIFIER MNEMONICS  
 JWFQ    #FIDDLE 18 23 -16+0%B              [INSERT PRINT STYLE INDICATOR
 JW^B     PMP %C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P  
 JXF2    )   
 JXYL    )   
 JYD=    )   
 JYXW    #SKI  18?+1]+65]>1?>K0LOCAL        [SKIP IF LISTING LEVEL=0 
 J^CG    (   
 J^X6    #DEF  23?=1?
 K2BQ    #LIS  4 
 K2WB    #DEF  20?=69?-70?                  [LOCAL WORKING SPACE LEFT
 K3B2    #LIS  23?   
 K3TL    )   
 K4*=    #NOR