PMBLOX

(GIN Macro)
Defined in: PMACS
PMBLOX.mac.txt
 9TF4    [??? PMBLOX SECT DIAG FGN 104 DOC   
 9TXG    #MAC  PMBLOX                       [M.C.D. MANN 
 9W*Y    [   
 9WSB    [   
 9X=S    [     ************  
 9XP=    [     *  PMBLOX  *  
 9Y7N    [     ************  
 9YL6    [   
 9^4J    [   
 9^H2    [ IS A #MEN MACRO TO PMACT OR PMCHAINS IT ALTERS THE LENGTH 
 9^^D    [ OF PARTICULAR TYPES ( OR TYPES AND SUB TYPES ) OF BLOCK   
 =2CW    [ THE MACRO IS RECURSIVE
 =2W#    [ %A ::= < TYPE >   
 =3#Q    [     NO + SIGN, A CHARACTER STRING IS EXPECTED ( VALUE WOULD DO )  
 =3R8    [ %B::=  0 / < SUB TYPE > / < NULL >
 =49L    [     SIMILAR TO %A BUT NULL IS ALLOWED,IMPLYING ALL SUB TYPES  
 =4N4    [ %C ::= A / C  
 =56G    [     NO OTHERS ARE ALLOWED 
 =5JY    [     A FOR BLOX ON ACTIVITY CHAIN C FOR BLOX ESLEWHERE 
 =63B    [ %D ::= < A POSITIVE INTEGER LESS THAN 4096 >  
 =6FS    #STR  %A                           [  FINISH IF NO MORE PARAMETERS  
 =6Y=    (   
 =7BN    #STR  %D                           [ LEST %D IS ABSENT  
 =7T6    (   
 =8?J    #SKI  %D<4096-4096                 [ LEST %D IS EXCESSIVE#  
 =8Q2    (   
 =98D    [ I AM INDEBTED TO J JONES FOR THESE 7 LINES WHICH EFFECT   
 =9LW    [ IF %C STARTSWITH A OR C THEN COMPILE THE0FOLLOWING
 ==5#    #DEF  20?=1 
 ==HQ    #STR  A,%C  
 =?28    #DEF  20?=0 
 =?DL    #STR  C,%C  
 =?X4    #SKI
 =#*G    #DEF  20?=1 
 =#RY    #SKI  20?   
 =*=B    (   
 =*NS    #OPT  JPM%CDENT=0   
 =B7=    #SKI  JPM%CDENT-JPMNOFTYPES 
 =BKN    (   
 =C46    #STR  %C,A  
 =CGJ    #MEN  PMCHAINS  
 =C^2    #STR  %C,C  
 =DCD    #MEN  PMACT 
 =DTW    #TRA  JPM%CBLOX+JPM%CDENT   
 =F##    #STR  %B
 =FQQ    #HAL  +%A+%B,%D 
 =G98    #STR  %B
 =GML    #SKI
 =H64    (   
 =HJG    #HAL  +%A,%D
 =J2Y    #TRA  JPM%CBLOX+2+JPMNOFTYPES   
 =JFB    #FID  JPM%CDENT JPM%CDENT 1 
 =JXS    )   
 =KBG    #END
 =KTC    #ALT  JPM%CDENT=JPM%CDENT+1 
 =L##    )   
 =LR9    )   
 =M=6    )   
 =MP3    )   
 =N7Y    #STR  %E
 =NLT     PMBLOX %E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V,%W,%X 
 =P5Q    )   
 =PJM    #NOR