SOUND SETTER.C
FILE INFORMATION
FILENAME(S): SOUND SETTER.C
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
6e65a876a926f0b40170a3fe7f106635a9c91eaa03e1518066083cb9f20257c4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG FEB 84 C | SOUND SETTER.C | PRG | DuncanTwain | 25 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 01 00 8F 2E 2E 2E 2E 2E 2E 2E 20 20 |..(........... | 00000010: 53 4F 55 4E 44 20 53 45 54 54 45 52 20 2E 2E 2E |SOUND SETTER ...| 00000020: 2E 2E 2E 2E 2E 2E 2E 2E 00 4E 08 02 00 8F 20 43 |.........N.... C| 00000030: 2D 36 34 20 53 4F 55 4E 44 20 53 45 54 54 49 4E |-64 SOUND SETTIN| 00000040: 47 20 50 52 4F 47 52 41 4D 2E 2E 2E 2E 2E 00 61 |G PROGRAM......a| 00000050: 08 03 00 8F 20 55 53 45 53 20 56 4F 49 43 45 20 |.... USES VOICE | 00000060: 31 00 6E 08 05 00 86 20 45 4E 28 31 36 29 00 AE |1.n.... EN(16)..| 00000070: 08 0A 00 83 20 32 2C 38 2C 31 36 2C 32 34 2C 33 |.... 2,8,16,24,3| 00000080: 38 2C 35 36 2C 36 38 2C 38 30 2C 31 30 30 2C 32 |8,56,68,80,100,2| 00000090: 35 30 2C 35 30 30 2C 38 30 30 2C 31 30 30 30 2C |50,500,800,1000,| 000000A0: 33 30 30 30 2C 35 30 30 30 2C 38 30 30 30 00 C5 |3000,5000,8000..| 000000B0: 08 0C 00 81 20 49 B2 31 A4 31 36 3A 87 20 45 4E |.... I.1.16:. EN| 000000C0: 28 49 29 3A 82 00 FE 08 14 00 99 22 93 22 3A 56 |(I):.......".":V| 000000D0: 31 B2 35 34 32 37 32 3A 81 49 B2 56 31 A4 56 31 |1.54272:.I.V1.V1| 000000E0: AA 32 34 3A 97 20 49 2C 30 3A 82 3A 8F 20 43 4C |.24:. I,0:.:. CL| 000000F0: 45 41 52 20 53 49 44 20 43 48 49 50 2E 2E 00 28 |EAR SID CHIP...(| 00000100: 09 1E 00 85 22 12 57 41 56 45 46 4F 52 4D 20 20 |....".WAVEFORM | 00000110: 54 52 49 2D 53 41 57 2D 4E 4F 49 53 45 2D 50 55 |TRI-SAW-NOISE-PU| 00000120: 4C 53 45 22 3B 57 41 24 00 2E 09 1F 00 3A 00 4D |LSE";WA$.....:.M| 00000130: 09 2D 00 85 22 12 46 52 45 51 55 45 4E 43 59 20 |.-..".FREQUENCY | 00000140: 20 30 2D 34 30 30 30 48 5A 22 3B 46 52 00 72 09 | 0-4000HZ";FR.r.| 00000150: 2E 00 56 41 B2 46 52 AD 2E 30 35 39 36 3A 8B 20 |..VA.FR..0596:. | 00000160: 56 41 B1 36 35 35 33 35 A7 20 56 41 B2 36 35 35 |VA.65535. VA.655| 00000170: 33 35 00 92 09 32 00 46 4C 4F B2 56 41 AB 36 35 |35...2.FLO.VA.65| 00000180: 32 38 30 3A 8B 20 46 4C 4F B3 30 A7 20 46 4C 4F |280:. FLO.0. FLO| 00000190: B2 30 00 B3 09 3C 00 46 48 49 B2 56 41 AD 32 35 |.0...<.FHI.VA.25| 000001A0: 36 3A 97 56 31 AA 31 2C 46 48 49 3A 97 56 31 2C |6:.V1.1,FHI:.V1,| 000001B0: 46 4C 4F 00 B9 09 3D 00 3A 00 D0 09 3E 00 8B 20 |FLO...=.:...>.. | 000001C0: 57 41 24 B3 B1 22 50 55 4C 53 45 22 A7 20 37 30 |WA$.."PULSE". 70| 000001D0: 00 07 0A 3F 00 85 22 45 4E 54 45 52 20 50 55 4C |...?.."ENTER PUL| 000001E0: 53 45 20 44 55 54 59 20 43 59 43 4C 45 20 25 22 |SE DUTY CYCLE %"| 000001F0: 3B 44 43 3A 8B 44 43 B3 30 B0 44 43 B1 31 30 30 |;DC:.DC.0.DC.100| 00000200: 20 A7 20 44 43 B2 30 00 32 0A 40 00 50 4E B2 44 | . DC.0.2.@.PN.D| 00000210: 43 AC 34 30 2E 39 35 3A 50 4C B2 50 4E AF 32 35 |C.40.95:PL.PN.25| 00000220: 35 3A 50 48 B2 28 50 4E AF 33 38 34 30 29 AD 32 |5:PH.(PN.3840).2| 00000230: 35 35 00 4A 0A 41 00 97 35 34 32 37 34 2C 50 4C |55.J.A..54274,PL| 00000240: 3A 97 35 34 32 37 35 2C 50 48 00 6E 0A 46 00 99 |:.54275,PH.n.F..| 00000250: 22 11 56 41 4C 49 44 20 41 54 54 41 43 4B 2F 53 |".VALID ATTACK/S| 00000260: 55 53 54 41 49 4E 20 56 41 4C 55 45 53 22 00 87 |USTAIN VALUES"..| 00000270: 0A 47 00 81 49 B2 31 A4 31 36 3A 99 20 45 4E 28 |.G..I.1.16:. EN(| 00000280: 49 29 3B 3A 82 3A 99 00 AA 0A 48 00 99 22 11 56 |I);:.:....H..".V| 00000290: 41 4C 49 44 20 44 45 43 41 59 2F 52 45 4C 45 41 |ALID DECAY/RELEA| 000002A0: 53 45 20 56 41 4C 55 45 53 22 00 C5 0A 49 00 81 |SE VALUES"...I..| 000002B0: 49 B2 31 A4 31 36 3A 99 20 45 4E 28 49 29 AC 33 |I.1.16:. EN(I).3| 000002C0: 3B 3A 82 3A 99 00 F4 0A 4B 00 85 22 11 12 41 54 |;:.:....K.."..AT| 000002D0: 54 41 43 4B 20 56 41 4C 55 45 28 4D 53 45 43 29 |TACK VALUE(MSEC)| 000002E0: 22 3B 41 54 3A 8D 20 34 30 30 3A 8B 41 54 B2 AB |";AT:. 400:.AT..| 000002F0: 31 A7 37 35 00 22 0B 50 00 85 22 12 44 45 43 41 |1.75.".P..".DECA| 00000300: 59 20 56 41 4C 55 45 20 28 4D 53 45 43 29 22 3B |Y VALUE (MSEC)";| 00000310: 44 45 3A 8D 20 35 30 30 3A 8B 44 45 B2 AB 31 A7 |DE:. 500:.DE..1.| 00000320: 38 30 00 51 0B 55 00 85 22 12 53 55 53 54 41 49 |80.Q.U..".SUSTAI| 00000330: 4E 20 56 41 4C 55 45 28 4D 53 45 43 29 22 3B 53 |N VALUE(MSEC)";S| 00000340: 55 3A 8D 20 36 30 30 3A 8B 53 55 B2 AB 31 A7 38 |U:. 600:.SU..1.8| 00000350: 35 00 80 0B 5A 00 85 22 12 52 45 4C 45 41 53 45 |5...Z..".RELEASE| 00000360: 20 56 41 4C 55 45 28 4D 53 45 43 29 22 3B 52 45 | VALUE(MSEC)";RE| 00000370: 3A 8D 20 37 30 30 3A 8B 52 45 B2 AB 31 A7 39 30 |:. 700:.RE..1.90| 00000380: 00 86 0B 5B 00 3A 00 BF 0B 64 00 46 49 B2 30 3A |...[.:...d.FI.0:| 00000390: 85 22 49 53 20 46 49 4C 54 45 52 49 4E 47 20 44 |."IS FILTERING D| 000003A0: 45 53 49 52 45 44 20 59 2F 4E 22 3B 41 24 3A 8B |ESIRED Y/N";A$:.| 000003B0: 20 41 24 B3 B1 22 59 22 20 A7 20 89 31 32 35 00 | A$.."Y" . .125.| 000003C0: E8 0B 66 00 97 56 31 AA 32 33 2C 32 34 31 3A 8F |..f..V1.23,241:.| 000003D0: 20 54 55 52 4E 20 4F 4E 20 56 4F 49 43 45 2D 31 | TURN ON VOICE-1| 000003E0: 20 46 49 4C 54 45 52 2E 00 00 0C 69 00 85 22 12 | FILTER....i..".| 000003F0: 4C 4F 2D 50 41 53 53 20 59 2F 4E 22 3B 46 31 24 |LO-PASS Y/N";F1$| 00000400: 00 18 0C 6E 00 85 22 12 48 49 2D 50 41 53 53 20 |...n..".HI-PASS | 00000410: 59 2F 4E 22 3B 46 32 24 00 32 0C 73 00 85 22 12 |Y/N";F2$.2.s..".| 00000420: 42 41 4E 44 2D 50 41 53 53 20 59 2F 4E 22 3B 46 |BAND-PASS Y/N";F| 00000430: 33 24 00 3C 0C 78 00 8D 20 38 30 30 00 5E 0C 7D |3$.<.x.. 800.^.}| 00000440: 00 97 56 31 AA 32 34 2C 46 49 AA 31 35 3A 8F 20 |..V1.24,FI.15:. | 00000450: 53 45 54 20 56 4F 4C 20 54 4F 20 4D 41 58 00 64 |SET VOL TO MAX.d| 00000460: 0C B4 00 3A 00 7A 0C C3 00 8B 57 41 24 B2 22 54 |...:.z....WA$."T| 00000470: 52 49 22 A7 20 50 56 B2 31 37 00 90 0C C4 00 8B |RI". PV.17......| 00000480: 57 41 24 B2 22 53 41 57 22 A7 20 50 56 B2 33 33 |WA$."SAW". PV.33| 00000490: 00 A9 0C C5 00 8B 57 41 24 B2 22 4E 4F 49 53 45 |......WA$."NOISE| 000004A0: 22 A7 20 50 56 B2 31 32 39 00 C1 0C C6 00 8B 57 |". PV.129......W| 000004B0: 41 24 B2 22 50 55 4C 53 45 22 A7 20 50 56 B2 36 |A$."PULSE". PV.6| 000004C0: 35 00 F3 0C C8 00 99 22 93 12 20 20 20 20 20 20 |5......".. | 000004D0: 53 45 4C 45 43 54 45 44 20 53 4F 55 4E 44 20 50 |SELECTED SOUND P| 000004E0: 41 52 41 4D 45 54 45 52 53 20 20 20 20 20 20 20 |ARAMETERS | 000004F0: 20 20 22 00 1D 0D CA 00 99 22 46 52 45 51 55 45 | "......"FREQUE| 00000500: 4E 43 59 2D 22 3B 46 52 3B 22 48 5A 20 20 20 20 |NCY-";FR;"HZ | 00000510: 57 41 56 45 46 4F 52 4D 2D 22 57 41 24 00 47 0D |WAVEFORM-"WA$.G.| 00000520: CC 00 99 22 41 54 54 41 43 4B 2D 22 41 54 22 20 |..."ATTACK-"AT" | 00000530: 4D 53 45 43 20 20 20 20 44 45 43 41 59 2D 22 44 |MSEC DECAY-"D| 00000540: 45 22 4D 53 45 43 22 00 72 0D CD 00 99 22 53 55 |E"MSEC".r...."SU| 00000550: 53 54 41 49 4E 2D 22 53 55 22 4D 53 45 43 20 20 |STAIN-"SU"MSEC | 00000560: 20 20 52 45 4C 45 41 53 45 2D 22 52 45 22 4D 53 | RELEASE-"RE"MS| 00000570: 45 43 00 A6 0D CE 00 8B 57 41 24 B2 22 50 55 4C |EC......WA$."PUL| 00000580: 53 45 22 A7 20 99 C7 28 31 33 29 3B 22 50 55 4C |SE". ..(13);"PUL| 00000590: 53 45 20 44 55 54 59 20 43 59 43 4C 45 2D 22 3B |SE DUTY CYCLE-";| 000005A0: 44 43 3B 22 25 22 00 EC 0D D0 00 99 22 11 11 11 |DC;"%"......"...| 000005B0: 11 1D 1D 1D 1D 1D 48 49 54 20 28 53 50 41 43 45 |......HIT (SPACE| 000005C0: 29 20 54 4F 20 50 4C 41 59 20 4E 4F 54 45 22 C7 |) TO PLAY NOTE".| 000005D0: 28 31 33 29 22 11 20 20 20 20 20 20 46 31 20 54 |(13)". F1 T| 000005E0: 4F 20 52 45 2D 53 45 54 2E 2E 2E 22 00 02 0E DC |O RE-SET..."....| 000005F0: 00 A1 41 24 3A 8B 41 24 B2 C7 28 31 33 33 29 A7 |..A$:.A$..(133).| 00000600: 32 30 00 15 0E E1 00 8B 41 24 B3 B1 C7 28 33 32 |20......A$...(32| 00000610: 29 A7 32 32 30 00 31 0E E6 00 8F 20 50 4C 41 59 |).220.1.... PLAY| 00000620: 20 4E 4F 54 45 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | NOTE...........| 00000630: 2E 00 4F 0E E9 00 97 20 56 31 AA 34 2C 50 56 3A |..O.... V1.4,PV:| 00000640: 8F 20 54 55 52 4E 20 4F 4E 20 53 4F 55 4E 44 00 |. TURN ON SOUND.| 00000650: 73 0E EA 00 8F 2A 2A 2A 2A 2A 2A 46 4F 52 20 57 |s....******FOR W| 00000660: 3D 31 54 4F 28 41 54 2B 44 45 2B 53 55 29 3A 4E |=1TO(AT+DE+SU):N| 00000670: 45 58 54 00 A7 0E EB 00 97 56 31 AA 34 2C 50 56 |EXT......V1.4,PV| 00000680: AB 31 3A 8F 20 43 4C 52 20 47 41 54 45 20 42 49 |.1:. CLR GATE BI| 00000690: 54 2E 4C 45 54 20 45 4E 56 45 4C 4F 50 45 20 52 |T.LET ENVELOPE R| 000006A0: 45 4C 45 41 53 45 2E 00 B0 0E FA 00 89 32 32 30 |ELEASE.......220| 000006B0: 00 B6 0E 04 01 3A 00 D4 0E 90 01 8F 2E 2E 53 55 |.....:........SU| 000006C0: 42 20 50 4F 4B 45 53 20 41 54 54 41 43 4B 20 56 |B POKES ATTACK V| 000006D0: 41 4C 55 45 00 ED 0E 95 01 8B 41 54 B3 32 20 B0 |ALUE......AT.2 .| 000006E0: 20 41 54 B1 38 30 30 30 20 A7 34 32 30 00 FA 0E | AT.8000 .420...| 000006F0: 9A 01 81 20 49 B2 31 A4 31 36 00 0D 0F 9C 01 8B |... I.1.16......| 00000700: 20 41 54 B2 45 4E 28 49 29 A7 34 33 30 00 14 0F | AT.EN(I).430...| 00000710: 9F 01 82 49 00 41 0F A4 01 99 22 2A 2A 2A 49 4E |...I.A...."***IN| 00000720: 56 41 4C 49 44 20 41 54 54 41 43 4B 20 56 41 4C |VALID ATTACK VAL| 00000730: 55 45 2A 2A 2A 22 3A 41 54 B2 AB 31 3A 89 34 35 |UE***":AT..1:.45| 00000740: 30 00 6E 0F AE 01 97 56 31 AA 35 2C 28 49 AB 31 |0.n....V1.5,(I.1| 00000750: 29 AC 31 36 3A 8F 20 41 54 54 41 43 4B 20 43 4F |).16:. ATTACK CO| 00000760: 44 45 20 54 4F 20 42 49 54 53 20 34 2D 37 00 74 |DE TO BITS 4-7.t| 00000770: 0F C2 01 8E 00 7A 0F F3 01 3A 00 98 0F F4 01 8F |.....z...:......| 00000780: 2E 2E 2E 53 55 42 20 50 4F 4B 45 53 20 44 45 43 |...SUB POKES DEC| 00000790: 41 59 20 56 41 4C 55 45 00 B1 0F F9 01 8B 44 45 |AY VALUE......DE| 000007A0: B3 36 20 B0 44 45 B1 32 34 30 30 30 20 A7 35 32 |.6 .DE.24000 .52| 000007B0: 30 00 D1 0F FE 01 81 20 4A B2 31 A4 31 36 3A 8B |0...... J.1.16:.| 000007C0: 20 44 45 B2 45 4E 28 4A 29 AC 33 20 A7 20 35 33 | DE.EN(J).3 . 53| 000007D0: 30 00 D8 0F 03 02 82 4A 00 00 10 08 02 99 22 2A |0......J......"*| 000007E0: 49 4E 56 41 4C 49 44 20 44 45 43 41 59 20 56 41 |INVALID DECAY VA| 000007F0: 4C 55 45 2A 22 3A 44 45 B2 AB 31 3A 89 35 35 30 |LUE*":DE..1:.550| 00000800: 00 23 10 12 02 97 56 31 AA 35 2C 4A AB 31 3A 8F |.#....V1.5,J.1:.| 00000810: 20 44 45 43 41 59 20 43 4F 44 45 20 42 49 54 20 | DECAY CODE BIT | 00000820: 30 2D 33 00 29 10 26 02 8E 00 2F 10 57 02 3A 00 |0-3.).&.../.W.:.| 00000830: 4E 10 58 02 8F 2E 2E 53 55 42 20 50 4F 4B 45 53 |N.X....SUB POKES| 00000840: 20 53 55 53 54 41 49 4E 20 56 41 4C 55 45 00 67 | SUSTAIN VALUE.g| 00000850: 10 5D 02 8B 53 55 B3 32 20 B0 20 53 55 B1 38 30 |.]..SU.2 . SU.80| 00000860: 30 30 20 A7 36 32 30 00 74 10 62 02 81 20 4B B2 |00 .620.t.b.. K.| 00000870: 31 A4 31 36 00 87 10 64 02 8B 20 53 55 B2 45 4E |1.16...d.. SU.EN| 00000880: 28 4B 29 A7 36 33 30 00 8E 10 67 02 82 4B 00 BC |(K).630...g..K..| 00000890: 10 6C 02 99 22 2A 2A 2A 49 4E 56 41 4C 49 44 20 |.l.."***INVALID | 000008A0: 53 55 53 54 41 49 4E 20 56 41 4C 55 45 2A 2A 2A |SUSTAIN VALUE***| 000008B0: 22 3A 53 55 B2 AB 31 3A 89 36 35 30 00 EA 10 76 |":SU..1:.650...v| 000008C0: 02 97 56 31 AA 36 2C 28 4B AB 31 29 AC 31 36 3A |..V1.6,(K.1).16:| 000008D0: 8F 20 53 55 53 54 41 49 4E 20 43 4F 44 45 20 54 |. SUSTAIN CODE T| 000008E0: 4F 20 42 49 54 53 20 34 2D 37 00 F0 10 8A 02 8E |O BITS 4-7......| 000008F0: 00 F6 10 BB 02 3A 00 16 11 BC 02 8F 2E 2E 2E 53 |.....:.........S| 00000900: 55 42 20 50 4F 4B 45 53 20 52 45 4C 45 41 53 45 |UB POKES RELEASE| 00000910: 20 56 41 4C 55 45 00 2F 11 C1 02 8B 44 45 B3 36 | VALUE./....DE.6| 00000920: 20 B0 44 45 B1 32 34 30 30 30 20 A7 37 32 30 00 | .DE.24000 .720.| 00000930: 4F 11 C6 02 81 20 4C B2 31 A4 31 36 3A 8B 20 52 |O.... L.1.16:. R| 00000940: 45 B2 45 4E 28 4C 29 AC 33 20 A7 20 37 33 30 00 |E.EN(L).3 . 730.| 00000950: 56 11 CB 02 82 4C 00 80 11 D0 02 99 22 2A 49 4E |V....L......"*IN| 00000960: 56 41 4C 49 44 20 52 45 4C 45 41 53 45 20 56 41 |VALID RELEASE VA| 00000970: 4C 55 45 2A 22 3A 52 45 B2 AB 31 3A 89 37 35 30 |LUE*":RE..1:.750| 00000980: 00 A5 11 DA 02 97 56 31 AA 36 2C 4C AB 31 3A 8F |......V1.6,L.1:.| 00000990: 20 52 45 4C 45 41 53 45 20 43 4F 44 45 20 42 49 | RELEASE CODE BI| 000009A0: 54 20 30 2D 33 00 AB 11 EE 02 8E 00 B1 11 EF 02 |T 0-3...........| 000009B0: 3A 00 C8 11 20 03 8F 20 53 45 54 20 55 50 20 46 |:... .. SET UP F| 000009C0: 49 4C 54 45 52 28 53 29 00 D1 11 22 03 46 49 B2 |ILTER(S)...".FI.| 000009D0: 30 00 F0 11 2A 03 85 22 45 4E 54 45 52 20 43 55 |0...*.."ENTER CU| 000009E0: 54 4F 46 46 20 46 52 45 51 2D 48 5A 22 3B 43 46 |TOFF FREQ-HZ";CF| 000009F0: 00 0F 12 2C 03 8D 38 35 30 3A 97 56 31 AA 32 31 |...,..850:.V1.21| 00000A00: 2C 46 43 4C 3A 97 56 31 AA 32 32 2C 46 43 48 00 |,FCL:.V1.22,FCH.| 00000A10: 27 12 2F 03 8B 46 31 24 B2 22 59 22 20 A7 20 46 |'./..F1$."Y" . F| 00000A20: 49 B2 46 49 AA 31 36 00 3F 12 30 03 8B 46 32 24 |I.FI.16.?.0..F2$| 00000A30: B2 22 59 22 20 A7 20 46 49 B2 46 49 AA 36 34 00 |."Y" . FI.FI.64.| 00000A40: 57 12 31 03 8B 46 33 24 B2 22 59 22 20 A7 20 46 |W.1..F3$."Y" . F| 00000A50: 49 B2 46 49 AA 33 32 00 5D 12 34 03 8E 00 63 12 |I.FI.32.].4...c.| 00000A60: 35 03 3A 00 93 12 51 03 8F 20 43 41 4C 43 55 4C |5.:...Q.. CALCUL| 00000A70: 41 54 45 20 26 20 52 45 54 55 52 4E 20 46 49 4C |ATE & RETURN FIL| 00000A80: 54 45 52 20 52 45 47 49 53 54 45 52 20 56 41 4C |TER REGISTER VAL| 00000A90: 55 45 2E 00 BA 12 52 03 52 56 B2 B6 28 43 46 AB |UE....R.RV..(CF.| 00000AA0: 33 30 29 AD 35 2E 38 35 3A 8B 52 56 B1 32 30 34 |30).5.85:.RV.204| 00000AB0: 37 20 A7 52 56 B2 32 30 34 37 00 D0 12 57 03 46 |7 .RV.2047...W.F| 00000AC0: 43 4C B2 52 56 AF 37 3A 46 43 48 B2 52 56 AD 38 |CL.RV.7:FCH.RV.8| 00000AD0: 00 D6 12 5C 03 8E 00 00 00 |...\..... |
..(........... SOUND SETTER ........... .N.... C-64 SOUND SETTING PROGRAM......A .... USES VOICE 1.N.... EN(16)...... 2,8 ,16,24,38,56,68,80,100,250,500,800,1000, 3000,5000,8000.E.... I.1.16:. EN(I):.... ...".":V1.54272:.I.V1.V1.24:. I,0:.:. CL EAR SID CHIP...(....".WAVEFORM TRI-SAW- NOISE-PULSE";WA$.....:.M.-..".FREQUENCY 0-4000HZ";FR.R...VA.FR..0596:. VA.65535 . VA.65535...2.FLO.VA.65280:. FLO.0. FLO .0...<.FHI.VA.256:.V1.1,FHI:.V1,FLO...=. :.P.>.. WA$.."PULSE". 70...?.."ENTER PUL SE DUTY CYCLE %";DC:.DC.0.DC.100 . DC.0. 2.@.PN.DC.40.95:PL.PN.255:PH.(PN.3840).2 55.J.A..54274,PL:.54275,PH.N.F..".VALID ATTACK/SUSTAIN VALUES"...G..I.1.16:. EN( I);:.:....H..".VALID DECAY/RELEASE VALUE S".E.I..I.1.16:. EN(I).3;:.:....K.."..AT TACK VALUE(MSEC)";AT:. 400:.AT..1.75.".P ..".DECAY VALUE (MSEC)";DE:. 500:.DE..1. 80.Q.U..".SUSTAIN VALUE(MSEC)";SU:. 600: .SU..1.85...Z..".RELEASE VALUE(MSEC)";RE :. 700:.RE..1.90...[.:...D.FI.0:."IS FIL TERING DESIRED Y/N";A$:. A$.."Y" . .125. ..F..V1.23,241:. TURN ON VOICE-1 FILTER. ...I..".LO-PASS Y/N";F1$...N..".HI-PASS Y/N";F2$.2.S..".BAND-PASS Y/N";F3$.<.X.. 800.^.}..V1.24,FI.15:. SET VOL TO MAX.D ...:.Z.C..WA$."TRI". PV.17...D..WA$."SAW ". PV.33...E..WA$."NOISE". PV.129.A.F..W A$."PULSE". PV.65...H..".. SELECTED SOUND PARAMETERS "...J.."FREQUE NCY-";FR;"HZ WAVEFORM-"WA$.G.L.."ATTA CK-"AT" MSEC DECAY-"DE"MSEC".R.M.."SU STAIN-"SU"MSEC RELEASE-"RE"MSEC...N.. WA$."PULSE". .G(13);"PULSE DUTY CYCLE-"; DC;"%"...P..".........HIT (SPACE) TO PLA Y NOTE"G(13)". F1 TO RE-SET...".... ..A$:.A$.G(133).20......A$..G(32).220.1. ... PLAY NOTE.............O.... V1.4,PV: . TURN ON SOUND.S....******FOR W=1TO(AT+ DE+SU):NEXT......V1.4,PV.1:. CLR GATE BI T.LET ENVELOPE RELEASE.......220.....:.T ......SUB POKES ATTACK VALUE......AT.2 . AT.8000 .420...... I.1.16...... AT.EN(I ).430......I.A...."***INVALID ATTACK VAL UE***":AT..1:.450.N....V1.5,(I.1).16:. A TTACK CODE TO BITS 4-7.T.B...Z...:...... ...SUB POKES DECAY VALUE......DE.6 .DE.2 4000 .520.Q.... J.1.16:. DE.EN(J).3 . 53 0.X....J......"*INVALID DECAY VALUE*":DE ..1:.550.#....V1.5,J.1:. DECAY CODE BIT 0-3.).&.../.W.:.N.X....SUB POKES SUSTAIN VALUE.G.]..SU.2 . SU.8000 .620.T.B.. K. 1.16...D.. SU.EN(K).630...G..K...L.."*** INVALID SUSTAIN VALUE***":SU..1:.650...V ..V1.6,(K.1).16:. SUSTAIN CODE TO BITS 4 -7...........:.........SUB POKES RELEASE VALUE./.A..DE.6 .DE.24000 .720.O.F.. L. 1.16:. RE.EN(L).3 . 730.V.K..L...P.."*IN VALID RELEASE VALUE*":RE..1:.750...Z..V1 .6,L.1:. RELEASE CODE BIT 0-3........... :.H. .. SET UP FILTER(S).Q.".FI.0...*.." ENTER CUTOFF FREQ-HZ";CF...,..850:.V1.21 ,FCL:.V1.22,FCH.'./..F1$."Y" . FI.FI.16. ?.0..F2$."Y" . FI.FI.64.W.1..F3$."Y" . F I.FI.32.].4...C.5.:...Q.. CALCULATE & RE TURN FILTER REGISTER VALUE....R.RV..(CF. 30).5.85:.RV.2047 .RV.2047.P.W.FCL.RV.7: FCH.RV.8.V.\.....
> CLICK IMAGE PREVIEW FOR FULL MODAL