HUNTMACS1
(George Source)
- HUNTMACS1.txt
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