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