{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS WELL)}}
====== MACROS WELL ======
(George Source)
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 HLSFACEKTAB-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 HLSFACEKTAB-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 HLSWAITSKTAB-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