SUBCUBS

(GIN Macro)

Defined in: LOBS-MACROS

Used in: CLOSEDIR867, CLOSEND867, CLOSTIDY860, COMMFILE82, COPYA867, DELETE864, EDSTART860, MTCODE864, MTSTART864, OPENWORK866, WORKFILE860

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