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

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** 

<code - RETAINRV.mac.txt>
 229S ...[??? RETAINRV SECT FILE FGN 65 DOC  
 22FL    #                                  BELONGS TO BRIAN MATTHEWS & GRAHAM HA
 2KH2    #MAC  RETAINRV  
 2L2L    #STR  %A                [SKIP FOR DEFAULT   
 2LG=    (   
 2L^W ...#SKI  %A<4096$4096                 [SKIP IF OUTSIDE RANGE 0-4095
 2MFG    (   
 2M^6    #MEND CLOSEFUL  
 2NDQ    #TRA  K99CLOSEFUL   
 2NYB          SBN   0  %A   
 2PD2    #END
 2PXL    #MEND BSPRUNE   
 2QC=    #TRA  K100BSPRUNE   
 2QWW          +%A   
 2RBG    #END
 2RDD ...#UNS K90BSUJSTAT
 2RGB ...(   
 2RJ# ...#MEND BSUJSTAT  
 2RL= ...#TRA  K90BSUJSTAT   
 2RN8 ...      +%A   
 2RQ6 ...#END
 2RS4 ...)   
 2RW6    )   
 2S*Q ...#SKI  %A>4095$4095  
 2STB    !  RETAINRV OUT OF RANGE
 2T*2    )   
 2TSL    #STR  %A
 2W#=    #SKI
 2WRW     RETAINRV 150   
 2X?G    #NOR
</code>