{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: JWELLONE867)}}
====== JWELLONE867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ALTLENGD|ALTLENGD]], [[george:macro:BC|BC]], [[george:macro:BITDEFS|BITDEFS]], [[george:macro:BS|BS]], [[george:macro:BSXD|BSXD]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMERRX|COMERRX]], [[george:macro:DOWN|DOWN]], [[george:macro:FINDJOBQ|FINDJOBQ]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETJOB|GETJOB]], [[george:macro:HLSINFORM|HLSINFORM]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNT2|HUNT2]], [[george:macro:ICT|ICT]], [[george:macro:JBC|JBC]], [[george:macro:JBCC|JBCC]], [[george:macro:JBS|JBS]], [[george:macro:JBSS|JBSS]], [[george:macro:JLADJUST|JLADJUST]], [[george:macro:JMBAC|JMBAC]], [[george:macro:JMBAS|JMBAS]], [[george:macro:JMBS|JMBS]], [[george:macro:JWELLADD|JWELLADD]], [[george:macro:JWELLSUB|JWELLSUB]], [[george:macro:MBC|MBC]], [[george:macro:MBS|MBS]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:NAME|NAME]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTBLOCN|OUTBLOCN]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETUPCORE|SETUPCORE]], [[george:macro:SHLSQ|SHLSQ]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:STEPREWRITE|STEPREWRITE]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:USEROPEN|USEROPEN]], [[george:macro:VOP|VOP]]
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