{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: LAS)}}
====== LAS ======
(GIN Macro)

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

**Used in:** 

<code - LAS.mac.txt>
 6N44 ...[   
 6N9= ...[   
 6NBG ...[??? LAS SECT FILE FGN 24 DOC   
 6^MB    #MAC  LAS   
 6^NF ...[ THE BASIC PRIMITIVES OF THE MULTI BIT OPERATIONS ARE  
 6^PJ ...[ LAS-LOADS THE BIT PATTERN IN 19?+9 INTO X%A   
 6^QM ...[ OPS-TAKES AS %E ETC A STRING OF BIT OR FIELD IDS. FOR EACH WORD   
 6^RQ ...[     INVOLVED IT COMPILES:-
 6^ST ...[          %A,%B,%C,%D  
 6^TY ...[     WITH 19?+9=BIT PATTERN FOR THAT WORD  
 6^X3 ...[     19?+8=DISPLACEMENT FOR THAT WORD  
 6^Y6 ...[     19?+7=VALUE OF LAST ID  FOR USE IN SINGLE ID SPECIAL CASES
 6^^9 ...[     19?+6=NO OF IDS MAKING UP PATTERN 
 722# ...[     19?+5=0=>LAST WORD TO BE GENERATED
 723C ...[     THE CODE COMPILED MUST NOT ALTER 19?+0-5  
 724G ...[ EACH MULTIBIT OPERATION CALLS OPS WITH %A,%B,%C,%D A MACRO CALL   
 725K ...[ TO DEAL WITH THE OPERATION AT A WORD BY WORD LEVEL
 7272    #STR  %A
 72LL    #SKI
 736=    (   
 73KW         LAS   0
 745G    #EXI
 74K6    )   
 754Q    #SKI  19?+6]-1<1-1  
 75JB    (                                  [SINGLE ID. CASE 
 7642         LASS     19?+7],%A 
 76HL    #EXI
 773=    )   
 77GW    #SKI  19?+9]&#77707777$(19?+9]) 
 782G    (                                  [NOT ALL IN MS9 AND/OR LS12  
 78G6         LDN   %A 19?+9]@L-12   
 78^Q         SLL   %A 12
 79FB    #EXI  19?+9]&#7777  
 79^2         ORN   %A 19?+9]&#7777  
 7=DL    #EXI
 7=Y=    )   
 7?CW    #SKI  19?+9]&#77700000  
 7?XG    (                                  [SOME BITS IN COUNT FIELD
 7#C6         LDCT  %A 19?+9]@L-15   
 7#WQ    #EXI  19?+9]&#7777  
 7*BB         ORN   %A 19?+9]&#7777  
 7*W2    #EXI
 7B*L    )   
 7BT=         LDN   %A 19?+9]
 7C#W    #NOR
</code>