13 22FL ... SEG CONNECTA,867,SECTION CENT 4 22_= # 4 234B ...# 4 237G ...[ 16 23=L ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 23*Q ...[ 11 23DW SEGENTRY K1CONNECTA,XK1 12 23YG FSHENTRY K2CONNECTA,XK2,,XK2 12 24D6 FSHENTRY K3CONNECTA,XK3,,XK3 12 24XQ FSHENTRY K4CONNECTA,XK4,,XK4 12 25CB FSHENTRY K5CONNECTA,XK5,,XK5 12 25X2 FSHENTRY K7CONNECTA,XK7,,XK7 12 266S ... FSHENTRY K8CONNECTA,XK8,,XK8 4 26BL # 19 26HS ...[ SEGENTRY K25CONNECTA USED BY RESTORE TIME MACROS PRESETRP 18 26M? ...[ SEGENTRY POINTS K70, K71, K71, & K73CONNECTA USED BY 12 26QQ ...[ RESTORE TIME MACRO REPORTNEST 4 26W= # 21 27*W # THIS SEGMENT IS THE SECOND PART OF THE CONNECT COMMAND. IT WAS 21 27TG # CREATED BECAUSE THE ORIGINAL SEGMENT BECAME TOO BIG AND BECAUSE 20 28*6 # OF THE EXTRA CODE REQUIRED FOR THE SHARED FILESTORE SPECIAL 4 28SQ # 4 29#B # 10 29J8 ... SEGENTRY K25CONNECTA 9 29S2 PRAMXMSK +AMXMSKPR 5 2=?L XONE +1 8 2=R= THREE +3 4 2?=W [ 5 2?QG SEEKJBLK 17 2#=6 CJOBLOCK 3 [ LOOK FOR JOBBLOCK 7 2#PQ EXIT 5 0 4 2*9B [ 4 2*P2 [ 5 2B8L TEMPQ 8 2BN= SBX 5 FX1 11 2D76 HLSINFORM XHLSB,CONNECT,6 10 2DLQ XHLSB FINDJOBQ 2,6,(GEOERR) 7 2F6B FCAJO 2 10 2FL2 LDX 0 CONTEXT(2) 8 2G5L ANDN 0 #4000 8 2GK= LDX 2 FX2 8 2H4W ADX 5 FX1 8 2HJG BZE 0 (5) 10 2TSL SBS 4 HLSCOUNT+1 9 2W#= ADS 4 HLSCOUNT 9 2WRW LDX 0 HLSCOUNT 10 2X?G ORX 0 HLSCOUNT+1 8 2YQB BPZ 0 (5) 5 2_=2 XHLSCTX 10 2_PL GEOERR 1,HLSCOUNT 4 329= # 5 32NW XNOTINB2 5 33N6 XOUTPACK 8 347Q SBX 7 FX1 8 34MB OUTPACKX 3,4,5 8 3572 ADX 7 FX1 7 35LL EXIT 7 0 4 35N3 ...[ 4 35PD ...[ 6 35QT ...#UNS CMXMSK 4 35S= ...( 11 35TM ...[ SUBROUTINE TO SET CMXMSK 5 35X4 ...SRCMX 7 35YF ... SETCMXSK 3 7 35_W ... EXIT 5 0 4 363? ...) 4 364N ...[ 4 366= [ 15 36KW [ SWITCHES FOR KEEPING TRACK OF JOBCOUNTS ETC 21 375G BITDEFS AWORK4,18,XADDJOBJ,XCHECKPW,XADDJOB,SRCALL,MESSOP,NOTDC 4 37K6 [ 4 384Q [ 4 38JB XK1 9 3942 LDX 6 AWORK3(2) 19 39HL LDX 3 FX2 [FIND 'Z' COMMAND ACTIVITY 9 3=3= TACT HUNTACTF CPAT,3 9 3=GW TXU 6 JOBNO(3) 17 3?2G BCS TACT [J THIS C.A. NOT 'Z' 8 3?G6 CNSOURCE 3,7 20 3?_Q STO 3 7 [REMEMBER ADDR.(SHOULD BE LOCKED) 10 3#FB UNT2 HUNT2 3,CPB,CALAS 15 3#_2 LDEX 1 CPBCPLEV(3) [GET CP LEVEL 16 3*DL BNZ 1 UNT2 [J NOT LEVEL 0 8 3*Y= LDX 1 FX2 17 3BCW UNT4 HUNT2 1,CLB,0 [GET Y'S CALAS AT LEVEL 0 10 3BXG LDEX 0 CPBCPLEV(1) 8 3CC6 BNZ 0 UNT4 9 3CWQ LDX 1 BPTR(1) 10 3DBB STOZ CPBCPLEV(3) 17 3DW2 LDCT 0 #300 [MASK FOR FILE TYPE 9 3F*L ANDX 0 CPBFSD(3) 9 3FT= ORX 0 CPBFSD(1) 9 3G#W STO 0 CPBFSD(3) 7 3GSG LDX 3 7 8 3H#6 SMO FX1 21 3HRQ LDX 4 PRAMXMSK [SET REPORT TTYLES TO ALLBUT,COMMANDS 9 3J?B STO 4 AMXMSK(3) 4 3J#4 ...[ 6 3J#Q ...#UNS CMXMSK 4 3J*D ...( 10 3JDW ... SEGENTRY K70CONNECTA 18 3JFJ ... BRN XK71 [MENDED IF REPORTNEST ON 8 3JGF ... CALL 5 SRCMX 7 3JHB ... LDX 3 7 4 3JJ# ...[ 4 3JK2 ...XK71 10 3JP6 ... SEGENTRY K71CONNECTA 4 3JPS ...) 8 3JR2 LIMBO 7,3 9 3K=L BNZ 7 XNOCHANGE 8 3KQ= LDN 4 #14 21 3L9W ERS 4 CONTEXT(3) [SWITCH 'Z' FROM OFFLINE TO ONLINE 10 3LPG ... FINDJOBQ 3,6,(GEOERR) 17 3M96 LDCT 4 #400 [LOAD OFFLINE IN BIT 17 3MNQ ERS 4 JMISC(3) [MARK '2' AS ONLINE 4 3MWC ...[ 4 3P?M ...[ 6 3PF# ...XNOCHANGE 10 3PM= JBC NOSUBJ,2,XADDJOB 7 3Q6W SUBJOBJ 5 3QLG NOSUBJ 7 3RKQ LDN 0 1 10 3S5B ANDX 0 CONTEXT(2) 9 3T4L BZE 0 NOUSE3 10 3WHG JBC NOUSE3,2,NOTDC 6 3X36 #SKI BILASJ 8 3XGQ BSJ NDJOB 19 3Y2B USERJOB [GET USERNAME FROM JOBLOCK 20 3YG2 DICTJOB 2 [REDUCE COUNT OF USER'S JOBS BY 1 5 3Y_L NDJOB 8 42DG BNZ 7 XSUB 7 42Y6 SUBJOBJ 8 43CQ BRN XSYS 18 43XB XSUB SUBJOB [SUBTRACT 1 FOR LIMBO JOB 4 44C2 XSYS 10 46*G LDX 0 CONTEXT(2) 8 46T6 BNG 0 SYSIS 7 47#Q LDN 3 0 8 47SB ANDN 0 #4000 18 48#2 BZE 0 XJOBLIST [J IF NOT FULLY STARTED 14 48RL BSOFF HLSBIT,XJOBLIST [J IF HLS 8 49?= LDN 3 #6000 19 49QW ERS 3 CONTEXT(2) [MAKE T.S. TEMPORARILY 5 4==G XJOBLIST 9 4D62 DOWN JOBLIST,2 4 4DKL # 5 4F5= XNOTINB1 18 4G4G ERS 3 CONTEXT(2) [SET TS/FS AS BEFORE DOWN 5 4GJ6 SYSIS 5 4H3Q NOUSE2 17 4HHB # DELETE 'Y'S JOBLOCK 7 4J32 CJOBLOCK 2 7 4JGL FJOBLOCK 2 5 4K2= NOUSE3 8 4KFW LDX 3 FX2 9 4K_G TACT2 HUNTACTF CPAT,3 9 4LF6 TXU 6 JOBNO(3) 8 4LYQ BCS TACT2 7 4MDB STO 3 7 8 4MY2 LDCT 4 #010 7 4NCL SMO 7 18 4NX= ORS 4 JOBEVENTS [SET 'CONNECTED' MARKER 15 4PBW BSON HLSBIT,XNOTFS [J IF PRE-HLS 7 4PWG LDX 2 7 7 4QB6 LDN 6 0 7 4QTQ LIMBO ,7 20 4R*B BNZ 0 WCONT [LIMBO MEANS NOT FULLY STARTED 9 4RT2 LDX 6 JOBNO(2) 8 4S#L BRN WCONT 5 4SS= XNOTFS 7 4T?W LDN 5 0 7 4TRG SMO 7 19 4W?6 STO 5 AWORK1 [ZEROISE MESSAGE MARKER WORD 7 5J== LIMBO ,7 20 5JPW BNZ 0 W1 [LIMBO MEANS NOT FULLY STARTED 7 5K9G SMO 7 9 5KP6 LDX 4 CONTEXT 8 5L8Q ANDN 4 #4000 21 5LNB BZE 4 W1 [J IF BACKGROUND JOB NOT F.STARTED 10 5M82 ANDX 4 CONTEXT(2) 19 5MML BZE 4 W2 [J IF MOP JOB NOT F.STARTED 10 5N7= JBC WCONT,2,NOTDC 10 5NLW W4 LDX 4 HLSCOUNT+1 20 5P6G SBN 4 1 [REDUCE NO. OF BACKGROUND JOBS 9 5PL6 BNG 4 XHLSCTX 10 5Q5Q STO 4 HLSCOUNT+1 10 5QKB TXL 4 BACKGROUND 21 5R52 BCC WCONT [J.IF COUNT NOT LESS THAN LIMIT SET 21 5RJL FON #32 [WAKE UP ANY BCCKGROUND ACTIVITIES 19 5S4= BRN WCONT [WAITING TO BE FULLY STARTED 19 5SHW W2 LDX 4 HLSCOUNT [LOAD COUNT OF F.ST. MOP JOBS 9 5T3G TXL 4 IMOPLIMIT 21 5TH6 BCC W3 [J IF COUNT NOT LESS THAN LIMIT SET 17 5W2Q ADN 4 1 [INCREASE MOP COUNT 13 5WGB STO 4 HLSCOUNT [BY 1 8 5X22 BRN W4 16 5XFL W3 LDN 4 #6000 [ SET BACKGROUND 15 5X_= SMO 7 [ JOB TO BE 16 5YDW ERS 4 CONTEXT [ TENT. STARTED 8 5YYG FJOCA 2,7 7 5_D6 NGNC 0 1 17 5_XQ ANDS 0 JURGE(2) [CLEAR JOBQ FS BIT 8 62CB LDX 2 FX2 8 62X2 BRN W4 10 63BL W1 LDX 4 CONTEXT(2) 8 63W= ANDN 4 #4000 20 64*W BZE 4 WCONT [J IF MOP JOB NOT FULLY STARTED 9 64TG LDX 4 HLSCOUNT 7 65*6 SBN 4 1 9 65SQ BNG 4 XHLSCTX 9 66#B STO 4 HLSCOUNT 9 66S2 TXL 4 IMOPLIMIT 8 67?L BCC W5 20 67R= FON #31 [WAKE UP ACT WTING ON MOPLIMIT 4 68=W W5 10 68QG JBS WCONT,2,NOTDC 10 69=6 LDX 4 HLSCOUNT+1 10 69PQ BXL 4 BACKGROUND,W6 8 6=9B LDN 4 #6000 17 6=P2 ERS 4 CONTEXT(2) [MAKE Y TEN. STARTED 7 6?8L FJOCA 2 7 6?N= NGNC 0 1 17 6#7W ANDS 0 JURGE(2) [CLEAR JOBQ FS BIT 8 6#MG LDX 2 FX2 8 6*76 BRN WCONT 7 6*LQ W6 ADN 4 1 17 6B6B STO 4 HLSCOUNT+1 [ADD 1 TO HLSCOUNT+1 4 6BL2 # 5 6C5L XNOTINB3 5 6D4W WCONT 7 6DJG LIMBO ,7 7 6F46 SMO 7 16 6FHQ ERS 0 EXT+11 [UNSET LIMBO BIT 4 6G3B # 4 6GH2 WB3 4 6H2L # 18 6HG= FON #43 [WAKE UP CONNECTED 'Z' 15 6H_W BSON HLSBIT,XGOPST [J IF PRE-HLS 20 6JFG # INFORM THE JOB STARTER PROGRAM OF THE CHANGE OF STATUS OF THE 8 6J_6 # CONNECTED JOB 9 6KDQ BZE 6 XGOPST 7 6KYB LDN 4 1 8 6LD2 CALL 5 TEMPQ 5 6LXL XGOPST 10 6MC= JBS NDISCT,2,NOTDC 10 6MWW JBC NOADJ,2,XADDJOBJ 17 6NBG SUBJOB [KEEP MOP COUNT OK 5 6NW6 NOADJ 9 6P*Q LDX 6 JOBNO(2) 17 6PTB DOWN DSCNCT,3 [SWITCH JWELL SLOTS ETC. 9 6Q*2 STOZ CPPTR(2) 9 6QSL LDN 5 CPPTR(2) 10 6R#= LDN 6 CPPTR+1(2) 7 6RRW MOVE 5 3 10 6S?G STOZ JSOURCE1(2) 10 6SR6 STOZ JSOURCE2(2) 9 6T=Q STOZ AMXMSK(2) 6 6T#7 ...#UNS CMXMSK 4 6T*J ...( 10 6TB_ ... SEGENTRY K72CONNECTA 8 6TDB ... BRN XK73 7 6TFR ... LDX 3 2 8 6TH8 ... CALL 5 SRCMX 4 6TJK ...[ 4 6TL2 ...XK73 10 6TMC ... SEGENTRY K73CONNECTA 4 6TNS ...) 10 6TQB STOZ JOBEVENTS(2) 16 6W=2 LDN 5 #14 [CHANGE FROM MOP 15 6WPL ERS 5 CONTEXT(2) [TO OFFLINE 10 6X9= XBBC2 HUNTW 1,AMXOR,BBC 9 6XNW BNG 1 XNBBC2 7 6Y8G FREECORE 1 8 6YN6 BRN XBBC2 5 6_7Q XNBBC2 9 6_MB CALL 5 SEEKJBLK 8 7272 LDCT 5 256 15 72LL ORS 5 JMISC(3) [MARK OFFLINE 15 77GW BSON HLSBIT,YNOTFS [J IF PRE-HLS 17 782G # INFORM HLS OF CHANGE OF STATUS OF DISCONNECTED JOB 5 7?CW YWAIT 9 7?XG LDX 6 JOBNO(2) 7 7#C6 NGN 4 1 8 7#WQ CALL 5 TEMPQ 5 7*BB YNOTFS 9 7*W2 OUTPAR TIMENOW 7 7B*L OUTMILL 7 7BT= LDN 4 1 10 7C#W LDN 5 JPDJOBTYPE 10 7CSG LDX 7 JSOURCE3(2) 9 7D#6 BZE 7 XCENTRAL 9 7DRQ LDN 3 THREE(1) 9 7F?B CALL 7 XOUTPACK 10 7FR2 LDN 3 JSOURCE3(2) 9 7G=L LDN 5 JPDPROPS 9 7GQ= CALL 7 XOUTPACK 9 7H9W BRN PARAMOUT 5 7HPG XCENTRAL 9 7J96 LDN 3 XONE(1) 9 7JNQ CALL 7 XOUTPACK 8 7K8B OUTPAR SKIP 5 7KN2 PARAMOUT 8 7L7L LDN 0 #400 10 7LM= ANDX 0 CONTEXT(2) 8 7M6W BNZ 0 XSK 7 7MLG FJOCA 3,2 10 7N66 LDX 0 HCLOCKTIME(3) 11 7NKQ LDX 1 HCLOCKTIME+1(3) 8 7P5B BNZ 0 NSK1 7 7PK2 SRA 1 5 8 7Q4L SBN 1 1875 8 7QJ= BNG 1 XSK 4 7R3W NSK1 9 7RHG OUTPAR PROGMILL 8 7S36 BRN NSK 4 7SGQ XSK 8 7T2B OUTPAR SKIP 4 7TG2 NSK 8 7T_L MONOUT JTYPE 7 7WF= PERCOUNT 11 7WYW ... ACROSS CONTINUE,3 5 7XDG NDISCT 14 84SB ACROSS SUICIDE,1 [KILL 'Y' 4 85#2 # 4 9XCB # 4 9XX2 #END 6 ____ ...730230660001