(George Source)
Macros used: BXE, BXL, BXU, HUNT2, LABFIX
22FL #LIS K0HUNTBLOK>K0KERNEL>K0ALLGEO 22^= #SEG HUNTBLOK1 [ BILL IZATT 23DW [ 23YG [ HUNT (%A=1) 24D6 [ 24XQ LABFIX HUNT1 25CB LDX 0 0(1) [ PICK UP BLOCK TYPE/SYBTYPE 25X2 ADN 1 1 [STEP LINK 26BL LABFIX HUNTX1 26W= STO 0 HUNTED [ STORE TYPE/SUBTYPE 27*W STO 1 FLINK [AND DUMP IT 27TG LDX 1 FX2 28*6 R1A LDX 1 FPTR(1) [GET ADDRESS OF NEXT BLOCK 28SQ LDX 0 ATYPE(1) [GET TYPE 29#B ANDX 0 HALFTOP [TOP 12 BITS ONLY 29S2 BXE 0 HUNTED,R1B [J IF BLOCK FOUND 2=?L BXL 0 CACT,R1A [J IF NOT REACHED AN ACTIVITY BLOCK 2=R= NGN 1 #7777 [INDICATE BLOCK NOT FOUND 2?=W R1B BRN (FLINK) [EXIT TO CALLING ROUTINE 2?QG [ 2#=6 [ HUNT (%A=2) 2#PQ [ 2*9B LABFIX HUNT2 2*P2 LDX 0 0(2) 2B8L ADN 2 1 2BN= LABFIX HUNTX2 2C7W STO 0 HUNTED 2CMG STO 2 FLINK 2D76 LDX 2 FX2 2DLQ R2A LDX 2 FPTR(2) 2F6B LDX 0 ATYPE(2) 2FL2 ANDX 0 HALFTOP 2G5L BXE 0 HUNTED,R2B 2GK= BXL 0 CACT,R2A 2H4W NGN 2 #7777 2HJG R2B BRN (FLINK) 2J46 [ 2JHQ [ HUNT (%A=3) 2K3B [ 2KH2 LABFIX HUNT3 2L2L LDX 0 0(3) 2LG= ADN 3 1 2L^W LABFIX HUNTX3 2MFG STO 0 HUNTED 2M^6 STO 3 FLINK 2NDQ LDX 3 FX2 2NYB R3A LDX 3 FPTR(3) 2PD2 LDX 0 ATYPE(3) 2PXL ANDX 0 HALFTOP 2QC= BXE 0 HUNTED,R3B 2QWW BXL 0 CACT,R3A 2RBG NGN 3 #7777 2RW6 R3B BRN (FLINK) 2S*Q [ 2STB [ HUNTW(%A=1) 2T*2 [ 2TSL LABFIX HUNTW1 2W#= LDX 0 0(1) 2WRW ADN 1 1 2X?G LABFIX FIND1 2XR6 STO 0 HUNTED 2Y=Q STO 1 FLINK 2YQB LDX 1 FX2 2^=2 R4A LDX 1 FPTR(1) 2^PL LDX 0 ATYPE(1) 329= BXE 0 HUNTED,R4B 32NW BXL 0 CACT,R4A 338G NGN 1 #7777 33N6 R4B BRN (FLINK) 347Q [ 34MB [ HUNTW (%A=2) 3572 [ 35LL LABFIX HUNTW2 366= LDX 0 0(2) 36KW ADN 2 1 375G LABFIX FIND2 37K6 STO 0 HUNTED 384Q STO 2 FLINK 38JB LDX 2 FX2 3942 R5A LDX 2 FPTR(2) 39HL LDX 0 ATYPE(2) 3=3= BXE 0 HUNTED,R5B 3=GW BXL 0 CACT,R5A 3?2G NGN 2 #7777 3?G6 R5B BRN (FLINK) 3?^Q [ 3#FB [ HUNTW (%A=3) 3#^2 [ 3*DL LABFIX HUNTW3 3*Y= LDX 0 0(3) 3BCW ADN 3 1 3BXG LABFIX FIND3 3CC6 STO 0 HUNTED 3CWQ STO 3 FLINK 3DBB LDX 3 FX2 3DW2 R6A LDX 3 FPTR(3) 3F*L LDX 0 ATYPE(3) 3FT= BXE 0 HUNTED,R6B 3G#W BXL 0 CACT,R6A 3GSG NGN 3 #7777 3H#6 R6B BRN (FLINK) 3HRQ # 3J?B #SKI K6HUNTBLOK<1$1 3JR2 ( 3K=L # MHUNT (%A=1) 3KQ= # 3L9W R7 LDX 0 0(1) 3LPG ADN 1 1 3M96 RX7 STO 0 HUNTED 3MNQ STO 1 FLINK 3N8B LDX 1 FX2 3NN2 R7A LDX 1 FPTR(1) 3P7L LDX 0 ATYPE(1) 3PM= ANDX 0 HALFTOP 3Q6W BXU 0 HUNTED,R7A 3QLG BRN (FLINK) 3R66 # 3RKQ # MHUNT (%A=2) 3S5B # 3SK2 R8 LDX 0 0(2) 3T4L ADN 2 1 3TJ= RX8 STO 0 HUNTED 3W3W STO 2 FLINK 3WHG LDX 2 FX2 3X36 R8A LDX 2 FPTR(2) 3XGQ LDX 0 ATYPE(2) 3Y2B ANDX 0 HALFTOP 3YG2 BXU 0 HUNTED,R8A 3Y^L BRN (FLINK) 3^F= # 3^YW # MHUNT (%A=3) 42DG # 42Y6 R9 LDX 0 0(3) 43CQ ADN 3 1 43XB RX9 STO 0 HUNTED 44C2 STO 3 FLINK 44WL LDX 3 FX2 45B= R9A LDX 3 FPTR(3) 45TW LDX 0 ATYPE(3) 46*G ANDX 0 HALFTOP 46T6 BXU 0 HUNTED,R9A 47#Q BRN (FLINK) 47SB # 48#2 # MHUNTW (%A=1) 48RL # 49?= R10 LDX 0 0(1) 49QW ADN 1 1 4==G RF10 STO 1 FLINK 4=Q6 LDX 1 FX2 4?9Q R10A LDX 1 FPTR(1) 4?PB BXU 0 ATYPE(1),R10A 4#92 BRN (FLINK) 4#NL # 4*8= # MHUNTW (%A=2) 4*MW # 4B7G R11 LDX 0 0(2) 4BM6 ADN 2 1 4C6Q RF11 STO 2 FLINK 4CLB LDX 2 FX2 4D62 R11A LDX 2 FPTR(2) 4DKL BXU 0 ATYPE(2),R11A 4F5= BRN (FLINK) 4FJW # 4G4G # MHUNTW (%A=3) 4GJ6 # 4H3Q R12 LDX 0 0(3) 4HHB ADN 3 1 4J32 RF12 STO 3 FLINK 4JGL LDX 3 FX2 4K2= R12A LDX 3 FPTR(3) 4KFW BXU 0 ATYPE(3),R12A 4K^G BRN (FLINK) 4LF6 ) 4LYQ # 4MDB #END ^^^^ ...77343005000200000000