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

**Defined in:** [[george:source:MACROS_SFC|MACROS SFC]]

**Used in:** 

<code - CASRDSPLIT.mac.txt>
 3P7L    #MAC  CASRDSPLIT
 3PM=    #STR  %A
 3Q6W    (   
 3QLG    #DEF  20?=IROUND
 3R66    #ALT  IROUND=%A 
 3RKQ    #ALT  INROUND=-%A   
 3S5B    )   
 3SK2    #ALT  21?=CSPLITLN  
 3T4L    #STR  %B
 3TJ=    #ALT  CSPLITLN=%B   
 3W3W    #SKI  IROUND&7  
 3WHG    (   
 3X36    #ALT  IROUND=20?
 3XGQ    #ALT  INROUND=-IROUND   
 3Y2B    !I NOT AMULTIPLE OF 8   
 3YG2    #EXI
 3Y^L    )   
 3^F=    #ALT  23?=CSPLITLN/IROUND   
 3^YW    #SKI  23?*IROUND-CSPLITLN   
 42DG    (   
 42Y6    #ALT  CSPLITLN=21?  
 43CQ    !S NOT A MULTIPLE OF I  
 43XB    #EXI
 44C2    )   
 44WL    #MEN  CONSTANT  
 45B=    #TRA  IROUNDNG  
 45TW          -IROUND   
 46*G    #TRA  CSPLIT
 46T6          +CSPLITLN 
 47#Q    #ALT  A1D=JOBNOWAS+IROUND&INROUND   
 47SB    #END
 48#2    #MEN  CONSTANT  
 48RL    #TRA  CIROUND   
 49?=           +IROUND  
 49QW    #TRA  CA1D  
 4==G          +A1D  
 4=Q6    #TRA  CIRNDA
 4?9Q          +IROUND-1 
 4?PB    #TRA  CIRNDB
 4#92          +A1+IROUND-1  
 4#NL    #END
 4*8=    #MEN  PMTABLEE  
 4*MW    #TRA  16-A1*2+JE12  
 4B7G    #SKI  A1D-16
 4BM6          +0,+0 
 4C6Q    #SKI  A1D-16<1$1
 4CLB    (   
 4D62          4HA1D 
 4DKL          #20202000 
 4F5=    )   
 4FJW    #END
 4FLS ...#UNS  ISFCON
 4FNQ ...(   
 4FQN ...#MEN  CASCODE   
 4FSL ...#TRA  CASQUICK  
 4FWJ ...      2*IROUND  
 4FYG ...#END
 4G2D ...)   
 4G4G    #SKI  A1D-16<1$1
 4GJ6          PMMEND  FPBC,16   
 4H3Q    #SKI  A1D-32<1$1
 4HHB          PMMEND  FPBC,32   
 4J32    #SKI  A1D-48<1$1
 4JGL          PMMEND  FPBC,48   
 4K2=    #SKI  A1D<64-64<1$1 
 4KFW          PMMEND  FPBC,64   
 4K^G    #NOR
</code>