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

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

**Used in:** 

<code - LASS.mac.txt>
 *Q6D ...[   
 *Q94 ...[??? LASS SECT FILE FGN 24 DOC  
 *QDW    #MAC            LASS               [F,A,INVERT  
 *QYG    #DEF            20?=%A@L-19+1      [20? = NO OF BRTS
 *RD6    #SKI           20?-1<1$1
 *RXQ    (   
 *SCB    [              ONE BIT CASE 
 *SX2          LA       %A   ,%B,%C  
 *TBL    #EXI
 *TW=    )   
 *W*W          MASK      %A                 [21? = FIELD 
 *WTG    #STR           %C   
 *X*6    #SKI
 *XSQ    (   
 *Y#B    [ MASK  
 *YS2    #SKI           20?<13-13
 *^?L    (   
 *^R=    [              < 12 BIT CASE
 B3PQ    #SKI           21?&#7777$21?
 B49B ...(   
 B4P2    [              NOT COMPLETELY IN LS 12 BITS 
 B58L    #SKI           21?&#77700000$21?
 B5N=    (   
 B67W    [              NOT COMLETELY IN MS 9 BITS   
 B6MG    [              STRADDLING AT LEAST 2 FIELDS OR TOTALY IN 9,10,11
 B776          LDN   %B #7777@L(20?-12)  
 B7LQ          SLL   %B 23-(%A&#37)  
 B86B    #EXI
 B8L2    )   
 B95L    [              IN TOP 9 BITS ONLY   
 B9K=          LDCT  %B #777@L(20?-9)@L(8-(%A&#37))  
 B=4W    #EXI
 B=JG    )   
 B?46    [              IN LS 12 BITS ONLY   
 B?HQ          LDN   %B #7777@L(20?-12)@L(23-(%A&#37))   
 B#3B    #EXI
 B#H2    )   
 B*2L    [              13 BITS OR MORE  
 B*G=          NGN   %B 1@L(24-20?)  
 B*^W    #SKI           20?-24   
 BBFG    (   
 BB^6    [              NOT 24 BITS  
 BCDQ    #SKI           %A&#37-20?+1 
 BCYB          SRL   %B %A&#37-20?+1 
 BDD2    #EXI
 BDXL    )   
 BFC=    )   
 BFWW    [ INVERT
 BGBG    #SKI           20?<12-12
 BGW6    (   
 BH*Q    [              <12 BIT CASE 
 BHTB          NGN   %B 1@L20?   
 BJ*2    #SKI           %A&#37-23
 BJSL          SLC   %B 23-(%A&#37)  
 BK#=    #EXI
 BKRW    )   
 BL?G    [              > 12 BIT CASE
 BLR6    [              IF RH BIT = 23 & MORE THAN 14 BITS   
 BM=Q    #SKI            %A&#37-23<1$1   
 BMQB    (   
 BN=2    [BIT 23 
 BNPL    #SKI            20?<15-15<1$1   
 BP9=    (   
 BPNW    [15 BITS OR MORE
 BQ8G          LDCT  %B #777@L(20?-15)   
 BQN6    #EXI
 BR7Q    )   
 BRMB    )   
 BS72          LDN   %B #7777@L(12-20?)  
 BSLL    #SKI           %A&#37-20?+1 
 BT6=          SRC   %B (%A&#37)-20?+1   
 BTKW    #NOR
</code>