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

**Defined in:** [[george:source:MACROS_WELL|MACROS WELL]]

**Used in:** [[george:source:BMJLCONV860|BMJLCONV860]], [[george:source:BMSAVJOB864|BMSAVJOB864]]

<code - JWCONVAD.mac.txt>
 L546 ...[   
 L5HQ ...#MAC  JWCONVAD  
 L63B ...      LDX   0  %B   
 L68J ...#STR  %C
 L6*Q ...(   
 L6H2 ...      BPZ   0  MJW1 
 L72L ...#SKI  JWPHASE4  
 L73X ...(   
 L758 ...#UNS  FPARTRES  
 L76F ...(   
 L77Q ...      LDCT  0  #010 
 L793 ...      ANDX  0  %B   
 L7=# ...      SBN   %A 1
 L7?K ...      BNZ   0  MJW1 
 L7#W ...      ADN   %A 2
 L7B7 ...)   
 L7CD ...#UNS  FPARTRES  
 L7DP ...#SKI
 L7G= ...      SBN   %A 1
 L7Q4 ...)   
 L7^W ...#SKI  JWPHASE4<1$1  
 L8FG ...      ADN   %A 1
 L8^6 ...MJW1
 L96# ...#UNS  FPARTRES  
 L9?G ...      LDX   0  %B   
 L9DQ ...)   
 L=D2 ...      SLL   0  1
 L=XL ...      BPZ   0  MJW2 
 L?C= ...      ADN   %A 16   
 L?WW ...MJW2
 L#BG ...      SLL   0  1
 L#W6 ...      BPZ   0  MJW3 
 L**Q ...      SBN   %A 16   
 L*TB ...MJW3
 LBSL ...      LDCT  0  #040 
 LC#= ...      ANDX  0  %B   
 LCRW ...      BNZ   0  MJW4 
 LD?G ...      LDEX  0  %B   
 LDR6 ...      BRN      MJW5 
 LF=Q ...MJW4  LDEX  0  %B   
 LFQB ...      NGX   0  0
 LG=2 ...MJW5  SBX  %A  0
 LGPL ...#NOR
</code>