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

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

**Used in:** [[george:source:CLOSEDIR867|CLOSEDIR867]], [[george:source:CLOSEND867|CLOSEND867]], [[george:source:CLOSTIDY860|CLOSTIDY860]], [[george:source:COMMFILE82|COMMFILE82]], [[george:source:COPYA867|COPYA867]], [[george:source:DELETE864|DELETE864]], [[george:source:EDSTART860|EDSTART860]], [[george:source:MTCODE864|MTCODE864]], [[george:source:MTSTART864|MTSTART864]], [[george:source:OPENWORK866|OPENWORK866]], [[george:source:WORKFILE860|WORKFILE860]]

<code - SUBCUBS.mac.txt>
 5LDJ ...[??? SUBCUBS SECT FILE FGN 5 DOC
 5LNB    [   
 5M82    #MAC SUBCUBS
 5MCS ...# START OF CODE FOR %D NULL 
 5MML    #STR  DEPTH,%D  
 5N7=    (   
 5NLW    #STR  FILE,%B   
 5P6G          LDX   1  %B   
 5PL6    #STR  NOTOPEN,%A
 5Q5Q ...      JBC   M1SUBCUBS,%A,BACUBS   [J IF PUBLIC  
 5QKB    #STR  FILE,%B   
 5R52    #SKI
 5RJL    (   
 5S4=          PSTAC 2,%A
 5SHW          BFCBX 2,2 
 5T3G          LDX   1  FBLMOD(2)
 5TH6          SBN   1  FBLKS-A1 
 5W2Q    )   
 5WGB    #STR  JOB,%C
 5X22          LDX   0  %C   
 5XFL    #STR  JOB,%C
 5X^=    #SKI
 5YDW    (   
 5YYG          SMO      FX2  
 5^D6          LDX   0  JOBNO
 5^XQ    )   
 62CB          LDN   2  BJOBQ
 62X2    M2SUBCUBS   
 63BL          LDX   2  FPTR(2)  
 63W= ...      BXE   2  CXJO,(GEOERR)
 64*W          BXU   0  JOBNUM(2),M2SUBCUBS  
 64TG          SBS   1  CUBS(2)  
 65*6    M1SUBCUBS   
 65SQ          LDX   1  FX1  
 66#B          LDX   2  FX2  
 66S2    #EXIT   
 67?L    )   
 67HD ...# END OF CODE FOR %D NULL   
 67R=    #STR  FILE,%B   
 68=W    (   
 68QG    #STR  JOB,%C
 69=6    #SKI
 69PQ    (   
 6=9B    #STR  0,%B  
 6=P2          LDX   0  %B   
 6?8L    #STR  %A
 6?N=    (   
 6#7W    #STR  1,%A  
 6#MG          LDX   1  %A   
 6*76    )   
 6*LQ          LDX   2  FX2  
 6B6B          STO   0  ACOMMUNE1(2) 
 6BL2    #STR  %A
 6C5L          STO   1  ACOMMUNE2(2) 
 6CK=    #STR  %A
 6D4W    #SKI
 6DJG          STOZ     ACOMMUNE2(2) 
 6F46          DOWN  INCRCUBS,5  
 6FHQ    #EXIT   
 6G3B    )   
 6GH2    )   
 6H2L    ! UNEXPECTED COMBINATION OF PARAMETERS !
 6HG=    #NOR
</code>