POWERFILTER
FILE INFORMATION
FILENAME(S): POWERFILTER
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:24:26
APPEARS ON: 1 disk(s)
FILE HASH
88bf4c655c4a30803d7cf573f050d584e1137c14ff77e5c3009d976ed1e47662
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 50 1 | POWERFILTER | PRG | DuncanTwain | 29 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 13 04 05 00 8F 20 50 4F 57 45 52 46 49 4C |....... POWERFIL|
00000010: 54 45 52 00 33 04 06 00 8F 20 42 59 3A 45 2E 4B |TER.3.... BY:E.K|
00000020: 55 53 48 41 4C 4C 2F 50 2E 56 45 52 42 52 55 47 |USHALL/P.VERBRUG|
00000030: 47 45 4E 00 52 04 07 00 8F 20 57 45 42 53 54 45 |GEN.R.... WEBSTE|
00000040: 52 2C 4E 45 59 20 59 4F 52 4B 20 30 38 4D 41 59 |R,NEY YORK 08MAY|
00000050: 37 39 00 7F 04 08 00 99 22 93 11 11 11 11 11 11 |79......".......|
00000060: 1D 1D 1D 1D 1D 1D 12 50 4F 57 45 52 20 46 49 4C |.......POWER FIL|
00000070: 54 45 52 20 43 41 4C 43 55 4C 41 54 4F 52 22 00 |TER CALCULATOR".|
00000080: A8 04 09 00 99 22 11 11 11 11 11 11 1D 1D 1D 1D |....."..........|
00000090: 1D 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |.PRESS ANY KEY T|
000000A0: 4F 20 53 54 41 52 54 22 00 BA 04 0A 00 A1 41 24 |O START"......A$|
000000B0: 3A 8B 41 24 B2 22 22 A7 31 30 00 C4 04 0B 00 8D |:.A$."".10......|
000000C0: 39 30 30 30 00 CD 04 0C 00 99 22 93 22 00 D9 04 |9000......"."...|
000000D0: 14 00 42 B2 31 3A 48 B2 31 00 FB 04 C8 00 85 22 |..B.1:H.1......"|
000000E0: 4C 49 4E 45 20 46 52 45 51 55 45 4E 43 59 20 28 |LINE FREQUENCY (|
000000F0: 46 4C 29 20 49 53 20 22 3B 46 4C 00 25 05 D2 00 |FL) IS ";FL.%...|
00000100: 85 22 54 52 41 4E 53 2E 20 53 45 43 4F 4E 44 41 |."TRANS. SECONDA|
00000110: 52 59 20 56 4F 4C 54 53 20 52 4D 53 20 28 56 53 |RY VOLTS RMS (VS|
00000120: 29 22 3B 56 53 00 4A 05 DC 00 85 22 44 49 4F 44 |)";VS.J...."DIOD|
00000130: 45 20 46 4F 57 41 52 44 20 56 4F 4C 54 41 47 45 |E FOWARD VOLTAGE|
00000140: 20 28 56 44 29 20 22 3B 56 44 00 72 05 E6 00 85 | (VD) ";VD.r....|
00000150: 22 4D 41 58 49 4D 55 4D 20 41 4C 4C 4F 57 45 44 |"MAXIMUM ALLOWED|
00000160: 20 25 52 49 50 50 4C 45 20 28 45 52 29 20 22 3B | %RIPPLE (ER) ";|
00000170: 45 52 00 9B 05 F0 00 85 22 4D 41 58 49 4D 55 4D |ER......"MAXIMUM|
00000180: 20 4C 4F 41 44 20 43 55 52 52 45 4E 54 20 41 4D | LOAD CURRENT AM|
00000190: 50 53 20 28 49 4C 29 22 3B 49 4C 00 C3 05 FA 00 |PS (IL)";IL.....|
000001A0: 99 22 49 53 20 50 4F 57 45 52 20 53 55 50 50 4C |."IS POWER SUPPL|
000001B0: 59 20 48 41 4C 46 20 57 41 56 45 20 22 3B 3A 85 |Y HALF WAVE ";:.|
000001C0: 20 48 24 00 DF 05 04 01 48 24 B2 C8 28 48 24 2C | H$.....H$..(H$,|
000001D0: 31 29 3A 8B 48 24 B2 22 4E 22 A7 20 32 38 30 00 |1):.H$."N". 280.|
000001E0: F3 05 0E 01 48 B2 31 2E 30 3A 99 22 11 22 3A 89 |....H.1.0:.".":.|
000001F0: 33 30 30 00 20 06 18 01 85 22 44 4F 45 53 20 54 |300. ...."DOES T|
00000200: 48 45 20 53 55 50 50 4C 59 20 55 53 45 20 41 20 |HE SUPPLY USE A |
00000210: 42 52 49 44 47 45 20 22 3B 42 24 3A 48 B2 2E 35 |BRIDGE ";B$:H..5|
00000220: 00 3B 06 22 01 42 24 B2 C8 28 42 24 2C 31 29 3A |.;.".B$..(B$,1):|
00000230: 8B 42 24 B2 22 59 22 A7 42 B2 32 00 4F 06 2C 01 |.B$."Y".B.2.O.,.|
00000240: 45 50 B2 BA 28 32 29 AC 56 53 AB 42 AC 56 44 00 |EP..(2).VS.B.VD.|
00000250: 5F 06 36 01 54 31 B2 28 31 AD 46 4C 29 AC 48 00 |_.6.T1.(1.FL).H.|
00000260: 6B 06 40 01 46 52 B2 31 AD 54 31 00 79 06 4A 01 |k.@.FR.1.T1.y.J.|
00000270: 52 46 B2 2E 30 31 AC 45 52 00 98 06 54 01 58 B2 |RF..01.ER...T.X.|
00000280: 28 28 45 50 AB 52 46 AC 45 50 29 AD 45 50 29 AD |((EP.RF.EP).EP).|
00000290: 28 32 AC FF AC 46 4C 29 00 A3 06 5E 01 8D 20 32 |(2...FL)...^.. 2|
000002A0: 30 30 30 00 B6 06 68 01 8B 48 B2 2E 35 20 A7 20 |000...h..H..5 . |
000002B0: 8D 20 33 30 30 30 00 C8 06 72 01 8B 48 B2 31 20 |. 3000...r..H.1 |
000002C0: A7 20 8D 20 34 30 30 30 00 D5 06 7C 01 52 4C B2 |. . 4000...|.RL.|
000002D0: 45 50 AD 49 4C 00 EF 06 86 01 43 B2 54 33 AD 28 |EP.IL.....C.T3.(|
000002E0: 52 4C AC BC 28 31 AD 28 31 AB 52 46 29 29 29 00 |RL..(1.(1.RF))).|
000002F0: 06 07 90 01 45 41 B2 28 45 50 AB 52 46 AC 45 50 |....EA.(EP.RF.EP|
00000300: AA 45 50 29 AD 32 00 17 07 9A 01 45 4D B2 28 31 |.EP).2.....EM.(1|
00000310: AB 52 46 29 AC 45 50 00 2B 07 A4 01 8F 20 50 52 |.RF).EP.+.... PR|
00000320: 49 4E 54 20 52 45 53 55 4C 54 53 00 35 07 AE 01 |INT RESULTS.5...|
00000330: 8D 35 30 30 30 00 64 07 1C 02 99 22 11 11 11 43 |.5000.d...."...C|
00000340: 41 50 41 43 49 54 4F 52 20 20 20 20 20 20 3D 20 |APACITOR = |
00000350: 22 3B B5 28 43 AC 31 45 38 29 AD 31 45 32 2C 22 |";.(C.1E8).1E2,"|
00000360: 4D 46 44 22 00 96 07 26 02 99 22 41 56 45 20 4F |MFD"...&.."AVE O|
00000370: 55 54 50 55 54 20 20 20 20 20 3D 20 22 3B B5 28 |UTPUT = ";.(|
00000380: 31 30 30 30 AC 45 41 29 AD 31 30 30 30 2C 22 56 |1000.EA).1000,"V|
00000390: 2E 44 2E 43 2E 22 00 C8 07 30 02 99 22 4D 49 4E |.D.C."...0.."MIN|
000003A0: 49 4D 55 4D 20 4F 55 54 50 55 54 20 3D 20 22 3B |IMUM OUTPUT = ";|
000003B0: B5 28 31 30 30 30 AC 45 4D 29 AD 31 30 30 30 2C |.(1000.EM).1000,|
000003C0: 22 56 2E 44 2E 43 2E 22 00 FD 07 3A 02 99 22 4D |"V.D.C."...:.."M|
000003D0: 41 58 49 4D 55 4D 20 4F 55 54 50 55 54 20 3D 20 |AXIMUM OUTPUT = |
000003E0: 22 3B B5 28 20 20 20 20 31 30 30 30 AC 45 50 29 |";.( 1000.EP)|
000003F0: AD 31 30 30 30 2C 22 56 2E 44 2E 43 22 00 2D 08 |.1000,"V.D.C".-.|
00000400: 44 02 99 22 4C 4F 41 44 20 52 45 53 49 53 54 41 |D.."LOAD RESISTA|
00000410: 4E 43 45 3D 20 22 3B B5 28 31 30 30 30 AC 52 4C |NCE= ";.(1000.RL|
00000420: 29 AD 31 30 30 30 2C 22 4F 48 4D 53 22 00 36 08 |).1000,"OHMS".6.|
00000430: BC 02 99 22 13 22 00 3E 08 C6 02 89 32 30 00 44 |...".".>....20.D|
00000440: 08 E7 03 80 00 57 08 D0 07 8F 20 41 52 43 20 53 |.....W.... ARC S|
00000450: 49 4E 45 20 53 55 42 00 6A 08 DA 07 8B 58 B3 31 |INE SUB.j....X.1|
00000460: AF 58 B1 AB 31 A7 32 33 30 30 00 7B 08 98 08 59 |.X..1.2300.{...Y|
00000470: B2 39 30 AC 28 FF AD 34 29 3A 8E 00 93 08 FC 08 |.90.(..4):......|
00000480: 59 B2 C1 28 58 AD 28 28 31 AB 58 AE 32 29 AE 2E |Y..(X.((1.X.2)..|
00000490: 35 29 29 00 9E 08 60 09 54 32 B2 59 3A 8E 00 B5 |5))...`.T2.Y:...|
000004A0: 08 B8 0B 54 33 B2 28 28 31 AD 46 4C 29 AD 34 29 |...T3.((1.FL).4)|
000004B0: AA 54 32 3A 8E 00 CE 08 A0 0F 54 33 B2 33 AC 28 |.T2:......T3.3.(|
000004C0: 28 31 AD 46 4C 29 AD 34 29 AA 54 32 3A 8E 00 E2 |(1.FL).4).T2:...|
000004D0: 08 88 13 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
000004E0: 11 22 00 EE 08 92 13 81 41 B2 31 A4 31 30 00 11 |."......A.1.10..|
000004F0: 09 9C 13 99 A3 31 36 29 3B 22 20 20 20 20 20 20 |.....16);" |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 22 00 17 09 A1 13 82 00 29 09 A6 13 99 22 91 91 |".......)...."..|
00000520: 91 91 91 91 91 91 91 91 22 00 2F 09 B0 13 8E 00 |........"./.....|
00000530: 5F 09 28 23 99 22 93 11 11 11 11 11 11 1D 1D 1D |_.(#."..........|
00000540: 1D 1D 1D 12 50 4F 57 45 52 20 53 55 50 50 4C 59 |....POWER SUPPLY|
00000550: 20 46 49 4C 54 45 52 20 44 45 53 49 47 4E 22 00 | FILTER DESIGN".|
00000560: 66 09 2C 23 99 22 00 91 09 2D 23 99 22 54 48 49 |f.,#."...-#."THI|
00000570: 53 20 50 52 4F 47 52 41 4D 20 43 41 4C 43 55 4C |S PROGRAM CALCUL|
00000580: 41 54 45 53 20 54 48 45 20 56 41 4C 55 45 20 4F |ATES THE VALUE O|
00000590: 46 00 B9 09 2E 23 99 22 46 49 4C 54 45 52 20 43 |F....#."FILTER C|
000005A0: 41 50 41 43 49 54 4F 52 2C 4C 4F 41 44 20 52 45 |APACITOR,LOAD RE|
000005B0: 53 49 53 54 41 4E 43 45 22 00 E7 09 2F 23 99 22 |SISTANCE".../#."|
000005C0: 41 56 45 52 41 47 45 20 4F 55 54 50 55 54 20 56 |AVERAGE OUTPUT V|
000005D0: 4F 4C 54 41 47 45 2C 4D 49 4E 49 4D 55 4D 2F 4D |OLTAGE,MINIMUM/M|
000005E0: 41 58 49 4D 55 4D 22 00 18 0A 30 23 99 22 4F 55 |AXIMUM"...0#."OU|
000005F0: 54 50 55 54 20 56 4F 4C 54 41 47 45 20 46 4F 52 |TPUT VOLTAGE FOR|
00000600: 20 42 4F 54 48 20 46 55 4C 4C 2D 57 41 56 45 20 | BOTH FULL-WAVE |
00000610: 41 4E 44 20 20 20 20 22 00 3F 0A 31 23 99 22 48 |AND ".?.1#."H|
00000620: 41 4C 46 2D 57 41 56 45 20 52 45 43 54 49 46 49 |ALF-WAVE RECTIFI|
00000630: 45 52 20 43 49 52 43 55 49 54 53 22 3A 99 22 00 |ER CIRCUITS":.".|
00000640: 76 0A 32 23 99 22 55 53 45 52 20 53 50 45 43 49 |v.2#."USER SPECI|
00000650: 46 49 45 53 20 4C 49 4E 45 20 46 52 45 51 55 45 |FIES LINE FREQUE|
00000660: 4E 54 59 2C 53 45 43 4F 4E 44 41 52 59 20 56 4F |NTY,SECONDARY VO|
00000670: 4C 54 41 47 45 22 00 AC 0A 33 23 99 22 2C 52 45 |LTAGE"...3#.",RE|
00000680: 43 54 49 46 49 45 52 20 56 4F 4C 54 41 47 45 20 |CTIFIER VOLTAGE |
00000690: 44 52 4F 50 2C 4D 41 58 49 4D 55 4D 20 44 45 53 |DROP,MAXIMUM DES|
000006A0: 49 52 45 44 20 52 49 50 50 4C 45 22 00 CC 0A 34 |IRED RIPPLE"...4|
000006B0: 23 99 22 41 4E 44 20 4D 41 58 49 4D 55 4D 20 4C |#."AND MAXIMUM L|
000006C0: 4F 41 44 20 43 55 52 52 45 4E 54 2E 00 D3 0A 35 |OAD CURRENT....5|
000006D0: 23 99 22 00 F4 0A 36 23 99 22 50 52 45 53 53 20 |#."...6#."PRESS |
000006E0: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
000006F0: 4E 55 45 22 00 08 0B 37 23 A1 41 24 3A 8B 41 24 |NUE"...7#.A$:.A$|
00000700: B2 22 22 A7 39 30 31 35 00 1E 0B 3C 23 99 22 93 |."".9015...<#.".|
00000710: 11 11 11 52 45 46 45 52 45 4E 43 45 3A 22 00 4E |...REFERENCE:".N|
00000720: 0B 3D 23 99 22 50 4F 57 45 52 20 53 55 50 50 4C |.=#."POWER SUPPL|
00000730: 59 20 44 45 53 49 47 4E 20 4D 41 44 45 20 46 41 |Y DESIGN MADE FA|
00000740: 53 54 20 41 4E 44 20 53 49 4D 50 4C 45 22 00 77 |ST AND SIMPLE".w|
00000750: 0B 3E 23 99 22 46 52 4F 4D 3A 45 4C 45 43 54 52 |.>#."FROM:ELECTR|
00000760: 4F 4E 49 43 53 20 44 45 53 49 47 4E 20 41 55 47 |ONICS DESIGN AUG|
00000770: 33 30 2C 31 39 37 33 00 99 0B 3F 23 99 22 41 4E |30,1973...?#."AN|
00000780: 44 20 3A 54 2E 49 20 50 50 58 20 50 52 4F 47 52 |D :T.I PPX PROGR|
00000790: 41 4D 20 36 35 38 30 30 34 00 A0 0B 41 23 99 22 |AM 658004...A#."|
000007A0: 00 CB 0B 46 23 99 22 50 52 45 53 53 20 41 4E 59 |...F#."PRESS ANY|
000007B0: 20 4B 45 59 20 54 4F 20 53 54 41 52 54 20 43 41 | KEY TO START CA|
000007C0: 4C 43 55 4C 41 54 49 4F 4E 53 22 00 DF 0B 50 23 |LCULATIONS"...P#|
000007D0: A1 41 24 3A 8B 41 24 B2 22 22 A7 39 30 34 30 00 |.A$:.A$."".9040.|
000007E0: E8 0B 5A 23 99 22 93 22 00 F1 0B 73 23 89 20 31 |..Z#."."...s#. 1|
000007F0: 32 00 12 0C 78 23 99 22 50 52 45 53 53 20 41 4E |2...x#."PRESS AN|
00000800: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
00000810: 45 22 00 27 0C 7D 23 A1 41 24 3A 8B 20 41 24 B2 |E".'.}#.A$:. A$.|
00000820: 22 22 A7 39 30 38 35 00 2D 0C 82 23 8E 00 00 00 |"".9085.-..#....|
00000830: 4F |O |
....... POWERFILTER.3.... BY:E.KUSHALL/P
.VERBRUGGEN.R.... WEBSTER,NEY YORK 08MAY
79....."..............POWER FILTER CALC
ULATOR"......"...........PRESS ANY KEY T
O START"......A$:.A$."".10.D....9000.M..
..".".Y...B.1:H.1...H.."LINE FREQUENCY (
FL) IS ";FL.%.R.."TRANS. SECONDARY VOLTS
RMS (VS)";VS.J...."DIODE FOWARD VOLTAGE
(VD) ";VD.R...."MAXIMUM ALLOWED %RIPPLE
(ER) ";ER......"MAXIMUM LOAD CURRENT AM
PS (IL)";IL.C...."IS POWER SUPPLY HALF W
AVE ";:. H$.....H$.H(H$,1):.H$."N". 280.
....H.1.0:.".":.300. ...."DOES THE SUPPL
Y USE A BRIDGE ";B$:H..5.;.".B$.H(B$,1):
.B$."Y".B.2.O.,.EP..(2).VS.B.VD._.6.T1.(
1.FL).H.K.@.FR.1.T1.Y.J.RF..01.ER...T.X.
((EP.RF.EP).EP).(2...FL)...^.. 2000...H.
.H..5 . . 3000.H.R..H.1 . . 4000.U.|.RL.
EP.IL.....C.T3.(RL..(1.(1.RF))).....EA.(
EP.RF.EP.EP).2.....EM.(1.RF).EP.+.... PR
INT RESULTS.5....5000.D...."...CAPACITOR
= ";.(C.1E8).1E2,"MFD"...&.."AVE O
UTPUT = ";.(1000.EA).1000,"V.D.C.".H
.0.."MINIMUM OUTPUT = ";.(1000.EM).1000,
"V.D.C."...:.."MAXIMUM OUTPUT = ";.(
1000.EP).1000,"V.D.C".-.D.."LOAD RESISTA
NCE= ";.(1000.RL).1000,"OHMS".6....".".>
.F..20.D.....W.P.. ARC SINE SUB.J.Z..X.1
.X..1.2300.{...Y.90.(..4):......Y.A(X.((
1.X.2)..5))...`.T2.Y:......T3.((1.FL).4)
.T2:..N. .T3.3.((1.FL).4).T2:......."...
........."......A.1.10.......16);"
".......)...."..........
"./....._.(#."..............POWER SUPPLY
FILTER DESIGN".F.,#."...-#."THIS PROGRA
M CALCULATES THE VALUE OF....#."FILTER C
APACITOR,LOAD RESISTANCE".../#."AVERAGE
OUTPUT VOLTAGE,MINIMUM/MAXIMUM"...0#."OU
TPUT VOLTAGE FOR BOTH FULL-WAVE AND "
.?.1#."HALF-WAVE RECTIFIER CIRCUITS":.".
V.2#."USER SPECIFIES LINE FREQUENTY,SECO
NDARY VOLTAGE"...3#.",RECTIFIER VOLTAGE
DROP,MAXIMUM DESIRED RIPPLE".L.4#."AND M
AXIMUM LOAD CURRENT..S.5#."...6#."PRESS
ANY KEY TO CONTINUE"...7#.A$:.A$."".9015
...<#."....REFERENCE:".N.=#."POWER SUPPL
Y DESIGN MADE FAST AND SIMPLE".W.>#."FRO
M:ELECTRONICS DESIGN AUG30,1973...?#."AN
D :T.I PPX PROGRAM 658004. .A#.".K.F#."P
RESS ANY KEY TO START CALCULATIONS"...P#
.A$:.A$."".9040...Z#."."...S#. 12...X#."
PRESS ANY KEY TO CONTINUE".'.}#.A$:. A$.
"".9085.-..#....O
> CLICK IMAGE PREVIEW FOR FULL MODAL