{{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:**
*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?ṡ$21?
B49B ...(
B4P2 [ NOT COMPLETELY IN LS 12 BITS
B58L #SKI 21?�$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%)
B86B #EXI
B8L2 )
B95L [ IN TOP 9 BITS ONLY
B9K= LDCT %B #777@L(20?-9)@L(8-(%A%))
B=4W #EXI
B=JG )
B?46 [ IN LS 12 BITS ONLY
B?HQ LDN %B #7777@L(20?-12)@L(23-(%A%))
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%-20?+1
BCYB SRL %B %A%-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%-23
BJSL SLC %B 23-(%A%)
BK#= #EXI
BKRW )
BL?G [ > 12 BIT CASE
BLR6 [ IF RH BIT = 23 & MORE THAN 14 BITS
BM=Q #SKI %A%-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%-20?+1
BT6= SRC %B (%A%)-20?+1
BTKW #NOR