{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACROS RJH)}}
====== MACROS RJH ======
(George Source)
22FL #
22PD ...[??? SHLSQ SECT CENT FGN 71 DOC
22^= # THIS SUBFILE BELONGS TO RICHARD GRIMWADE
23DW #
23YG # THESE MACROS ARE USED BY THE SAVEJOB ROUTINE
24D6 #
24XQ # THIS MACRO SEARCHES THE HLS QUEUE FOR A HLS QUEUE BLOCK WITH A
25CB # SPECIFIED JOB NUMBER
25X2 #MAC SHLSQ
26BL LDN %B BHLSQ
26W= SHLSQ1 LDX %B FPTR(%B)
27*W TXU %B CXHL
27TG BCC %C
28*6 LDX 0 HLSJONO(%B)
28SQ SBX 0 %A
29#B BNG 0 SHLSQ1
29S2 BNZ 0 %C
2=?L #NOR
2=#7 ...[??? STEMPQ SECT CENT FGN 71 DOC
2=#P ...#
2=*S ...#MAC STEMPQ
2=BX ... LDN %B BHTEMP
2=D2 ...MTEMPQ
2=F5 ...%D
2=G8 ... LDX %B FPTR(%B)
2=H? ... BXE %B CXHT,%C
2=JB ... LDX 0 ATYPE(%B)
2=KF ... SRL 0 12
2=LJ ... SBN 0 ADATA+ASUP
2=MM ... BZE 0 MTEMPQ
2=NQ ... BXU %A HLSJONO(%B),MTEMPQ
2=PT ...#NOR
2=QH ...[??? CANTSAVE SECT CENT FGN 71 DOC
2=R= #
2?=W # THIS MACRO SETS 'CANT EVER BE SAVED' BIT IN HLS BLOCK
2?QG #MAC CANTSAVE
2#=6 LDCT 0 #100
2#PQ MOD ORS 0 HLSYONQ,%A
2*9B #NOR
2*F8 ...[??? CANTNOW SECT CENT FGN 71 DOC
2*P2 # THIS MACRO SETS 'CANT BE SAVED NOW BIT' IN HLSQ BLOCK
2B8L #MAC CANTNOW
2BN= LDCT 0 #40
2C7W MOD ORS 0 HLSYONQ,%A
2CMG #STR CLEAR,%B
2D76 #STR
2DLQ MOD ERS 0 HLSYONQ,%A
2F6B #NOR
2FB8 ...[??? HUNTACTJ SECT CENT FGN 71 DOC
2FL2 # THIS MACRO FINDS AN ACT GIVEN :ITS TYPE,JOB NUMBER.
2G5L #MAC HUNTACTJ
2GK= LDX %C FX2
2H4W MHUNTJ1
2HJG LDX %C FPTR(%C)
2J46 TXU %C FX2
2JHQ BCC %D
2K3B LDCH 0 ATYPE(%C)
2KH2 SBN 0 %A/64
2L2L BNZ 0 MHUNTJ1
2LG= LDX 0 JOBNO(%C)
2L^W SBX 0 %B
2MFG BNZ 0 MHUNTJ1
2M^6 #NOR
2R6N ...[??? SAVEBLOK SECT CENT FGN 71 DOC
2RBG # THIS MACRO SAVES A BLOCK IN THE FILE OPEN AT TOP LEVEL(SAVING FILE
2RW6 # IF %A=0,BLOCK SPECIFIED BY %B IS SAVED
2S*Q # =1,BLOCK FOLLOWING THAT SPECIFIED BY %B IS SAVED
2STB # IF %B=1,JOB BLOCK INDICATED
2T*2 # =2,CPAT INDICATED
2TSL #MAC SAVEBLOK
2W#= LDX 0 %C
2WRW SMO FX2
2X?G STO 0 ACOM1
2XR6 DOWN SAVEBLOK,%B%A
2Y=Q #NOR
2YGJ ...[??? SAVECHN SECT CENT FGN 71 DOC
2YQB #
2^=2 #
2^PL # THIS MACRO SAVES THE ACTIVITY CHAIN FROM THE SPEC LOCKED ACT BLOCK
329= # TO THE NEXT ACT BLOCK. IF THE NEXT ACT BLOCK IS AOLPT WITH SAME
32NW # JOB NO,THIS AOLPT IS LOCKED AND ITS ADDRESS PASSED IN EXEC3.
338G # OTHERWISE THE REPLY IS ZERO. INITIALLY HOWEVER THE MACRO GEOERR'S
33N6 # IF SUCH AN AOLPT OCCURS
347Q #
34MB #MAC SAVECHN
3572 LDX 0 %A
35LL SMO FX2
366= STO 0 ACOM1
36KW DOWN SAVEBLOK,3
375G #NOR
37*# ...[??? FJOBLOCK SECT CENT FGN 71 DOC
37K6 # THIS MACRO FREES THE SPEC JOBLOCK AND UPDATES THE WORDS IN THE
384Q # 1ST BLOCK IN THE JOB QUEUE. ITS PARAMETER IS A POINTER TO THE
38JB # JOBLOCK AND MUST BE A MODIFIER
3942 #MAC FJOBLOCK
39HL FREECORE %A
3=3= #NOR
3=?4 ...[??? OUTNUM SECT CENT FGN 71 DOC
3=GW #MAC OUTNUM
3?2G #STR %A,0
3?G6 LDX 0 %A
3?^Q LDX 2 FX2
3#FB STO 0 HMON1(2)
3#^2 #STR OCTAL,%B
3*DL #SKI
3*Y= DOWN SETMON,3 [OCTAL
3BCW #STR 0,%B
3BXG #SKI
3CC6 DOWN SETMON,10 [ZSLJ
3CWQ #STR 0,%B
3DBB (
3DW2 #STR OCTAL,%B
3F*L (
3FT= LDN 0 %B
3G#W STO 0 HMON2(2)
3GSG #STR %C
3H#6 DOWN SETMON,9 [ZSRJ
3HRQ #STR 1,%C
3J?B DOWN SETMON,8 [NON ZS RJ
3JR2 )
3K=L )
3KQ= #NOR
3L24 ...[??? OUTBLOCN SECT CENT FGN 71 DOC
3L9W #MAC OUTBLOCN
3LPG LDN 0 %A
3M96 SMO FX2
3MNQ STO 0 HMON1
3N8B DOWN SETMON,1
3NN2 #NOR
3NXS ...[??? OUTBLOCK SECT CENT FGN 71 DOC
3P7L #MAC OUTBLOCK
3PM= #STR %A,0
3Q6W LDX 0 %A
3QLG SMO FX2
3R66 STO 0 HMON1
3RKQ DOWN SETMON,1
3S5B #NOR
3S*8 ...[??? OUTPARN SECT CENT FGN 71 DOC
3SK2 #MAC OUTPARN
3T4L LDN 0 %A
3TJ= LDX 2 FX2
3W3W STO 0 HMON1(2)
3WHG LDN 0 %B
3X36 STO 0 HMON2(2)
3XGQ #STR %C
3Y2B (
3YG2 #STR %D
3Y^L LDN 0 %C+%D
3^F= #STR %D
3^YW #SKI
42DG LDN 0 %C
42Y6 SLL 0 12
43CQ ORS 0 HMON1(2)
43XB )
44C2 DOWN SETMON,4
44WL #NOR
456D ...[??? OUTPARNX SECT CENT FGN 71 DOC
45B= #MAC OUTPARNX
45TW LDN 0 %A
46*G LDX 2 FX2
46T6 STO 0 HMON1(2)
47#Q LDX 0 %B
47SB STO 0 HMON2(2)
48#2 #STR %C
48RL (
49?= #STR %D
49QW LDN 0 %C+%D
4==G #STR %D
4=Q6 #SKI
4?9Q LDN 0 %C
4?PB SLL 0 12
4#92 ORS 0 HMON1(2)
4#NL )
4*8= DOWN SETMON,4
4*MW #NOR
4*XN ...[??? OUTMOND SECT CENT FGN 71 DOC
4B7G #MAC OUTMOND
4BM6 LDN 0 %A
4C6Q SMO FX2
4CLB STO 0 HMON1
4D62 LDX 0 %C
4DKL LDX 2 FX2
4F5= STO 0 HMON3(2)
4FJW LDN 0 %B
4G4G STO 0 HMON2(2)
4GJ6 #SKI %D
4H3Q (
4HHB #STR %E
4J32 LDN 0 %D+%E
4JGL #STR %E
4K2= #SKI
4KFW LDN 0 %D
4K^G SLL 0 12
4LF6 ORS 0 HMON1(2)
4LYQ )
4MDB DOWN MONFILE,4
4MY2 #NOR
4N7S ...[??? OUTMONDX SECT CENT FGN 71 DOC
4NCL #MAC OUTMONDX
4NX= LDN 0 %A
4PBW SMO FX2
4PWG STO 0 HMON1
4QB6 LDX 0 %C
4QTQ SMO FX2
4R*B STO 0 HMON3
4RT2 LDX 0 %B
4S#L LDX 2 FX2
4SS= STO 0 HMON2(2)
4T?W #STR %D
4TRG (
4W?6 #STR %E
4WQQ LDN 0 %D+%E
4X=B #STR %E
4XQ2 #SKI
4Y9L LDN 0 %D
4YP= SLL 0 12
4^8W ORS 0 HMON1(2)
4^NG )
5286 DOWN MONFILE,4
52MQ #NOR
52XJ ...[??? LOSEPARS SECT CENT FGN 71 DOC
537B #
53M2 #MAC LOSEPARS [LOSES ANY PARAMETERS SET UP
546L LDX 2 FX2
54L= LDCT 0 #100
555W ANDX 0 CLONG1(2)
55KG BZE 0 MLOSEPARS
5656 ERS 0 CLONG1(2)
56JQ MFREE GMON,ASET
574B MLOSEPARS
57J2 #NOR
57RS ...[??? ACCINS SECT CENT FGN 71 DOC
583L # THIS MACRO TEST IF A SPEC. LOCATION IS AN ACC OR NOT.
58H= #MAC ACCINS
592W #ACC %B
59GG (
5=26 LDX 0 %B
5=FQ #STR %D
5=^B MOD %A 0 %C,%D
5?F2 #STR %D
5?YL #SKI
5#D= %A 0 %C
5#XW )
5*CG #ACC %B
5*X6 #SKI
5BBQ (
5BWB #STR %D
5CB2 MOD %A %B %C,%D
5CTL #STR %D
5D*= #SKI
5DSW %A %B %C
5F#G )
5FS6 #NOR
5G3Y ...[??? ACCSTO SECT CENT FGN 71 DOC
5G?Q #MAC ACCSTO
5GRB ACCINS STO,%A,%B,%C
5H?2 #NOR
5HGS ...[??? TANAMONS SECT CENT FGN 71 DOC
5HQL # THIS MACRO ANALYSES AN 'ACTION ON MON FILE' STRING OF PARS.
5J== # ANSWER IN ACOMMUNE1 IF OK, OTHERWISE BRANCHES TO %A
5JPW #MAC TANAMONST
5K9G DOWN REPORT,5
5KP6 BRN %A
5L8Q #NOR
5LDJ ...[??? BANAMONS SECT CENT FGN 71 DOC
5LNB # MACRO TO ANALYSE ACTION ON MONITORING FILE PARAMETER OMITTING
5M82 # PARAMETER WHOSE NUMBER IS %B OF MACRO,LEAVING MASK IN ADATA/AREPOR
5MML #
5N7= #MAC BANAMONST
5NLW ACCSTO %B,ACOMMUNE1,FX2
5P6G DOWN REPORT,10
5PL6 BRN %A
5Q5Q #NOR
5Q*J ...[??? SYNTHMON SECT CENT FGN 71 DOC
5QKB # THIS MACRO ANALYSES THE MONITORING FILE MASK SET IN THE PARAMETER
5R52 # OF THE MACRO AND,USING OUTPARAM,OUTPUTS THE CORRESPONDING
5RJL # CHARACTER STRING.HOWEVER,IF ALL CATEGORIES ARE TO BE OUTPUT,THE
5S4= # CHARACTER STRING 'ALL' WILL BE OUTPUT;IF NO CATEGORIES ARE TO BE
5SHW # OUTPUT,THE CHARACTER STRING 'NONE' WILL BE OUTPUT.
5T3G #MAC SYNTHMON
5TH6 #STR %A,0
5W2Q LDX 0 %A
5WGB LDX 2 FX2
5X22 STO 0 ACOMMUNE1(2)
5XFL #STR %B
5X^= #SKI
5YDW (
5YYG LDN 0 0
5^D6 STO 0 ACOMMUNE2(2)
5^XQ )
62CB #STR %B
62X2 (
63BL LDN 0 %B
63W= STO 0 ACOMMUNE2(2)
64*W )
64TG DOWN SYNMON,1
65*6 #NOR
65JY ...[??? SECHECK SECT CENT FGN 71 DOC
65SQ # THIS MACRO CHECKS THE SECURITY STATUS OF THE USER WHOSE
66#B # DICTIONARY ENTRY IS IN THE FILE/ADICTENT BLOCK SPECIFIED.
66S2 # IF THE SECURITY IS LOW OR NORMAL,CONTROL IS PASSED TO A
67?L # SPECIFIED POINT.IF HIGH,THE INSTRUCTION AFTER THE MACRO
67R= # IS OBEYED.
68=W #MAC SECHECK
68QG LDX 0 CINDIC(%A)
69=6 ANDN 0 3
69PQ BZE 0 %C
6=9B ANDN 0 GHIGH
6=P2 BZE 0 %B
6?8L #NOR
6?DD ...[??? CCON SECT CENT FGN 71 DOC
6?N= # THIS MACRO SETS A BIT TO INDICATE A CANCEL COMMAND HAS BEEN GIVEN
6#7W #
6#MG #MAC CCON
6#SN ...#SKI JSKI15<1$1
6#^W ...(
6*76 LDCT 0 #10
6*LQ SMO FX2
6B6B ORS 0 EXT+11
6B=? ...)
6BB8 ...#SKI JSKI15
6BG5 ... BS FX2,EXCANISS
6BL2 #NOR
6BTS ...[??? CCOFF SECT CENT FGN 71 DOC
6C5L # THIS MACRO UNSETS THE BIT(IF SET) INDICATING THE ISSUE OF A CANCEL
6CK= # COMMAND
6D4W #MAC CCOFF
6D=4 ...#SKI JSKI15<1$1
6DC= ...(
6DJG LDCT 0 #10
6F46 SMO FX2
6FHQ ERX 0 EXT+11
6G3B SMO FX2
6GH2 ANDS 0 EXT+11
6GLX ...)
6GQS ...#SKI JSKI15
6GWP ... MBC FX2,EXCANISS,EXOPCOM
6H2L #NOR
6HG= ...[??? TESTRACE SECT CENT FGN 71 DOC
7=DL # THIS MACRO TESTS A SPECIFIED MASK OF CATEGORY BITS AGAINST THE
7=Y= # OUTPUT-TO-THE-MONITORING-FILE MASK IN THE CPB AND IF ANY OF THE
7?CW # SPECIFIED CATEGORIES ARE MISSING BRANCHES TO THE GIVEN LABEL.
7?XG #MAC TESTRACE
7#C6 SMO FX2
7#WQ LDX 0 AMFMSK
7*BB SMO FX2
7*W2 ORX 0 AMXMSK
7B*L ANDX 0 %A
7BT= BZE 0 %B
7C#W #STR %C
7CSG (
7D#6 TXU 0 %A
7DRQ BCS %C
7F?B )
7FR2 #NOR
7G=L ...[??? CATMASK SECT CENT FGN 71 DOC
8WNG #
8X86 #MAC CATMASK [SET UP CATEGORIES
8X=* ...#STR NONE,%A
8X#J ...#SKI
8XBR ...(
8XF2 ... +0
8XH9 ...#EXI
8XKD ...)
8XMQ #STR %A
8Y7B #STR
8YM2 +0
8^6L #STR %A
8^L= (
925W CATMASK %B,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V
927K ...#STR HLS,%A
929# ...#SKI
92?3 ...(
92#Q ...#DEF 0?=0?-2
92BF ... 34?+0?]^#4000
92D8 ...#DEF 0?=0?+1
92FX ...#EXI
92HL ...)
92KG #FID +CB%A +CB%A 1
9356 )
93JQ #NOR
93SJ ...[??? ASSMESS SECT CENT FGN 71 DOC
944B # MACRO TO ASSEMBLE A MESSAGE,BUT NOT OUTPUT
94J2 #MAC ASSMESS
953L #STR %A,0
95H= LDX 0 %A
962W SMO FX2
96GG STO 0 HMON1
9726 DOWN MONFILE,9
97FQ #NOR
97PJ ...[??? BROADCAS SECT CENT FGN 71 DOC
97^B # TO BROADCAST A SPECIFIED MESSAGE TO ONE
98F2 # OR ALL MOP CONSOLES LOGGED IN
98YL #
99D= # %A IS A UNIVERSAL IDENTIFIER OF THE
99XW # MESSAGE TO BE OUT PUT
9=CG #
9=X6 # %B IF PRESENT, A WORD CONTAINING THE JOB NUMBER
9?BQ # OF THE MOP JOBS TO RECEIVE THE MESSAGE
9?WB # IF ABSENT, INDICATES ALL MOP JOBS
9#B2 #
9#TL # ALL JOBS CASE, IF ACOMMUN2 = 0
9**= #
9*SW #MAC BROADCAST
9B#G SMO FX1
9BS6 LDX 1 M1BROADCAST
9C?Q BCASTX 1,%B
9CRB M1BROADCAST
9D?2 +%A
9DQL #NOR
9F2D ...[??? BCASTX SECT CENT FGN 71 DOC
9F== #
9FPW # BCASTX=BROADCAST EXCEPT THAT %A CONTAINS MESSAGE IDENTIFIER
9G9G #
9GP6 #MAC BCASTX
9H8Q LDX 2 FX2
9HNB STO %A ACOMMUNE1(2)
9J82 #STR %B
9JML (
9K7= LDX 0 %B
9KLW STO 0 ACOMMUNE2(2)
9L6G )
9LL6 #STR %B
9M5Q #STR
9MKB STOZ ACOMMUNE2(2)
9N52 DOWN BCAST,2
9NJL #NOR
9NJY ...[??? BCMILL SECT CENT FGN
9NK= ...#MAC BCMILL
9NKJ ...[ RESTORE TIME MACRO TO SET BROADCAST ENHANCEMENT DS8216
9NKW ...[ ON OR OFF. IT IS ON BY DEFAULT.
9NL8 ...[
9NLG ...#STR ON,%A
9NLS ...#SKI
9NM6 ...(
9NMD ...#MEN BCAST
9NMQ ...#TRA K55BCAST
9NN4 ...SBC +0
9NNB ...#END
9NNN ...#EXI
9NP2 ...)
9NP# ...#STR OFF,%A
9NPL ...! PARAMETER MUST BE ON OR OFF
9NPY ...#STR OFF,%A
9NQ= ...#EXI
9NQJ ...#MEN BCAST
9NQW ...#TRA K55BCAST
9NR8 ...SBC +1
9NRG ...#END
9NRS ...#NOR
9NSD ...[??? INFORM SECT CENT FGN 71 DOC
9P4= # NEW VERSIONS OF SYSTEM MESSAGE PROCESSOR MACROS
9PHW #MAC INFORM
9Q3G ... MONOUTR %A,%B,%D,%E
9QH6 #STR 0,%C
9R2Q (
9RGB HUNTW 1,GMON,AOUT
9S22 BNG 1 M1INFORM
9SFL )
9S^= #STR 1,%C
9TDW (
9TYG MHUNTW 1,GMON,AOUT
9WD6 M2INFORM
9WXQ LDX 1 FPTR(1)
9XCB LDX 0 ATYPE(1)
9XX2 TXL 0 CACT
9YBL BCC M1INFORM
9YW= SRL 0 12
9^*W SBN 0 GMON+AOUT
9^TG BNZ 0 M2INFORM
=2*6 )
=2SQ FREECORE 1
=3#B M1INFORM
=3S2 LDX 1 FX1
=4?L #NOR
=4HD ...[??? INFORMX SECT CENT FGN 71 DOC
=4R= #MAC INFORMX
=5=W ... MONOUTRX %A,%B,%D,%E
=5QG #STR 0,%C
=6=6 (
=6PQ HUNTW 1,GMON,AOUT
=79B BNG 1 M1INFORMX
=7P2 )
=88L #STR 1,%C
=8N= (
=97W MHUNTW 1,GMON,AOUT
=9MG M2INFORMX
==76 LDX 1 FPTR(1)
==LQ LDX 0 ATYPE(1)
=?6B TXL 0 CACT
=?L2 BCC M1INFORMX
=#5L SRL 0 12
=#K= SBN 0 GMON+AOUT
=*4W BNZ 0 M2INFORMX
=*JG )
=B46 FREECORE 1
=BHQ M1INFORMX
=C3B LDX 1 FX1
=CH2 #NOR
=CQS ...[??? DEMAND SECT CENT FGN 71 DOC
=D2L #MAC DEMAND
=DG= LDX 1 FX1
=D^W LDX 2 FX2
=FFG #STR %A
=F^6 (
=GDQ LDN 0 %A
=GYB STO 0 ACOMMUNE1(2)
=HD2 )
=HXL #STR %A
=JC= #SKI
=JWW STOZ ACOMMUNE1(2)
=KBG LDN 0 M1DEMAND(1)
=KW6 LDN 1 EXEC1(2)
=L*Q MOVE 0 2
=LTB BRN M2DEMAND
=M*2 M1DEMAND
=MSL +%B
=N#= #STR %G
=NRW #HAL %F,%G
=P?G #STR %G
=PR6 #SKI
=Q=Q #HAL %F,0
=QQB #STR %C
=R=2 #SKI
=RPL (
=S9= M3DEMAND
=SNW GEOERR 1,CANTDONP
=T8G )
=TN6 #STR %E
=W7Q (
=WMB %E LDX 2 FX2
=X72 NGS 2 EXEC1(2)
=XLL )
=Y6= M2DEMAND
=YKW DOWN DEMAND,1
=^5G #STR %C
=^K6 BRN %C
?24Q #STR %C
?2JB #SKI
?342 BRN M3DEMAND
?3HL BRN %D
?43= #NOR
?4?4 ...[??? DEMANDX SECT CENT FGN 71 DOC
?4GW #MAC DEMANDX
?52G LDX 1 FX1
?5G6 LDX 2 FX2
?5^Q #STR %A
?6FB ACCSTO %A,ACOMMUNE1(2)
?6^2 #STR %A
?7DL #SKI
?7Y= STOZ ACOMMUNE1(2)
?8CW ACCSTO %B,EXEC1(2)
?8XG LDX 0 M1DEMANDX(1)
?9C6 STO 0 EXEC2(2)
?9WQ BRN M2DEMANDX
?=BB M1DEMANDX
?=W2 #STR %G
??*L #HAL %F,%G
??T= #STR %G
?##W #SKI
?#SG #HAL %F,0
?*#6 #STR %C
?*RQ #SKI
?B?B (
?BR2 M3DEMANDX
?C=L GEOERR 1,CANTDONP
?CQ= )
?D9W #STR %E
?DPG (
?F96 %E LDX 2 FX2
?FNQ NGS 2 EXEC1(2)
?G8B )
?GN2 M2DEMANDX
?H7L DOWN DEMAND,1
?HM= #STR %C
?J6W BRN %C
?JLG #STR %C
?K66 #SKI
?KKQ BRN M3DEMANDX
?L5B BRN %D
?LK2 #NOR
?LSS ...[??? DEMANDY SECT CENT FGN 71 DOC
?M4L #MAC DEMANDY
?MJ= LDX 1 FX1
?N3W LDX 2 FX2
?NHG #STR %A
?P36 ACCSTO %A,ACOMMUNE1(2)
?PGQ #STR %A
?Q2B #SKI
?QG2 STOZ ACOMMUNE1(2)
?Q^L ACCSTO %B,EXEC1(2)
?RF= ACCSTO %F,EXEC2(2)
?RYW #STR %C
?SDG #SKI
?SY6 (
?TCQ BRN M1DEMANDY
?TXB M2DEMANDY GEOERR 1,CANTDONP
?WC2 )
?WWL #STR %E
?XB= (
?XTW #STR %C
?Y*G BRN M1DEMANDY
?YT6 %E LDX 2 FX2
?^#Q NGS 2 EXEC1(2)
?^SB )
#2#2 M1DEMANDY DOWN DEMAND,1
#2RL #STR %C
#3?= BRN %C
#3QW #STR %C
#4=G #SKI
#4Q6 BRN M2DEMANDY
#59Q BRN %D
#5PB #NOR
#5^8 ...[??? ANYWH SECT CENT FGN 71 DOC
#692 #
#6NL # TO TEST IF ANY OUTPUT IS REQUIRED TO THE MONITORING
#78= # FILE AND/OR MOP CONSOLE
#7MW #MAC ANYWH
#87G MOD LDX 0 AMXMSK,%A
#8M6 MOD ORX 0 AMFMSK,%A
#96Q ANDX 0 %B
#9LB BZE 0 %C
#=62 #NOR
#=*S ...[??? WHERETO SECT CENT FGN 71 DOC
#=KL #
#?5= # TO TEST IF ANY MOP OUTPUT IS REQUIRED
#?JW #MAC WHERETO
##4G MOD LDX 0 AMXMSK,%A
##J6 ANDX 0 %B
#*3Q BNZ 0 %C
#*HB #NOR
#*R8 ...[??? OLMFA SECT CENT FGN 71 DOC
#B32 #
#BGL #MAC OLMFA
#C2= TESTREPN FNEARLY,M1OLMFA
#CFW DOWN PROCONTX,12
#C^G M1OLMFA
#DF6 #NOR
#DNY ...[??? OLMF SECT CENT FGN 71 DOC
#DYQ #
#FDB #MAC OLMF
#FY2 LDX 2 %A
#GCL STEP -1,0(2)
#GX= TESTREPN FILEFULL,M1OLMF
#HBW DOWN PROCONTX,12
#HWG FCAPCA 2,APETADDR(2)
#JB6 STOZ AMFMSK(2)
#JTQ LDX 2 FX2
#K*B BRN %C
#KT2 M1OLMF
#L#L LDX 0 %A
#LS= STO 0 0(3)
#M?W LDX 0 %B
#MRG STO 0 1(3)
#N?6 ADN 3 2
#NQQ #NOR
#P2J ...[??? IPCONT SECT CENT FGN 71 DOC
#P=B #
#PQ2 #
#Q9L #
#QP= # THIS MACRO CONVERTS A CONTEXT TYPE IP TO CHARS IN ACOMMUNE1 ONWARD
#R8W # %A = WORD TO BE CONVERTED
#RNG # %B = ACCUMULATOR TO HOLD CH CT ON EXIT
#S86 #
#SMQ #MAC IPCONT
#T7B LDN %B 0
#TM2 LDX 2 FX2
#W6L LDN 1 3
#WL= M1IPCONT
#X5W LDX 0 %A
#XKG SMO FX1
#Y56 ANDX 0 M2IPCONT-1(1)
#YJQ BZE 0 M3IPCONT
#^4B NGN 0 #34(1)
#^J2 DCH 0 ACOMMUNE1(2)
*23L BCHX 2 M4IPCONT
*2H= M2IPCONT
*32W +JCONTEXTC
*3GG +JCONTEXTB
*426 +JCONTEXTA
*4FQ M4IPCONT
*4^B LDN 0 #34
*5F2 DCH 0 ACOMMUNE1(2)
*5YL BCHX 2 £
*6D= ADN %B 2
*6XW M3IPCONT
*7CG BCT 1 M1IPCONT
*7X6 SBN %B 1
*8BQ LDX 1 FX1
*8WB LDX 2 FX2
*9B2 #NOR
*9KS ...[??? OUTPMILL SECT CENT FGN 71 DOC
*9TL #MAC OUTPMILL
*=*= FJOCA 2,FX2,N
*=SW LDXC 0 HCLOCKTIME(2)
*?#G LDX 1 HCLOCKTIME+1(2)
*?S6 BNZ 0 M2OUTP
*#?Q ... SBN 1 1000
**?2 BNG 1 M1OUTP
**QL M2OUTP OUTPARC PROGMILL
*B== M1OUTP LDX 1 FX1
*BPW LDX 2 FX2
*C9G #NOR
^^^^ ...37547123007400000000