(George Source)
22FL ...[??? OUTPAUSE SECT CENT FGN 2 DOC 22^= # 23DW #MAC OUTPAUSE 23YG LDN 0 %D 24D6 SMO FX2 24XQ STO 0 EXEC3 25CB #STR %E 25X2 %E 26BL #STR %C 26W= #SKI 27*W ( 27TG BRN MMMMSKIP 28*6 MNOCANTDO 28SQ GEOERR 1,CANTDONP 29#B MMMMSKIP 29S2 ) 2=?L DOWN DEMAND,2 2=R= BRN %A 2?=W BRN %B 2?QG #STR %C 2#=6 BRN %C 2#PQ #STR %C 2*9B #SKI 2*P2 BRN MNOCANTDO 2B8L #NOR 2BDD ...[??? TERMON SECT CENT FGN 2 DOC 2BN= # THIS MACRO COMBINES THE TWO PRECEDING ONES, AND IS USED ONLY WHEN 2C7W # THERE IS NO CHANCE OF TIME CAUSING THE MESSAGE TO CHANGE. PARAMETE 2CMG # INCLUDE THE DESTINATION OF OUTPUT OF THE MESSAGE, THE ADDRESS OF T 2D76 # MESSAGE IN THE MFS, AN INITIAL DELAY IF REQUIRED, A SUBSEQUENT TIM 2DLQ # INTERVAL, A WAITING STYLE. AND JUMP ADDRESSES AS WITH OUTPAUSE (EX 2F6B # NO JUMP ADDRESS WHERE IT IS TIME FOR MESSAGE OUTPUT 2FL2 #MAC TERMON 2G5L LDN 0 1 2GK= ADJUSTLK %A 2H4W FON %B 2HJG #NOR 2HS# ...[??? WAITSTOP SECT CENT FGN 2 DOC 2J46 # THIS MACROS CHECKS IF ACTY IS IN LONGWAIT - IF SO AND IN 'DEMAND' 2JHQ # IT SETS THE CANTDO MARKER AND WAKES THE ACTY 2K3B # ELSE IT SENDS THE ACTY DOWN THE BREAKIN PATH 2KH2 # 2L2L # IF THE ACTY IS NOT WAITING EXIT TO %A X0 DESTROYED ONLY 2LG= # ELSE ACTY WOKEN X1,X2 = FX1,FX2 2L^W # ENTRY - X2 -> ACTY 2MFG #MAC WAITSTOP 2M^6 LDX 0 ATYPE(2) 2NDQ ANDN 0 #2000 2NYB BZE 0 %A 2PD2 LDX 1 2 2PXL MWAITSTOP1 2QC= HUNT2J 1,GMON,AOUT,,MWAITSTOP3 [!!CHANGE MK8 2QWW SMO FX1 2RBG LDX 0 MWAITSTOP2 2RW6 ANDX 0 ARECB+1(1) 2S*Q LDCT 0 #400 2STB ORS 0 ARECB(1) 2T*2 BRN MWAITSTOP4 2TSL MWAITSTOP2 2W#= CATMASK SYSREQ 2WRW MWAITSTOP3 2X?G LDN 0 1 2XR6 ADJUSTLK 2 2Y=Q LDN 0 0 2YQB DSA 0 CLONG1(2) 2^=2 MWAITSTOP4 2^PL UNQUEUE 329= FPUT 32NW #NOR 32YN ...[??? OUTEXES SECT CENT FGN 2 DOC 338G # 33N6 # NOTE:- HMON ARE DEFINED IN COMPS MACB 347Q # 34MB #MAC OUTEXES 3572 #STR 0,%A 35LL LDX 0 %A 366= LDX 2 FX2 36KW STO 0 HMON1(2) 375G SRL 0 11 37K6 BZE 0 MLESS 384Q LDN 0 2048 38JB STO 0 HMON1(2) 3942 MLESS 39HL LDN 0 %B 3=3= STO 0 HMON2(2) 3=GW #STR %C 3?2G ( 3?G6 #STR %D 3?^Q LDN 0 %C+%D 3#FB #STR %D 3#^2 #SKI 3*DL LDN 0 %C 3*Y= SLL 0 12 3BCW ORS 0 HMON1(2) 3BXG ) 3CC6 DOWN SETMON,4 3CWQ #NOR 3D6J ...[??? OUTEXESX SECT CENT FGN 2 DOC 3DBB #MAC OUTEXESX 3DW2 #STR 0,%A 3F*L LDX 0 %A 3FT= SMO FX2 3G#W STO 0 HMON1 3GSG SRL 0 11 3H#6 BZE 0 MLESS1 3HRQ LDN 0 2048 3J?B SMO FX2 3JR2 STO 0 HMON1 3K=L MLESS1 3KQ= LDX 0 %B 3L9W LDX 2 FX2 3LPG STO 0 HMON2(2) 3M96 #STR %C 3MNQ ( 3N8B #STR %D 3NN2 LDN 0 %C+%D 3P7L #STR %D 3PM= #SKI 3Q6W LDN 0 %C 3QLG SLL 0 12 3R66 ORS 0 HMON1(2) 3RKQ ) 3S5B DOWN SETMON,4 3SK2 #NOR 3SSS ...[??? OUTNULL SECT CENT FGN 2 DOC 3T4L #MAC OUTNULL [M. WILSON 3TJ= DOWN SETMON,2 3W3W #NOR 3W?N ...[??? OUTPARAM SECT CENT FGN 2 DOC 3WHG #MAC OUTPARAM 3X36 LDX 0 %A 3XGQ LDX 2 FX2 3Y2B STO 0 HMON1(2) 3YG2 LDN 0 %B 3Y^L STO 0 HMON2(2) 3^F= #STR %C 3^YW ( 42DG #STR %D 42Y6 LDN 0 %C+%D 43CQ #STR %D 43XB #SKI 44C2 LDN 0 %C 44WL SLL 0 12 45B= ORS 0 HMON1(2) 45TW ) 46*G DOWN SETMON,4 46T6 #NOR 474Y ...[??? OUTPARAX SECT CENT FGN 2 DOC 47#Q 47SB #MAC OUTPARAX 48#2 LDX 0 %A 48RL SMO FX2 49?= STO 0 HMON1 49QW LDX 0 %B 4==G LDX 2 FX2 4=Q6 STO 0 HMON2(2) 4?9Q #STR %C 4?PB ( 4#92 #STR %D 4#NL LDN 0 %C+%D 4*8= #STR %D 4*MW #SKI 4B7G LDN 0 %C 4BM6 SLL 0 12 4C6Q ORS 0 HMON1(2) 4CLB ) 4D62 DOWN SETMON,4 4DKL #NOR 4DTD ...[??? OUTMESSX SECT CENT FGN 2 DOC 4F5= 4FJW # 4G4G #MAC OUTMESSX [M. WILSON 4GJ6 LDX 0 %A 4H3Q SMO FX2 4HHB STO 0 HMON1 4J32 DOWN SETMON,5 4JGL #NOR 4JQD ...[??? OUTMON SECT CENT FGN 2 DOC 4K2= 4KFW #MAC OUTMON 4K^G #STR 0,%A 4LF6 LDX 0 %A 4LYQ SMO FX2 4MDB STO 0 HMON1 4MY2 LDX 0 %C 4NCL LDX 2 FX2 4NX= STO 0 HMON3(2) 4PBW LDN 0 %B 4PWG STO 0 HMON2(2) 4QB6 #STR %D 4QTQ ( 4R*B #STR %E 4RT2 LDN 0 %D+%E 4S#L #STR %E 4SS= #SKI 4T?W LDN 0 %D 4TRG SLL 0 12 4W?6 ORS 0 HMON1(2) 4WQQ ) 4X=B DOWN MONFILE,4 4XQ2 #NOR 4X^S ...[??? OUTMONX SECT CENT FGN 2 DOC 4Y9L #MAC OUTMONX 4YP= #STR 0,%A 4^8W LDX 0 %A 4^NG SMO FX2 5286 STO 0 HMON1 52MQ LDX 0 %B 537B SMO FX2 53M2 STO 0 HMON2 546L LDX 0 %C 54L= LDX 2 FX2 555W STO 0 HMON3(2) 55KG #STR %D 5656 ( 56JQ #STR %E 574B LDN 0 %D+%E 57J2 #STR %E 583L #SKI 58H= LDN 0 %D 592W SLL 0 12 59GG ORS 0 HMON1(2) 5=26 ) 5=FQ DOWN MONFILE,4 5=^B #NOR 5?98 ...[??? OUTMONY SECT CENT FGN 2 DOC 5?F2 #MAC OUTMONY 5?YL #STR 0,%A 5#D= LDX 0 %A 5#XW SMO FX2 5*CG STO 0 HMON1 5*X6 LDX 0 %B 5BBQ SMO FX2 5BWB STO 0 HMON2 5CB2 LDX 0 %C 5CTL LDX 2 FX2 5D*= STO 0 HMON3(2) 5DSW LDX 0 %D 5F#G ORS 0 HMON1(2) 5FS6 DOWN MONFILE,4 5G?Q #NOR 5GHJ ...[??? SUICIDE SECT CENT FGN 2 DOC 5GRB # 5H?2 # 5HQL #MAC SUICIDE 5J== ACROSS SUICIDE,1 5JPW #NOR 5S#4 ...[??? AMXTRACE SECT CENT FGN 2 DOC 5SHW # 5T3G # 5TH6 #MAC AMXTRACE [V.BHARWANI 5W2Q SMO FX2 5WGB LDX 0 AMXMSK 5X22 ANDX 0 %A 5XFL BZE 0 %B 5X^= #NOR 5YDW # ^^^^ ...44700632000300000000