13 22FL ... SEG INCRCUBS,860,FILE,FILESTORE 4 22_= # 21 238P ... BITDEFS AWORK4,0,XBCOMM [UPDATE OTHER COMMUNAL USERS OF THIS 21 23D8 ... BITDEFS AWORK4,1,XBWHOLE [^WHOLE FILE^ MAY BE SPECIFIED AS %C 17 23MM ... BITDEFS AWORK4,3,XBFORCED [^FORCED^ SPECIFIED 17 23X6 ... BITDEFS AWORK4,4,XBANSWER [^ANSWER^ SPECIFIED 16 246K ... BITDEFS AWORK4,5,XBSUBCUBS [SUBCUBS MACRO 4 24B4 ...# 4 24KH ...# 21 24T2 ... SEGENTRY K1INCRCUBS,X1INCRCUBS [APPCUBS MACRO (1 BLOCK INCREA 21 254F ... NULL [NEEDED TO MAINTAIN SEGENTRY POSITION 6 25?Y ... NULL 4 25HC ...# 18 25QW ... SEGENTRY K2INCRCUBS,X2INCRCUBS [INCREAMBS MACRO 4 262* ...# 4 269S ...# 21 26F? ... SEGENTRY K3INCRCUBS,X3INCRCUBS [INCRECUBS MACRO (%A BREAK-IN 21 26NQ ... [ACOMMUNE1 INCREASE REQUIRED 21 26Y9 ... SEGENTRY K31INCRCUBS,X31INCRCUBS [INCRECUBS MACRO (%A BREAK-IN 21 277N ... [ACOMMUNE1 CONTAINS INCREASE) 21 27C7 ... SEGENTRY K32INCRCUBS [INCRECUBS MACRO (%A FORCED, % 21 27LL ... [ INCREASE SPECIFIED, FILE OP 21 27W5 ... [ACOMMUNE1 INCREASE REQUIRED, 21 285J ... MBSXD 0,XBCOMM,XBFORCED [SET ^FORCED^ & ^UPDATE COMMUNAL USER 8 28*6 BRN TFCA 21 28PL ... SEGENTRY K33INCRCUBS [INCRECUBS MACRO (%A ANSWER, % 21 2966 ... [ INCREASE SPECIFIED, FILE OP 21 29GL ... [ACOMMUNE1 INCREASE REQUIRED, 21 29X6 ... MBSXD 0,XBCOMM,XBANSWER [^ANSWER^ & ^UPDATE COMMUNAL USERS^ B 8 2=?L BRN TFCA 4 2=R= # 4 2?5M ...# 21 2?D4 ... SEGENTRY K4INCRCUBS [LOBSFILE MACRO (ZERO DEPTH) 14 2?QG LDN 4 0 [DEPTH 0 9 2#=6 BRN MLOBSF 21 2#PQ ... SEGENTRY K41INCRCUBS,X41INCRCUBS [LOBSFILE MACRO (SPECIFIED DEP 4 2*9B ...# 17 2*P2 ... SEGENTRY K5INCRCUBS,X5INCRCUBS [SUBCUBS MACRO 4 2B8L ...# 18 2BN= ... SEGENTRY K7INCRCUBS,X7INCRCUBS [NOLOBSFILE MACRO 4 2DLQ # 4 2F6B ...[ 4 2FL2 ...[ 8 2G5L ...[ SUBROUTINES 8 2GK= ...[ ----------- 4 2H4W ...[ 4 2HJG ...[ 19 2J46 ...[ THIS SUBROUTINE SEARCHES FOR A FILE'S FILE CONTROL AREA (FCA) 18 2JHQ ...[ ON ENTRY, X2=FX2, AWORK3= DEPTH OF FILE. X6 IS S/R LINK 15 2K3B ...[ ON EXIT , X1->FCA, X2=FX2. X0 DESTROYED. 4 2KH2 ...SFCA 14 2L2L ... SFSTACK AWORK3(2),1 [X1-> FCA 7 2LG= ... EXIT 6 0 4 6F46 [ 21 6FHQ [ X2-> ACT. WHOSE JOB BLOCK IS TO BE SOUGHT (USUALLY CURRENT ACT.) 4 6G3B [ 5 6GH2 SJOBLOCK 9 6H2L LDX 0 JOBNO(2) 18 6HG= BZE 0 NOLOBJOB [ERROR IF JOB NO. ZERO 16 6H_W FCJOB 1,2,,CPA,OLPA [X1-> JOB BLOCK 7 6MC= EXIT 6 0 4 6PTB [ 12 6Q*2 [ ON ENTRY, X1-> JOB BLOCK, X2=FX2. 4 6QSL [ 5 6R#= ...REQMORE 8 6RRW SBX 4 FX1 19 6S?G ... DOWN INCRCUBX,1 [ASK OPS FOR MORE ONLINE BS 19 6SR6 ... BRN UP [BREAK-IN -- GO STRAIGHT UP 16 6T=Q ... CALL 6 SJOBLOCK [X1-> JOB BLOCK 8 6TQB ... ADX 4 FX1 7 6W=2 ... EXIT 4 0 4 953L # 4 953R ...[ 4 953Y ...[ 10 9545 ...[ ENTRY FOR APPCUBS MACRO 4 954= ...[ 4 954C ...[ 6 954J ...X1INCRCUBS 17 954P ... LDN 3 1 [INCREASE IS 1 BLOCK 21 954W ... BSXD 0,XBCOMM [SET ^UPDATE OTHER COMMUNAL USERS^ MA 9 9553 ... STO 0 AWORK4(2) 16 9558 ... STO 6 AWORK3(2) [REMEMBER DEPTH 14 955* ... CALL 6 SFCA [X1-> FCA 21 955G ... JBC TESTCOMM,1,BACUBS [J IF PUBLIC (IF SO, MUST ALSO BE COM 10 955M ... LDX 6 ACOMMUNE1(2) 21 955S ... BZE 6 OTHERERR [GEOERR IF NO OPTIONAL PARAMETER GIVE 7 955_ ... SLL 6 1 21 9566 ... BPZ 6 NANS [J IF NO ^ANSWER^ PARAM. TO APPEND ET 17 956? ... BSXD 0,XBANSWER [SET ^ANSWER^ MARKER 4 956D ...NANS 7 956K ... SLL 6 1 19 956Q ... BPZ 6 NFORC [J IF NO ^FORCED^ PARAMETER 17 956X ... BSXD 0,XBFORCED [SET ^FORCED^ MARKER 5 9574 ...NFORC 9 9579 ... ORS 0 AWORK4(2) 21 957B ... JBS TPUB,1,BACOMM [J IF FILE OPEN COMMUNALLY (CUBS NOT 16 957H ... CALL 6 SJOBLOCK [X1-> JOB BLOCK 8 957N ... BRN XCD 4 957T ...[ 17 9582 ...[ ENTRY FOR INCREAMBS MACRO (ANY USE OF THE MACRO) 4 9587 ...[ 4 958# ...[ 4 958F ...[ 4 958L ...[ 6 958R ...X2INCRCUBS 16 958Y ... CALL 6 SJOBLOCK [X1-> JOB BLOCK 17 9595 ... LDX 3 ACOMMUNE1(2) [REQUIRED INCREASE 9 959= ... ADS 3 CUBS(1) 21 959C ... TRACEIF K6INCRCUBS,199,399,JNAME(1),AMBS JBN [INCREAMBS MACRO : 21 959J ... TRACEIF K6INCRCUBS,199,399,CUBS(1),AMBSCUBS [INCREAMBS MACRO : 18 959P ... SETREP2 OK [OPTIONALLY SET OK REPLY 9 959W ... LDX 0 AMBS(1) 9 95=3 ... SBX 0 CUBS(1) 18 95=8 ... BPZ 0 QBIGR2 [J IF AMBS NOT EXCEEDED 21 95=* ... CALL 4 REQMORE [GO AND ASK OPS TO INCREASE JOB'S LIM 18 95=G ... TESTREP2 REFUSED,UP1 [EXIT IF REQUEST REFUSED 5 95=M ...QBIGR2 21 95=S ... SBS 3 CUBS(1) [RESET CUBS - TO USE THE AMOUNT GIVEN 20 95=_ ... [BY OPS THE APPEND (ETC.) MUST 15 95?6 ... [BE REISSUED 8 95?? ... BRN UP1 4 95?D ...[ 11 95?K ...[ ENTRY FOR INCRECUBS MACRO 16 95?Q ...[ ACOMMUNE1 CONTAINS INCREASE IN BLOCKS 13 95?X ...[ ACOMMUNE2 DEPTH OF FILE 4 95#4 ...[ 6 95#9 ...X3INCRCUBS 20 95#B ... MBSXD 0,XBCOMM,XBWHOLE [SET MARKER TO UPDATE CUBS FOR 21 95#H ... [OTHER USERS OF THIS FILE - ALSO ^INC 21 95#N ... [ MAY HAVE B0 SET (WHOLE FILE)^ BIT 4 95#T ...TFCA 18 95*2 ... LDX 3 ACOMMUNE1(2) [X3= INCREASE IN BLOCKS 18 95*7 ... STO 0 AWORK4(2) [SET RELEVANT BIT MARKERS 10 95*# ... LDX 0 ACOMMUNE2(2) 16 95*F ... STO 0 AWORK3(2) [REMEMBER DEPTH 18 95*L ... SETREP2 OK [OPTIONALLY SET OK REPLY 14 95*R ... CALL 6 SFCA [X1-> FCA 4 95*Y ...TPUB 15 95B5 ... JBC TESTCOMM,1,BACUBS [J IF PUBLIC 21 95B= ... JBC NOTWHOLE,2,XBWHOLE [J IF ^WHOLE FILE^ MAY NOT BE SPECIFI 20 95BC ... BPZ 3 NOTWHOLE [J IF ^WHOLE FILE^ NOT SPECIFIED 21 95BJ ... BC 2,XBCOMM [CLEAR ^UPDATE OTHER COMMUNAL USERS^ 8 95BP ... PSTAC 1,1 14 95BW ... BFCBX 1,1 [X1-> FCB 9 95C3 ... LDX 3 FBLMOD(1) 21 95C8 ... SBN 3 FBLKS-A1 [X3= NO. OF BLOCKS IN INCREASE (WHOLE 14 95C* ... TRACEIF K6INCRCUBS,199,399,3,INCRWHOL 5 95CG ...NOTWHOLE 18 95CM ... BNG 3 OTHERERR [J IF NO. OF BLOCKS -IVE 16 95CS ... CALL 6 SJOBLOCK [X1-> JOB BLOCK 15 95C_ ... ADS 3 CUBS(1) [UPDATE CUBS 19 95D6 ... TRACEIF K6INCRCUBS,199,399,JNAME(1),INCR JBN [INCRECUBS 16 95D? ... TRACEIF K6INCRCUBS,199,399,CUBS(1),INCRCUBS 9 95DD ... LDX 0 AMBS(1) 9 95DK ... SBX 0 CUBS(1) 18 95DQ ... BPZ 0 NOTXCD [J IF AMBS NOT EXCEEDED 4 95DX ...XCD 16 95F4 ... JBS NOTXCD,2,XBFORCED [J IF ^FORCED^ 16 95F9 ... JBS RGLUT,2,XBANSWER [J IF ^ANSWER^ 19 95FB ... CALL 4 REQMORE [ASK OPS FOR MORE ONLINE BS 18 95FH ... TESTREP2 REFUSED,UP1 [EXIT IF REQUEST REFUSED 5 95FN ...NOTXCD 9 95FT ... LDX 0 CUBS(1) 21 95G2 ... BXL 0 GUBS(1),TESTCOMM [J IF GUBS NOT EXCEEDED (OR EQUALLED) 15 95G7 ... STO 0 GUBS(1) [UPDATE GUBS 5 95G# ...TESTCOMM 21 95GB ... BNG 3 UP1 [J IF 'WHOLE FILE' (MUST ALSO BE 'PUBL 21 95GF ... JBS XCOMMUNE,2,XBCOMM [J IF TO UPDATE OTHER COMMUNAL USERS 4 95GL ...UP1 7 95GR ... UPPLUS 1 4 95GY ...[ 6 95H5 ...X31INCRCUBS 15 95H= ... LDX 3 ACOMMUNE1(2) [X3= INCREASE 8 95HC ... SETREP2 OK 17 95HJ ... STOZ AWORK4(2) [CLEAR MARKER WORD 9 95HP ... BRN NOTWHOLE 4 95HW ...[ 5 95J3 ...RGLUT 4 95J8 ...[ 9 95J* ...[ 'ANSWER' PARAMETER 4 95JG ...[ 20 95JM ... TRACEIF K6INCRCUBS,199,399,JNAME(1),APPG JBN [GLUTTON REPLY 16 95JS ... TRACEIF K6INCRCUBS,199,399,CUBS(1),APPGCUBS 9 95J_ ... SETREP2 GLUTTON 17 95K6 ... SBS 3 CUBS(1) [DECREASE CUBS AGAIN 8 95K? ... BRN UP1 4 95KD ...[ 4 95KK ...[ 11 95KQ ...[ ENTRY FOR LOBSFILE MACRO 4 95KX ...[ 6 95L4 ...X41INCRCUBS 17 95L9 ... LDX 4 ACOMMUNE1(2) [X4= DEPTH OF FILE 5 95LB ...MLOBSF 16 95LH ... STO 4 AWORK3(2) [REMEMBER DEPTH 8 95LN ... SETREP2 OK 17 95LT ... BBUS 23,CONTEXT(2),UP [J IF NOUSER CONTEXT 14 95M2 ... CALL 6 SFCA [X1-> FCA 7 95M7 ... PSTAC 2,1 19 95M# ... BFCBX 2,2 [X2-> FCB OF REQUIRED FILE 16 95MF ... JBC UP,2,BFCUBS [J IF PUBLIC FILE 15 95ML ... TRACEIF K6INCRCUBS,199,399,4,LOBSFILE [ 21 95MR ... JBCS UP,1,BACUBS [J IF ^NON-PUBLIC FILE^ BIT NOT ALREA 15 95MY ... TRACEIF K6INCRCUBS,199,399,4,LOBSALR [ 9 95N5 ... SETREP LOBSALR 4 95N= ...UP 5 95NC ... UP 4 95NJ ...[ 20 95NP ...[ FROM MACRO SUBCUBS IF %D IS ^DEPTH^. (%B CONTAINS DECREMENT, 13 95NW ...[ %A CONTAINS DEPTH & %C IS ^JOB^) 12 95P3 ...[ ACOMMUNE1 CONTAINS DECREMENT 11 95P8 ...[ ACOMMUNE2 CONTAINS DEPTH 4 95P* ...[ 6 95PG ...X5INCRCUBS 21 95PM ... MBSXD 0,XBCOMM,XBSUBCUBS [SET ^UPDATE OTHER COMMUNAL USERS^ & 9 95PS ... STO 0 AWORK4(2) 12 95P_ ... LDX 0 ACOMMUNE2(2) [ 16 95Q6 ... STO 0 AWORK3(2) [REMEMBER DEPTH 16 95Q? ... LDX 3 ACOMMUNE1(2) [X3= DECREMENT 14 95QD ... CALL 6 SFCA [X1-> FCA 15 95QK ... JBC TCOMM,1,BACUBS [J IF PUBLIC 16 95QQ ... CALL 6 SJOBLOCK [X1-> JOB BLOCK 16 95QX ... SBS 3 CUBS(1) [DECREMENT CUBS 16 95R4 ... TRACEIF K6INCRCUBS,199,399,JNAME(1),SUB JBN 16 95R9 ... TRACEIF K6INCRCUBS,199,399,CUBS(1),SUB CUBS 9 95RB ... BRN XCOMMUNE 4 95RH ...[ 9 95RN ...[ NOLOBSFILE MACRO 4 95RT ...[ 6 95S2 ...X7INCRCUBS 14 95S7 ... STOZ AWORK3(2) [DEPTH 0 14 95S# ... CALL 6 SFCA [X1-> FCA 20 95SF ... BC 1,BACUBS [CLEAR ^NON-PUBLIC^ BIT IF SET 5 95SL ... UP 4 95SR ...[ 4 95SY ...[ 21 95T5 ...[ FILE OPEN IN COMMUNE MODE-NO ERROR CASES TO REPORT,JUST ADD INCR. 14 95T= ...[ TO ALL JOBS USING THE FILE PUBLICLY 10 95TC ...[ X3- REQUIRED INCREASE 7 95TJ ...[ X2- FX2 4 95TP ...[ 5 95TW ...XCOMMUNE 14 95W3 ... CALL 6 SFCA [X1-> FCA 5 95W8 ...TCOMM 21 95W* ... JMBAC NCOMMUNE,1,BACOMM,BACLEAN [J IF FILE NOT OPEN COMMUNALLY 17 95WG ... PSTAC 1,1 [X1-> FSTACK BLOCK 16 95WM ... LDEX 6 ARINGNO(1) [NO.OF ELEMENTS 7 95WS ... SBN 6 1 20 95W_ ... BZE 6 NCOMMUNE [J IF NO ONE ELSE HAS FILE OPEN 21 95X6 ... DOWN INCRCUBX,2 [UPDATE CUBS FOR OTHER JOBS WITH FILE 5 95X? ...NCOMMUNE 15 95XD ... JBS UP,2,XBSUBCUBS [J IF SUBCUBS 8 95XK ... BRN UP1 4 95XQ ...# 5 95XX ...NOLOBJOB 17 95Y4 ... GEOERR 1,NOLOBJOB [ JOB BLOCK MISSING 5 95Y9 ...OTHERERR 19 95YB ... GEOERR 1,INCRCUBS [ANY OTHER CLEAR MALFUNCTION 4 962W # 4 96GG #END 8 ____ ...04527143001000000000