13 22FL ... SEG JWELLTWO,867,SECTION CENT 4 22_= # 4 23DW # 4 23JR ...[ 16 23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 23SK ...[ 18 23YG # THIS SEGMENT CONTAINS THE OVERFLOW CODE FROM TWO OTHER 20 24D6 # SEGMENTS INVOLVED WITH THE JOBWELL. THE SEGMENTS CONCERNED 6 24XQ # ARE: 4 25CB # 11 25X2 # ENWELL & DEWELL 4 26BL # 4 26W= # 18 27*W SEGENTRY K1JWELLTWO,(GEOERR) [REDUNDANT ENTRY POINT 17 27TG SEGENTRY K2JWELLTWO,XK2 [OVERFLOW FROM ENWELL 20 28*6 FSHENTRY K3JWELLTWO,XK3,XK3,XK3 [OVERFLOW FROM DEWELL (SHFS) 21 28SQ FSHENTRY K4JWELLTWO,,XK4,XK4 [RETURN TO 'B' TO INPUT JDF (SHFS) 21 29#B ... FSHENTRY K5JWELLTWO,(GEOERR),,(GEOERR) [REDUNDANT ENTRY POINT 20 29S2 FSHENTRY K7JWELLTWO,XK7,XK7,XK7 [YET MORE O'FLOW FROM DEWELL 12 2=3S ... FSHENTRY K8JWELLTWO,XK8,,XK8 4 2=?L # 4 2=R= # 17 2?=W #PAG [OVERFLOW CODE FROM THE SEGMENT ENWELL 4 2?QG # 7 2#=6 #OPT WELLTEST=0 4 2#PQ # 10 2*9B #DEF SIZEIN=CPDATA-A1*4+48 9 2*P2 #DEF XMODP=CPDATA+11 7 2B8L #DEF XCOUNT=A1 8 2BN= #DEF XUSNM=CPDATA+1 8 2C7W #DEF XJBNM=CPDATA+5 4 2CMG # 9 2D76 PEINPUT +EINPUT 16 2DLQ XIN 4HIN : [INPUT FOR WJDF 14 2F6B 12H [USERNAME 9 2FL2 4H , 14 2G5L 12H [JOBNAME 9 2GK= 4H(1 / 9 2H4W TLANG 8HB5B1) 9 2JHQ XJOBD 8HJOBDATA 8 2K3B 2HJD 9 2KH2 PARFORM +APFERR 4 2LG= # 16 2L_W # SUBROUTINE TO PARABEG 4 CHARS ADDRESSED BY X4. 4 2MFG # 5 2M_6 XPARBEG 7 2PD2 LDN 6 4 5 2PXL XPARBEG6 8 2QWW SBX 7 FX1 7 2S*Q ADX 1 4 10 2STB PARABEG 1,6,0(1),,0 10 2T*2 MHUNT 1,CPB,CUNI 9 2TSL LDX 6 ANUM(1) 20 2X?G LDX 0 JPARNUM(1) [SAVE PARAM NO. IN CASE JD IN ERROR 10 2XR6 STO 0 ACOMMUNE2(2) 7 2YQB FREECORE 1 8 2_=2 BRN X7XIT 4 2_PL # 4 32NW [ 4 338G [ 21 33N6 [ X4USER SETS X4 TO POINT TO THE 3 WORD USERNAME. THIS IS CPREFIX 19 347Q [ IN THE CPA FOR NO-USER AND JUSER IN THE JOBLOCK FOR USER. 4 34MB [ 5 3572 X4USER 10 35LL LDN 4 CPREFIX(2) 10 366= LDX 0 CONTEXT(2) 7 36KW ANDN 0 1 8 375G BZE 0 X4XIT 7 37K6 FJOCA 2 9 384Q LDN 4 JUSER(2) 8 38JB LDX 2 FX2 7 3942 X4XIT EXIT 7 0 4 39HL [ 5 3=3= PARAL 7 3?G6 NGN 0 1 5 3?_Q PARALX 8 3#_2 SBX 7 FX1 8 3*Y= PARALYSX 0,,4 8 3CC6 BRN X7XIT 4 3CWQ [ 10 3DBB # SUBROUTINE TO GET CORE 8 3DW2 # SIZE IN X3 11 3F*L # NAME IN WORD AFTER CALL 7 3FT= # LINK X7 5 3G#W SETCORE 8 3GSG SBX 7 FX1 8 3H#6 GETCORE 3,1 8 3HRQ ADX 7 FX1 7 3J?B FINDCORE 3 7 3JR2 SMO 7 7 3K=L LDX 0 0 7 3KQ= NAMEX 3 7 3L9W EXIT 7 1 4 3LPG [ 5 3N8B PARAF 8 3NN2 SBX 7 FX1 8 3P7L BRN PFR1 5 3PM= PNOTFREE 8 3Q6W SBX 7 FX1 7 3QLG SPARANOX 4 4 3R66 PFR1 7 3RKQ PARAFREE 5 3S5B X7XIT 8 3SK2 ADX 7 FX1 7 3T4L EXIT 7 0 4 3TJ= # 4 3W3W # 4 3WHG # 11 3X36 XK2 [ENTRY POINT TWO 4 3XGQ # 4 3Y2B # 7 3YG2 LDN 6 7 8 3Y_L LDN 4 XJOBD 9 3_F= CALL 7 XPARBEG6 9 3_YW BPZ 6 XJDFOUND 7 42DG LDN 6 2 9 42Y6 LDN 4 XJOBD+2 9 43CQ CALL 7 XPARBEG6 17 43XB BNG 6 NOJD [J IF NO JOBDATA PARAMETER 5 44C2 XJDFOUND 10 44WL LDX 0 PARFORM(1) 18 45B= STO 0 ACOMMUNE1(2) [POSSIBLE ERROR MESSAGE 7 45TW LDX 0 6 8 46*G SRL 0 12 7 46T6 SBN 0 2 17 47#Q BNZ 0 XJDERROR1 [J IF NOT COMPOSITE 10 47SB LDX 4 ACOMMUNE2(2) 8 48#2 CALL 7 PARAL 10 48RL TESTRPN2 OK,XJDERROR1 7 49?= LDN 4 2 8 49QW LDN 0 #34 9 4==G CALL 7 PARALX 10 4=Q6 TESTRPN2 OK,XJDERROR1 4 4?9Q NOJD 10 4?PB MHUNTW 3,CPB,CALAS 10 4#92 LDX 3 ALOGLEN(3) 8 4#NL ADN 3 2+FRH 9 4*8= CALL 7 SETCORE 9 4*MW #HAL ADATA+CSTORE,+0 7 4B7G LDN 5 0 8 4BM6 LDN 3 A1+2 5 4C6Q XPASS 19 4CLB SPARUNAC [COLLECT UNACCESSED PAR'S INTO CSTORE 10 4D62 MHUNT 2,CPB,CUNI 11 4DKL NAME 2,ADATA,CREADL 11 4F5= MHUNT 1,ADATA,CSTORE 9 4FJW LDX 0 ANUM(2) 14 4G4G BNG 0 XEND [J IF NONE LEFT 7 4GJ6 ADX 3 1 9 4H3Q BZE 0 XCOMMA 9 4HHB LDN 2 APARA(2) 7 4J32 SMO 0 7 4JGL MVCH 2 0 8 4K2= ANDN 0 #7777 7 4KFW ADX 5 0 5 4K_G XCOMMA 8 4LF6 LDN 0 #34 8 4LYQ DCH 0 0(3) 7 4MDB SBX 3 1 7 4MY2 LDX 7 3 7 4NCL BCHX 3 / 7 4NX= ADN 5 1 8 4PBW BRN XPASS 4 4PWG XEND 16 4QB6 BZE 5 XCSFREE [J IF NO UNACC'ED PARS 7 4QTQ SBN 5 1 9 4R*B BZE 5 XCSFREE 8 4RT2 LDN 6 ACES 7 4S#L ADX 7 1 7 4SS= MVCH 6 4 9 4T?W STO 5 A1+1(1) 8 4TRG ADN 5 11 7 4W?6 SRL 5 2 8 4WQQ STO 5 A1(1) 8 4X=B ALTLEN 1,5 5 4XQ2 XEND3 11 4Y9L HUNT 1,ADATA,CREADL 9 4YP= BNG 1 XCUNIGONE 5 4_8W XCSFREE 7 4_NG FREECORE 1 19 5286 BRN XEND3 [MOP UP ALL CUNI'S SET UP BY XPASS 6 52MQ XCUNIGONE 4 53M2 [ 4 546L [ 4 54L= [ 4 555W [ 4 55KG [ 4 5656 [ 4 56JQ [ 19 574B [ WRITE USER JOBLIST ENTRY AND CREATE SYSTEM JOBLIST ENTRY 19 57J2 [ THE SYSTEM JOBLIST ENTRY IS NOT WRITTEN AWAY AND IS LEFT 12 583L [ IN A JWELL/COPYSYS BLOCK... 4 58H= [ 9 592W DOWN JOBLIST,1 9 5=FQ BRN XJDERROR 8 5=_B CALL 7 PARAF 4 5?YL [ 9 5#D= LDX 0 AWORK2(2) 16 5#XW BNZ 0 NJOB1 [ JUMP IF NOT JOB 4 5*CG [ 7 5*X6 [ INPUT JDF 4 5BBQ [ 4 5BWB [ 20 5CB2 [ IN THE CASE OF 'JOB' SET UP A ADATA/CREADL BLOCK CONTAINING AN 19 5CTL [ 'INPUT' FOR THE WORKING JDF. INPUT THE WJDF BY ISSUCOMB 4 5D*= [ 18 5DSW LDN 3 SIZEIN [N.B. THIS IS CHAR. SIZE 9 5F#G LDX 4 AWORK4(2) 20 5FS6 ANDN 4 #77 [ISOLATE MODE PARAMETER NUMBER 18 5G?Q BZE 4 TERQU [J IF NO MODE PARAMETER 8 5GRB CALL 7 PARAL 7 5J== LDN 4 2 9 5JPW CALL 7 PNOTFREE 10 5N7= MHUNT 1,CPB,CUNI 9 5NLW ADX 3 ANUM(1) 8 5P6G ANDN 3 #7777 9 5PL6 TERQU LDX 5 AWORK4(2) 18 5Q5Q ANDN 5 #7700 [ISOLATE T/S IF PRESENT 17 5QKB BZE 5 NTERM [J IF NO TERMINATOR 18 5R52 ERS 5 AWORK4(2) [ZEROIZE CHAR 2 OF AWORK4 7 5RJL SRL 5 6 20 5S4= ADN 3 6 [6 EXTRA CHARS FOR COMMA TERM. 7 5SHW NTERM ADN 3 3 18 5T3G SRL 3 2 [CONVERT TO WORD COUNT 9 5TH6 CALL 7 SETCORE 9 5W2Q #HAL ADATA+CREADL,+0 7 5WGB LDX 7 5 19 5X22 LDN 5 XMODP(3) [ADDRESS FOR MODE QUALIFIER 20 5XFL LDN 6 44 [INITIAL CHAR COUNT FOR COMMAND 18 5X_= BZE 4 NMOD2 [J IF NO MODE SPECIFIED 10 5YDW MHUNT 1,CPB,CUNI 9 5YYG LDN 4 APARA(1) 9 5_D6 LDX 2 ANUM(1) 21 5_XQ MVCH 4 0(2) [MOVE MODE QUALIFIERS INTO COMMAND 8 62CB ANDN 2 #7777 17 62X2 ADX 6 2 [UPDATE CHAR COUNT 7 63BL FREECORE 1 17 63W= NMOD2 BZE 7 NTERM1 [J IF NO TERMINATOR 7 64*W LDX 1 5 8 64TG LDN 4 #34 18 65*6 DCH 4 0(1) [COMMA BEFORE TERMINATOR 7 65SQ BCHX 1 / 13 66#B DCH 7 0(1) [T/S 7 66S2 BCHX 1 / 8 67?L LDX 0 FX2 9 67R= ADN 0 AWORK3 20 68=W MVCH 0 4 [MOVE ACROSS TEXT OF TERMINATOR 17 68QG ADN 6 6 [UPDATE CHAR COUNT 5 69=6 NTERM1 18 69PQ STO 6 XCOUNT(3) [CHAR COUNT FOR COMMAND 8 6=9B SMO FX1 8 6=P2 LDN 4 XIN 9 6?8L LDN 5 CPDATA(3) 19 6?N= MOVE 4 11 [MOVE BASIS OF COMMAND ACROSS 9 6#7W CALL 7 X4USER 9 6#MG LDN 5 XUSNM(3) 16 6*76 MOVE 4 3 [MOVE USERNAME 10 6*LQ MHUNT 1,CPB,CUNI 9 6B6B LDN 4 APARA(1) 9 6BL2 LDN 5 XJBNM(3) 9 6C5L LDX 1 ANUM(1) 15 6CK= MVCH 4 0(1) [MOVE JOBNAME 8 6D4W LDCT 4 #40 19 6DJG ORS 4 EXT+11(2) [SET ISITJOB BIT FOR INPUT 7 6F46 #SKI WELLTEST 9 6FHQ RGTRACE 5,XBROKE 10 6TQB ISSUCOMB XINERR,XBROKE 4 6W=2 # 5 6WPL XMODCH 17 6X9= ERS 4 EXT+11(2) [CLEAR ISITJOB BIT 4 6XNW [ 21 6Y8G FREEZESA READ [FREEZE-SAVE JDF BUT ONLY FOR READING 20 6YN6 [ (EVEN THOUGH OPEN FOR WRITING) 4 6_7Q [ 9 6_MB NJOB1 LDX 0 AWORK2(2) 7 7272 ADN 0 2 8 72LL BNZ 0 NOTDC 9 736= INHIBITBRK XBROKE 15 73KW ACROSS DSCNCT,2 [ DC COMMAND 4 745G # 5 74K6 NOTDC 9 754Q ACROSS ENWELL,3 4 75JB [ 4 7642 [ 4 76HL [ 8 773= [ ERROR REPORTS 4 77GW [ 4 782G [ 14 78G6 [ ROUTINE TO DELETE A USER JOBLIST ENTRY 4 78_Q [ 8 79FB SCRUB LDCT 4 #40 20 79_2 ERS 4 EXT+11(2) [ CLEAR ISITJOB BIT FROM INPUT 8 7=DL SKRUB SBX 7 FX1 19 7=Y= DOWN JOBLIST,5 [ DELETE USER JOBLIST ENTRY 8 7?CW ADX 7 FX1 7 7?XG EXIT 7 0 4 7#C6 [ 4 7#TQ ...[ 16 7#WQ XINERR [ EROR IN INPUT 19 7*BB CALL 7 SCRUB [ REMOVE USER JOBLIST ENTRY 16 7*W2 LDX 5 PEINPUT(1) [ ERROR UNIVERSAL 7 7B*L XCOM LDN 4 0 7 7BT= NGN 6 1 8 7C#W BRN XAA 4 7CSG [ 18 7D#6 XBROKE [ INPUT BROKEN IN ON.... 8 7DRQ CALL 7 SCRUB 7 7F?B LDN 5 0 4 7FBG ...XAA 9 7FMW ... ACROSS INITJOB,9 4 7FR2 # 4 7G=L # 4 7GQ= # 6 7H9W XJDERROR1 11 7HPG MHUNT 3,JWELL,COPYSYS 7 7J96 JLADJUST 3 9 7JNQ LDX 7 AWORK2(2) 15 7K8B BPZ 7 XJDR2 [J IF NOT MOP 9 7KN2 BS 3,JLBMOP 8 7L7L BRN XJDR5 14 7LM= XJDR2 BZE 7 XJDR4 [J IF JOB 9 7M6W BS 3,JLBRJ 8 7MLG BRN XJDR5 9 7N66 XJDR4 BS 3,JLBJB 5 7NKQ XJDR5 10 7P5B LDX 7 ACOMMUNE2(2) 7 7PK2 CLOSETOP 10 7Q4L STO 7 ACOMMUNE2(2) 5 7QJ= XJDERROR 10 7R3W ... ACROSS ENWELLB,3 4 7S36 # 21 7SGQ [*********************************************************************** 18 7T2B #PAG [OVERFLOW CODE FROM THE SEGMENT DEWELL 4 ?9WQ #END 6 ____ ...706302030001