{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: HUNTBLOK)}}
====== HUNTBLOK ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:HUNT2|HUNT2]], [[george:macro:LABFIX|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