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

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

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

<code - LOSBSBIT.mac.txt>
 D?QD ...[??? LOSBSBIT SECT FILE FGN 9 DOC   
 D#2=    #   
 DP=D ...#   
 DP?K ...#   
 DP#Q ...#   
 DP*X ...#MAC  LOSBSBIT  
 DPC4 ...      FINDFAIL 2,%A,%B,PFL,MLOSBS3 [GET POINTER TO ENTRY IN BFAIL BLOCK 
 DPD9 ...      SBN   2  A1   
 DPFB ...      NGN   0  1                   [ -1 TERMINATES ENTRIES  
 DPGH ...MLOSBS1 
 DPHN ...      LDX   1  A1+1(2)             [NEXT ENTRY  
 DPJT ...      TXU   1  0                   [TEST FOR LAST ENTRY 
 DPL2 ...      BCC      MLOSBS2  
 DPM7 ...      STO   1  A1(2)               [MOVE ....   
 DPN# ...      LDX   1  A1+3(2)             [.. ENTRY UP ... 
 DPPF ...      STO 1  A1+1(2)               [.. ONE PLACE
 DPQL ...      ADN   2  2                   [MOVE PIONTER DOWN   
 DPRR ...      BRN    MLOSBS1
 DPSY ...MLOSBS3 
 DPW5 ...      GEOERR   1,NO REC            [NO PFL ENTRY
 DPX= ...MLOSBS2 
 DPYC ...      STO   0  A1(2)               [PUT IN TERMINATOR   
 DP^J ...      LDX   1  FX1  
 DQ2P ...      LDX   2  FX2  
 DQ3W ...#NOR
</code>