MACROS RJH
(George Source)
- MACROS RJH.txt
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