JWELLONE867
(George Source)
Macros used: ACROSS, ALTLENGD, BC, BITDEFS, BS, BSXD, CLOSETOP, COMERRX, DOWN, FINDJOBQ, FREECORE, FSHENTRY, GEOERR, GETJOB, HLSINFORM, HUNT, HUNT2, ICT, JBC, JBCC, JBS, JBSS, JLADJUST, JMBAC, JMBAS, JMBS, JWELLADD, JWELLSUB, MBC, MBS, MHUNT, MHUNTW, MONOUTX, NAME, OPENSYS, OUTBLOCN, OUTNUM, OUTPARAM, READAGAIN, REWRITE, SEG, SEGENTRY, SETNCORE, SETUPCORE, SHLSQ, STEPAGAIN, STEPREWRITE, TESTREP, TESTRPN2, USEROPEN, VOP
- JWELLONE867.txt
22FL ... SEG JWELLONE,865,SECTION CENT 22KH ...[ 22PD ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 22T* ...[ 22^= # 23DW # 23YG # THIS SEGMENT CONTAINS CODE THAT HAS OVERFLOWED FROM OTHER PARTS 24D6 # OF THE JOBWELL SYSTEM. THE SEGMENTS CATERED FOR HERE ARE: 24XQ # 25CB ...# SCHEDULE. 25X2 # 26BL # 26W= # 27*W ... SEGENTRY K1JWELLONE,(GEOERR) 27TG ... SEGENTRY K2JWELLONE,(GEOERR) 28*6 ... FSHENTRY K3JWELLONE 28SQ SEGENTRY K4JWELLONE,XK4 [ENTRY FROM SCHEDULE 29#B SEGENTRY K5JWELLONE,XK5 [RE-ENTRY FOR SCHEDJOB 29S2 SEGENTRY K7JWELLONE,XK7 [ENTRY FROM EXPRESS 2=3S ... FSHENTRY K8JWELLONE 2=?L # 2=R= # 2?=W #DEF SIZELIST=10 2?QG # 2#=6 # 2#PQ XJOBLIST +SIZELIST 2*9B 12H 2*P2 12HJOBLIST 2B8L +1 2BN= +1 2C7W 4H**** 2CMG ...[ 2D76 ...[ 2DLQ ...# [***** OVERFLOW FROM SCHEDULE ***** 5N7= # 5NLW BITDEFS AWORK3,6,SCOM 5NS4 ...#UNS ICT 5N^= ... BITDEFS AWORK3,12,XAP 5QKB BITDEFS AWORK3,14,XCP,XMP 5R52 BITDEFS AWORK3,16,XCC,XST,XEP 5S4= BITDEFS AWORK3,20,XGP,XGB,XGR,XGQ 5SHW BITDEFS AWORK4,0,NUM,OPENJL,USER,XME,NULL,WELL,OPENUSER 5T3G ... BITDEFS AWORK4,7,XBACK,POPPED 5XFL [ 5X^= [ SUBROUTINE TO REWRITE JOBLIST ENTRY WITH NEW BIT SETTINGS. 5YDW SETBITS 5YYG SBX 7 FX1 5^D6 STEPAGAIN 5^XQ ADX 3 JOBDATASIZE 62CB LDN 5 0 62X2 JBC SET1,2,XGB 63BL BSXD 4,JLBBREAKGR 63W= ORX 5 4 64*W SET1 JBC SET2,2,XGR 64TG BSXD 4,JLBRERUN 65*6 ORX 5 4 65SQ SET2 JBC SET3,2,XGQ 66#B BSXD 4,JLBGRQUERY 66S2 ORX 5 4 67?L SET3 JBC SET3A,2,XGP 67R= BSXD 4,JLBRUNDUMP 68=W ORX 5 4 68QG SET3A ORS 5 JLSTAT(3) 69=6 JMBAC SET4,2,XGQ,XCC 69PQ JBC SET5,2,XCC 6=9B ERS 5 JLSTAT(3) 6=P2 BRN SET5 6?8L SET4 BC 3,JLBGRQUERY [CLEAR GQ IF GB OR GR SET 6?N= SET5 SBX 3 JOBDATASIZE 6#7W LDX 6 JLJOBNO(3) 6#MG STEPREWRITE 6*76 ADX 7 FX1 6*LQ EXIT 7 0 6B6B [ 7?XG # 7#C6 # 7#WQ XCLOSETOP 7*BB # 7*W2 # THERE WILL BE OCCASIONS WHEN BOTH USER AND SYSTEM JOBLIST WILL 7B*L # BE OPEN TOGETHER. THIS BIT OF CODE CLOSES USER JOBLIST IF BOTH 7BT= # FILES ARE OPEN> 7C#W # 7CSG JBCC XCLOSETOPX,2,OPENUSER [JIF USER JOBLIST NOT OPEN 7D#6 SBX 7 FX1 [PROCESS LINK 7DRQ CLOSETOP [CLOSE TOP FILE OPEN 7F?B ADX 7 FX1 7FR2 # 7G=L XCLOSETOPX 7GQ= EXIT 7 0 [RETURN TO CALLER 7H9W # 7K8B # ENTRY FROM EXPRESS 7KN2 XK7 7L7L STOZ AWORK3(2) 7LM= STOZ AWORK4(2) 7M6W BS 2,XEP 7MLG BRN XEPENT 7NKQ XK4 7P5B JBC SDN,2,WELL 7PK2 [ 7Q4L [ GETJOBS JOB NUMBER 7QJ= [ 7R3W STEPAGAIN 7RHG LDX 6 JLJOBNO(3) 7S36 ADX 3 JOBDATASIZE 7SGQ JBS WELLMOP,3,JLBMOP 7T2B BS 2,XBACK 7TG2 WELLMOP 7T^L SDN LDX 6 AWORK1(2) 7WF= XR JMBAS XS,2,WELL,XEP 7^C2 JMBS XWL,2,XGB,XGR,XGQ,XGP 82B= BRN XT 82TW XS BS 2,XST 83*G XT JBC TELLV,2,XST 83T6 XWL 84#Q JBC STNOW,2,WELL 85RL JMBAC XSTC,2,XGB,XGR,XGQ,XGP 86?= JBC XNODG,3,JLBNOTCAND 86QW ... JBS OP1,2,OPENUSER 87=G CALL 6 NOJOB [OPEN USER JOBLIST 87Q6 OP1 CALL 7 SETBITS 889Q ... CALL 7 XCLOSETOP 88PB ... JBSS OP2,2,OPENJL 8992 ... CALL 7 XOPENJL [ OPEN SYSTEM JOBLIST 89NL GETJOB 6,SYSTEM 8=8= OP2 CALL 7 SETBITS 8=MW BRN TELLV 8?7G XSTC 9#TL JBS STARTDG,3,JLBNOTCAND =F^6 CALL 7 XCLOSETOP [CLOSE JOBLIST IF WE OPENED IT!!! =GDQ ... JBSS SOK,2,OPENJL =GYB ... CALL 7 XOPENJL [ OPEN SYSTEM JOBLIST =HXL GETJOB 6,SYSTEM =JC= TESTRPN2 OK,NONX =KW6 SOK =L*Q STEPAGAIN =LTB ADX 3 JOBDATASIZE =TN6 JBC STBACK,3,JLBMOP [J IF BACKGROUND =W7Q JBS TELLV,,HLSMS =WMB BRN START =X72 STBACK =XLL JBS TELLV,,HLSBS =Y6= START BC 2,XST =YKW READAGAIN ?2JB [ ?342 [ REWRITE SYSTEM JOBLIST ENTRY AS RUNNING ?3HL [ ?43= MHUNT 3,FILE,FRB ?4GW NAME 3,FILE,FWB ?52G JLADJUST 3 ?5G6 BS 3,JLBRUNNING ?9C6 REWRITE ?9WQ MHUNT 3,FILE,FWB ?=97 ... LDX 4 ALOGLEN(3) ?=HJ ... SETUPCORE 4,2,JWELL,COPYSYS ?=W2 MHUNTW 3,FILE,FWB ??*L LDN 4 A1(3) ??T= LDN 5 A1(2) ?##W SMO ALOGLEN(3) ?#SG MOVE 4 0 ?*#6 NAME 3,JWELL,COPYSYS ?B?B DOWN SETJOBQ,2 ?CQ= JWELLADD LIVE ?JLG JWELLSUB WELL ?K66 BRN TELL ?KKQ [ ?L5B [ ?LK2 [ ?M4L TELLV CALL 5 VOPCLOS ?MJ= TELL ?RF= JBS XTQ,2,NULL ?SY6 XEPENT ?TCQ FINDJOBQ 3,6,STSTATE ?TXB LDX 0 JMISC(3) ?WC2 BNG 0 TJB1 [J IF BACK JOB ?WWL JBS NINT,,HLSMFS [J IF HLS IS FS-ING MOP ?XB= BRN TJB2 ?XTW TJB1 JBS NINT,,HLSBFS [J IF HLS IS FS-ING BACK ?Y*G TJB2 ACROSS SCHDJOBA,2 ?YT6 STSTATE ?^2# ...#UNS ICT ?^7G ...#SKI ?^#Q JMBAC NINT,2,XCP,XMP [IF IF NOT CP OR MP ?^FY ...#UNS ICT ?^M6 ... JMBAC NINT,2,XCP,XMP,XAP [IF NOT CP,MP, OR AP ?^SB SHLSQ 6,3,NOTST [ERROR IF JOB IS NOT STARTED #2#2 XK5 #2RL NINT JBC XTQ,2,SCOM [J IF EP COMMAND #CFW JBS SNUM,2,NUM #C^G CALL 7 SNAMES #DF6 OUTBLOCN 8 #DYQ OUTPARAM AWORK1(2),ACOMMUNE1 #FDB OUTPARAM AWORK2(2),ACOMMUNE4 #FY2 LDX 0 Z2(1) [LOAD MESSAGE IDENTIFIER #GCL BRN X2 #GX= SNUM OUTNUM 6,0 #HBW LDX 0 Z1(1) #HWG X2 #JB6 MONOUTX 0 [OUTPUT MESSAGE #MXC ...#UNS ICT #N3# ...#SKIP #NQQ XTQ JMBAC THEND,2,XEP,XME,XST,XCP,XMP #PTD ...#UNS ICT #Q2K ...XTQ JMBAC THEND,2,XEP,XME,XST,XCP,XMP,XAP #T7B MBC 2,XGB,XGR,XGQ,XGP #TM2 LDN 7 1 #W6L JBC WELLMOP1,2,XBACK #WL= LDN 7 2 #X5W WELLMOP1 #YJQ LDN 5 0 #^4B HUNT 3,ADATA,ASUP #^J2 BNG 3 NOM3 [J IF NO MP/CP *23L LDX 5 A1+1(3) [CP *2H= SLL 5 6 *2ND ...#UNS ICT *2PX ...( *2RB ... LDX 0 A1+2(3) *2ST ... SRL 0 12 [SET AP IN B18,19 *2W# ... ORX 5 0 *2XR ...[ SHIFTED INTO B6,7 OF HLSYONQA BY HLSEVENT *2^= ...) *32W JBC NOM1,2,XMP *384 ...#UNS ICT *3*= ...#SKIP *3GG ALTLENGD 3,1 *3LC ...#UNS ICT *3Q# ... ALTLENGD 3,2 *3W9 ...# *426 BRN NOM3 *4FQ NOM1 FREECORE 3 *4^B NOM3 *9TL HLSINFORM THEND,SCHEDULE,6,5,,7 *MH6 # *N2Q THEND *NGB ACROSS SCHEDULE,2 [END OF COMMAND RETURN TO SCHEDULE *P22 # *PFL XBRK *P^= ACROSS SCHEDULE,3 [BREAK-IN RETURN TO SCHEDULE *QDW [ *QYG [ *RD6 VOPCLOS *RXQ SBX 5 FX1 *SCB JMBAC PEX,2,OPENJL,OPENUSER *SX2 CLOSETOP *TBL PEX ADX 5 FX1 *TP3 ...VOP JBCC (5),2,POPPED *W3D ... VOP ,JWACCESS *W*W EXIT 5 0 *WTG [ *X*6 [ *XSQ [ *Y#B SNAMES *YS2 HUNT 3,CPB,CUNI *^?L LDX 4 ACES [LOAD SPACES *^R= STO 4 ACOMMUNE1(2) B2=W LDN 4 ACOMMUNE1(2) B2QG LDN 5 ACOMMUNE2(2) [ SPACEFILL ACOMMUNE B3=6 MOVE 4 5 [ AREA B3PQ LDEX 0 ANUM(3) [NO. CHARS IN JOBNAME B49B LDN 4 APARA(3) [PTR TO JOBNAME B4P2 LDN 5 ACOMMUNE1(2) B58L SMO 0 B5N= MVCH 4 0 [MOVE IN JOBNAME B67W STO 0 AWORK1(2) [SAVE COUNT OF JOBNAME CHARS B6MG HUNT2 3,CPB,CUNI [FIND /CUNI CONTAINING USERNAME B776 LDEX 0 ANUM(3) B7LQ LDN 4 APARA(3) B86B LDN 5 ACOMMUNE4(2) B8L2 SMO 0 B95L MVCH 4 0 [MOVE USERNAME INTO ACOM. AREA B9K= STO 0 AWORK2(2) B=4W EXIT 7 0 B=JG [ B?46 NOJOB B?HQ SBX 6 FX1 B#3B SETNCORE SIZELIST,3,FILE,FABSNB B#H2 LDN 5 A1(3) B*2L LDN 4 XJOBLIST(1) B*G= MOVE 4 SIZELIST BB^6 JBC NOJOB1,2,OPENJL BCDQ STEPAGAIN BCYB LDN 4 JLUSER(3) BDD2 BRN NOJOB2 BDXL NOJOB1 BFWW CALL 7 SNAMES BGBG LDN 4 ACOMMUNE4(2) BGW6 NOJOB2 BH*Q HUNT 3,FILE,FABSNB BHTB LDN 5 A1+1(3) BK#= MOVE 4 3 BL?G USEROPEN XBRK,GENERAL,UNTRAP,FROZEN BQ*N ...[ TEST FOR CLUDGE - B2032 BQGW ... TESTREP OK,OPENUSEROK BQN4 ... TESTREP CLUDGE,XNOJL [ FILE ALREADY OPEN TO JOB BQT= ... BRN NONX BR2D ...OPENUSEROK BR7Q MBS 2,WELL,OPENUSER BSLL JBC NOJOB3,2,OPENJL BT6= STEPAGAIN 1 BTKW LDN 4 JLJOBNAME(3) BW5G BRN NOJOB4 BWK6 NOJOB3 BXJB CALL 7 SNAMES BY42 LDN 4 ACOMMUNE1(2) BYHL NOJOB4 B^3= GETJOB 4,USER B^GW TESTRPN2 OK,NONX C22G STEPAGAIN C2G6 LDX 4 JLJOBNO(3) C2^Q ADX 6 FX1 C3FB EXIT 6 0 C3G3 ...[ C3GN ...[ C3H* ...XOPENJL C3J2 ...[ USE SUPPLEMENTARY MODE 'QUERY' TO PREVENT C3JM ...[ GEOERR IF FILE ALREADY OPEN TO JOB - B1511 C3K# ...[ 04.03.82 C3K^ ... SBX 7 FX1 C3LL ... OPENSYS (GEOERR),JOBLIST,GENERAL,QUERY C3M? ...[ TEST REPLY C3MY ... TESTREP OK,OPENOK C3NK ... BC 2,OPENJL C3P= ... TESTREP CLUDGE,XNOJL C3PX ...[ THE FOLLOWING 'TESTREP' CAN BE REMOVED WHEN C3QJ ...[ 'OPENSYS' IS CORRECTED TO REPLY WITH 'CLUDGE' C3R9 ...[ INSTEAD OF 'NAME' WHEN DIRECTORY IS OPEN TO JOB C3RW ... TESTREP NAME,XNOJL C3SH ... GEOERR 1,JWNOJL [ UNEXPECTED REPLY C3T8 ...OPENOK C3TT ... ADX 7 FX1 C3WG ... EXIT 7 0 C3X7 ...[ C3XS ...[ C3^2 XNOHLS C4DL LDX 6 Y8(1) C4Y= BRN RCLOS C5CW [ C5XG [ C6C6 STARTDG C6WQ LDX 6 Y11(1) C7BB BRN RCLOS C7W2 [ C8*L [ C8T= STNOW C9#W LDX 6 Y12(1) C9SG BRN RCLOS C??B [ C?R2 [ C#=L XNODG LDX 6 Y13(1) C#Q= BRN RCLOS C*PG NOTST CB96 LDX 1 FX1 CBNQ LDX 6 Y16(1) CC8B BRN RERR CRC2 # CRWL NONX LDX 6 Y1(1) CSB= BRN RCLOS CSTW # CT5N ...XNOJL LDX 6 Y21(1) CT*G RCLOS CTT6 CALL 5 VOPCLOS CW#Q # CWSB RERR NGN 7 1 CX#2 RER2 CXRL COMERRX 6,7 [REPORT ERROR CY?= # CYQW Y1 +JXEXIST C^=G Y8 +EPHLSOFF C^Q6 Y11 +ASCDGER D29Q Y12 +ASCSTNOW D392 Y13 +ASCNODG D3NL Y16 +ENOTSTART D7*S ...Y21 +JSYSFILE D7KL # D85= # THE FOLLOWING ARE MESSAGE IDENTIFIERS D8JW # D94G Z1 +ASCJOBNO D9J6 Z2 +ASCJOBNA D=3Q #END ^^^^ ...736475010001