MACROS WELL
(George Source)
- MACROS WELL.txt
229S ...[??? JWELLADD SECT CENT FGN 72 DOC 22FL #MAC JWELLADD 22LS ...#STR NCAND,%A 22S2 ...( 22^= #STR LIVE,%A 23DW ( 23YG #STR WELL,%A 24D6 ( 24XQ ! PARAMS TO JWELLADD NOT VALID 25CB #EXI 25X2 ) 26BL LDN 0 JWELLONE 26W= ) 27*W #STR WELL,%A 27TG LDN 0 1 28*6 SMO FX2 28SQ STO 0 ACOMMUNE2 28^Y ... SMO FX2 2976 ... STOZ ACOMMUNE3 29#B #STR SUB,%B 29S2 ( 2=?L DOWN JWUPDATE,1 2=R= #EXI 2?=W ) 2?QG DOWN JWUPDATE,2 2?SD ...#EXI 2?WB ...) 2?Y# ... LDX 2 FX2 2#2= ... STOZ ACOMMUNE2(2) 2#48 ... NGN 0 1 2#66 ... STO 0 ACOMMUNE3(2) 2#84 ... DOWN JWUPDATE,1 2#=6 #NOR 2#FY ...[??? JWELLSUB SECT CENT FGN 72 DOC 2#PQ [ 2*9B [ 2*P2 [ 2B8L #MAC JWELLSUB 2BN= JWELLADD %A,SUB 2C7W #NOR 2CCN ...[??? SETJWELL SECT CENT FGN 72 DOC 2CMG [ 2D76 [ 2DLQ [ SETUP JWELL BLOCK 2F6B [ 2FL2 [ 2G5L #MAC SETJWELL [ USED BY BMJLIST 2G*D ... FSHSKIP 2GK= SETNCORE 2*JWENTRY+1,3,JWELL 2GMT ... FSHCODE AORB 2GQD ...( 2GT3 ... BRN M2SETJWELL 2GXL ...M1SETJWELL 2H29 ...) 2H4W LDN 4 A1(3) 2HJG LDN 5 A1+1(3) 2J46 STOZ A1(3) 2JHQ MOVE 4 2*JWENTRY-1 2K3B LDX 0 GSIGN 2KH2 STO 0 2*JWENTRY+A1(3) [ END OF BLOCK MARKER 2L2L LDN 0 JWMOPB 2LG= STO 0 A1+JWENTRY(3) 2L^W CHAIN 3,BMISC+1 [ CHAIN ONTO BMISC 2M3D ... FSHCODE AORB 2M52 ...( 2M6J ... EXIT 7 0 2M86 ...M2SETJWELL 2M9N ... SETNCORE 2*JWENTRY+1,3,JWELL,BCOUNTS 2M?= ... CALL 7 M1SETJWELL 2M#S ... SETNCORE 2*JWENTRY+1,3,JWELL,ACOUNTS 2MBB ... CALL 7 M1SETJWELL 2MCY ...) 2MFG #NOR 2MP# ...[??? JLADJUST SECT CENT FGN 72 DOC 2M^6 [ 2NDQ [ 2NYB [ 2PD2 #MAC JLADJUST 2PXL ADN %A A1+FRH 2QC= ADX %A JOBDATASIZE 2QWW #NOR 2R6N ...[??? RUNJSA SECT CENT FGN 72 DOC 2RBG [ 2RW6 [ 2S*Q [ 2STB #MAC RUNJSA 2T*2 BS ,JSAREQ [ JSAREQUIRED 2TDX ... FSHCODE AORB 2TJS ... MBC ,JSVIRTMOP,JSVIRTBACK,JSVIRTMOPB,JSVIRTBACKB 2TNP ... FSHSKIP 2TSL MBC ,JSVIRTMOP,JSVIRTBACK [ CLEAR VIRTUAL SLOTS 2W#= JBSS MRUNJ1,,JSACT 2WRW #STR HOSTOPEN,%A 2X?G DOWN JSASCAN,2 [ JOBLIST ALREADY OPEN 2XR6 #STR HOSTOPEN,%A 2Y=Q #STR 2YQB DOWN JSASCAN,1 2^=2 MRUNJ1 2^PL #NOR 2^^D ...[??? CHAINJWE SECT CENT FGN 72 DOC 329= [ 32NW [ 338G [ 33N6 [ 347Q #MAC CHAINJWELL 34MB HUNT 1,JWELL,JPARAMS 3572 BNG 1 MNEWJ2 35LL CHAIN 1,3 366= MNEWJ2 36KW HUNT 1,JWELL,AJDF 375G BNG 1 MNEWJ3 37K6 CHAIN 1,3 384Q MNEWJ3 38JB HUNT 1,JWELL,ACLB 3942 BNG 1 MNEWJ4 39HL CHAIN 1,3 3=3= MNEWJ4 3=GW #NOR 3K2S ...[??? NEWJBNUM SECT CENT FGN 72 DOC 3K=L [ 3KQ= [ 3L9W [ 3LPG #MAC NEWJBNUM 3M96 LDX %A JOBNUMBER 3MNQ ADNC %A 1 3MSM BCC MNEWJ 3MYJ LDN %A 1 3N4F MNEWJ 3N8B STO %A JOBNUMBER 3NN2 #NOR 3NXS ...[??? PROPWELL SECT CENT FGN 72 DOC 3P7L [ 3PM= #MAC PROPWELL 3Q6W SMO %B 3QLG LDN 6 0 3R66 OPENSYS %A,JOBLIST,READ 3RKQ TESTREP2 OK,MPW2 3S5B GEOERR 1,JOBLIST? 3SK2 MPW2 STEP 3T4L MPW3 STEP 3TJ= BZE 3 MPW7 3W3W SMO FRH+JLPROPNO(3) 3WHG LDN 0 0 3X36 TXU 0 6 3XGQ BCC MPW7 3Y2B ADX 3 JOBDATASIZE 3YG2 LDN 7 3 3Y^L MPW5 SMO FRH+JLASSOCS(3) 3^F= LDN 0 0 3^YW TXU 0 6 42DG BCC MPW7 42Y6 ADN 3 1 43CQ BCT 7 MPW5 43XB BRN MPW3 44C2 MPW7 CLOSETOP 44WL BNZ 3 %C 45B= #NOR 45L4 ...[??? WRITEJL SECT CENT FGN 72 DOC 45TW [ 46*G [ 46T6 [ 47#Q #MAC WRITEJL 47SB MHUNTW 3,%A,%B 48#2 NAME 3,FILE,FWB 48RL INSERT 49?= MHUNTW 3,FILE,FWB 49QW NAME 3,%A,%B 4==G #NOR 4=G# ...[??? RG SECT CENT FGN 72 DOC 4=Q6 [ 4?9Q [ 4?PB ...[ 4#92 ...[ # # # # # # # # # # # # # # # # # # # # # # # # # 4#NL ...[ 4*8= ...[ 4*MW ...[ NEW MACROS FOR MK 8.30 JOBWELL 4B7G ...[ 4BM6 ...[ 4C6Q ...#MAC RG 4CLB ...#STR LIVE,%A 4D62 ...( 4DKL ...#STR WELL,%A 4F5= ...( 4FJW ...! PARAMS TO RG NOT VALID 4G4G ...#EXI 4GJ6 ...) 4H3Q ... LDN 0 JWELLONE 4HHB ...) 4J32 ...#STR WELL,%A 4JGL ... LDN 0 1 4K2= ... SMO FX2 4KFW ... STO 0 ACOMMUNE2 4K^G ... LDN 0 1 4LF6 ... SMO FX2 4LYQ ... STO 0 ACOMMUNE3 4MDB ...#STR SUB,%B 4MY2 ...( 4NCL ... DOWN JWUPDATE,1 4NX= ...#EXI 4PBW ...) 4PWG ... DOWN JWUPDATE,2 4QB6 ...#NOR 4QNH ...) 4R2Y ...[??? DICTWELL SECT CENT FGN 72 DOC 4R*B ...[ 4RT2 ...[ 4RYX ...#UNS FTS1 4S4S ...#SKI 4S8P ...( 4S#L ...#MAC DICTWELL 4SS= ... LDN 0 %A 4T?W ... LDX 2 FX2 4TRG ... LDN 1 ACOMMUNE1(2) 4W?6 ... MOVE 0 3 4WQQ ... LDX 0 %C 4X=B ... STO 0 ACOMMUNE4(2) 4XQ2 ...#STR MONEY,%B 4Y9L ...#SKI 4YP= ... DOWN REGEN,2 4^8W ...#STR PRIV,%B 4^NG ...#SKI 5286 ...( 52MQ ...#STR OFF,%D 537B ... DOWN REGEN,3 53M2 ...#STR ON,%D 546L ... DOWN REGEN,4 54L= ...) 555W ...#NOR 556? ...) 556N ...#UNS FTS1 5575 ...( 557G ...#MAC DICTWELL 557X ... LDN 0 %A 558# ... LDX 2 FX2 558P ... LDN 1 ACOMMUNE1(2) 5596 ... MOVE 0 3 559H ...#STR FREEZE,%B 559Y ...#SKI 55=* ...( 55=Q ...#STR OFF,%D 55?7 ... DOWN DICTWELL,5 55?J ...#STR ON,%D 55?^ ... DOWN DICTWELL,7 55#B ...#EXI 55#R ...) 55*8 ... LDX 0 %C 55*K ... STO 0 ACOMMUNE4(2) 55B2 ...#STR MONEY,%B 55BC ...#SKI 55BS ... DOWN DICTWELL,2 55C9 ...#STR PRIV,%B 55CL ...#SKI 55D3 ...( 55DD ...#STR OFF,%D 55DT ... DOWN DICTWELL,3 55F= ...#STR ON,%D 55FM ... DOWN DICTWELL,4 55G4 ...) 55GF ...#NOR 55GP ...) 55G^ ...[??? DICTJL SECT CENT FGN 72 DOC 55H? ...#MAC DICTJL 55HN ... DOWN DICTWELL,1 55J5 ...#NOR 55JR ...[??? WKPTABLE SECT CENT FGN 72 DOC 55KG ...[ 5656 ...#MAC WKPTABLE 56JQ ... 8HTRUSTED 574B ... +APTRUSTED 57J2 ... 8HHLSEXT 583L ... +APHLSEXT 58H= ... 8HDESTCOMM 592W ... +APDESTCOMM 59GG ... 8HNOTOWNER 5=26 ... +APNOTOWNER 5=FQ ... 8HNEWUSER 5=^B ... +APNEWUSER 5?F2 ... 8HBUDGEXT 5?YL ... +APBUDGEXT 5#D= ... 8HSJMESS 5#XW ... +APSJMESS 5*CG ... 8HCONTEXTA 5*X6 ... +APCONTEXTA 5BBQ ... 8HCONTEXTB 5BWB ... +APCONTEXTB 5CB2 ... 8HCONTEXTC 5CTL ... +APCONTEXTC 5CWS ... 8HPASSIVOP 5CY2 ... +APPASSIVOP 5C^8 ... 8HACTIVOP 5D2B ... +APACTIVOP 5D3J ... 8HNOWELL 5D4Q ... +APNOWELL 5D5Y ... 8HFREEZE 5D76 ... +APFROZEN 5D8# ... 8HALLACC 5D9G ... +APALLACC 5D=N ... 8HINFACC 5D?W ... +APINFACC 5D#5 ...#UNS FTS2 5D## ...( 5D#H ... 8HASSIDIR 5D#Q ... +APASSIDIR 5D#^ ...) 5D*= ... 0 5DSW ...#NOR 5F4N ...[??? WKPFIND SECT CENT FGN 72 DOC 5F#G ...[ 5FS6 ...#MAC WKPFIND 5G?Q ... LDN 2 -3+%B 5GRB ... LDX 0 %A 5H?2 ... LDX 1 1+%A 5HQL ...MWKPF1 ADN 2 3 5J== ... LDX %C 2(2) 5JPW ... TXU 0 0(2) 5K9G ... TXU 1 1(2) 5KP6 ... BCC MWKPF2 5L8Q ... LDX %C 3(2) 5LNB ... BNZ %C MWKPF1 5M82 ...MWKPF2 LDX 1 FX1 5MML ... LDX 2 FX2 5N7= ... BZE %C %D 5NLW ...#NOR 5NWN ...[??? JLASSOCS SECT CENT FGN 72 DOC 5P6G ...[ 5PL6 ...#MAC JLASSOCS 5Q5Q ... DOWN JOBLIST,8 5QKB ...#NOR 5QL7 ...[??? JLASLOST SECT CENT FGN 5QLY ...[ 5QMP ...[ SETS TO ZERO PROPERTY NOS. IN JLASSOCS,+1,+2 OF 5QNG ...[ SYSTEM JOBLIST. USED WHEN ONLY "CENTRAL" AVAILABLE 5QP? ...[ 5QQ4 ...#MAC JLASLOST 5QQT ... DOWN JOBLIST,10 5QRL ...#NOR 5QSC ...[ 5QT8 ...[??? RESTPARA SECT CENT FGN 72 DOC 5R52 ...[ 5RJL ...[ 5S4= ...#MAC RESTPARA 5SHW ...#STR !,%A 5T3G ...( 5TH6 ...#STR %A%C%E%G 5W2Q ...( 5W7Y ...#DEF 22?=0 5W*7 ... RESTPARA !ENWELL,%A,%C,%E,%G 5WGB ...#MEN ENWELL 5X22 ...#TRA K90ENWELL 5XFL ...#STR %A 5X^= ... +23? 5YDW ...#TRA K90ENWELL+2 5YYG ...#STR %C 5^D6 ... +24? 5^XQ ...#TRA K90ENWELL+4 62CB ...#STR %E 62X2 ... 25? 632X ...#TRA K90ENWELL+6 636S ...#STR %G 63=P ... 26? 63BL ...#END 63W= ...) 64*W ...#STR %B%D%F%H 64TG ...( 652N ...#DEF 22?=0 657X ... RESTPARA !QPRINT,%B,%D,%F,%H 65*6 ...#MEN QPRINT 65SQ ...#TRA K90QPRINT 66#B ...#STR %B 66S2 ... RESTPARA !!QPRINT,%B,23? 67?L ...#TRA K90QPRINT+5 67R= ...#STR %D 68=W ... RESTPARA !!QPRINT,%D,24? 68QG ...#TRA K90QPRINT+10 69=6 ...#STR %F 69PQ ... RESTPARA !!QPRINT,%F,25? 69TM ...#TRA K90QPRINT+15 69^J ...#STR %H 6=5F ... RESTPARA !!QPRINT,%H,26? 6=9B ...#END 6=P2 ...) 6?8L ...#EXI 6?N= ...) 6?RB ...#STR !!QPRINT,%A 6?WG ...( 6?^L ...#STR %B 6#4Q ...( 6#7W ...#DEF 20?=1? 6#MG ...#LIS 0 6*76 ...#STR !QPRINT,%A 6*LQ ...( 6B6B ...#ORD 6BL2 ...#INT 6C5L ...MRPAR 16H%B 6CK= ...MREST LDX 7 MRPAR 6D4W ... STO 7 18?+3]+23+22? 6DJG ... EXIT 0 0 6F46 ...#JUM MREST 6F?Y ...#EXT 6FHQ ...#FREE MRPAR,MREST 6G3B ...#LIS 20? 6H2L ...) 6HG= ...#STR !ENWELL,%A 6H^W ...( 6JFG ...#ORD 6J^6 ...#INT 6KDQ ...MRPAR1 16H%B 6KYB ...MREST1 6LD2 ... LDN 7 16 6LXL ... LDN 2 MRPAR1 6MC= ...MLP LDCH 4 0(2) 6MWW ... SBN 4 #20 6NBG ... BZE 4 MRST1 6NW6 ... LDX 6 7 6P*Q ...MRST1 6PTB ... BCHX 2 £ 6Q*2 ... BCT 7 MLP 6QSL ... LDN 7 18 6R#= ... SBX 7 6 6RRW ... STO 7 18?+3]+23+22? 6S?G ... EXIT 0 0 6SR6 ...#JUM MREST1 6T2Y ...#EXT 6T=Q ...#FREE MRPAR1,MREST1,MLP,MRST1 6TQB ...#LIS 20? 6TS# ...) 6TW= ...) 6TY8 ...#EXI 22?-3 6W26 ...#DEF 22?=22?+1 6W44 ... RESTPARA %A,%C,%D,%E,%F 6W62 ...#EXI 6W7Y ...) 6W=2 ...#DEF 22?=0? 6WPL ... 17H0%B 6X9= ...#TRA 22?+1 6XNW ...#FID 0 5 %C 6Y8G ...#TRA %C/4+22?+1 6YN6 ...#FID %C&3*6 %C&3*6+5 #14 6^MB ...#NOR 7929 ...[??? JWWFUPDA SECT CENT FGN 72 DOC 792P ...#MAC JWWFUPDATE 793N ... LDCH 0 JDFWFNAME-A1(%A) 794M ... BZE 0 MJW1 795L ... SBN 0 #72 796K ... BNZ 0 MJW2 797J ... NGN 0 #32 798H ...MJW2 ADN 0 #73 799G ... DCH 0 JDFWFNAME-A1(%A) 79=F ... BRN MJW3 79?D ...MJW4 4HBAAA 79#C ...MJW1 SMO FX1 79*B ... LDX 0 MJW4 79B* ... STO 0 JDFWFNAME-A1(%A) 79C# ...MJW3 79D? ...#NOR 79DS ...[??? HLSINFOR SECT CENT FGN 72 DOC 79FB ...[ 79^2 ...# 7=DL ...#SKI JWPHASE4 7=Y= ...( 7?CW ...# 7?XG ...# HERE FOLLOWS THE HLSINFORM MACRO. IT IS USED TO 7#C6 ...# GENERATE (OPTIONALLY) AN ENTRY TO THE HLS. ITS 7#WQ ...# PARAMETERS ARE AS FOLLOWS. 7*BB ...# %A :- BREAKIN ADDRESS 7*W2 ...# %B :- EVENT NAME 7B*L ...# %C :- WORD CONTAINING JOB NUMBER 7BT= ...# %D :- WORD CONTAINING IN BITS 12-23 SUPPLEMENTARY HLSYONQA INFO 7C#W ...# %E :- LABEL OF SUBROUTINE USED TO SET UP ADATA/ASUP (LINK X7) 7CSG ...# %F :- COPY OF JLSTAT FOR WELL JOBS 7D#6 ...# %G ETC. :- OPTION ADDRESSES 7DRQ ...# 7F?B ...#MAC HLSINFORM 7FR2 ...#STR @,%A 7G=L ...( 7GQ= ... JBC MHLSI,,EVB%B 7H9W ... LDN 0 EV%B 7HPG ... SMO FX2 7J96 ... STO 0 ACOMMUNE1 7JNQ ...#STR %C 7K8B ... LDX 0 %C 7KN2 ...#STR %C 7L7L ...#SKI 7LM= ...( 7M6W ... SMO FX2 7MLG ... LDX 0 JOBNO 7N66 ...) 7NKQ ... SMO FX2 7P5B ... STO 0 ACOMMUNE2 7PK2 ...#STR %D 7Q4L ...( 7QJ= ... LDX 0 %D 7R3W ... SMO FX2 7RHG ... STO 0 ACOMMUNE4 7S36 ...) 7SGQ ...#STR %D 7T2B ...#SKI 7TG2 ...( 7T^L ... SMO FX2 7WF= ... STOZ ACOMMUNE4 7WYW ...) 7XDG ...#STR %F 7XY6 ...( 7YCQ ... LDX 0 %F 7YXB ... SMO FX2 7^C2 ... STO 0 ACOMMUNE3 7^WL ...) 82B= ...#STR %F 82TW ...#SKI 83*G ...( 83T6 ... SMO FX2 84#Q ... STOZ ACOMMUNE3 84SB ...) 85#2 ...#STR SAVEABLE,%A 85RL ...#SKI 86?= ...( 86QW ... LDX 0 %G 87=G ... SMO FX2 87Q6 ... STO 0 ACOMMUNE5 889Q ...) 88PB ...#STR %E 8992 ... CALL 7 %E 89NL ...#STR SAVEABLE,%A 8=8= ...#SKI 8=MW ...( 8?7G ... ACROSS HLSEVENT,1 8?FX ...#DEF MHLSI=0? 8?S# ...#FRE MHLSI 8#6Q ...#EXI 8#LB ...) 8*62 ... DOWN HLSEVENT,1 8*KL ...#STR %A 8B5= ... BRN %A 8BJW ...#STR %A 8C4G ...#SKI 8CJ6 ... BRN (GEOERR) 8D3Q ...#ALT EVC%B=0 8DHB ...#STR %G 8F32 ...( 8FGL ... BRN MHLSI 8G2= ... HLSINFOR @,%B,%G,%H,%I,%J,%K 8GFW ...) 8GS? ...#DEF MHLSI=0? 8H6N ...#FRE MHLSI 8HF6 ...#EXI 8HYQ ...) 8JDB ...#ALT EVC%B=EVC%B+1 8JY2 ... BRN %C 8KCL ...#STR %D 8KX= ... HLSINFOR @,%B,%D,%E,%F,%G 8LBW ...#NOR 8LCM ...) 8LDD ...[??? HLSXONCH SECT CENT FGN 72 DOC 8LF9 ...#SKI JWPHASE4 8LG2 ...( 8LGR ...#MAC HLSXONCH 8LHJ ... JBC MHLS1,,EVBXONLINE 8LJ* ... LDX 0 %B 8LK6 ... SMO FX2 8LKX ... STO 0 ACOMMUNE4 8LLN ... DOWN HLSEVENT,5 8LMF ... BRN %A 8LN= ... BRN MHLS1 8LP3 ... BRN %C 8LPS ...MHLS1 8LQK ...#NOR 8LRB ...) 8LS7 ...[??? HLSEVENT SECT CENT FGN 72 DOC 8LSY ...#SKI JWPHASE4 8LTP ...( 8LWG ...# 8MB6 ...# HERE FOLLOWS THE HLSEVENT MACRO. IT IS USED IN THE 8MTQ ...# HLS EVENT SEGMENT TO SET UP A 2 WORD ENTRY IN THE 8N*B ...# TABLE OF EVENTS. ITS PARAMETERS ARE AS FOLLOWS. 8NT2 ...# %A :- EVENT NAME 8P#L ...# PLUS ANY OF THE FOLLOWING IN ANY ORDER 8PS= ...# OFF :- IGNORE EVENT 8Q?W ...# BACK :- EVENT SIGNIFICANT FOR BACKGROUND JOBS 8QRG ...# MOP :- EVENT SIGNIFICANT FOR MOP JOBS 8R?6 ...# NOKICK :- IF HLS NOT TO BE STARTED 8RQQ ...# MAKETS :- IF JOB TO BE MADE T/S 8S=B ...# REQ :- IF EVENT TO REQUEST HLS SANCTION 8SQ2 ...# IGNOREFS :- IF EVENT TO BE IGNORED IF JOB F/S 8T9L ...# NEVERREQ :- IF REQ MUST NEVER BE ALLOWED 8TP= ...# #NUMBER :- BIT SETTINGS FOR HLSYONQ 8W8W ...# 8WNG ...#MAC HLSEVENT 8X86 ...#STR @,%A 8XMQ ...( 8Y7B ...#OPT MHLSEVNO=0 8YM2 ...#OPT MHLSBITS1=0 8^6L ...#OPT MHLSBITS2=0 8^L= ...#DEF 20?=#70000000 925W ...#DEF 21?=0 92KG ...#DEF 22?=#17777777 9356 ...#DEF 24?=1 93JQ ...#STR %B%C%D%E%F%G%H%I%J%K%L%M%N 944B ... HLSEVENT @,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N 94J2 ... +20?+EVC%A 953L ... +21? 95H= ...#SKI EV%A-MHLSEVNO 962W ...! OUT OF ORDER 96GG ...#ALT MHLSEVNO=MHLSEVNO+1 9726 ...#SKI 20?�*24? 97FQ ...( 97^B ...#DEF 22?=EV%A/24 98F2 ...#DEF 23?=EV%A-(24*22?) 98YL ...#SKI 22?<1$1 99D= ...#ALT MHLSBITS1=MHLSBITS1^(#40000000@L-23?) 99XW ...#SKI 22?-1<1$1 9=CG ...#ALT MHLSBITS2=MHLSBITS2^(#40000000@L-23?) 9=X6 ...) 9?BQ ...#EXI 9?WB ...) 9#B2 ...#STR %C%D%E%F%G%H%I%J%K%L%M%N 9#TL ... HLSEVENT @,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N 9**= ...#STR %B 9*SW ...#SKI 9B#G ...#EXI 9BS6 ...#STR OFF,%B 9C?Q ...#SKI 9CRB ...( 9D?2 ...#DEF 24?=0 9DQL ...#EXI 9F== ...) 9FPW ...#STR BACK,%B 9G9G ...#SKI 9GP6 ...( 9H8Q ...#DEF 20?=20?^#40000000 9HNB ...#DEF 22?=22?^#40000000 9J82 ...#DEF 20?=20?&22? 9JML ...#EXI 9K7= ...) 9KLW ...#STR MOP,%B 9L6G ...#SKI 9LL6 ...( 9M5Q ...#DEF 20?=20?^#20000000 9MKB ...#DEF 22?=22?^#20000000 9N52 ...#DEF 20?=20?&22? 9NJL ...#EXI 9P4= ...) 9PHW ...#STR NOKICK,%B 9Q3G ...#SKI 9QH6 ...( 9R2Q ...#DEF 20?=20?� 9RGB ...#EXI 9S22 ...) 9SFL ...#STR MAKETS,%B 9S^= ...#SKI 9TDW ...( 9TYG ...#DEF 20?=20?^#04000000 9WD6 ...#EXI 9WXQ ...) 9XCB ...#STR REQ,%B 9XX2 ...#SKI 9YBL ...( 9YW= ...#DEF 20?=20?^#02000000 9^*W ...#EXI 9^TG ...) =2*6 ...#STR IGNOREFS,%B =2SQ ...#SKI =3#B ...( =3S2 ...#DEF 20?=20?^#01000000 =4?L ...#EXI =4R= ...) =5=W ...#STR NEVERREQ,%B =5QG ...#SKI =6=6 ...( =6PQ ...#DEF 20?=20?^#00400000 =79B ...#EXI =7P2 ...) =88L ...#STR SAVEABLE,%B =8N= ...#SKI =97W ...( =9MG ...#DEF 20?=20?^#00200000 ==76 ...#EXI ==LQ ...) =?6B ...#STR #,%B =?L2 ...#SKI =#5L ...( =#K= ...#DEF 21?=%B =*4W ...#EXI =*JG ...) =B46 ...! UNRECOGNISED PARAMETER =BHQ ...#NOR =BLW ...) =BQ2 ...[??? HLSINFRT SECT CENT FGN 72 DOC =BT6 ...#SKI JWPHASE4 =BY= ...( =C3B ...# =CH2 ...# =D2L ...#MAC HLSINFRT =DG= ... SMO 5 =D^W ... BRN £ =FFG ...#STR %A =F^6 ... BRN %A =GDQ ...#STR %A =GYB ...#SKI =HD2 ... BRN (GEOERR) =HXL ...#ALT EVC%B=0 =JC= ...#STR %C =JWW ...( =KBG ... BRN MHLSI =KW6 ... HLSINFOR @,%B,%C,%D,%E,%F,%G =L*Q ...) =LTB ...MHLSI =M*2 ...#NOR =MD6 ...) =MH= ...[??? HLSCONTR SECT CENT FGN 72 DOC =MLB ...#SKI JWPHASE4 =MPG ...( =MSL ...# =N#= ...# =NRW ...# HERE FOLLOWS THE HLSCONTROL MACRO. IT IS USED TO SET OR =P?G ...# UNSET AT RESTORE TIME THE INTERFACE BITS IN HLSFACE. =PR6 ...# ITS PARAMETERS MAY BE ANY OF THE FOLLOWING. =Q=Q ...# =QQB ...# MFS,BFS,MS,BS,OFF,ALL =R=2 ...# =RPL ...#MAC HLSCONTROL =S9= ...#STR @,%A =SNW ...( =T8G ...#SKI HLSFACE<KTAB-KTAB =TN6 ...( =W7Q ...#MEN FIXED =WMB ...#DEF 20?=DFIXED =X72 ...) =XLL ...#SKI HLSFACE>KTAB-KTAB =Y6= ...( =YKW ...#MEN CHTABLE =^5G ...#DEF 20?=DCHTABLE =^K6 ...) ?24Q ...#DEF MMS=#40000000 ?2JB ...#DEF MBS=#20000000 ?342 ...#DEF MMFS=#10000000 ?3HL ...#DEF MBFS=#04000000 ?43= ...#TRA HLSFACE ?4GW ...#DEF 20?=20?±+34?+0?]� ?52G ...#STR OFF,%A ?5G6 ...( ?5^Q ...#STR ALL,%A ?6FB ... HLSCONTR @,%A,%B,%C,%D ?6^2 ...) ?7DL ...#STR ALL,%A ?7Y= ...#SKI ?8CW ...#DEF 20?=20?^#74000000 ?8XG ... +20? ?9C6 ...#SKI 20?�<1$1 ?9WQ ...( ?=BB ... +HLSBITS1� ?=W2 ... +0 ??*L ...) ??T= ...#SKI 20?� ?##W ...( ?#SG ... +HLSBITS1 ?*#6 ... +HLSBITS2 ?*RQ ...) ?B?B ...#END ?BR2 ...#SKI 20?� ?C=L ...( ?CQ= ... RESOFF HLSBIT ?CTB ...#MEN WTSTAT ?CYG ...#TRA K50WTSTAT ?D3L ... 45HLTO BE MADE FULLY STARTED/RE-ACTIVATED BY HLS ?D6Q ...#END ?D9W ...#EXI ?DPG ...) ?F96 ... RESON HLSBIT ?F#= ...#MEN WTSTAT ?FCB ...#TRA K50WTSTAT ?FGG ... 45HLTO BE MADE FULLY STARTED ?FKL ...#END ?FNQ ...#EXI ?G8B ...) ?GN2 ...#UNS M%B ?H7L ...( ?HM= ...#DEF 20?=20?^M%B ?J6W ...#STR %C%D%E ?JLG ... HLSCONTR @,%C,%D,%E ?K66 ...#EXI ?KKQ ...) ?L5B ...! UNRECOGNISED PARAMETER ?LK2 ...#NOR ?LN6 ...) ?LR= ...[??? HLSLEVEL SECT CENT FGN 72 DOC ?LWB ...#SKI JWPHASE4 ?L^G ...( ?M4L ...# ?MJ= ...# HERE FOLLOWS THE HLSLEVEL MACRO. IT IS A RESTORE TIME ?N3W ...# MACRO FOR USE BY THE USER TO RESET THE BITS GOVERNING ?NHG ...# THE CONTROL OF THE OPTIONAL HLS ENTRIES. ?P36 ...# ITS PARAMETERS ARE AS FOLLOWS. ?PGQ ...# %A :- EVENT NAME ?Q2B ...# %B :- EITHER ON OR OFF ?QG2 ...# %C ETC. AS FOR HLSEVENT EXCEPT NEVERREQ AND # NOT ALLOWED ?Q^L ...# ?RF= ...#MAC HLSLEVEL ?RYW ...#UNS EV%A+1 ?SDG ...#SKI ?SY6 ...( ?TCQ ...! UNRECOGNISED EVENT NAME ?TXB ...#EXI ?WC2 ...) ?WWL ...#STR OFF,%B ?XB= ...( ?XTW ...#STR ON,%B ?Y*G ...( ?YT6 ...! UNRECOGNISED 2ND PARAMETER ?^#Q ...#EXI ?^SB ...) #2#2 ...) #2RL ...#SKI HLSFACE<KTAB-KTAB #3?= ...( #3QW ...#MEN FIXED #4=G ...#DEF 20?=DFIXED #4Q6 ...) #59Q ...#SKI HLSFACE>KTAB-KTAB #5PB ...( #692 ...#MEN CHTABLE #6NL ...#DEF 20?=DCHTABLE #78= ...) #7MW ...#TRA EV%A/24+HLSFACE+1 #87G ...#DEF 21?=EV%A-(24*(EV%A/24)) #8M6 ...#DEF 21?=#40000000@L-21? #96Q ...#DEF 22?=20?±+34?+HLSFACE-37?] #9LB ...#DEF 23?=0 #=62 ...#STR OFF,%B #=KL ...#SKI #?5= ...#DEF 23?=21? #?JW ...#SKI EV%A/24<1$1 ##4G ...( ##J6 ...#ALT HLSBITS1=HLSBITS1^21?$23? #*3Q ...#SKI 22?� #*HB ... +HLSBITS1 #B32 ...#SKI 22?�<1$1 #BGL ... +HLSBITS1� #C2= ...) #CFW ...#SKI EV%A/24-1<1$1 #C^G ...( #DF6 ...#ALT HLSBITS2=HLSBITS2^21?$23? #DYQ ...#SKI 22?� #FDB ... +HLSBITS2 #FY2 ...) #GCL ...#STR WAITOUT,%A #GX= ...#END #HBW ...#STR WAITOUT,%A #HWG ...( #JB6 ...#MEN HLSEVENT #JTQ ...#TRA 2*EV%A+K90HLSEVENT #K*B ...#DEF 23?=34?+0?] #KT2 ...) #L#L ...#STR WAITOUT,%A #LS= ...#SKI #M?W ...( #MRG ...#TRA HLSEVLWOUT #N?6 ...#DEF 23?=#00400000 #NQQ ...) #P=B ...#DEF 20?=#70000000 #PQ2 ...#DEF 21?=0 #Q9L ...#DEF 22?=#17777777 #QP= ... HLSEVENT @,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N #R8W ...#SKI 23?񡪀 #RNG ...#ALT 20?=20?� #S86 ...#ALT 20?=20?�^(23?򽸱) #SMQ ... +20? #T7B ...#END #TM2 ...#NOR #TQ6 ...) #TT= ...[??? HLSWAITS SECT CENT FGN 72 DOC #TYB ...#SKI JWPHASE4 #W3G ...( #W6L ...# #WL= ...# #X5W ...#MAC HLSWAITS #XKG ...#STR X,%A #Y56 ...( #YJQ ...#STR ON,%A #^4B ...( #^J2 ...#STR OFF,%A *23L ...( *2H= ...! 1ST PARAMETER UNRECOGNISED *32W ...#EXI *3GG ...) *426 ...) *4FQ ...#SKI HLSWAITS<KTAB-KTAB *4^B ...( *5F2 ...#MEN FIXED *5YL ...#DEF 20?=DFIXED *6D= ...) *6XW ...#SKI HLSWAITS>KTAB-KTAB *7CG ...( *7X6 ...#MEN CHTABLE *8BQ ...#DEF 20?=DCHTABLE *8WB ...) *9B2 ... HLSWAITS X%A,%B,%C,%D,%E,%F,%G,%H,%I,%J,%K *9TL ...#END *=*= ...#EXI *=SW ...) *?#G ...#DEF 21?=0 *?S6 ...#STR XON,%A *#?Q ...#DEF 21?=#77777777 *#RB ...#STR %C%D%E%F%G%H%I%J%K **?2 ... HLSWAITS %A,%C,%D,%E,%F,%G,%H,%I,%J,%K **QL ...#STR %B *B== ...( *BPW ...#SKI %B-1>(HLSTOPWAIT-1)-HLSTOPWAIT+1 *C9G ...( *CP6 ...! WAITING STYLE OUT OF RANGE *D8Q ...#EXI *DNB ...) *F82 ...#TRA HLSWAITS+(%B/16) *FML ...#DEF 22?=#40000000@L-(%B) *G7= ...#DEF 23?=20?±+34?+0?] *GLW ... +23?^22?$(22?&21?) *H6G ...) *HL6 ...#NOR *HP= ...) *HSB ...[??? JDTABLES SECT CENT FGN 72 DOC *HXG ...#SKI JWPHASE4 *J2L ...( *J5Q ...# *JKB ...#MAC JDTABLES *K52 ...#DEF %A=0? *KJL ... SEGENTRY JDTABLES1 *L4= ... 12HUR *LHW ... #40000000 *M3G ... 12HJT *MH6 ... #40014005 *N2Q ... 12HDEADLINE *NGB ... #40020010 *P22 ...#DEF %E=0?-%A *PFL ... 12HSTARTTIME *P^= ... #40030003 *QDW ... 12H [ *QYG ... #40040002 *RD6 ...#DEF %B=0?-%A *RXQ ... SEGENTRY JDTABLES2 *SCB ... 12HNEEDS *SX2 ... #40054006 *TBL ... 12HMZ *TW= ... #40064004 *W*W ... 12HMQ *WTG ... #00074004 *X*6 ... SEGENTRY JDTABLES3 *XMH ...#REP 72 *X^Y ... 0 *Y#B ...#DEF %C=0? *YS2 ... SEGENTRY JDTABLES4 *^?L ... 4HTR *^R= ... 4HTP B2=W ... 4HLP B2QG ... 4HCR B3=6 ... 4HCP B3PQ ... 4HMT B49B ... 4HED B4P2 ... 4HMC B58L ... 4HDS B5N= ... 4HDR B67W ... 4H B6MG ... 4HMX B776 ... 4HCT B7LQ ... 4HFD B86B ... 4HAD B8L2 ... 4H B95L ... 4H B9K= ... 4H B=4W ... 4H B=JG ... 4H B?46 ... 4HGP B?HQ ... 4HGD B#3B ... 4H B#H2 ... 4H B*2L ... 4H B*G= ... 4HHD B*^W ... 4HMD BBFG ... 4H BB^6 ... 4H BCDQ ... 4H BCYB ... 4H BDD2 ... 4H BDXL ... 4H BFC= ... 4H BFWW ... 4H BGBG ... 4H BGW6 ... 4H BH*Q ... 4H BHTB ... 4H BJ*2 ... 4H BJSL ... 4H BK#= ... 4H BKRW ... 4H BL?G ... 4H BLR6 ... 4H BM=Q ... 4H BMQB ... 4H BN=2 ... 4H BNPL ... 4H BP9= ... 4H BPNW ... 4HIP BQ8G ... 4HOP BQN6 ... 4HGE BR7Q ... 4HCO BRMB ... 4HEM BS72 ... 4HOI BSLL ... 4HOO BT6= ... 4HGS BTKW ... 4HRR BW5G ... 4HET BWK6 ... SEGENTRY JDTABLES5 BX4Q ...#DEF %D=0?-%C BXJB ...#NOR BXMG ...) BXQL ...[??? JDNAME SECT CENT FGN 72 DOC BXTQ ...#SKI JWPHASE4 BXYW ...( BY42 ...# BYHL ...#MAC JDNAME B^3= ...#STR @,%A B^GW ...( C22G ...#MEN JOBDATA C2G6 ...#STR PERIPHERAL,%A C2^Q ...#SKI C3FB ...( C3^2 ...#SKI JDTABLES5-JDTABLES4<%B-%B C4DL ...! TYPE NUMBER OUT IF RANGE C4Y= ...#SKI JDTABLES5-JDTABLES4>%B-%B C5CW ...( C5XG ...#TRA JDTABLES4+%B C6C6 ... 4H%C C6WQ ...) C7BB ...#END C7W2 ...#EXI C8*L ...) C8T= ...#DEF 20?=%B*4096 C9#W ...#STR VARIABLE,%A C9SG ...#DEF 20?=%B*4096^#40000000 C=4# ...#TRA JDTABLES1 C=#6 ... JDNAME @,20? C=RQ ...#SKI 20?$1 C??B ... 12H%C C?R2 ...#END C#=L ...#EXI C#Q= ...) C*9W ...#SKI JDTABLES3-0?<1$1 C*PG ...( CB96 ...! ENTRY NOT FOUND CBNQ ...#ALT 20?=1 CC8B ...#EXI CCN2 ...) CD7L ...#SKI 34?+0?+3]�$20? CDM= ...( CF6W ...#TRA 0?+4 CFLG ... JDNAME @,20? CG66 ...) CGKQ ...#NOR CGNW ...) CGS2 ...[??? NEWNEEDS SECT CENT FGN 72 DOC CGX6 ...#SKI JWPHASE4 CH2= ...( CH5B ...#MAC NEWNEEDS CHK2 ...#DEF 20?=#40000000 CJ4L ...#STR %A CJJ= ...( CK3W ...#STR ON,%A CKHG ...( CL36 ...#STR OFF,%A CLGQ ...( CM2B ...! 1ST PARAMETER NOT RECOGNISEX CMG2 ...#EXI CM^L ...) CNF= ...#DEF 20?=0 CNYW ...) CPDG ...) CPY6 ...#MEN BMSAVJOB CQCQ ...#DEF 21?=34?+JLTEMPLATE4+1]� CQXB ...#SKI 20?$21? CRC2 ...( CRWL ...#DEF 21?=16 CSB= ...#SKI 20? CSTW ...#DEF 21?=-16 CT*G ...#TRA JLTEMPLATE1+1 CTT6 ... +34?+0?]+21? CW#Q ...#TRA JLTEMPLATE2 CWSB ...#REP 5 CX#2 ... +34?+0?]+21? CXRL ...#TRA JLTEMPLATE4 CY?= ... 6,+JLPERIS^20?,16 CYQW ...#REP FACILITIES-6 C^=G ... +34?+0?],+34?+0?]+21?,+34?+0?] C^Q6 ...#END D29Q ...#MEN JDWRITE D2PB ...#TRA JDTEMPLATE1+1 D392 ... +34?+0?]+21? D3NL ...#TRA JDTEMPLATE2 D48= ...#REP 4 D4MW ... +34?+0?]+21? D57G ...#TRA JDTEMPLATE4 D5M6 ... 6,+JLPERIS^20?,16 D66Q ...#REP FACILITIES-6 D6LB ... +34?+0?],+34?+0?]+21?,+34?+0?] D762 ...#END D7KL ...#MEN JOBDATA D85= ...#TRA JDTABLES2+3 D8JW ...#SKI 21?-16 D94G ... #00054012 D9J6 ...#SKI 21?+16 D=3Q ... #40054006 D=HB ...#END D?32 ...#MEN SETJOBQ D?GL ...#TRA K50SETJOBQ D#2= ... +34?+0?]+21? D#FW ...#END D#^G ...#MEN JOBLIST D*F6 ...#TRA K50JOBLIST D*YQ ... +34?+0?]+21? DBDB ...) DBY2 ...#END DCCL ...#NOR DCQ3 ...) DD4D ...[??? JLTEMPLA SECT CENT FGN 72 DOC DDBW ...#SKI JWPHASE4<1$1 DDWG ...#UNS JWP4REVERT DFB6 ...( DFTQ ...# THE FOLLOWING MACRO IS USED IN BMSAVJOB AND JDWRITE DG*B ...# TO DEFINE RECORD 0 OF :SYSTEM.JOBLIST. DGT2 ...# DH#L ...#MAC JLTEMPLATE DHS= ... +JLRECLEN DJ?W ... SEGENTRY %ATEMPLATE1 DJRG ...#STR %B DK?6 ...#DEF %B=0? DKQQ ... +FACILITIES*3+JLFIXLEN DL=B ...MJL1 +JLRECLEN^#40000000 DLQ2 ... +MJL2-MJL1 DM9L ... +JLUSER DMP= ... +JLJOBNAME DN8W ... +JLARRIVED DNNG ... +JLPROPNO DP86 ...#SKI JWPHASE4<1$1 DPMQ ... #40000000 DQ7B ...#SKI JWPHASE4 DQ9^ ...( DQ#J ...#UNS FPRJW DQC7 ... #40000002 DQFQ ...#UNS FPRJW DQJ* ...#SKI DQM2 ... #40000001 DQWS ...) DR6L ... SEGENTRY %ATEMPLATE2 DRL= ... +JLSTAT DS5W ... +JLBUDGETS DSKG ... +JLASSOCS DT56 ... +JLRESTPTR DTJQ ...#SKI JWPHASE4 DW4B ... +JLDFIND DW9J ...#UNS FPRJW DWBQ ... +JLSTATX DWJ2 ... SEGENTRY %ATEMPLATE3 DX3L ...MJL2 +FACILITIES*3 DXH= ... 1,+JLURG,1 DY2W ... 5,+JLJT,1 DYGG ... 8,+JLDEADD,3 D^26 ... 3,+JLESD,1 D^FQ ... 2,+JLEST,1 D^^B ... SEGENTRY %ATEMPLATE4 F2F2 ... 6,+JLPERIS,16 F2YL ... 4,+JLMAXSIZE,1 F3D= ...#GAP FACILNO-FACILITIES*3 F3XW ...#NOR F42F ...) F454 ...[??? JLTEMPCO SECT CENT FGN 72 DOC F47M ...#SKI JWPHASE4<1$1 F4== ...#UNS JWP4REVERT F4#T ...( F4CG ...# THE FOLLOWING MACRO IS USED TO CHECK AND CONVERT F4X6 ...# IF NECESSARY THE JOBLIST TEMPLATE RECORD. F5BQ ...# %A= ADDRESS OF A WORD (WHICH MAY BE MOD 2) USED F5WB ...# TO CONVEY INFO TO JLRECCONV F6B2 ...# %B= ADDRESS (RELATIVE TO FX1) OF JLTEMPLATE MACRO F6TL ...# %C= ADDRESS TO JUMP TO IF REMOVAL OF ALL ENTRIES IS REQUIRED F7*= ...# %D= ADDRESS TO JUMP TO IF JOBLIST IS FOUND TO BE EMPTY F7SW ...# F7TF ...#UNS FPARTRES F7W4 ...( F7WM ...#MAC JLTEMPCONV F7X= ... LDX 1 FX1 F7XT ... LDX 0 %B+1(1) F7YD ... ADN 0 1 F7^3 ... LDX 2 FX2 F7^L ... STO 0 ACOMMUNE1(2) F829 ... SETUPCOR ACOMMUNE1(2),2,ADATA,CSTORE F82S ... SMO FX2 F83C ... LDX 0 ACOMMUNE1 F842 ... LDN 1 %B(1) F84K ... LDN 2 A1(2) F858 ... SMO 0 F85R ... MOVE 1 0 F86B ... DOWN BMJLCONV,1 F86^ ... BRN %C F87J ... BRN %D F887 ... LDX 0 ACOMMUNE1(2) F88Q ... STO 0 %A F89* ...#NOR F89Y ...) F8=H ...#UNS FPARTRES F8?6 ...#SKI F8?P ...( F8#G ...#MAC JLTEMPCONV F8S6 ... LDN 7 0 [INITIALISE MARKER WORD F9?Q ... STEP F9RB ... LDXC 0 %B+2(1) F=?2 ... BCS £ F=QL ... SBX 0 %B(1) F?== ... STO 0 JOBDATASIZE F?PW ... BZE 3 %D [J IF FILE EMPTY F#9G ... LDX 0 %B+1+JSOADDR+1-A1(1) [VERSION OF NEW TEMPLATE F#P6 ... BXE 0 JSOADDR+1-A1(3),MJL1 [J IF VERSIONS THE SAME F*8Q ... LDCT 7 #400 [SET BIT 0 TO MARK VERSION CHANGE F*NB ... READAGAIN FB82 ... MHUNTW 3,FILE,FRB FBML ...#SKI JWPHASE4<1$1 FC7= ...( FCLW ... LDN 4 JSOADDR+7(3) FD6G ... LDN 5 JSOADDR+6(3) FDL6 ... LDEX 6 A1(3) FF5Q ... SBN 6 JSOADDR+7-A1 FFKB ... SMO 6 FG52 ... MOVE 4 0 [MOVE END OF RECORD BACK UP OVER... FGJL ...[ [WHAT WAS JLDFIND POINTER FH4= ... ADN 3 A1 FHHW ... LDX 4 0(3) FJ3G ... SBN 4 1 FJH6 ... STO 4 0(3) [ADJUST RECORD HEADER FK2Q ...) FKGB ...#SKI JWPHASE4 FL22 ...( FLFL ... LDX 6 ALOGLEN(3) FL^= ... ADN 6 1 FMDW ... ALTLEN 3,6 [INCREASE LENGTH BY 1 WORD FMYG ... MHUNTW 3,FILE,FRB FND6 ... ADN 3 A1 FNXQ ... DEX 6 0(3) FPCB ... SBN 6 JSOADDR+7-A1 FPX2 ...MJL2 SMO 6 FQBL ... LDX 0 JSOADDR+5-A1(3) FQW= ... SMO 6 FR*W ... STO 0 JSOADDR+6-A1(3) [MOVE END OF RECORD DOWN FRTG ... BCT 6 MJL2 FS*6 ... ADN 0 1 FSSQ ... STO 0 JSOADDR+5-A1(3) [STORE JLDFINDPOINTER FT#B ...) FTS2 ... LDX 0 %B+1+JSOADDR+1-A1(1) FW?L ... STO 0 JSOADDR+1-A1(3) [WRITE NEW VERSION INTO RECORD FWR= ...MJL1 LDX 4 %B+1+JLTEMPLATE4-JLTEMPLATE1+1(1) FX=W ... ANDX 4 GSIGN FXQG ... LDX 5 JLTEMPLATE4-JLTEMPLATE1+1(3) FY=6 ... ANDX 5 GSIGN FYPQ ... BXE 4 5,MJL3 [J IF NO NEEDS FORMAT CHANGE F^9B ... LDCT 0 #400 F^P2 ... ERS 0 JLTEMPLATE4-JLTEMPLATE1+1(3) G28L ... SRL 4 1 G2N= ... SRL 5 2 G37W ... ORX 7 4 [B1=> NEWNEEDS ON G3MG ... ORX 7 5 [B2=> NEWNEEDS OFF G476 ...MJL3 LDX 4 %B+1(1) G4LQ ... BXL 4 0(3),MJL4 G56B ... LDX 4 0(3) [GET MINIMUM OF 2 LENGTHS G5L2 ...MJL4 SBN 4 JLTEMPLATE3+1-JLTEMPLATE1 G65L ...MJL7 SMO 4 G6K= ... LDX 0 JLTEMPLATE3+1-JLTEMPLATE1-1(3) G74W ... SMO 4 G79# ... SBX 0 %B+1+JLTEMPLATE3+1-JLTEMPLATE1-1(1) G7*Q ... BZE 0 MJL5 G7G8 ... BPZ 0 MJL7A G7LL ... NGX 0 0 G7R4 ...MJL7A SBN 0 16 G7XG ... BZE 0 MJL5 G846 ... BPZ 7 MJL10 G8HQ ... SBN 3 A1 G93B ... FREECORE 3 G9H2 ...MJL10 LDN 7 0 G=2L ... BRN MJL6 [J TO REPLACE TEMPLATE AND DELETE ENT G=G= ...MJL5 BCT 4 MJL7 G=^W ... LDX 4 %B+1+JLTEMPLATE2-JLTEMPLATE1(1) G?FG ... SBX 4 JLTEMPLATE2-JLTEMPLATE1(3) G?J^ ... LDCT 0 #300 G?ND ... ANDX 0 7 G?RX ... BZE 0 MJL5A G?XB ... ADN 4 16 G#2T ... SLL 0 1 G#6# ... BNG 0 MJL5A G#9R ... SBN 4 32 G#*= ...MJL5A BPZ 4 MJL8 G#DQ ... LDCT 0 #040 G#YB ... ORX 7 0 [TO INDICATE LESS DATA IN NEW G*D2 ... NGX 4 4 G*XL ...MJL8 DEX 4 7 [DIFFERENCE IN LENGTH-SUBSEQUENT RECS GBC= ... BPZ 7 MJL9 GBWW ... SBN 3 A1 GCBG ... FREECORE 3 GCW6 ...MJL9 BZE 7 MJLEND GD*Q ...MJL6 LDX 3 %B+1(1) GDTB ... SETUPCOR 3,2,FILE,FWB GF*2 ... LDN 4 %B+1(1) GFSL ... LDN 5 A1(2) GG#= ... MOVE 4 0(3) GGRW ... REPLACE GH?G ... MFREEW FILE,FWB GHR6 ... BZE 7 %C GJ=Q ...MJLEND GJQB ... STO 7 %A GK=2 ...#NOR GK?? ...) GK#K ...) GKC8 ...[??? JLRECCON SECT CENT FGN 72 DOC GKFR ...#SKI JWPHASE4<1$1 GKJB ...#UNS JWP4REVERT GKL^ ...( GKPL ...# THE FOLLOWING MACRO CONVERTS JOB ENTRIES IN THE JOBLIST GL9= ...# FILES. GLNW ...# %A= A WORD SETUP BY JLTEMPCONV AS FOLLOWS GM8G ...# BIT 0=1 IF 8.40 TO 8.50 CONVERSION REQUIRED (OR VICE VERSA) GMN6 ...# 1=1 NEWNEEDS ON GN7Q ...# 2=1 NEWNEEDS OFF GNMB ...# 3=1 IF LESS FACILITIES - ELSE MORE GP72 ...# 15-23 = DIFFERENCE IN SIZE OF FACILITIES GPLL ...# GPMX ...#UNS FPARTRES GPP8 ...( GPQF ...#MAC JLRECCONV GPRQ ... LDX 0 %A GPT3 ... STO 0 ACOMMUNE1(2) GPW# ... DOWN BMJLCONV,2 GPXK ...#NOR GPYW ...) GQ27 ...#UNS FPARTRES GQ3D ...#SKI GQ4P ...( GQ6= ...#MAC JLRECCONV GQKW ... LDX 7 %A GR5G ... LDX 2 FX2 GRK6 ... SMO JOBDATASIZE GS4Q ... LDN 6 JLRESTPTR GSJB ... JWCONVAD 6,7,LATER GT42 ... STO 6 ACOMMUNE1(2) GTHL ... MHUNTW 3,FILE,FRB GW3= ... BPZ 7 MJL1 [J IF NO ISSUE CONVERSION GWGW ... LDEX 4 7 GX2G ... LDCT 0 #040 GXG6 ... ANDX 0 7 GX^Q ... BNZ 0 MJL2 [JIF LESS FACS IN NEW FORMAT GYFB ... NGX 4 4 GY^2 ...MJL2 ADX 4 JOBDATASIZE G^DL ... LDCT 0 #300 G^Y= ... ANDX 0 7 H2CW ... BZE 0 MJL2A H2XG ... SBN 4 16 H3C6 ... SLL 0 1 H3WQ ... BPZ 0 MJL2A H4BB ... ADN 4 32 H4W2 ...MJL2A H5*L ...#SKI JWPHASE4<1$1 H5T= ...( H6#W ... LDX 6 ALOGLEN(3) H8?B ... SMO 4 H8R2 ... LDN 4 JLASSOCS+3+A1+1(3) H9=L ... LDX 5 4 H9Q= ... SBN 5 1 H=9W ... ADN 6 A1(3) H=PG ... SBX 6 4 H?96 ... SMO 6 H?NQ ... MOVE 4 0 [MOVE BACK UP OVER JLDFIND WORD H?RW ... LDX 6 ALOGLEN(3) H?X2 ... SBN 6 1 H#26 ... ALTLEN 3,6 H#5= ... DEX 6 A1(3) H#8B ... LDN 0 1 H#N2 ... SBS 0 ACOMMUNE1(2) H*7L ...) H*M= ...#SKI JWPHASE4 HB6W ...( HBLG ... LDX 6 ALOGLEN(3) HC66 ... ADN 6 1 HCKQ ... ALTLEN 3,6 HD5B ... MHUNTW 3,FILE,FRB HDK2 ... DEX 6 A1(3) HF4L ... ADN 4 JLDFIND HGHG ... SBX 6 4 HH36 ... SBN 6 1 HHGQ ... ADX 3 4 HJ2B ...MJL3 SMO 6 HJG2 ... LDX 0 A1-1(3) HJ^L ... SMO 6 HKF= ... STO 0 A1(3) HKYW ... BCT 6 MJL3 HL4R ... SMO 6 HL8N ... STOZ A1(3) HL#K ... SBX 3 4 HLDG ... LDN 0 1 HLY6 ... ADS 0 ACOMMUNE1(2) HL^T ... LDX 0 JLJT+A1(3) HM3J ... BNZ 0 MJL1A HM5? ... LDX 0 JOBTIME HM72 ... STO 0 JLJT+A1(3) HM8P ...MJL1A LDX 0 JLMAXSIZE+A1(3) HM=D ... BNZ 0 MJL1 HM#7 ... LDX 0 COREDEFAULT HM*W ... STO 0 JLMAXSIZE+A1(3) HMCQ ...) HMXB ...MJL1 LDCT 0 #300 HNC2 ... ANDX 0 7 HNWL ... BZE 0 MJL4 [J IF NO NEWNEEDS CONVERSION HPB= ... SLL 0 1 HPTW ... BPZ 0 MJL5 [J IF NEWNEEDS OFF HQ*G ... LDX 1 3 HQT6 ... LDN 4 64 HR#Q ... LDN 5 0 HRSB ...MJL7 LDCH 0 JLPERIS+A1(1) HS#2 ... BZE 0 MJL6 [J IF NONE OF THIS TYPE HSRL ... ADN 5 1 HT?= ...MJL6 BCHX 1 £ HTQW ... BCT 4 MJL7 HW=G ... BZE 5 MJL8A HWQ6 ... ADN 5 1 [ADD 1 FOR ITEM HEADER HX9Q ... ADX 5 ALOGLEN(3) HXPB ... ALTLEN 3,5 HY92 ... MHUNTW 3,FILE,FRB HYNL ... LDEX 4 A1(3) [ORIGINAL SIZE H^8= ... DEX 5 A1(3) H^MW ... SBX 5 4 J27G ... ORX 5 MJLDATA(1) [ADD ITEM NUMBER FOR NEEDS J2M6 ... SMO 4 J36Q ... STO 5 A1(3) J3LB ... LDX 1 3 J462 ... LDN 6 64 J4KL ... LDN 5 0 J55= ...MJL9 LDCH 0 JLPERIS+A1(1) J5JW ... BZE 0 MJL8 [J IF NONE OF THIS TYPE J64G ... SMO 4 J6J6 ... STO 0 A1+1(3) J73Q ... SMO 4 J7HB ... DCH 5 A1+1(3) [STORE TYPE IN TOP 6 BITS J832 ... ADN 4 1 J8GL ...MJL8 ADN 5 1 J92= ... BCHX 1 £ J9FW ... BCT 6 MJL9 J9^G ...MJL8A LDN 4 JLPERIS+16+A1(3) J=F6 ... LDN 5 JLPERIS+A1(3) J=YQ ... LDEX 6 A1(3) J?DB ... SMO 6 J?Y2 ... MOVE 4 512-JLPERIS-16 [MOVE BACK UP OVER FIXED NEEDS J#CL ... SBN 6 16 J#X= ... ALTLEN 3,6 J*BW ... DEX 6 A1(3) J*WG ... LDN 0 16 JBB6 ... SBS 0 ACOMMUNE1(2) JBTQ ... BRN MJL4 JC*B ...MJLDATA #00050000 JCT2 ...MJL5 LDEX 4 A1(3) JD#L ... ADN 4 16 JDS= ... ALTLEN 3,4 JF?W ... MHUNTW 3,FILE,FRB JFRG ... DEX 4 A1(3) JG?6 ... SBN 4 JLPERIS+16 JGQQ ...MJL10 SMO 4 JH=B ... LDX 0 A1-1+JLPERIS(3) JHQ2 ... SMO 4 JJ9L ... STO 0 A1-1+JLPERIS+16(3) JJP= ... BCT 4 MJL10 [CREATE 16 WORD HOLE FOR FIXED NEEDS JK8W ... LDN 0 16 JKNG ... ADS 0 ACOMMUNE1(2) JL86 ... STOZ A1+JLPERIS(3) JLMQ ... LDN 4 A1+JLPERIS(3) JM7B ... LDN 5 A1+JLPERIS+1(3) JMM2 ... MOVE 4 15 [ZEROISE THE HOLE JN6L ... SMO ACOMMUNE1(2) JNL= ... LDX 4 A1(3) JP5W ... BZE 4 MJL4 [ALL FINISHED IF NO VARIABLE ITEMS JPKG ... SMO ACOMMUNE1(2) JQ56 ... LDN 4 JLRESTF-JLRESTPTR JQJQ ...MJL13 SMO 4 JR4B ... LDX 5 A1(3) JRJ2 ... LDX 6 5 JS3L ... ANDX 6 HALFTOP JSH= ... ERX 5 6 JT2W ... BXE 6 MJLDATA(1),MJL12 [J IF THIS IS NEEDS ITEM JTGG ... ADX 4 5 JW26 ... BXL 4 ALOGLEN(3),MJL13 [LOOK AT NEXT ITM IF THEREIS ONE JWFQ ... BRN MJL4 JW^B ...MJL12 SBN 5 1 JXF2 ... BZE 5 MJL14 [J IF EMPTY ITEM JXYL ... LDX 1 3 JYD= ...MJL15 SMO 4 JYXW ... LDCH 2 A1+1(1) J^CG ... SMO 4 J^X6 ... LDX 0 A1+1(1) K2BQ ... ANDN 0 #77 K2QF ... SRC 2 2 K368 ... SMO 3 K3FX ... DCH 0 A1+JLPERIS(2) K3TL ... ADN 1 1 K4*= ... BCT 5 MJL15 K4SW ...MJL14 LDX 5 4 [NOW REMOVE NEEDS ITEM K5#G ... SMO 5 K5S6 ... LDX 4 A1(3) K6?Q ... ANDN 4 #7777 K6RB ... ADX 4 5 K7?2 ... LDX 1 ALOGLEN(3) K7QL ... SBX 1 4 [NUMBER OF WORDS TO MOVE K82D ... BZE 1 MJL4B K8== ... ADN 4 A1(3) K8PW ... ADN 5 A1(3) K99G ... MOVE 4 0(1) K9L2 ...MJL4B ADX 5 ALOGLEN(3) K=2G ... SBX 5 4 K=C2 ... ALTLEN 3,5 K=RG ... DEX 5 A1(3) K?82 ...MJL4 LDEX 6 7 K?ML ... BZE 6 MJL16 [J IF SAME FACS K#7= ... SLL 7 3 K#LW ... BNG 7 MJL17 [J IFTO BE SHORTENED K*6G ... LDX 4 ALOGLEN(3) K*L6 ... ADX 4 6 KB5Q ... ADS 6 ACOMMUNE1(2) KBKB ... ALTLEN 3,4 KC52 ... MHUNTW 3,FILE,FRB KCJL ... DEX 4 A1(3) KD4= ... LDX 5 4 KDHW ... SBX 5 6 KF3G ... LDX 6 ALOGLEN(3) KFH6 ... SBN 6 JLSTAT KG2Q ... SBX 6 JOBDATASIZE KGGB ...MJL18 SMO 5 KH22 ... LDX 0 A1-1(3) KHFL ... SMO 4 KH^= ... STO 0 A1-1(3) KJDW ... SBN 4 1 KJYG ... SBN 5 1 KKD6 ... BCT 6 MJL18 KKXQ ... SBX 4 5 KLCB ... SMO 5 KLX2 ... STOZ A1(3) KM48 ... SBN 4 1 KM9B ... BZE 4 MJL16 KMBL ... ADN 5 A1(3) KMW= ... LDX 6 5 KN*W ... ADN 6 1 KNTG ... SMO 4 KP*6 ... MOVE 5 0 KPSQ ... BRN MJL16 KQ#B ...MJL17 LDN 5 JLSTAT+A1(3) KQS2 ... ADX 5 JOBDATASIZE KR?L ... LDX 4 5 KRR= ... ADX 4 6 KS=W ... SBS 6 ACOMMUNE1(2) KSQG ... LDX 1 ALOGLEN(3) KT=6 ... ADN 1 A1(3) KTPQ ... SBX 1 4 KW9B ... MOVE 4 0(1) [CLOSE UP FAC TAB KWP2 ... LDX 4 ALOGLEN(3) KX8L ... SBX 4 6 KXN= ... ALTLEN 3,4 KY7W ... DEX 4 A1(3) KYMG ...MJL16 LDX 1 ACOMMUNE1(2) K^76 ... LDN 4 JLRESTF-JLRESTPTR(1) K^LQ ... LDN 5 0 L26B ... BXE 4 ALOGLEN(3),MJL19 L2L2 ... LDX 5 4 L2R8 ...#SKI JWPHASE4<1$1 L2YB ... SBX 5 JOBDATASIZE L35L ...MJL19 L3K= ... SMO 1 L44W ... STO 5 A1(3) L4JG ...#NOR L4KR ...) L4M5 ...) L4PN ...[??? JWCONVAD SECT CENT FGN 72 DOC L4S? ...#SKI JWPHASE4<1$1 L4WW ...#UNS JWP4REVERT L4^F ...( L546 ...[ L5HQ ...#MAC JWCONVAD L63B ... LDX 0 %B L68J ...#STR %C L6*Q ...( L6H2 ... BPZ 0 MJW1 L72L ...#SKI JWPHASE4 L73X ...( L758 ...#UNS FPARTRES L76F ...( L77Q ... LDCT 0 #010 L793 ... ANDX 0 %B L7=# ... SBN %A 1 L7?K ... BNZ 0 MJW1 L7#W ... ADN %A 2 L7B7 ...) L7CD ...#UNS FPARTRES L7DP ...#SKI L7G= ... SBN %A 1 L7Q4 ...) L7^W ...#SKI JWPHASE4<1$1 L8FG ... ADN %A 1 L8^6 ...MJW1 L96# ...#UNS FPARTRES L9?G ... LDX 0 %B L9DQ ...) L=D2 ... SLL 0 1 L=XL ... BPZ 0 MJW2 L?C= ... ADN %A 16 L?WW ...MJW2 L#BG ... SLL 0 1 L#W6 ... BPZ 0 MJW3 L**Q ... SBN %A 16 L*TB ...MJW3 LBSL ... LDCT 0 #040 LC#= ... ANDX 0 %B LCRW ... BNZ 0 MJW4 LD?G ... LDEX 0 %B LDR6 ... BRN MJW5 LF=Q ...MJW4 LDEX 0 %B LFQB ... NGX 0 0 LG=2 ...MJW5 SBX %A 0 LGPL ...#NOR LGS9 ...) LGWS ...[??? NEWJOBLI SECT CENT FGN 72 DOC LG^C ...#SKI JWPHASE4<1$1 LH42 ...#UNS JWP4REVERT LH6K ...( LH9= ...[ LHNW ...#MAC NEWJOBLIST LJ8G ...#STR @,%A LJN6 ...( LK7Q ...#SKI JWPHASE4<1$1 LKMB ...( LL72 ...#STR %A LLLL ...( LM6= ...! NOT ALLOWED LMKW ...#EXI LN5G ...) LNK6 ...#OPT JDTABLES4=1 LP4Q ...#OPT JDTABLES3=0 LPJB ...) LQ42 ...#DEF 20?=FACILNO-FACILITIES LQHL ...#STR %A LR3= ...#DEF 20?=1 LRGW ...#SKI 20?*(JDTABLES4-JDTABLES3)<1$1 LS2G ...( LSG6 ...! NO ROOM FOR NEW FACILITY LS^Q ...#EXI LTFB ...) LT^2 ...#SKI JWPHASE4 LWDL ...( LWY= ...#MEN JOBDATA LXCW ...#TRA JDTABLES3 LXXG ... 12H%B LYC6 ...#STR %A LYWQ ...#DEF 20?=%A*4096 L^BB ...#STR %A L^W2 ...#SKI M2*L ...#DEF 20?=FACILITIES*4096^#40000000 M2T= ...#DEF 20?=20?+%C M3#W ...#STR COUNT,%E M3SG ...#SKI M4#6 ...#DEF 20?=20?^#4000 M4RQ ... +20? M5?B ...#ALT JDTABLES3=0? M5R2 ...#END M6=L ...) M6Q= ...#STR %A M79W ...#SKI M7PG ...( M896 ...#MEN BMSAVJOB M8NQ ... NEWJOBLI @,JL,%C,%D M98B ...#SKI JWPHASE4 M9N2 ...( M=7L ...#MEN JDWRITE M=M= ... NEWJOBLI @,JD,%C,%D M?6W ...) M?LG ...#ALT FACILITIES=FACILITIES+1 M#66 ...) M#KQ ...#EXI M*5B ...) M*K2 ...#TRA %BTEMPLATE1 MB4L ... +34?+0?]+3 MBJ= ... +34?+0?]+%D MC3W ...#TRA %BTEMPLATE2 MCHG ...#REP 4 MD36 ... +34?+0?]+%D MDGQ ...#SKI JWPHASE4 MF2B ... +34?+0?]+%D MF7J ...#UNS FPRJW MF#Q ... +34?+0?]+%D MFG2 ...#TRA %BTEMPLATE3 MF^L ... +34?+0?]+3 MGF= ...#TRA %BTEMPLATE3+1+(FACILITIES*3) MGYW ... %C,+34?+0?-3]+(34?+0?-2]),%D MHDG ...#END MHY6 ...#NOR MJ2P ...) MJ5# ...[??? OLDJOBLI SECT CENT FGN 72 DOC MJ7X ...#SKI JWPHASE4<1$1 MJ=G ...#UNS JWP4REVERT MJ*5 ...( MJCQ ...#MAC OLDJOBLIST MJXB ...#ALT FACILITIES=FACORIG MKC2 ...#MEN BMSAVJOB MKWL ...#TRA JLTEMPLATE1-1 MLB= ... JLTEMPLATE JL MLTW ...#END MM*G ...#SKI JWPHASE4 MMT6 ...( MN#Q ...#MEN JDWRITE MNSB ...#TRA JDTEMPLATE1-1 MP#2 ... JLTEMPLATE JD MPRL ...#END MQ?= ...#MEN JOBDATA MQQW ...#TRA JDTABLES1 MR=G ... JDTABLES V,W,X,Y,Z MRQ6 ...#END MS9Q ...#MEN SETJOBQ MSPB ...#TRA K50SETJOBQ MT92 ... LDX 0 JLMAXSIZE(3) MTNL ...#END MW8= ...#MEN JOBLIST MWMW ...#TRA K50JOBLIST MX7G ... STO 0 JLMAXSIZE(2) MXM6 ...#END MY6Q ...) MYLB ...#NOR MYN^ ...) MYRJ ...[??? NEWJOBDA SECT CENT FGN 72 DOC MYW7 ...#SKI JWPHASE4<1$1 MYYQ ...#UNS JWP4REVERT M^3* ...( M^62 ...#MAC NEWJOBDATA M^KL ... NEWJOBLI ,,%A,%B N25= ...#NOR N2JW ...# N34G ...) N3J6 ...#SKI JWPHASE4<1$1 N43Q ...( N4HB ...#UNS JWP4REVERT N532 ...#SKI N5GL ...( N62= ...#MAC NEWJOBDATA N6FW ...#SKI JWPHASE3 N6^G ...( N7F6 ...#SKI FACILITIES>FACILNO$FACILNO N7YQ ...( N8DB ...#CON NO ROOM FOR NEW FACILITY N8Y2 ...#EXI N9CL ...) N9X= ...#MEN BMSAVJOB N=BW ...#TRA K94BMSAVJOB N=WG ... +FACILITIES+1*3+JLFIXLEN N?B6 ... +JLRECLEN+%B N?TQ ...#FID 0 0 1 N#*B ...#TRA K95BMSAVJOB N#T2 ... +FACILITIES+1*3 N*#L ...#TRA FACILITIES*3+K95BMOUTPUT+1 N*S= ... %A,+JLSTATVAL,%B NB?W ...#TRA K96BMSAVJOB NBRG ... +JLSTATVAL+%B NC?6 ... +JLBUDVAL+%B NCQQ ... +JASSVAL+%B ND=B ... +JLREMVAL+%B NDQ2 ...#END NF9L ...#ALT FACILITIES=FACILITIES+1 NFP= ...#ALT JLRECLEN=JLRECLEN+%B NG8W ...#ALT JLSTATVAL=JLSTATVAL+%B NGNG ...#ALT JASSVAL=JASSVAL+%B NH86 ...#ALT JLBUDVAL=JLBUDVAL+%B NHMQ ...#ALT JLREMVAL=JLREMVAL+%B NJ7B ...) NJM2 ...#NOR NK6L ...) NKL= ...) ^^^^ ...20577417008900000000