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

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

**Used in:** [[george:source:LOADPROG865|LOADPROG865]], [[george:source:TPINS861|TPINS861]]

<code - BOOKSS.mac.txt>
 K6?Q    #MAC  BOOKSS   [JSRAYNER           G4 ONLY  
 K6RB    MBOOKSS1
 K7?2          LDX   0  %A   
 K7QL          ADX   0  EBSWAPSP 
 K8==          TXL   0  EFSWAPSP 
 K8PW          BCS      MBOOKSS2 
 K99G          BSON     G4SUDBIT,%B           [EXIT IF NO SUD TO DELETE  
 K9P6          DOWN     PROGDEL,5       [OTHERWISE FREE SUD & TRY AGAIN  
 K=8Q          BRN      MBOOKSS1 
 K=NB    MBOOKSS2
 K?82          STO   0  EBSWAPSP 
 K?ML    #NOR
</code>