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

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

**Used in:** [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:BMAPTWO860|BMAPTWO860]], [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BMOUTPUT867|BMOUTPUT867]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:BSPRUNE867|BSPRUNE867]], [[george:source:CLOSEAB863|CLOSEAB863]], [[george:source:COPYFILA867|COPYFILA867]], [[george:source:FHOBJDIR860|FHOBJDIR860]]

<code - FULLBPAS.mac.txt>
 CM^L ...[??? FULLBPAS SECT FILE FGN 11 DOC  
 CPY6    #MAC           FULLBPAS 
 CQ3= ...[     MOVE A FULLB INTO THE CORRECT PLACE IN THE DIRECTORIES'   
 CQ6B ...[     FILE CHAIN. USED WHEN BLOCKS RECORDS ARE DELETED FROM THE 
 CQ9G ...[     DIRECTORY ENTRY   
 CQ#L ...[     %A -> FULLB %B - WORK MODIFIER
 CQCQ          TOPFCA   %B   
 CQXB          PSTAC    %B,%B               [POINTER TO FSTACK OF DIR.   
 CRC2          LDX   0  FFSFCB   
 CRWL    M1FULLBPAS  
 CSB=          LDX   %B FPTR(%B) 
 CSTW          BXE   %B CXFI,M2FULLBPAS  
 CT*G          BXU   0  ATYPE(%B),M1FULLBPAS 
 CTT6    M2FULLBPAS  
 CW#Q          CHAIN    %A,BPTR(%B)  
 CWSB    #NOR
</code>