{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: HUNTMACS1)}}
====== HUNTMACS1 ======
(George Source)
229S ...[??? HUNT2 SECT CENT FGN 1 DOC
22FL #
22^= # R.TERRY
23DW #
23YG #MAC HUNT2 [THIS MACRO SEARCHES FOR A BLOCK
24D6 #STR %D
24XQ LDX %A %D
25CB MHUNT2 LDX %A FPTR(%A)
25X2 LDX 0 ATYPE(%A)
26BL SRL 0 12
26W= SBN 0 %B+%C
27*W BNZ 0 MHUNT2
27TG #NOR
285# ...[??? HUNT2B SECT CENT FGN 1 DOC
28*6 #
28SQ # SEARCHES BACKWARDS FROM CURRENT POSITION FOR BLOCK
29#B #
29S2 #MAC HUNT2B
2=?L #STR %D
2=R= LDX %A %D
2?=W MHUNT2B LDX %A BPTR(%A)
2?QG LDX 0 ATYPE(%A)
2#=6 SRL 0 12
2#PQ SBN 0 %B+%C
2*9B BNZ 0 MHUNT2B
2*P2 #NOR
2*YS ...[??? HUNTACT SECT CENT FGN 1 DOC
2B8L #MAC HUNTACT
2BN= #STR %C
2C7W LDX %B %C
2CMG MHUNTACT
2D76 LDX %B BPTR(%B)
2DLQ LDCH 0 ATYPE(%B)
2F6B SBN 0 %A/64
2FL2 BNZ 0 MHUNTACT
2G5L #NOR
2G*D ...[??? HUNTACTF SECT CENT FGN 1 DOC
2GK= #MAC HUNTACTF
2H4W #STR %C
2HJG LDX %B %C
2J46 MHUNTACTF
2JHQ LDX %B FPTR(%B)
2K3B LDCH 0 ATYPE(%B)
2KH2 SBN 0 %A/64
2L2L BNZ 0 MHUNTACTF
2LG= #NOR
2LQ4 ...[??? HUNTC SECT CENT FGN 1 DOC
2L^W # SPECIAL COMMAND ROUTINE HUNT WHICH STOPS AT FIRST CPB/CALAS BLOCK
2MFG #MAC HUNTC
2M^6 LDX %A FX2
2NDQ MHUN1 LDX %A FPTR(%A)
2NYB LDX 0 ATYPE(%A)
2PD2 SRL 0 12
2PXL SBN 0 CPB
2QC= BZE 0 %D
2QWW SBADN 0,%C+%B-CPB
2RBG BNZ 0 MHUN1
2RW6 #NOR
2S5Y ...[??? FINDACTF SECT CENT FGN 1 DOC
2S*Q #
2STB #
2T*2 #MAC FINDACTFB [SEARCHES FORWARDS OR BACKWARDS FROM
2TSL #STR %B [ A GIVEN BLOCK ALONG THE ACTIVITY
2W#= LDX %A %B [ RING FOR A BLOCK OF SPECIFIED TYPE/
2WRW MFINDACTFB1 [ SUBTYPE
2X?G LDX %A ACTRING+%F(%A)
2XR6 SBN %A ACTRING [ %A MODIFIER TO POINT TO FOUND BLOCK
2Y=Q #STR %E [ %B START (ABSENT THEN %A=START)
2YQB BXE %A FX2,%E [ %C TYPE OF BLOCK SOUGHT
2^=2 [ %D SUBTYPE OF BLOCK SOUGHT
2^PL [ %E LABEL IF CURRENT ACTY FOUND 1ST.
329= LDCH 0 ATYPE(%A) [ %F FPTR OR BPTR FOR FORWARD OR
32NW SBN 0 %C/64 [ BACKWARD SEARCH
338G BNZ 0 MFINDACTFB1
33N6 [
347Q #STR %D
34MB (
3572 BCHX %A £
35LL LDCH 0 ATYPE(%A)
366= SBN 0 %D
36KW BNZ 0 MFINDACTFB1
375G ANDX %A BITS22LS
37K6 )
384Q #NOR
38#J ...[??? FINDACTN SECT CENT FGN 1 DOC
38JB #
3942 #MAC FINDACTNO [ACC %A:=ACTIVITY WHOSE NO IS [%B]
39HL LDX 0 %B
3=3= LDN %A BACT
3=GW MFINDACTNO1
3?2G LDX %A ACTRING+FPTR(%A)
3?G6 SBN %A ACTRING
3?^Q #STR %C
3#FB BXE %A CXAC,%C
3#^2 BXU 0 ACTNUM(%A),MFINDACTNO1
3*DL #NOR
3*ND ...[??? FCJOB SECT CENT FGN 1 DOC
3*Y= #
3BCW #MAC FCJOB
3BXG [
3CC6 [ FINDS CURRENT JOB BLOCK FROM A SUBSET OF PCA CPA OLPA ACTIVITIES
3CWQ [ DEFINED BY %C %D %E
3DBB [ %A MODIFIER TO POINT TO JOB BLOCK; %B PNTR TO CURRENT ACTY;IF ABSENT
3DW2 [ ASSUMED = %A ;%C=PCA OR ABSENT ;%D=CPA OR ABSENT ;%E=OLPA OR ABSENT
3F*L [
3FT= #STR %B
3G#W LDX %A %B
3GSG #STR %C
3H#6 (
3HRQ #STR %D%E
3J?B (
3JR2 #OPT MFCJOB10=APET/64
3K=L LDCH 0 ATYPE(%A)
3KQ= SBN 0 MFCJOB10
3L9W BZE 0 MFCJOB3
3LPG )
3M96 )
3MNQ #STR %D
3N8B (
3NN2 #STR %E
3P7L (
3PM= #STR %C
3Q6W #SKI
3QLG LDCH 0 ATYPE(%A)
3R66 #OPT MFCJOB10=0
3RKQ SBADN 0,CPAT/64-MFCJOB10
3S5B BNZ 0 MFCJOB2
3SK2 )
3T4L FJOCA %A,,N
3TJ= #STR %C%E
3W3W BRN MFCJOB4
3WHG MFCJOB2
3X36 )
3XGQ #STR %E
3Y2B (
3YG2 MFCJOB6
3Y^L FINDACTFB %A,,APET,,,BPTR
3^F= LDX 0 JOBRING+BPTR(%A)
3^YW BZE 0 MFCJOB6 [IF TP PCA NOT ON JOBRING,PUC PCA IS
42DG )
42Y6 #STR %C%E
43CQ (
43XB MFCJOB3
44C2 FJOPCA %A,,N
44WL )
45B= #FRE MFCJOB10
45TW MFCJOB4
46*G #SKI K6ALLGEO
46T6 (
47#Q LDCH 0 ATYPE(%A)
47SB SBN 0 JOBQE/64
48#2 BZE 0 MFCJOB5
48RL GEOERR 1,JBBLOCK?
49?= MFCJOB5
49QW )
4==G #NOR
4=G# ...[??? HUNT SECT CENT FGN 1 DOC
4=Q6 # MACROS WHICH CALL FIXED CORE SEGMENT HUNTBLOCK
4?9Q #
4?PB #
4#92 #MAC HUNT
4#NL #STR %C
4*8= #SKI
4*MW (
4B7G LDX %A FX2
4BM6 MHUNT LDX %A FPTR(%A)
4C6Q LDCH 0 ATYPE(%A)
4CLB SBN 0 %B/64
4D62 BZE 0 MHUNT1
4DKL LDX 0 ATYPE(%A)
4F5= BXL 0 CACT,MHUNT
4FJW NGN %A #7777
4G4G MHUNT1
4GJ6 )
4H3Q #STR %C
4HHB (
4J32 CALL %A (JHUNT%A)
4JGL #HAL %B+%C,0
4K2= )
4KFW #NOR
4KPN ...[??? HUNTW SECT CENT FGN 1 DOC
4K^G #
4LF6 #MAC HUNTW
4LYQ CALL %A (JHUNTW%A)
4MDB #HAL %C+%B,0
4MY2 #NOR
4N7S ...[??? MHUNT SECT CENT FGN 1 DOC
4NCL #
4NX= #MAC MHUNT
4PBW #STR %C
4PWG #SKI
4QB6 (
4QTQ LDX %A FX2
4R*B MMHUNT LDX %A FPTR(%A)
4RT2 LDCH 0 ATYPE(%A)
4S#L SBN 0 %B/64
4SS= BNZ 0 MMHUNT
4T?W )
4TRG #STR %C
4W?6 (
4WQQ CALL %A (JMHUNT%A)
4X=B #HAL %B+%C,0
4XQ2 )
4Y9L #NOR
4YFD ...[??? MHUNTW SECT CENT FGN 1 DOC
4YP= #
4^8W #MAC MHUNTW
4^NG CALL %A (JMHUNTW%A)
5286 #HAL %C+%B,0
52MQ #NOR
52XJ ...[??? HUNTX SECT CENT FGN 1 DOC
537B #
53M2 #MAC HUNTX
546L LDX 0 %B
54L= ANDX 0 HALFTOP
555W CALL %A (JHUNTX%A)
55KG #NOR
55T# ...[??? MHUNTX SECT CENT FGN 1 DOC
5656 #
56JQ #MAC MHUNTX
574B LDX 0 %B
57J2 ANDX 0 HALFTOP
583L CALL %A (JMHUNTX%A)
58H= #NOR
58R4 ...[??? FIND SECT CENT FGN 1 DOC
592W #
59GG #MAC FIND
5=26 LDX 0 %B
5=FQ CALL %A (JFIND%A)
5=^B #NOR
5?98 ...[??? MFIND SECT CENT FGN 1 DOC
5?F2 #
5?YL #MAC MFIND
5#D= LDX 0 %B
5#XW CALL %A (JMFIND%A)
5*CG #NOR
5*M# ...[??? VFREE SECT CENT FGN 1 DOC
5*X6 #
5BBQ #MAC VFREE
5BWB HUNT 1,%A,%B
5CB2 BNG 1 MVFREE
5CTL FREECORE 1
5D*= MVFREE
5DSW #NOR
5F4N ...[??? VFREEW SECT CENT FGN 1 DOC
5F#G #
5FS6 #MAC VFREEW
5G?Q HUNTW 1,%A,%B
5GRB BNG 1 MVFREEW
5H?2 FREECORE 1
5HQL MVFREEW
5J== #NOR
5JG4 ...[??? MFREE SECT CENT FGN 1 DOC
5JPW #
5K9G #MAC MFREE
5KP6 MHUNT 1,%A,%B
5L8Q FREECORE 1
5LNB #NOR
5LY8 ...[??? MFREEW SECT CENT FGN 1 DOC
5M82 #
5MML #MAC MFREEW
5N7= MHUNTW 1,%A,%B
5NLW FREECORE 1
5P6G #NOR
^^^^ ...64741411000100000000