FASTFOURIER

FILE INFORMATION

FILENAME(S): FASTFOURIER

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 21:23:24

APPEARS ON: 2 disk(s)

FILE HASH

ad4260185403743f9c5423548de20ab8ba35fedf70893aeac69e89316312cd06

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 HULP 9 2	FASTFOURIER	PRG	DuncanTwain	26	3	DOWNLOAD FILE
C64 HULP 32 2	FASTFOURIER	PRG	DuncanTwain	8	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 15 08 0A 00 86 20  52 28 32 30 30 29 2C 49  |....... R(200),I|
00000010: 28 32 30 30 29 00 1F 08  14 00 4E B2 31 32 38 00  |(200).....N.128.|
00000020: 3B 08 1E 00 52 28 32 29  B2 33 30 3A 52 28 33 29  |;...R(2).30:R(3)|
00000030: B2 32 30 3A 52 28 34 29  B2 31 30 00 4B 08 28 00  |.20:R(4).10.K.(.|
00000040: 46 4C B2 AB 31 3A 8D 32  30 30 30 00 56 08 70 00  |FL..1:.2000.V.p.|
00000050: 64 01 20 31 2C 30 00 64  08 78 00 3A 81 58 B2 31  |d. 1,0.d.x.:.X.1|
00000060: A4 31 32 38 00 7A 08 87  00 64 02 20 32 AC 58 2C  |.128.z...d. 2.X,|
00000070: 31 30 30 AB 52 28 58 29  2C 31 00 91 08 88 00 64  |100.R(X),1.....d|
00000080: 02 32 AC 58 AA 31 2C 31  30 30 AB 49 28 58 29 2C  |.2.X.1,100.I(X),|
00000090: 31 00 97 08 8C 00 82 00  B2 08 D0 07 8F 20 46 41  |1............ FA|
000000A0: 53 54 20 46 4F 55 52 49  45 52 20 52 4F 55 54 49  |ST FOURIER ROUTI|
000000B0: 4E 45 00 C1 08 DA 07 8F  20 41 4C 53 20 46 4C 3D  |NE...... ALS FL=|
000000C0: 31 00 D5 08 E4 07 8F 20  44 41 4E 20 57 4F 52 44  |1...... DAN WORD|
000000D0: 54 20 48 45 54 00 F3 08  EE 07 8F 20 54 49 4A 44  |T HET...... TIJD|
000000E0: 20 44 4F 4D 45 49 4E 20  4F 4D 20 47 45 5A 45 54  | DOMEIN OM GEZET|
000000F0: 20 49 4E 00 0B 09 F8 07  8F 20 46 52 45 4B 57 45  | IN...... FREKWE|
00000100: 4E 54 49 45 20 44 4F 4D  49 45 4E 00 2C 09 02 08  |NTIE DOMIEN.,...|
00000110: 8F 20 4E 20 49 53 20 48  45 54 20 41 41 4E 54 41  |. N IS HET AANTA|
00000120: 4C 20 50 55 4E 54 45 4E  20 2F 20 32 00 4B 09 0C  |L PUNTEN / 2.K..|
00000130: 08 8F 20 44 49 54 20 4D  4F 45 54 20 45 45 4E 20  |.. DIT MOET EEN |
00000140: 4D 41 43 48 54 20 56 41  4E 20 32 00 69 09 16 08  |MACHT VAN 2.i...|
00000150: 8F 20 5A 49 4A 4E 20 28  42 56 20 34 20 38 20 31  |. ZIJN (BV 4 8 1|
00000160: 36 20 32 35 36 20 2E 2E  29 00 89 09 20 08 8F 20  |6 256 ..)... .. |
00000170: 48 45 54 20 41 52 52 41  59 20 52 20 42 45 56 41  |HET ARRAY R BEVA|
00000180: 54 20 44 45 20 45 56 45  4E 00 96 09 2A 08 8F 20  |T DE EVEN...*.. |
00000190: 50 55 4E 54 45 4E 00 B8  09 34 08 8F 20 48 45 54  |PUNTEN...4.. HET|
000001A0: 20 41 52 52 41 59 20 49  20 42 45 56 41 54 20 44  | ARRAY I BEVAT D|
000001B0: 45 20 4F 4E 45 56 45 4E  00 C5 09 3E 08 8F 20 50  |E ONEVEN...>.. P|
000001C0: 55 4E 54 45 4E 00 E2 09  48 08 8F 20 4D 45 54 20  |UNTEN...H.. MET |
000001D0: 49 4E 20 52 28 31 29 20  44 45 20 44 43 20 54 45  |IN R(1) DE DC TE|
000001E0: 52 4D 00 02 0A 52 08 8F  20 4D 45 54 20 49 4E 20  |RM...R.. MET IN |
000001F0: 49 28 31 29 20 4D 41 58  20 46 52 45 4B 20 54 45  |I(1) MAX FREK TE|
00000200: 52 4D 00 23 0A 5C 08 8F  20 4D 45 54 20 49 4E 20  |RM.#.\.. MET IN |
00000210: 52 28 2A 29 20 48 45 54  20 52 45 45 45 4C 20 44  |R(*) HET REEEL D|
00000220: 45 45 4C 00 49 0A 66 08  8F 20 4D 45 54 20 49 4E  |EEL.I.f.. MET IN|
00000230: 20 49 28 2A 29 20 48 45  54 20 49 4D 41 47 49 4E  | I(*) HET IMAGIN|
00000240: 41 49 52 45 20 44 45 45  4C 00 5D 0A 70 08 8F 20  |AIRE DEEL.].p.. |
00000250: 41 4C 53 20 46 4C 3D 2D  31 20 44 41 4E 00 7F 0A  |ALS FL=-1 DAN...|
00000260: 7A 08 8F 20 57 4F 52 44  54 20 48 45 54 20 46 52  |z.. WORDT HET FR|
00000270: 45 4B 57 45 4E 54 49 45  20 44 4F 4D 45 49 4E 00  |EKWENTIE DOMEIN.|
00000280: 9C 0A 84 08 8F 20 4F 4D  20 47 45 5A 45 54 20 49  |..... OM GEZET I|
00000290: 4E 20 54 49 4A 44 44 4F  4D 49 45 4E 00 BA 0A 8E  |N TIJDDOMIEN....|
000002A0: 08 8F 20 49 4E 50 55 54  20 49 53 20 64 7F 50 55  |.. INPUT IS d.PU|
000002B0: 54 20 42 49 4A 20 46 4C  3D 31 00 D6 0A 98 08 8F  |T BIJ FL=1......|
000002C0: 20 5A 49 45 20 42 4F 56  45 4E 20 28 42 45 48 41  | ZIE BOVEN (BEHA|
000002D0: 4C 56 45 20 4E 29 00 E9  0A A0 0F 50 4F B2 BC 28  |LVE N).....PO..(|
000002E0: 4E 29 AD BC 28 32 29 AA  31 00 FC 0A 68 10 8B 20  |N)..(2).1...h.. |
000002F0: 46 4C B2 AB 31 20 A7 20  34 37 37 30 00 04 0B 12  |FL..1 . 4770....|
00000300: 11 4B B2 30 00 11 0B 1C  11 81 4A B2 31 A4 4E AB  |.K.0......J.1.N.|
00000310: 31 00 19 0B 26 11 49 B2  32 00 2B 0B 30 11 8B 4B  |1...&.I.2.+.0..K|
00000320: B3 28 4E AD 49 29 A7 34  34 34 30 00 37 0B 3A 11  |.(N.I).4440.7.:.|
00000330: 4B B2 4B AB 4E AD 49 00  41 0B 44 11 49 B2 49 AA  |K.K.N.I.A.D.I.I.|
00000340: 49 00 4B 0B 4E 11 89 34  34 30 30 00 57 0B 58 11  |I.K.N..4400.W.X.|
00000350: 4B B2 4B AA 4E AD 49 00  66 0B 62 11 8B 4B B3 B2  |K.K.N.I.f.b..K..|
00000360: 4A A7 34 35 32 30 00 73  0B 6C 11 41 B2 52 28 4A  |J.4520.s.l.A.R(J|
00000370: AA 31 29 00 85 0B 76 11  52 28 4A AA 31 29 B2 52  |.1)...v.R(J.1).R|
00000380: 28 4B AA 31 29 00 92 0B  80 11 52 28 4B AA 31 29  |(K.1).....R(K.1)|
00000390: B2 41 00 9F 0B 8A 11 41  B2 49 28 4A AA 31 29 00  |.A.....A.I(J.1).|
000003A0: B1 0B 94 11 49 28 4A AA  31 29 B2 49 28 4B AA 31  |....I(J.1).I(K.1|
000003B0: 29 00 BE 0B 9E 11 49 28  4B AA 31 29 B2 41 00 C5  |).....I(K.1).A..|
000003C0: 0B A8 11 82 4A 00 CE 0B  B2 11 47 B2 2E 35 00 D6  |....J.....G..5..|
000003D0: 0B BC 11 50 B2 31 00 E4  0B C6 11 81 49 B2 31 A4  |...P.1......I.1.|
000003E0: 50 4F AB 31 00 EE 0B D0  11 47 B2 47 AA 47 00 F6  |PO.1.....G.G.G..|
000003F0: 0B DA 11 43 B2 31 00 FE  0B E4 11 45 B2 30 00 12  |...C.1.....E.0..|
00000400: 0C EE 11 51 B2 BA 28 28  31 AB 50 29 AD 32 29 AC  |...Q..((1.P).2).|
00000410: 46 4C 00 2F 0C F8 11 50  B2 28 31 AA 32 AC 28 49  |FL./...P.(1.2.(I|
00000420: B2 31 29 29 AC BA 28 28  31 AA 50 29 AD 32 29 00  |.1))..((1.P).2).|
00000430: 3A 0C 02 12 81 52 B2 31  A4 47 00 49 0C 0C 12 81  |:....R.1.G.I....|
00000440: 4A B2 52 A4 4E A9 47 AA  47 00 53 0C 16 12 4B B2  |J.R.N.G.G.S...K.|
00000450: 4A AA 47 00 67 0C 20 12  41 B2 43 AC 52 28 4B 29  |J.G.g. .A.C.R(K)|
00000460: AA 45 AC 49 28 4B 29 00  7B 0C 2A 12 42 B2 45 AC  |.E.I(K).{.*.B.E.|
00000470: 52 28 4B 29 AB 43 AC 49  28 4B 29 00 8B 0C 34 12  |R(K).C.I(K)...4.|
00000480: 52 28 4B 29 B2 52 28 4A  29 AB 41 00 9B 0C 3E 12  |R(K).R(J).A...>.|
00000490: 49 28 4B 29 B2 49 28 4A  29 AA 42 00 AB 0C 48 12  |I(K).I(J).B...H.|
000004A0: 52 28 4A 29 B2 52 28 4A  29 AA 41 00 BB 0C 52 12  |R(J).R(J).A...R.|
000004B0: 49 28 4A 29 B2 49 28 4A  29 AB 42 00 C2 0C 5C 12  |I(J).I(J).B...\.|
000004C0: 82 4A 00 D0 0C 66 12 41  B2 45 AC 50 AA 43 AC 51  |.J...f.A.E.P.C.Q|
000004D0: 00 DE 0C 70 12 43 B2 43  AC 50 AB 45 AC 51 00 E6  |...p.C.C.P.E.Q..|
000004E0: 0C 7A 12 45 B2 41 00 ED  0C 84 12 82 52 00 F4 0C  |.z.E.A......R...|
000004F0: 8E 12 82 49 00 02 0D 98  12 8B 20 46 4C B2 AB 31  |...I...... FL..1|
00000500: A7 8E 00 0C 0D A2 12 41  B2 FF AD 4E 00 17 0D AC  |.......A...N....|
00000510: 12 50 B2 BE 28 41 29 00  25 0D B6 12 51 B2 46 4C  |.P..(A).%...Q.FL|
00000520: AC BF 28 41 29 00 30 0D  C0 12 41 B2 52 28 31 29  |..(A).0...A.R(1)|
00000530: 00 40 0D CA 12 52 28 31  29 B2 41 AA 49 28 31 29  |.@...R(1).A.I(1)|
00000540: 00 50 0D D4 12 49 28 31  29 B2 41 AB 49 28 31 29  |.P...I(1).A.I(1)|
00000550: 00 63 0D DE 12 8B 20 46  4C B2 AB 31 20 A7 20 34  |.c.... FL..1 . 4|
00000560: 38 36 30 00 73 0D E8 12  52 28 31 29 B2 52 28 31  |860.s...R(1).R(1|
00000570: 29 AD 32 00 83 0D F2 12  49 28 31 29 B2 49 28 31  |).2.....I(1).I(1|
00000580: 29 AD 32 00 8C 0D FC 12  43 B2 46 4C 00 94 0D 06  |).2.....C.FL....|
00000590: 13 45 B2 30 00 A1 0D 10  13 81 4A B2 32 A4 4E AD  |.E.0......J.2.N.|
000005A0: 32 00 AF 0D 1A 13 41 B2  45 AC 50 AA 43 AC 51 00  |2.....A.E.P.C.Q.|
000005B0: BD 0D 24 13 43 B2 43 AC  50 AB 45 AC 51 00 C5 0D  |..$.C.C.P.E.Q...|
000005C0: 2E 13 45 B2 41 00 D1 0D  38 13 4B B2 4E AB 4A AA  |..E.A...8.K.N.J.|
000005D0: 32 00 E1 0D 42 13 41 B2  52 28 4A 29 AA 52 28 4B  |2...B.A.R(J).R(K|
000005E0: 29 00 03 0E 4C 13 42 B2  28 49 28 4A 29 AA 49 28  |)...L.B.(I(J).I(|
000005F0: 4B 29 29 AC 43 AB 28 52  28 4A 29 AB 52 28 4B 29  |K)).C.(R(J).R(K)|
00000600: 29 AC 45 00 13 0E 56 13  55 B2 49 28 4A 29 AB 49  |).E...V.U.I(J).I|
00000610: 28 4B 29 00 35 0E 60 13  56 B2 28 49 28 4A 29 AA  |(K).5.`.V.(I(J).|
00000620: 49 28 4B 29 29 AC 45 AA  28 52 28 4A 29 AB 52 28  |I(K)).E.(R(J).R(|
00000630: 4B 29 29 AC 43 00 46 0E  6A 13 52 28 4A 29 B2 28  |K)).C.F.j.R(J).(|
00000640: 41 AA 42 29 AD 32 00 57  0E 74 13 49 28 4A 29 B2  |A.B).2.W.t.I(J).|
00000650: 28 55 AB 56 29 AD 32 00  68 0E 7E 13 52 28 4B 29  |(U.V).2.h.~.R(K)|
00000660: B2 28 41 AB 42 29 AD 32  00 7A 0E 88 13 49 28 4B  |.(A.B).2.z...I(K|
00000670: 29 B2 AB 28 55 AA 56 29  AD 32 00 82 0E 92 13 82  |)..(U.V).2......|
00000680: 20 4A 00 99 0E 9C 13 49  28 4E AD 32 AA 31 29 B2  | J.....I(N.2.1).|
00000690: AB 49 28 4E AD 32 AA 31  29 00 AC 0E A6 13 8B 20  |.I(N.2.1)...... |
000006A0: 46 4C B2 AB 31 20 A7 20  34 33 37 30 00 B7 0E B0  |FL..1 . 4370....|
000006B0: 13 81 4A B2 31 A4 4E 00  C7 0E BA 13 52 28 4A 29  |..J.1.N.....R(J)|
000006C0: B2 52 28 4A 29 AD 4E 00  D7 0E C4 13 49 28 4A 29  |.R(J).N.....I(J)|
000006D0: B2 49 28 4A 29 AD 4E 00  DF 0E CE 13 82 20 4A 00  |.I(J).N...... J.|
000006E0: E5 0E D8 13 8E 00 00 00                           |........        |

....... R(200),I(200).....N.128.;...R(2)
.30:R(3).20:R(4).10.K.(.FL..1:.2000.V.P.
D. 1,0.D.X.:.X.1.128.Z...D. 2.X,100.R(X)
,1.....D.2.X.1,100.I(X),1.........P.. FA
ST FOURIER ROUTINE.A.Z.. ALS FL=1.U.... 
DAN WORDT HET...... TIJD DOMEIN OM GEZET
 IN...... FREKWENTIE DOMIEN.,.... N IS H
ET AANTAL PUNTEN / 2.K.... DIT MOET EEN 
MACHT VAN 2.I.... ZIJN (BV 4 8 16 256 ..
)... .. HET ARRAY R BEVAT DE EVEN...*.. 
PUNTEN...4.. HET ARRAY I BEVAT DE ONEVEN
.E.>.. PUNTEN...H.. MET IN R(1) DE DC TE
RM...R.. MET IN I(1) MAX FREK TERM.#.\..
 MET IN R(*) HET REEEL DEEL.I.F.. MET IN
 I(*) HET IMAGINAIRE DEEL.].P.. ALS FL=-
1 DAN..Z.. WORDT HET FREKWENTIE DOMEIN.
..... OM GEZET IN TIJDDOMIEN...... INPUT
 IS DPUT BIJ FL=1.V.... ZIE BOVEN (BEHA
LVE N)... .PO..(N)..(2).1...H.. FL..1 . 
4770.....K.0......J.1.N.1...&.I.2.+.0..K
.(N.I).4440.7.:.K.K.N.I.A.D.I.I.I.K.N..4
400.W.X.K.K.N.I.F.B..K..J.4520.S.L.A.R(J
.1)...V.R(J.1).R(K.1).....R(K.1).A.....A
.I(J.1).....I(J.1).I(K.1).....I(K.1).A.E
....J.N...G..5.V...P.1...F..I.1.PO.1...P
.G.G.G...Z.C.1.....E.0.....Q..((1.P).2).
FL./...P.(1.2.(I.1))..((1.P).2).:....R.1
.G.I....J.R.N.G.G.S...K.J.G.G. .A.C.R(K)
.E.I(K).{.*.B.E.R(K).C.I(K)...4.R(K).R(J
).A...>.I(K).I(J).B...H.R(J).R(J).A...R.
I(J).I(J).B.B.\..J.P.F.A.E.P.C.Q...P.C.C
.P.E.Q...Z.E.A......R......I...... FL..1
.......A...N.....P..(A).%...Q.FL..(A).0.
..A.R(1).@.J.R(1).A.I(1).P.T.I(1).A.I(1)
.C.... FL..1 . 4860.S...R(1).R(1).2.....
I(1).I(1).2.....C.FL.....E.0......J.2.N.
2.....A.E.P.C.Q...$.C.C.P.E.Q.E...E.A.Q.
8.K.N.J.2...B.A.R(J).R(K)...L.B.(I(J).I(
K)).C.(R(J).R(K)).E...V.U.I(J).I(K).5.`.
V.(I(J).I(K)).E.(R(J).R(K)).C.F.J.R(J).(
A.B).2.W.T.I(J).(U.V).2.H.~.R(K).(A.B).2
.Z...I(K)..(U.V).2...... J.....I(N.2.1).
.I(N.2.1)...... FL..1 . 4370......J.1.N.
G...R(J).R(J).N.W.D.I(J).I(J).N...N.. J.
..X.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL