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

**Defined in:** [[george:source:MACROSBRBS|MACROSBRBS]]

**Used in:** [[george:source:BSALFAIL|BSALFAIL]], [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]]

<code - GETBSLIS.mac.txt>
 53WS ...[??? GETBSLIS SECT FILE FGN 14 DOC  
 546L    #   
 54L=    #   
 555W    #MAC  GETBSLIS  
 55KG    #STR  %A,7  
 5656          LDX   7  %A   
 56JQ          CALL  0  MP2  
 574B    #OPT  MGET1=0   
 57J2    #SKI  MGET1-1   
 583L    (   
 58H=          BRN      MGET2               [
 592W    M2    BXGE  7  BLMP,MT1            [J IF LFN TOO BIG
 59GG          BPZ   7  MT2                 [J IF LFN OKAY   
 5=26    MT1   GEOERR   1,HARDLUMP   
 5=FQ    MT2   LDX   1  BSAB                [BLOCK TYPE  BSTB BSLIST 
 5=^B          LDN   2  BMISC               [BASE OF MISC CHAIN  
 5?F2    MT3   LDX   2  FPTR(2)             [NEXT BLOCK IN CHAIN 
 5?YL          TXU   1  ATYPE(2) 
 5#D=          BCC      MT4                 [J IF BSLIST 
 5#XW    MT5   TXU   2  BMISC+1  
 5*CG          BCS      MT3                 [J IF NOT END OF CHAIN   
 5*X6          GEOERR   1,LOSTLIST   
 5BBQ    MT4   TXU   7  BACK1(2) 
 5BWB          BCS      MT5                 [J IF NO T CORRECT LIST  
 5CB2          EXIT  0  0
 5CTL    MGET2   
 5D*=    #FRE  MGET1 
 5DSW    #OPT  MGET1=1   
 5F#G    #DEF  MP2=M2
 5FS6    )   
 5G?Q    #NOR
</code>