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