WORK-MACROS
(George Source)
- WORK-MACROS.txt
22FL ...[??? CREATEWF SECT FILE FGN 4 DOC 2F6B # THIS MACRO , ISSUED FROM A CPAT , SETS UP THE FILE/FCB AND A 2FL2 # FILE/FEXTRA BLOCK FOR A SERIAL WORKFILE AND CHAINS THEM IN THE 2G5L # WORKFILE RING. IT ALSO SETS UP A FILE/FABSNB IN THE CORRECT FORMAT 2GK= # FOR OPENWORK MACRO 2H4W #MAC CREATEWF 2HJG DOWN CREATE,2 2J46 #NOR 2J?Y ...[??? DELETEWO SECT FILE FGN 4 DOC 2JHQ #MAC DELETEWORK 2K3B DOWN WORKFILE,3 2KH2 #NOR 2KQS ...[??? DELWORK SECT FILE FGN 4 DOC 2L2L #MAC DELWORK 2LG= DOWN WORKFILE,13 2L^W #NOR 2M9N ...[??? ERALLWF SECT FILE FGN 4 DOC 2MFG #MAC ERALLWF 2M^6 DOWN WORKFILE,4 2NDQ #NOR 2NNJ ...[??? ERASEWOR SECT FILE FGN 4 DOC 2NYB #MAC ERASEWORK 2PD2 DOWN WORKFILE,2 2PXL #NOR 2Q7D ...[??? FINDFEXT SECT FILE FGN 4 DOC 2QC= #MAC FINDFEXTRA 2QWW #SKI %B 2RBG LDX %B FPTR(%A) 2RW6 #SKI %B 2S*Q #SKI 2STB LDX %A FPTR(%A) 2T*2 M1FINDFEX 2TSL #SKI %B 2W#= LDX 0 ATYPE(%B) 2WRW #SKI %B 2X?G #SKI 2XR6 LDX 0 ATYPE(%A) 2Y=Q SRL 0 12 2YQB SBN 0 FILE+FEXTRA 2^=2 BZE 0 M2FINDFEX 2^PL ADN 0 FEXTRA-FCB 329= BZE 0 M3FINDFEX 32NW #SKI %B 338G LDX %B FPTR(%B) 33N6 #SKI %B 347Q #SKI 34MB LDX %A FPTR(%A) 3572 BRN M1FINDFEX 35LL M3FINDFEX 366= GEOERR 1,NOFEXTRA 36KW M2FINDFEX 375G #NOR 37*# ...[??? FINDWFL SECT FILE FGN 4 DOC 37K6 #MAC FINDWFL 3942 HUNT 2,FILE,FABSNB 39HL LDX 0 A1+1(2) 3=3= ADN 0 1 3=GW #SKI %A-3 3?2G STO 3 GEN0 3?G6 ... LDX 1 FX2 3?^Q ... BASEFCB 1,WORK,M2FINDWFL,3 [SET UP FOR WORKRING SEARCH 3#FB ...M1FINDWFL 3#^2 ... LDX 2 FCOMM-FCBRING(1) [IGNORE TO BE ERASED FILES 3*DL ... ANDN 2 1 3*Y= ... BNZ 2 M4FINDWFL 3BCW ... BCT 0 M4FINDWFL 3BXG ... SBN 1 FCBRING [CORRECT LEVEL FOUND 3DW2 #SKI %A-1 3F*L LDX %A 1 3FT= SETREP OK 3G#W BRN M3FINDWFL 3GG4 ...M4FINDWFL 3GM= ... NEXTFCB 1,WORK,M1FINDWFL,3 3GSG M2FINDWFL 3H#6 SETREP NOTFOUND 3HRQ M3FINDWFL 3J?B #SKI %A-1 3JR2 LDX 1 FX1 3K=L #SKI %A-2 3KQ= LDX 2 FX2 3L9W #SKI %A-3 3LPG LDX 3 GEN0 3M96 #NOR 3MDY ...[??? FINDWFN SECT FILE FGN 4 DOC 3MNQ #MAC FINDWFN 3N8B ...#SKI %A 3NN2 ...( 3P7L ... LDN 1 %A 3PM= ... FINDWN 1,%B,%C,%D 3Q6W ...#EXI 3QLG ...) 3R66 ... FINDWN ,%B,%C,%D 4?PB #NOR 4?^8 ...[??? FINDWN SECT FILE FGN 4 DOC 4#92 #MAC FINDWN 4#DS ...#SKI %A 4#NL ...( 4#YD ...#SKI %A-1 4*8= ... LDX 1 %A 4*D4 ...) 4*MW #SKI %A 4B7G #SKI 4BM6 ( 4C6Q SMO FX2 4CLB LDN 1 BWORKRING 4D62 ) 4DKL HUNT 2,FILE,FABSNB 4F5= LDX 2 A1+4(2) 4FJW #SKI %B-3 4G4G STO 3 GEN0 4GJ6 LDX 3 1 4H3Q M1FINDWN 4HHB LDX 1 0(1) 4J32 BXE 1 3,M2FINDWN 4J*C ... ADN 1 FCBRING 4JMS ... LDX 3 1 4K29 ...M4FINDWN 4K#L ... BXU 2 FLOC1-FCBRING(1),M6FINDWN 4KM3 ...#SKI %C 4K^D ...#SKI 4L?T ...( 4LL= ...#STR %D 4LYM ...( 4M?4 ... LDX 0 %D [1MEANS TO BE ERASED ALLOWED 4MKF ... BNZ 0 M5FINDWN 4MXW ...) 4N=? ... LDX 0 FCOMM-FCBRING(1) 4NJN ... ANDN 0 1 [TO BE ERASED FILES NOT ALLOWED 4NX5 ... BNZ 0 M6FINDWN 4P9G ...M5FINDWN 4PHX ...) 4PWG #SKI %B-1 4QB6 LDX %B 1 4QKY ... SBN %B FCBRING 4QTQ SETREP OK 4R*B BRN M3FINDWN 4RGJ ...M6FINDWN 4RMQ ... NEXTFCB 1,WORK,M4FINDWN,3 [TRY NEXT FCB 4RT2 M2FINDWN 4S#L SETREP NOTFOUND 4SS= M3FINDWN 4T?W #SKI %B-1 4TRG LDX 1 FX1 4W?6 #SKI %B-2 4WQQ LDX 2 FX2 4X=B #SKI %B-3 4XQ2 LDX 3 GEN0 4Y9L #NOR 52CY ...[??? FREZWF SECT FILE FGN 4 DOC 52MQ #MAC FREZWF 537B FINDWFN ,2 53M2 LDN 0 1 546L ADS 0 FREEZECOUNT(2) 54L= LDX 2 FX2 555W #NOR 55*N ...[??? GETDIRWO SECT FILE FGN 4 DOC 55KG #MAC GETDIRWORK 5656 #SKI %A 56JQ #SKI 574B DOWN OPENWORK,3 57J2 #SKI %A 583L DOWN OPENWORK,13 58H= #NOR 58R4 ...[??? OCTCON SECT FILE FGN 4 DOC 592W #MAC OCTCON 59GG LDX 3 %A 5=26 LDN 0 4 5=FQ LDN 4 0 5=^B LDN 5 0 5?F2 BZE 3 M4OCTCON 5?YL BRN M2OCTCON 5#D= M1OCTCON 5#XW SLA 5 3 5*CG M2OCTCON 5*X6 LDN 2 0 5BBQ SLL 23 6 5BWB BNZ 5 M3OCTCON 5CB2 BNZ 2 M3OCTCON 5CTL BCT 0 M2OCTCON 5D*= BRN M6OCTCON 5DSW M3OCTCON 5F#G ADX 5 2 5FS6 BCT 0 M1OCTCON 5G?Q BNZ 4 M5OCTCON 5GRB M6OCTCON 5H?2 LDN 0 4 5HQL M4OCTCON 5J== LDN 4 1 5JPW LDX 3 1+%A 5K9G BNZ 5 M1OCTCON 5KP6 BNZ 3 M2OCTCON 5L8Q GEOERR 1,ZERJONO 5LNB M5OCTCON 5M82 #NOR 5MCS ...[??? OPENTEST SECT FILE FGN 4 DOC 5MML #MAC OPENTEST 5N7= DOWN OPENWORK,5 5NLW BRN %A 5P6G BRN %B 5PL6 #NOR 5PTY ...[??? OPENWORK SECT FILE FGN 4 DOC 5Q5Q #MAC OPENWORK 5QKB BRN M2OPENWORK 5R52 M1OPENWORK +A%B+A%C+A%D+A%E+A%F+A%G+A%H+A%I 5RJL M2OPENWORK 5S4= SMO FX1 5SHW LDX 0 M1OPENWORK 5T3G SMO FX2 5TH6 STO 0 EXEC1 5W2Q DOWN OPENWORK,1 5WGB BRN %A 5X22 #NOR 5X9S ...[??? OPENWORX SECT FILE FGN 4 DOC 5XFL #MAC OPENWORX 5X^= #STR %B,0 5YDW LDX 0 %B 5YYG LDX 2 FX2 5^D6 STO 0 EXEC1(2) 5^XQ DOWN OPENWORK,1 62CB BRN %A 62X2 #NOR 636S ...[??? THAWWF SECT FILE FGN 4 DOC 63BL #MAC THAWWF 63W= DOWN OPENWORK,4 64*W BRN %A 64TG #NOR 655# ...[??? UNOPCH SECT FILE FGN 4 DOC 65*6 #MAC UNOPCH 65SQ LDX 0 CTOPEN(%A) 66#B SRL 0 12 66S2 ANDN 0 #5777 67?L BNZ 0 %B 67R= LDCT 0 #200 68=W ANDX 0 FINFC(%A) 68QG BNZ 0 %B 69=6 #NOR 69FY ...[??? USERCRWF SECT FILE FGN 4 DOC 69PQ [ THE FOLLOWING MACRO UPDATES THE FCB & FEXTRA FOR A WORKFILE WHICH HAS 6=9B [ NOT BEEN WRITTEN TO FROM THE CREATE BLOCK. 6=P2 #MAC USERCRWF 6?8L DOWN OPENWORK,8 6?N= #NOR 6?Y4 ...[??? WORKNAME SECT FILE FGN 4 DOC 6#7W #MAC WORKNAME 6#MG #SKI %A 6*76 ( 6*LQ LDX 0 %A 6B6B SMO FX2 6BL2 STO 0 ACOMMUNE1 6C5L ) 6CK= #SKI %A 6D4W #SKI 6DJG ( 6F46 SMO FX2 6FHQ STOZ ACOMMUNE1 6G3B ) 6GH2 DOWN WORKFILE,1 6H2L #NOR 6H=D ...[??? WORKNUMB SECT FILE FGN 4 DOC 6HG= #MAC WORKNUMB 6H^W LDN 0 0 6JFG #SKI %B 6J^6 ... LDX 1 %B 6KDQ #SKI %B 6KYB #SKI 6LD2 ... LDX 1 FX2 6MWW #SKI %A-3 6NBG STO 3 GEN0 6NW6 ... BASEFCB 1,WORK,M2WORKNUMB,2 6P*Q ...M1WORKNUMB 6RRW #SKI %C 6S?G #SKI 6SR6 ( 6T=Q ... LDX 3 FCOMM-FCBRING(1) 6TQB ANDN 3 1 6W=2 ... BNZ 3 M3WORKNUMB 6WPL ) 6X9= ADN 0 1 6XHM ...M3WORKNUMB 6XW4 ... NEXTFCB 1,WORK,M1WORKNUMB,2 6Y8G M2WORKNUMB 6YN6 #SKI %A-3 6^7Q LDX 3 GEN0 6^MB #SKI %A 7272 STO 0 %A 72LL #SKI %A-1 736= LDX 1 FX1 73KW #SKI %A-2 745G LDX 2 FX2 74K6 #NOR ^^^^ ...17554756000800000000