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

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

**Used in:** 

<code - PMSHRINK.mac.txt>
 YGT#    [??? PMSHRINK SECT DIAG FGN 104 DOC 
 YH=W    #MAC  PMSHRINK                     [M.C.D. MANN 
 YHND    [   
 YJ62    [   
 YJHJ    [     **************
 YJ^6    [     *  PMSHRINK  *
 YKBN    [     **************
 YKS=    [   
 YL9S    [   
 YLMB    [  RESTORE TIME MACRO TO REDUCE PM TIME 
 YM4Y    [   
 YMGG    [    %A=ON FOR SHRINKING
 YMY4    [    %A=OFF FOR REVERSION TO NORMAL PM  
 YN*L    [   
 YNR8    #STR  ON,%A 
 YP8Q    (   
 YPL#    #STR  OFF,%A
 YQ3W    (   
 YQFD    !INCORRECT PARAMETER TO PMSHRINK MACRO! 
 YQX2    #EXI
 YR*=    )   
 YRSW    )   
 YS#G    #OPT  AKKPM=1   
 YSS6    #STR  %A,ON 
 YT?Q    #ALT  AKKPM=1   
 YTRB    #STR  %A,OFF
 YW?2    #ALT  AKKPM=0   
 YWQL    #MEN  MOPPM 
 YX==    #TRA K51MOPPM   
 YXPW         +AKKPM*119000+1000/K9  
 YY9G    #END
 YYP6    #MEN  PMDR  
 Y^8Q    #TRA  JPMIPL
 Y^NB        +AKKPM  
 ^282    #TRA JPMIPB 
 ^2ML        +AKKPM  
 ^37=    #TRA  JPMWIND   
 ^3LW        +AKKPM  
 ^46G    #END
 ^4L6    #NOR
</code>