INCRECUBS
(GIN Macro)
Defined in: LOBS-MACROS
Used in: CREATE867, INSERTBL6, USEROPEN867
- INCRECUBS.mac.txt
229S ...[??? INCRECUB SECT FILE FGN 5 DOC 22FL [ 29S2 #MAC INCRECUBS 2=3S ...# START OF CODE FOR %D NULL 2=?L #STR %D 2=R= #SKI 2?=W ( 2?QG #STR %C 2#=6 #SKI 2#PQ ( 2*9B #STR NOTOPEN,%B 2*P2 #SKI 2B8L ( 2BN= ! ILLEGAL COMBINATION OF PARAMETERS ! 2C7W #EXIT 2CMG ) 2D76 ) 2DLQ #STR FORCED,%A 2F6B #SKI 2FL2 #DEF M6INCRECUBS=1 2G5L #STR ANSWER,%A 2GK= #SKI 2H4W #DEF M6INCRECUBS=1 2HJG #OPT M6INCRECUBS=0 2HS# ...# START OF CODE FOR %A FORCED OR ANSWER & %D NULL 2J46 #SKI M6INCRECUBS 2JHQ ( 2JRJ ...# START OF CODE FOR %B NOT NOTOPEN, %A FORCED OR ANSWER & %D NULL 2K3B #STR NOTOPEN,%B 2KH2 ( 2L2L #STR %C 2LG= ( 2L^W #STR 0,%C 2MFG LDX 0 %C 2M^6 #STR %B 2NDQ ( 2NYB #STR 1,%B 2PD2 LDX 1 %B 2PXL ) 2QC= #STR %B 2QWW #SKI 2RBG LDN 1 0 2RW6 LDX 2 FX2 2S*Q STO 0 ACOMMUNE1(2) 2STB STO 1 ACOMMUNE2(2) 2T*2 ) 2TSL #STR %C 2W#= #SKI 2WRW LDX 2 FX2 2X?G SFSTACK %B,1 2XR6 SETREP2 OK 2YQB #STR %C 2^=2 ... JMBS M4INCRECUBS,1,BACOMM,BACLEAN [J IF FILE OPEN COMMUNALLY 2^PL ... JBC M1INCRECUBS,1,BACUBS [J IF PUBLIC 329= ...#STR %C 32NW ... LDX 1 ACOMMUNE1(2) [X1=INCREASE 34MB LDX 0 JOBNO(2) 3572 LDN 2 BJOBQ 35LL M2INCRECUBS 366= LDX 2 FPTR(2) 36KW ... BXE 2 CXJO,(GEOERR) 375G BXU 0 JOBNUM(2),M2INCRECUBS 37K6 #STR %C 384Q #SKI 38JB ...( 3942 PSTAC 1,1 39HL BFCBX 1,1 3=3= LDX 1 FBLMOD(1) 3=GW SBN 1 FBLKS-A1 3?2G ) 3?G6 ADS 1 CUBS(2) 3?^Q #STR FORCED,%A 3#FB ( 3#^2 LDX 0 AMBS(2) 3*DL SBX 0 CUBS(2) 3*Y= BPZ 0 M3INCRECUBS 3BCW SETREP GLUTTON 3BXG SBS 1 CUBS(2) 3CC6 BRN M1INCRECUBS 3CWQ M3INCRECUBS 3DBB ) 3DW2 LDX 0 CUBS(2) 3F*L BXL 0 GUBS(2),M1INCRECUBS 3FT= STO 0 GUBS(2) 3G#W #STR %C 3GSG ( 3H#6 BRN M1INCRECUBS 3HRQ M4INCRECUBS 3J?B #STR FORCED,%A 3JR2 DOWN INCRCUBS,33 3K=L #STR ANSWER,%A 3KQ= DOWN INCRCUBS,32 3L9W ) 3LPG M1INCRECUBS 3M96 LDX 1 FX1 [NEEDS MODIFYING 3MNQ LDX 2 FX2 3N8B #FRE M6INCRECUBS 3NN2 #EXIT 3P7L ) 3PCD ...# END OF CODE FOR %B NOT NOTOPEN, %A FORCED OR ANSWER & %D NULL 3PM= #STR 1,%C 3Q6W LDX 1 %C 3QLG LDX 2 FX2 3R66 SETREP2 OK 3RKQ LDX 0 JOBNO(2) 3S5B LDN 2 BJOBQ 3SK2 M2INCRECUBS 3T4L LDX 2 FPTR(2) 3TJ= ... BXE 2 CXJO,(GEOERR) 3W3W BXU 0 JOBNUM(2),M2INCRECUBS 3WHG ADS 1 CUBS(2) 3X36 #STR FORCED,%A 3XGQ ( 3Y2B LDX 0 AMBS(2) 3YG2 SBX 0 CUBS(2) 3Y^L BPZ 0 M3INCRECUBS 3^F= SETREP GLUTTON 3^YW SBS 1 CUBS(2) 42DG BRN M1INCRECUBS 42Y6 M3INCRECUBS 43CQ ) 43XB LDX 0 CUBS(2) 44C2 BXL 0 GUBS(2),M1INCRECUBS 44WL STO 0 GUBS(2) 45B= M1INCRECUBS 45TW LDX 1 FX1 46*G LDX 2 FX2 [NEEDS MODIFYING 46T6 #FRE M6INCRECUBS 47#Q #EXIT 47SB ) 4848 ...# END OF CODE FOR %A FORCED OR ANSWER & %D NULL 48#2 #STR %C 48RL ( 49?= #STR 0,%C 49QW LDX 0 %C 4==G ) 4=Q6 #STR %C 4?9Q #SKI 4?PB LDCT 0 #400 4#92 #STR %B 4#NL #SKI 4*8= LDN 1 0 4*MW #STR %B 4B7G ( 4BM6 #STR NOTOPEN,%B 4C6Q ( 4CLB #STR 1,%B 4D62 LDX 1 %B 4DKL ) 4F5= #STR NOTOPEN,%B 4FJW #SKI 4G4G #DEF M5INCRECUBS=1 4GJ6 ) 4H3Q #OPT M5INCRECUBS=0 4HHB LDX 2 FX2 4J32 STO 0 ACOMMUNE1(2) 4JGL #SKI M5INCRECUBS 4K2= DOWN INCRCUBS,31 4KFW #SKI M5INCRECUBS<1$1 4K^G ( 4LF6 STO 1 ACOMMUNE2(2) 4LYQ DOWN INCRCUBS,3 4MDB ) 4MY2 BRN %A 4NCL #FRE M5INCRECUBS 4NX= #FRE M6INCRECUBS 4PBW #EXIT 4PWG ) 4Q6# ...# END OF CODE FOR %D NULL 4QB6 #STR FORCED,%A 4QTQ #SKI 4R*B ( 4RT2 #STR NOTOPEN,%B 4S#L #SKI 4SS= ( 4T?W #STR 1,%C 4TRG LDX 1 %C 4W?6 MOD LDX 0 JOBNO,%D 4WQQ LDX 2 FX2 4X=B SETREP2 OK 4XQ2 LDN 2 BJOBQ 4Y9L M2INCRECUBS 4YP= LDX 2 FPTR(2) 4^8W ... BXE 2 CXJO,(GEOERR) 4^NG BXU 0 JOBNUM(2),M2INCRECUBS 5286 ADS 1 CUBS(2) 52MQ LDX 0 CUBS(2) 537B BXL 0 GUBS(2),M1INCRECUBS 53M2 STO 0 GUBS(2) 546L M1INCRECUBS 54L= LDX 1 FX1 555W LDX 2 FX2 55KG #EXIT 5656 ) 56JQ ) 574B ! UNEXPECTED COMBINATION OF PARAMETERS ! 57J2 #NOR