SOUND THINGS
FILE INFORMATION
FILENAME(S): SOUND THINGS
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
258ec537116a56d1d5ca893ce940881d3fc25d4b2166abb51e9c67a732c54b79
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | SOUND THINGS | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
| RANS ISK2 | SOUND THINGS | PRG | DuncanTwain | 9 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 53 4F 55 4E 44 20 54 48 |..).... SOUND TH|
00000010: 49 4E 47 53 20 28 46 2E 20 56 41 4E 5A 45 49 53 |INGS (F. VANZEIS|
00000020: 54 20 33 2F 38 35 29 20 3A 00 2F 08 01 00 3A 00 |T 3/85) :./...:.|
00000030: 50 08 02 00 8F 20 32 38 20 53 54 41 54 45 4D 45 |P.... 28 STATEME|
00000040: 4E 54 53 2C 20 34 20 46 55 4E 43 54 49 4F 4E 53 |NTS, 4 FUNCTIONS|
00000050: 00 56 08 03 00 3A 00 74 08 04 00 8F 20 4B 45 59 |.V...:.t.... KEY|
00000060: 57 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A |WORD CHARACTERS:|
00000070: 20 31 32 36 00 7A 08 05 00 3A 00 A2 08 06 00 8F | 126.z...:......|
00000080: 20 4B 45 59 57 4F 52 44 53 20 23 30 38 35 20 54 | KEYWORDS #085 T|
00000090: 4F 20 23 31 31 36 20 20 20 20 20 20 20 20 20 20 |O #116 |
000000A0: 20 3A 00 A8 08 07 00 3A 00 D0 08 08 00 8F 3D 3D | :.....:......==|
000000B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000D0: 00 D6 08 09 00 3A 00 F5 08 7B 00 2E C6 20 22 43 |.....:...{... "C|
000000E0: 4C 45 53 49 C4 46 52 45 D1 50 55 57 49 C4 46 49 |LESI.FRE.PUWI.FI|
000000F0: 46 52 45 D1 22 00 0E 09 7C 00 2E C6 20 22 41 44 |FRE."...|... "AD|
00000100: 50 55 CC 41 44 53 41 D7 41 44 54 52 C9 22 00 23 |PU.ADSA.ADTR.".#|
00000110: 09 7D 00 2E C6 20 22 4E 4F 57 41 D6 4E 4F C9 50 |.}... "NOWA.NO.P|
00000120: 55 CC 22 00 37 09 7E 00 2E C6 20 22 53 41 D7 54 |U.".7.~... "SA.T|
00000130: 52 C9 54 45 53 D4 22 00 4D 09 7F 00 2E C6 20 22 |R.TES.".M..... "|
00000140: 52 49 4E C7 53 59 4E C3 47 41 54 C5 22 00 60 09 |RIN.SYN.GAT.".`.|
00000150: 80 00 2E C6 20 22 41 54 D4 44 45 C3 53 55 D3 22 |.... "AT.DE.SU."|
00000160: 00 79 09 81 00 2E C6 20 22 52 45 CC 52 45 53 4F |.y..... "RE.RESO|
00000170: CE 56 4F CC 46 49 4C D4 22 00 90 09 82 00 2E C6 |.VO.FIL.".......|
00000180: 20 22 54 52 44 4F 46 C6 54 52 44 4F CE 48 D0 22 | "TRDOF.TRDO.H."|
00000190: 00 9E 09 83 00 2E C6 20 22 42 D0 4C D0 22 00 B0 |....... "B.L."..|
000001A0: 09 69 02 2E C6 20 22 50 4F 54 D8 50 4F 54 D9 22 |.i... "POT.POT."|
000001B0: 00 C9 09 6A 02 2E C6 20 22 4F 53 43 22 3A 20 2E |...j... "OSC": .|
000001C0: 42 59 54 45 20 24 42 33 20 00 E1 09 6B 02 2E C6 |BYTE $B3 ...k...|
000001D0: 20 22 45 4E 56 22 3A 20 2E 42 59 54 45 20 24 42 | "ENV": .BYTE $B|
000001E0: 33 00 06 0A 63 04 2E 57 B0 44 20 43 4C 45 53 49 |3...c..W.D CLESI|
000001F0: AB 31 2C 46 52 51 AB 31 2C 50 55 57 49 AB 31 2C |.1,FRQ.1,PUWI.1,|
00000200: 46 8B 52 45 AB 31 00 27 0A 64 04 2E 57 B0 44 20 |F.RE.1.'.d..W.D |
00000210: 41 44 57 41 56 AB 31 2C 41 44 57 56 31 AB 31 2C |ADWAV.1,ADWV1.1,|
00000220: 41 44 57 56 32 AB 31 00 48 0A 65 04 2E 57 B0 44 |ADWV2.1.H.e..W.D|
00000230: 20 4E 55 57 56 34 AB 31 2C 4E 55 57 41 56 AB 31 | NUWV4.1,NUWAV.1|
00000240: 2C 4E 55 57 56 31 AB 31 00 6A 0A 66 04 2E 57 B0 |,NUWV1.1.j.f..W.|
00000250: 44 20 4E 55 57 56 32 AB 31 2C 4E 55 57 56 33 AB |D NUWV2.1,NUWV3.|
00000260: 31 2C 57 41 56 42 49 54 AB 31 00 8E 0A 67 04 2E |1,WAVBIT.1...g..|
00000270: 57 B0 44 20 57 56 42 49 54 31 AB 31 2C 57 56 42 |W.D WVBIT1.1,WVB|
00000280: 49 54 32 AB 31 2C 57 56 42 49 54 33 AB 31 00 AE |IT2.1,WVBIT3.1..|
00000290: 0A 68 04 2E 57 B0 44 20 41 53 53 45 54 AB 31 2C |.h..W.D ASSET.1,|
000002A0: 44 52 53 45 54 AB 31 2C 41 53 54 31 AB 31 00 D4 |DRSET.1,AST1.1..|
000002B0: 0A 69 04 2E 57 B0 44 20 44 52 54 31 AB 31 2C 52 |.i..W.D DRT1.1,R|
000002C0: 56 53 45 54 AB 31 2C 52 56 54 31 AB 31 2C 46 49 |VSET.1,RVT1.1,FI|
000002D0: 4C 54 AB 31 00 F5 0A 6A 04 2E 57 B0 44 20 54 48 |LT.1...j..W.D TH|
000002E0: 49 52 44 AB 31 2C 54 48 52 44 31 AB 31 2C 46 4C |IRD.1,THRD1.1,FL|
000002F0: 53 45 54 AB 31 00 0C 0B 6B 04 2E 57 B0 44 20 46 |SET.1...k..W.D F|
00000300: 4C 54 31 AB 31 2C 46 4C 54 32 AB 31 00 23 0B 51 |LT1.1,FLT2.1.#.Q|
00000310: 06 2E 57 B0 44 20 50 4F 54 53 AB 31 2C 50 54 53 |..W.D POTS.1,PTS|
00000320: 31 AB 31 00 33 0B 52 06 2E 57 B0 44 20 50 54 53 |1.1.3.R..W.D PTS|
00000330: 32 AB 31 00 43 0B 53 06 2E 57 B0 44 20 50 54 53 |2.1.C.S..W.D PTS|
00000340: 33 AB 31 00 58 0B 5A 1A A1 56 4F 49 20 4A 53 52 |3.1.X.Z..VOI JSR|
00000350: 20 24 42 37 39 45 20 20 00 6F 0B 5C 1A 43 50 58 | $B79E .o.\.CPX|
00000360: 20 23 38 20 20 20 20 20 20 20 20 20 20 20 20 00 | #8 .|
00000370: 86 0B 5E 1A 42 43 53 20 49 4C 4C 51 54 59 20 20 |..^.BCS ILLQTY |
00000380: 20 20 20 20 20 20 00 95 0B 60 1A 53 54 58 20 56 | ...`.STX V|
00000390: 4F 49 43 54 52 00 9D 0B 62 1A 52 54 53 00 A3 0B |OICTR...b.RTS...|
000003A0: 64 1A 3B 00 B8 0B 66 1A A1 57 52 44 20 4A 53 52 |d.;...f..WRD JSR|
000003B0: 20 24 41 45 46 44 20 20 00 CC 0B 68 1A 4A 53 52 | $AEFD ...h.JSR|
000003C0: 20 24 41 44 38 41 20 20 20 20 20 20 00 E0 0B 6A | $AD8A ...j|
000003D0: 1A 4A 53 52 20 24 42 37 46 37 20 20 20 20 20 20 |.JSR $B7F7 |
000003E0: 00 F4 0B 6C 1A 4C 44 41 20 23 B3 44 49 52 45 43 |...l.LDA #.DIREC|
000003F0: 54 20 20 20 00 08 0C 6E 1A 53 54 41 20 53 42 59 |T ...n.STA SBY|
00000400: 54 33 AA 31 20 20 20 20 00 1C 0C 70 1A 4C 44 41 |T3.1 ...p.LDA|
00000410: 20 23 B1 44 49 52 45 43 54 20 20 20 00 30 0C 72 | #.DIRECT .0.r|
00000420: 1A 53 54 41 20 53 42 59 54 33 AA 32 20 20 20 20 |.STA SBYT3.2 |
00000430: 00 38 0C 74 1A 52 54 53 00 3E 0C 76 1A 3B 00 52 |.8.t.RTS.>.v.;.R|
00000440: 0C 78 1A 4C 91 59 42 20 4A 53 52 20 24 41 45 46 |.x.L.YB JSR $AEF|
00000450: 44 20 00 67 0C 7A 1A 4C 4E 59 42 31 20 4A 53 52 |D .g.z.LNYB1 JSR|
00000460: 20 24 42 37 39 45 20 00 7C 0C 7C 1A 43 50 58 20 | $B79E .|.|.CPX |
00000470: 23 24 31 30 20 20 20 20 20 20 20 20 00 91 0C 7E |#$10 ...~|
00000480: 1A 42 43 53 20 49 4C 4C 51 54 59 20 20 20 20 20 |.BCS ILLQTY |
00000490: 20 00 99 0C 80 1A 52 54 53 00 9F 0C 82 1A 3B 00 | .....RTS.....;.|
000004A0: B4 0C 84 1A 48 49 4E 59 42 20 4A 53 52 20 24 41 |....HINYB JSR $A|
000004B0: 45 46 44 20 00 C9 0C 86 1A 48 4E 59 42 31 20 4A |EFD .....HNYB1 J|
000004C0: 53 52 20 4C 4E 59 42 31 20 00 D1 0C 88 1A 54 58 |SR LNYB1 .....TX|
000004D0: 41 00 E6 0C 8A 1A 41 53 4C 20 20 20 20 20 20 20 |A.....ASL |
000004E0: 20 20 20 20 20 20 00 FB 0C 8C 1A 41 53 4C 20 20 | .....ASL |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 00 03 0D 8E 1A | .....|
00000500: 41 53 4C 00 0B 0D 90 1A 41 53 4C 00 13 0D 92 1A |ASL.....ASL.....|
00000510: 54 41 58 00 1B 0D 94 1A 52 54 53 00 21 0D 96 1A |TAX.....RTS.!...|
00000520: 3B 00 35 0D 98 1A A1 42 49 54 20 4A 53 52 20 24 |;.5....BIT JSR $|
00000530: 41 45 46 44 20 00 4B 0D 9A 1A 47 42 49 54 31 20 |AEFD .K...GBIT1 |
00000540: 4A 53 52 20 24 42 37 39 45 20 20 00 61 0D 9C 1A |JSR $B79E .a...|
00000550: 43 50 58 20 23 30 20 20 20 20 20 20 20 20 20 20 |CPX #0 |
00000560: 20 00 77 0D 9E 1A 42 4E 45 20 47 42 49 54 32 20 | .w...BNE GBIT2 |
00000570: 20 20 20 20 20 20 20 00 89 0D A0 1A 53 54 58 20 | .....STX |
00000580: A2 C5 20 20 20 20 20 20 20 00 9A 0D A2 1A 47 42 |.. .....GB|
00000590: 49 54 32 20 43 50 58 20 23 32 00 A9 0D A4 1A 42 |IT2 CPX #2.....B|
000005A0: 43 53 20 49 4C 4C 51 54 59 00 B1 0D A6 1A 52 54 |CS ILLQTY.....RT|
000005B0: 53 00 B7 0D A8 1A 3B 00 CB 0D AA 1A 44 49 52 45 |S.....;.....DIRE|
000005C0: 43 54 20 4C 44 41 20 24 31 34 20 00 DF 0D AC 1A |CT LDA $14 .....|
000005D0: 53 54 41 20 49 4D 53 49 44 2C 59 20 20 20 20 00 |STA IMSID,Y .|
000005E0: F3 0D AE 1A 53 54 41 20 24 44 34 30 30 2C 59 20 |....STA $D400,Y |
000005F0: 20 20 20 00 07 0E B0 1A 4C 44 41 20 24 31 35 20 | .....LDA $15 |
00000600: 20 20 20 20 20 20 20 00 1B 0E B2 1A 53 54 41 20 | .....STA |
00000610: 49 4D 53 49 44 AA 31 2C 59 20 20 00 2F 0E B4 1A |IMSID.1,Y ./...|
00000620: 53 54 41 20 24 44 34 30 31 2C 59 20 20 20 20 00 |STA $D401,Y .|
00000630: 37 0E B6 1A 52 54 53 00 3D 0E B8 1A 3B 00 55 0E |7...RTS.=...;.U.|
00000640: BA 1A 42 49 54 4E 59 42 20 4C 44 41 20 49 4D 53 |..BITNYB LDA IMS|
00000650: 49 44 2C 59 20 00 6B 0E BC 1A AF 20 50 52 54 45 |ID,Y .k.... PRTE|
00000660: 43 54 20 20 20 20 20 20 20 20 20 00 7E 0E BE 1A |CT .~...|
00000670: B0 41 20 A2 C5 20 20 20 20 20 20 20 20 20 00 96 |.A .. ..|
00000680: 0E C0 1A 53 54 41 20 49 4D 53 49 44 2C 59 20 20 |...STA IMSID,Y |
00000690: 20 20 20 20 20 20 00 AE 0E C2 1A 53 54 41 20 24 | .....STA $|
000006A0: 44 34 30 30 2C 59 20 20 20 20 20 20 20 20 00 C6 |D400,Y ..|
000006B0: 0E C4 1A 52 54 53 20 20 20 20 20 20 20 20 20 20 |...RTS |
000006C0: 20 20 20 20 20 20 00 CC 0E C6 1A 3B 00 E2 0E C8 | .....;....|
000006D0: 1A 49 4C 4C 51 54 59 20 4A 4D 50 20 24 42 32 34 |.ILLQTY JMP $B24|
000006E0: 38 20 00 E8 0E CA 1A 3B 00 01 0F CC 1A 53 49 44 |8 .....;.....SID|
000006F0: 42 59 54 20 4C 44 41 20 23 B3 42 49 54 4E 59 42 |BYT LDA #.BITNYB|
00000700: 20 00 14 0F CE 1A 53 54 41 20 53 42 59 54 33 AA | .....STA SBYT3.|
00000710: 31 20 20 20 00 27 0F D0 1A 4C 44 41 20 23 B1 42 |1 .'...LDA #.B|
00000720: 49 54 4E 59 42 20 20 00 3A 0F D2 1A 53 54 41 20 |ITNYB .:...STA |
00000730: 53 42 59 54 33 AA 32 20 20 20 00 50 0F D4 1A 53 |SBYT3.2 .P...S|
00000740: 42 59 54 31 20 53 54 59 20 56 4F 49 4E 44 58 20 |BYT1 STY VOINDX |
00000750: 00 63 0F D6 1A 4C 44 58 20 23 33 20 20 20 20 20 |.c...LDX #3 |
00000760: 20 20 20 00 79 0F D8 1A 53 42 59 54 32 20 4C 53 | .y...SBYT2 LS|
00000770: 52 20 56 4F 49 43 54 52 20 00 8C 0F DA 1A 42 43 |R VOICTR .....BC|
00000780: 43 20 53 42 59 54 34 20 20 20 20 20 00 9F 0F DC |C SBYT4 ....|
00000790: 1A 4C 44 59 20 56 4F 49 4E 44 58 20 20 20 20 00 |.LDY VOINDX .|
000007A0: B4 0F DE 1A 53 42 59 54 33 20 4A 53 52 20 24 30 |....SBYT3 JSR $0|
000007B0: 30 30 30 20 00 C9 0F E0 1A 53 42 59 54 34 20 4C |000 .....SBYT4 L|
000007C0: 44 41 20 56 4F 49 4E 44 58 00 DD 0F E2 1A 43 4C |DA VOINDX.....CL|
000007D0: 43 20 20 20 20 20 20 20 20 20 20 20 20 00 F1 0F |C ...|
000007E0: E4 1A 41 44 43 20 23 37 20 20 20 20 20 20 20 20 |..ADC #7 |
000007F0: 20 00 05 10 E6 1A 53 54 41 20 56 4F 49 4E 44 58 | .....STA VOINDX|
00000800: 20 20 20 20 20 00 0D 10 E8 1A 44 45 58 00 21 10 | .....DEX.!.|
00000810: EA 1A 42 4E 45 20 53 42 59 54 32 20 20 20 20 20 |..BNE SBYT2 |
00000820: 20 00 29 10 EC 1A 52 54 53 00 2F 10 EE 1A 3B 00 | .)...RTS./...;.|
00000830: 42 10 F0 1A 45 B0 4D 53 4B 20 54 58 41 20 20 20 |B...E.MSK TXA |
00000840: 20 20 00 55 10 F2 1A 45 B0 20 23 24 46 46 20 20 | .U...E. #$FF |
00000850: 20 20 20 20 20 00 66 10 F4 1A 45 4D 53 4B 31 20 | .f...EMSK1 |
00000860: 53 54 58 20 A2 C5 00 75 10 F6 1A 53 54 41 20 50 |STX ...u...STA P|
00000870: 52 54 45 43 54 00 7D 10 F8 1A 52 54 53 00 83 10 |RTECT.}...RTS...|
00000880: FA 1A 3B 00 97 10 FC 1A 43 4C 45 53 49 20 4C 44 |..;.....CLESI LD|
00000890: 59 20 23 24 31 39 20 00 AB 10 FE 1A 4C 44 41 20 |Y #$19 .....LDA |
000008A0: 23 30 20 20 20 20 20 20 20 20 20 00 C1 10 00 1B |#0 .....|
000008B0: 43 53 49 44 31 20 53 54 41 20 49 4D 53 49 44 2C |CSID1 STA IMSID,|
000008C0: 59 00 D1 10 02 1B 53 54 41 20 24 44 34 30 30 2C |Y.....STA $D400,|
000008D0: 59 00 D9 10 04 1B 44 45 59 00 E7 10 06 1B 42 50 |Y.....DEY.....BP|
000008E0: 4C 20 43 53 49 44 31 00 EF 10 08 1B 52 54 53 00 |L CSID1.....RTS.|
000008F0: F5 10 0A 1B 3B 00 07 11 0C 1B 46 52 51 20 4A 53 |....;.....FRQ JS|
00000900: 52 20 A1 56 4F 49 20 00 19 11 0E 1B 4A 53 52 20 |R .VOI .....JSR |
00000910: A1 57 52 44 20 20 20 20 20 00 2D 11 10 1B 4C 44 |.WRD .-...LD|
00000920: 59 20 23 30 20 20 20 20 20 20 20 20 20 00 41 11 |Y #0 .A.|
00000930: 12 1B 4A 4D 50 20 53 42 59 54 31 20 20 20 20 20 |..JMP SBYT1 |
00000940: 20 00 47 11 14 1B 3B 00 5A 11 16 1B 50 55 57 49 | .G...;.Z...PUWI|
00000950: 20 4A 53 52 20 A1 56 4F 49 20 00 6D 11 18 1B 4A | JSR .VOI .m...J|
00000960: 53 52 20 A1 57 52 44 20 20 20 20 20 20 00 82 11 |SR .WRD ...|
00000970: 1A 1B 4C 44 41 20 24 31 35 20 20 20 20 20 20 20 |..LDA $15 |
00000980: 20 20 00 97 11 1C 1B 43 4D 50 20 23 24 31 30 20 | .....CMP #$10 |
00000990: 20 20 20 20 20 20 20 00 A6 11 1E 1B 42 43 53 20 | .....BCS |
000009A0: 49 4C 4C 51 54 59 00 BA 11 20 1B 4C 44 59 20 23 |ILLQTY... .LDY #|
000009B0: 32 20 20 20 20 20 20 20 20 20 00 CE 11 22 1B 4A |2 ...".J|
000009C0: 4D 50 20 53 42 59 54 31 20 20 20 20 20 20 00 D4 |MP SBYT1 ..|
000009D0: 11 24 1B 3B 00 E8 11 26 1B 46 8B 52 45 20 4A 53 |.$.;...&.F.RE JS|
000009E0: 52 20 24 41 44 38 41 20 00 FC 11 28 1B 4A 53 52 |R $AD8A ...(.JSR|
000009F0: 20 24 42 37 46 37 20 20 20 20 20 20 00 07 12 2A | $B7F7 ...*|
00000A00: 1B 4C 44 58 20 23 30 00 19 12 2C 1B 46 B8 31 20 |.LDX #0...,.F.1 |
00000A10: 41 53 4C 20 24 31 34 20 20 00 2D 12 2E 1B 52 4F |ASL $14 .-...RO|
00000A20: 4C 20 24 31 35 20 20 20 20 20 20 20 20 00 41 12 |L $15 .A.|
00000A30: 30 1B 42 43 53 20 49 4C 4C 51 54 59 20 20 20 20 |0.BCS ILLQTY |
00000A40: 20 00 49 12 32 1B 49 4E 58 00 54 12 34 1B 43 50 | .I.2.INX.T.4.CP|
00000A50: 58 20 23 35 00 66 12 36 1B 42 4E 45 20 46 B8 31 |X #5.f.6.BNE F.1|
00000A60: 20 20 20 20 20 20 00 78 12 38 1B 46 B8 32 20 4C | .x.8.F.2 L|
00000A70: 53 52 20 24 31 34 20 20 00 8C 12 3A 1B 44 45 58 |SR $14 ...:.DEX|
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 00 9E 12 3C | ...<|
00000A90: 1B 42 4E 45 20 46 B8 32 20 20 20 20 20 20 00 B2 |.BNE F.2 ..|
00000AA0: 12 3E 1B 4C 44 59 20 23 24 31 35 20 20 20 20 20 |.>.LDY #$15 |
00000AB0: 20 20 00 C6 12 40 1B 4A 4D 50 20 44 49 52 45 43 | ...@.JMP DIREC|
00000AC0: 54 20 20 20 20 20 00 CC 12 42 1B 3B 00 E0 12 44 |T ...B.;...D|
00000AD0: 1B 41 44 57 41 56 20 4C 44 58 20 23 24 34 30 20 |.ADWAV LDX #$40 |
00000AE0: 00 EE 12 46 1B 2E 42 59 54 45 20 24 32 43 00 02 |...F..BYTE $2C..|
00000AF0: 13 48 1B 41 44 57 56 31 20 4C 44 58 20 23 24 32 |.H.ADWV1 LDX #$2|
00000B00: 30 20 00 10 13 4A 1B 2E 42 59 54 45 20 24 32 43 |0 ...J..BYTE $2C|
00000B10: 00 24 13 4C 1B 41 44 57 56 32 20 4C 44 58 20 23 |.$.L.ADWV2 LDX #|
00000B20: 24 31 30 20 00 38 13 4E 1B 4C 44 41 20 23 24 37 |$10 .8.N.LDA #$7|
00000B30: 46 20 20 20 20 20 20 20 00 4B 13 50 1B 42 4E 45 |F .K.P.BNE|
00000B40: 20 CB 57 41 56 45 20 20 20 20 20 00 51 13 52 1B | .WAVE .Q.R.|
00000B50: 3B 00 65 13 54 1B 4E 55 57 41 56 20 4C 44 58 20 |;.e.T.NUWAV LDX |
00000B60: 23 24 38 30 20 00 73 13 56 1B 2E 42 59 54 45 20 |#$80 .s.V..BYTE |
00000B70: 24 32 43 00 87 13 58 1B 4E 55 57 56 31 20 4C 44 |$2C...X.NUWV1 LD|
00000B80: 58 20 23 24 34 30 20 00 95 13 5A 1B 2E 42 59 54 |X #$40 ...Z..BYT|
00000B90: 45 20 24 32 43 00 A9 13 5C 1B 4E 55 57 56 32 20 |E $2C...\.NUWV2 |
00000BA0: 4C 44 58 20 23 24 32 30 20 00 B7 13 5E 1B 2E 42 |LDX #$20 ...^..B|
00000BB0: 59 54 45 20 24 32 43 00 CB 13 60 1B 4E 55 57 56 |YTE $2C...`.NUWV|
00000BC0: 33 20 4C 44 58 20 23 24 31 30 20 00 D9 13 62 1B |3 LDX #$10 ...b.|
00000BD0: 2E 42 59 54 45 20 24 32 43 00 ED 13 64 1B 4E 55 |.BYTE $2C...d.NU|
00000BE0: 57 56 34 20 4C 44 58 20 23 30 20 20 20 00 FA 13 |WV4 LDX #0 ...|
00000BF0: 66 1B 4C 44 41 20 23 24 30 46 00 00 14 68 1B 3B |f.LDA #$0F...h.;|
00000C00: 00 15 14 6A 1B CB 57 41 56 45 20 4A 53 52 20 45 |...j..WAVE JSR E|
00000C10: 4D 53 4B 31 20 00 29 14 6C 1B 4A 53 52 20 A1 56 |MSK1 .).l.JSR .V|
00000C20: 4F 49 20 20 20 20 20 20 20 00 3F 14 6E 1B 4C 44 |OI .?.n.LD|
00000C30: 59 20 23 34 20 20 20 20 20 20 20 20 20 20 20 00 |Y #4 .|
00000C40: 55 14 70 1B 4A 4D 50 20 53 49 44 42 59 54 20 20 |U.p.JMP SIDBYT |
00000C50: 20 20 20 20 20 00 5B 14 72 1B 3B 00 71 14 74 1B | .[.r.;.q.t.|
00000C60: 57 41 56 42 49 54 20 4C 44 58 20 23 38 20 20 20 |WAVBIT LDX #8 |
00000C70: 20 00 7F 14 76 1B 2E 42 59 54 45 20 24 32 43 00 | ...v..BYTE $2C.|
00000C80: 95 14 78 1B 57 56 42 49 54 31 20 4C 44 58 20 23 |..x.WVBIT1 LDX #|
00000C90: 34 20 20 20 20 00 A3 14 7A 1B 2E 42 59 54 45 20 |4 ...z..BYTE |
00000CA0: 24 32 43 00 B9 14 7C 1B 57 56 42 49 54 32 20 4C |$2C...|.WVBIT2 L|
00000CB0: 44 58 20 23 32 20 20 20 20 00 C7 14 7E 1B 2E 42 |DX #2 ...~..B|
00000CC0: 59 54 45 20 24 32 43 00 DD 14 80 1B 57 56 42 49 |YTE $2C.....WVBI|
00000CD0: 54 33 20 4C 44 58 20 23 31 20 20 20 20 00 EB 14 |T3 LDX #1 ...|
00000CE0: 82 1B 4A 53 52 20 45 B0 4D 53 4B 00 FD 14 84 1B |..JSR E.MSK.....|
00000CF0: 4A 53 52 20 A1 56 4F 49 20 20 20 20 20 00 0F 15 |JSR .VOI ...|
00000D00: 86 1B 4A 53 52 20 A1 42 49 54 20 20 20 20 20 00 |..JSR .BIT .|
00000D10: 1A 15 88 1B 4C 44 59 20 23 34 00 2E 15 8A 1B 4A |....LDY #4.....J|
00000D20: 4D 50 20 53 49 44 42 59 54 20 20 20 20 20 00 34 |MP SIDBYT .4|
00000D30: 15 8C 1B 3B 00 48 15 8E 1B 41 53 53 45 54 20 4C |...;.H...ASSET L|
00000D40: 44 59 20 23 35 20 20 20 00 56 15 90 1B 2E 42 59 |DY #5 .V....BY|
00000D50: 54 45 20 24 32 43 00 6A 15 92 1B 41 53 54 31 20 |TE $2C.j...AST1 |
00000D60: 4C 44 59 20 23 36 20 20 20 20 00 7E 15 94 1B 53 |LDY #6 .~...S|
00000D70: 54 59 20 56 4F 49 4E 44 58 20 20 20 20 20 00 90 |TY VOINDX ..|
00000D80: 15 96 1B 4A 53 52 20 A1 56 4F 49 20 20 20 20 20 |...JSR .VOI |
00000D90: 00 A4 15 98 1B 4A 53 52 20 48 49 4E 59 42 20 20 |.....JSR HINYB |
00000DA0: 20 20 20 20 00 B8 15 9A 1B 4C 44 41 20 23 24 30 | .....LDA #$0|
00000DB0: 46 20 20 20 20 20 20 20 00 CC 15 9C 1B 42 4E 45 |F .....BNE|
00000DC0: 20 44 52 54 32 20 20 20 20 20 20 20 00 D2 15 9E | DRT2 ....|
00000DD0: 1B 3B 00 E6 15 A0 1B 44 52 53 45 54 20 4C 44 59 |.;.....DRSET LDY|
00000DE0: 20 23 35 20 20 20 00 F4 15 A2 1B 2E 42 59 54 45 | #5 ......BYTE|
00000DF0: 20 24 32 43 00 08 16 A4 1B 44 52 54 31 20 4C 44 | $2C.....DRT1 LD|
00000E00: 59 20 23 36 20 20 20 20 00 1C 16 A6 1B 53 54 59 |Y #6 .....STY|
00000E10: 20 56 4F 49 4E 44 58 20 20 20 20 20 00 2E 16 A8 | VOINDX ....|
00000E20: 1B 4A 53 52 20 A1 56 4F 49 20 20 20 20 20 00 41 |.JSR .VOI .A|
00000E30: 16 AA 1B 4A 53 52 20 4C 91 59 42 20 20 20 20 20 |...JSR L.YB |
00000E40: 20 00 55 16 AC 1B 4C 44 41 20 23 24 46 30 20 20 | .U...LDA #$F0 |
00000E50: 20 20 20 20 20 00 68 16 AE 1B 44 52 54 32 20 4A | .h...DRT2 J|
00000E60: 53 52 20 45 4D 53 4B 31 00 77 16 B0 1B 4C 44 59 |SR EMSK1.w...LDY|
00000E70: 20 56 4F 49 4E 44 58 00 8B 16 B2 1B 4A 4D 50 20 | VOINDX.....JMP |
00000E80: 53 49 44 42 59 54 20 20 20 20 20 00 91 16 B4 1B |SIDBYT .....|
00000E90: 3B 00 A6 16 B6 1B 52 56 53 45 54 20 4A 53 52 20 |;.....RVSET JSR |
00000EA0: 48 4E 59 42 31 20 00 BA 16 B8 1B 4C 44 59 20 23 |HNYB1 .....LDY #|
00000EB0: 24 31 37 20 20 20 20 20 20 20 00 CE 16 BA 1B 4C |$17 .....L|
00000EC0: 44 41 20 23 24 30 46 20 20 20 20 20 20 20 00 DB |DA #$0F ..|
00000ED0: 16 BC 1B 42 4E 45 20 52 56 54 32 00 EF 16 BE 1B |...BNE RVT2.....|
00000EE0: 52 56 54 31 20 4A 53 52 20 4C 4E 59 42 31 20 00 |RVT1 JSR LNYB1 .|
00000EF0: 03 17 C0 1B 4C 44 59 20 23 24 31 38 20 20 20 20 |....LDY #$18 |
00000F00: 20 20 20 00 17 17 C2 1B 4C 44 41 20 23 24 46 30 | .....LDA #$F0|
00000F10: 20 20 20 20 20 20 20 00 2A 17 C4 1B 52 56 54 32 | .*...RVT2|
00000F20: 20 4A 53 52 20 45 4D 53 4B 31 00 3E 17 C6 1B 4A | JSR EMSK1.>...J|
00000F30: 4D 50 20 42 49 54 4E 59 42 20 20 20 20 20 00 44 |MP BITNYB .D|
00000F40: 17 C8 1B 3B 00 58 17 CA 1B 46 49 4C 54 20 4A 53 |...;.X...FILT JS|
00000F50: 52 20 4C 4E 59 42 31 20 00 66 17 CC 1B 4A 53 52 |R LNYB1 .f...JSR|
00000F60: 20 45 B0 4D 53 4B 00 78 17 CE 1B 4A 53 52 20 A1 | E.MSK.x...JSR .|
00000F70: 42 49 54 20 20 20 20 20 00 8C 17 D0 1B 4C 44 59 |BIT .....LDY|
00000F80: 20 23 24 31 37 20 20 20 20 20 20 20 00 A0 17 D2 | #$17 ....|
00000F90: 1B 4A 4D 50 20 42 49 54 4E 59 42 20 20 20 20 20 |.JMP BITNYB |
00000FA0: 00 A6 17 D4 1B 3B 00 BA 17 D6 1B 54 48 49 52 44 |.....;.....THIRD|
00000FB0: 20 4C 44 58 20 23 24 38 30 20 00 C8 17 D8 1B 2E | LDX #$80 ......|
00000FC0: 42 59 54 45 20 24 32 43 00 DC 17 DA 1B 54 48 52 |BYTE $2C.....THR|
00000FD0: 44 31 20 4C 44 58 20 23 30 20 20 20 00 F0 17 DC |D1 LDX #0 ....|
00000FE0: 1B 4C 44 41 20 23 24 37 46 20 20 20 20 20 20 20 |.LDA #$7F |
00000FF0: 00 04 18 DE 1B 4C 44 59 20 23 24 31 38 20 20 20 |.....LDY #$18 |
00001000: 20 20 20 20 00 11 18 E0 1B 42 4E 45 20 52 56 54 | .....BNE RVT|
00001010: 32 00 17 18 E2 1B 3B 00 2B 18 E4 1B 46 4C 53 45 |2.....;.+...FLSE|
00001020: 54 20 4C 44 58 20 23 24 34 30 20 00 39 18 E6 1B |T LDX #$40 .9...|
00001030: 2E 42 59 54 45 20 24 32 43 00 4D 18 E8 1B 46 4C |.BYTE $2C.M...FL|
00001040: 54 31 20 4C 44 58 20 23 24 32 30 20 20 00 5B 18 |T1 LDX #$20 .[.|
00001050: EA 1B 2E 42 59 54 45 20 24 32 43 00 6F 18 EC 1B |...BYTE $2C.o...|
00001060: 46 4C 54 32 20 4C 44 58 20 23 24 31 30 20 20 00 |FLT2 LDX #$10 .|
00001070: 7D 18 EE 1B 4A 53 52 20 45 B0 4D 53 4B 00 91 18 |}...JSR E.MSK...|
00001080: F0 1B 4A 53 52 20 47 42 49 54 31 20 20 20 20 20 |..JSR GBIT1 |
00001090: 20 00 A5 18 F2 1B 4C 44 59 20 23 24 31 38 20 20 | .....LDY #$18 |
000010A0: 20 20 20 20 20 00 B9 18 F4 1B 4A 4D 50 20 42 49 | .....JMP BI|
000010B0: 54 4E 59 42 20 20 20 20 20 00 BF 18 F6 1B 3B 00 |TNYB .....;.|
000010C0: D3 18 F8 1B 50 4F 54 53 20 4C 44 58 20 23 30 20 |....POTS LDX #0 |
000010D0: 20 20 20 00 E1 18 FA 1B 2E 42 59 54 45 20 24 32 | ......BYTE $2|
000010E0: 43 00 F5 18 FC 1B 50 54 53 31 20 4C 44 58 20 23 |C.....PTS1 LDX #|
000010F0: 31 20 20 20 20 00 03 19 FE 1B 2E 42 59 54 45 20 |1 ......BYTE |
00001100: 24 32 43 00 17 19 00 1C 50 54 53 32 20 4C 44 58 |$2C.....PTS2 LDX|
00001110: 20 23 32 20 20 20 20 00 25 19 02 1C 2E 42 59 54 | #2 .%....BYT|
00001120: 45 20 24 32 43 00 39 19 04 1C 50 54 53 33 20 4C |E $2C.9...PTS3 L|
00001130: 44 58 20 23 33 20 20 20 20 00 4D 19 06 1C 4C 44 |DX #3 .M...LD|
00001140: 59 20 24 44 34 31 39 2C 58 20 20 20 20 00 61 19 |Y $D419,X .a.|
00001150: 08 1C 4A 4D 50 20 24 42 33 41 32 20 20 20 20 20 |..JMP $B3A2 |
00001160: 20 00 67 19 0A 1C 3B 00 7B 19 0C 1C 49 4D 53 49 | .g...;.{...IMSI|
00001170: 44 20 20 AC B2 20 AC AA 24 31 39 00 89 19 0E 1C |D .. ..$19.....|
00001180: A2 C5 20 AC B2 20 AC AA 31 00 9B 19 10 1C 50 52 |.. .. ..1.....PR|
00001190: 54 45 43 54 20 AC B2 20 AC AA 31 00 AD 19 12 1C |TECT .. ..1.....|
000011A0: 56 4F 49 4E 44 58 20 AC B2 20 AC AA 31 00 BF 19 |VOINDX .. ..1...|
000011B0: 14 1C 56 4F 49 43 54 52 20 AC B2 20 AC AA 31 00 |..VOICTR .. ..1.|
000011C0: C5 19 16 1C 3B 00 00 00 |....;... |
..).... SOUND THINGS (F. VANZEIST 3/85)
:./...:.P.... 28 STATEMENTS, 4 FUNCTIONS
.V...:.T.... KEYWORD CHARACTERS: 126.Z..
.:...... KEYWORDS #085 TO #116
:.....:.P....==========================
========.V...:...{..F "CLESIDFREQPUWIDFI
FREQ"...|..F "ADPULADSAWADTRI".#.}..F "N
OWAVNOIPUL".7.~..F "SAWTRITEST".M...F "
RINGSYNCGATE".`....F "ATTDECSUS".Y....F
"RELRESONVOLFILT"......F "TRDOFFTRDONHP"
......F "BPLP"...I..F "POTXPOTY".I.J..F
"OSC": .BYTE $B3 ...K..F "ENV": .BYTE $B
3...C..W.D CLESI.1,FRQ.1,PUWI.1,F.RE.1.'
.D..W.D ADWAV.1,ADWV1.1,ADWV2.1.H.E..W.D
NUWV4.1,NUWAV.1,NUWV1.1.J.F..W.D NUWV2.
1,NUWV3.1,WAVBIT.1...G..W.D WVBIT1.1,WVB
IT2.1,WVBIT3.1...H..W.D ASSET.1,DRSET.1,
AST1.1.T.I..W.D DRT1.1,RVSET.1,RVT1.1,FI
LT.1...J..W.D THIRD.1,THRD1.1,FLSET.1...
K..W.D FLT1.1,FLT2.1.#.Q..W.D POTS.1,PTS
1.1.3.R..W.D PTS2.1.C.S..W.D PTS3.1.X.Z.
.VOI JSR $B79E .O.\.CPX #8 .
..^.BCS ILLQTY ...`.STX VOICTR...
B.RTS...D.;...F..WRD JSR $AEFD .L.H.JSR
$AD8A ...J.JSR $B7F7 ...L.LDA
#.DIRECT ...N.STA SBYT3.1 ...P.LDA
#.DIRECT .0.R.STA SBYT3.2 .8.T.RTS
.>.V.;.R.X.L.YB JSR $AEFD .G.Z.LNYB1 JSR
$B79E .|.|.CPX #$10 ...~.BCS ILL
QTY .....RTS.....;.....HINYB JSR $A
EFD .I...HNYB1 JSR LNYB1 .Q...TXA.....AS
L .....ASL .....
ASL.....ASL.....TAX.....RTS.!...;.5....B
IT JSR $AEFD .K...GBIT1 JSR $B79E .A...
CPX #0 .W...BNE GBIT2 .
.. .STX .E .....GBIT2 CPX #2.....B
CS ILLQTY.....RTS.....;.K...DIRECT LDA $
14 .....STA IMSID,Y .....STA $D400,Y
.....LDA $15 .....STA IMSID.1,
Y ./...STA $D401,Y .7...RTS.=...;.U.
..BITNYB LDA IMSID,Y .K.... PRTECT
.~....A .E .....STA IMSID,Y
...B.STA $D400,Y .F.D.RTS
.L.F.;...H.ILLQTY JMP $B24
8 ...J.;...L.SIDBYT LDA #.BITNYB ...N.ST
A SBYT3.1 .'.P.LDA #.BITNYB .:.R.STA
SBYT3.2 .P.T.SBYT1 STY VOINDX .C.V.LDX
#3 .Y.X.SBYT2 LSR VOICTR ...Z.BC
C SBYT4 .....LDY VOINDX .....SBYT
3 JSR $0000 .I...SBYT4 LDA VOINDX.....CL
C .....ADC #7 .....ST
A VOINDX .....DEX.!...BNE SBYT2
.)...RTS./...;.B...E.MSK TXA .U...E
. #$FF .F...EMSK1 STX .E.U...STA P
RTECT.}...RTS.....;.....CLESI LDY #$19 .
....LDA #0 .A...CSID1 STA IMSID,
Y.Q...STA $D400,Y.Y...DEY.....BPL CSID1.
....RTS.....;.....FRQ JSR .VOI .....JSR
.WRD .-...LDY #0 .A...JMP SB
YT1 .G...;.Z...PUWI JSR .VOI .M...J
SR .WRD .....LDA $15 .....C
MP #$10 .....BCS ILLQTY... .LDY #
2 .N.".JMP SBYT1 .T.$.;...&
.F.RE JSR $AD8A ...(.JSR $B7F7 ...*
.LDX #0...,.F.1 ASL $14 .-...ROL $15
.A.0.BCS ILLQTY .I.2.INX.T.4.CP
X #5.F.6.BNE F.1 .X.8.F.2 LSR $14
...:.DEX ...<.BNE F.2 ..
.>.LDY #$15 .F.@.JMP DIRECT .L
.B.;...D.ADWAV LDX #$40 ...F..BYTE $2C..
.H.ADWV1 LDX #$20 ...J..BYTE $2C.$.L.ADW
V2 LDX #$10 .8.N.LDA #$7F .K.P.BNE
KWAVE .Q.R.;.E.T.NUWAV LDX #$80 .S.
V..BYTE $2C...X.NUWV1 LDX #$40 ...Z..BYT
E $2C...\.NUWV2 LDX #$20 ...^..BYTE $2C.
K.`.NUWV3 LDX #$10 .Y.B..BYTE $2C...D.NU
WV4 LDX #0 ...F.LDA #$0F...H.;...J.KWA
VE JSR EMSK1 .).L.JSR .VOI .?.N.LD
Y #4 .U.P.JMP SIDBYT .[.
R.;.Q.T.WAVBIT LDX #8 ..V..BYTE $2C.
..X.WVBIT1 LDX #4 ...Z..BYTE $2C...|.
WVBIT2 LDX #2 .G.~..BYTE $2C.....WVBI
T3 LDX #1 .....JSR E.MSK.....JSR .VOI
.....JSR .BIT .....LDY #4.....J
MP SIDBYT .4...;.H...ASSET LDY #5
.V....BYTE $2C.J...AST1 LDY #6 .~...S
TY VOINDX .....JSR .VOI .....JSR
HINYB .....LDA #$0F .L...BNE
DRT2 .R...;... .DRSET LDY #5 ..
....BYTE $2C.....DRT1 LDY #6 .....STY
VOINDX .....JSR .VOI .A...JSR L
.YB .U...LDA #$F0 .H...DRT2 J
SR EMSK1.W...LDY VOINDX.....JMP SIDBYT
.....;.....RVSET JSR HNYB1 .....LDY #
$17 .N...LDA #$0F .....BNE R
VT2.....RVT1 JSR LNYB1 .....LDY #$18
...B.LDA #$F0 .*.D.RVT2 JSR EMS
K1.>.F.JMP BITNYB .D.H.;.X.J.FILT JS
R LNYB1 .F.L.JSR E.MSK.X.N.JSR .BIT
...P.LDY #$17 . .R.JMP BITNYB
...T.;...V.THIRD LDX #$80 .H.X..BYTE $2C
...Z.THRD1 LDX #0 .....LDA #$7F
.....LDY #$18 .....BNE RVT2.....;.
+...FLSET LDX #$40 .9....BYTE $2C.M...FL
T1 LDX #$20 .[....BYTE $2C.O...FLT2 LDX
#$10 .}...JSR E.MSK.....JSR GBIT1
.....LDY #$18 .....JMP BITNYB
.....;.S...POTS LDX #0 ......BYTE $2
C.....PTS1 LDX #1 ......BYTE $2C.....
PTS2 LDX #2 .%....BYTE $2C.9...PTS3 L
DX #3 .M...LDY $D419,X .A...JMP $B
3A2 .G...;.{...IMSID .. ..$19.....
.E .. ..1.....PRTECT .. ..1.....VOINDX .
. ..1.....VOICTR .. ..1.E...;...
> CLICK IMAGE PREVIEW FOR FULL MODAL