{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: WORK-MACROS)}}
====== WORK-MACROS ======
(George Source)
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