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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** [[george:source:BCAST867|BCAST867]], [[george:source:CHARGESC867|CHARGESC867]], [[george:source:CORESHED861|CORESHED861]], [[george:source:MESSBE|MESSBE]], [[george:source:SCHEDOUT865|SCHEDOUT865]], [[george:source:UNPLUG867|UNPLUG867]]

<code - LA.mac.txt>
 4J5K ...[   
 4J88 ...[   
 4J=S ...[??? LA SECT FILE FGN 24 DOC
 4JGL    #MAC  LA
 4K2=    #DEF  20?=#40000000@L-(%A&#37)  
 4KFW    #STR %B 
 4K^G    #SKI
 4LF6    ([%B NULL   
 4LYQ          LA    %A,0,%C 
 4MDB    #EXI
 4MY2    )   
 4NCL    #STR %C 
 4NX=    ([INVERT CASE   
 4PBW    #SKI 20?&#7777  
 4PWG    ([B12-23
 4QB6          NGN   %B 20?+1
 4QTQ    #EXI
 4R*B    )   
 4RT2    #SKI 20?&#40000000  
 4S#L    ([B0 SPECIAL CASE   
 4SS=          NGNC  %B 1                   [SETS C  
 4T?W    #EXI
 4TRG    )   
 4W?6          LA    %A,%B   
 4WQQ          ERX   %B GMINUS1  
 4X=B    #EXI
 4XQ2    )   
 4Y9L    #SKI  20?&#77700000 
 4YP=    (   
 4^8W          LDCT  %B  20?@L-15
 4^NG    #EXI
 5286    )   
 52MQ    #SKI  20?&#7777 
 537B    (   
 53M2          LDN   %B  20? 
 546L    #EXI
 54L=    )   
 555W    #SKI  20?&#40000
 55KG    (   
 5656          LDX   %B  BIT9
 56JQ    #EXI
 574B    )   
 57J2    #SKI  20?&#20000
 583L    (   
 58H=          LDX   %B  BIT10   
 592W    #EXI
 59GG    )   
 5=26          LDX   %B  BIT11   
 5=FQ    #NOR
</code>