SAMPLEPLAYER.ASM
FILE INFORMATION
FILENAME(S): SAMPLEPLAYER.ASM
FILE TYPE(S): PRG, DEL
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 2 disk(s)
FILE HASH
cbfd0f5af62eb35587de79815c900178fe14940c70e793c06ef2b3b139901710
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU SEPTEMBER | SAMPLEPLAYER.ASM | PRG | UK CD | 9 | 1 | DOWNLOAD FILE |
| 00 | SAMPLEPLAYER.ASM | DEL | Maestro | 24 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 0D 08 E8 03 AC B2 24 43 33 30 30 00 34 08 |........$C300.4.|
00000010: F2 03 21 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..! ------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000030: 2D 2D 2D 2D 00 59 08 FC 03 21 20 43 36 34 20 53 |----.Y...! C64 S|
00000040: 41 4D 50 4C 45 20 4B 49 54 20 2D 20 53 41 4D 50 |AMPLE KIT - SAMP|
00000050: 4C 45 20 50 4C 41 59 45 52 00 7C 08 06 04 21 20 |LE PLAYER.|...! |
00000060: 53 4F 55 52 43 45 20 46 49 4C 45 20 81 20 4D 49 |SOURCE FILE . MI|
00000070: 4B 52 4F 20 26 20 36 35 31 30 AA 2E 00 82 08 10 |KRO & 6510......|
00000080: 04 21 00 A3 08 1A 04 21 20 20 20 57 52 49 54 54 |.!.....! WRITT|
00000090: 45 4E 20 42 59 20 49 41 4E 20 CB 46 46 45 20 31 |EN BY IAN .FFE 1|
000000A0: 39 39 30 00 C1 08 24 04 21 20 20 20 81 20 43 4F |990...$.! . CO|
000000B0: 4D 4D 4F 44 B0 45 20 44 49 53 4B 20 55 53 45 52 |MMOD.E DISK USER|
000000C0: 2E 00 C7 08 2E 04 21 00 E9 08 38 04 21 20 20 20 |......!...8.! |
000000D0: 20 20 20 20 4D 45 4D 4F 52 59 20 52 45 51 55 49 | MEMORY REQUI|
000000E0: 52 45 4D 45 4E 54 53 3A 2D 00 EF 08 42 04 21 00 |REMENTS:-...B.!.|
000000F0: 13 09 4C 04 21 20 20 20 20 53 41 4D 50 4C 45 3A |..L.! SAMPLE:|
00000100: 2D 20 20 20 20 20 20 20 24 32 30 30 30 2D 24 41 |- $2000-$A|
00000110: 30 30 30 00 37 09 56 04 21 20 20 20 20 53 50 4C |000.7.V.! SPL|
00000120: 49 54 20 44 41 54 41 3A 2D 20 20 20 24 43 30 30 |IT DATA:- $C00|
00000130: 30 2D 24 43 31 30 30 00 5B 09 60 04 21 20 20 20 |0-$C100.[.`.! |
00000140: 20 54 55 4E 45 3A 2D 20 20 20 20 20 20 20 20 20 | TUNE:- |
00000150: 24 43 31 30 30 2D 24 43 33 30 30 00 61 09 6A 04 |$C100-$C300.a.j.|
00000160: 21 00 67 09 74 04 21 00 6D 09 7E 04 21 00 7E 09 |!.g.t.!.m.~.!.~.|
00000170: 88 04 53 41 4D 50 4C 45 B2 24 32 30 30 30 00 8F |..SAMPLE.$2000..|
00000180: 09 92 04 53 50 4C 49 54 53 B2 24 43 30 30 30 00 |...SPLITS.$C000.|
00000190: 9E 09 9C 04 54 55 4E 45 B2 24 43 31 30 30 00 A4 |....TUNE.$C100..|
000001A0: 09 A6 04 21 00 B2 09 B0 04 5A 45 52 4F 31 B2 24 |...!.....ZERO1.$|
000001B0: 46 42 00 B8 09 BA 04 21 00 DF 09 C4 04 21 20 2D |FB.....!.....! -|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000001E0: 06 0A CE 04 21 20 4F 42 4A 45 43 54 20 43 4F 44 |....! OBJECT COD|
000001F0: 45 20 4C 45 4E 3A AB 20 24 43 35 28 31 39 37 29 |E LEN:. $C5(197)|
00000200: 20 42 59 54 45 53 00 2D 0A D8 04 21 20 2D 2D 2D | BYTES.-...! ---|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000220: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 33 0A |-------------.3.|
00000230: E2 04 21 00 3E 0A EC 04 4C 44 41 20 23 30 00 4C |..!.>...LDA #0.L|
00000240: 0A F6 04 53 54 41 20 35 33 32 38 30 00 6D 0A 00 |...STA 53280.m..|
00000250: 05 53 54 41 20 35 33 32 38 31 20 20 20 20 21 20 |.STA 53281 ! |
00000260: 53 43 52 45 45 4E 2D 3E 42 4C 41 43 4B 00 73 0A |SCREEN->BLACK.s.|
00000270: 0A 05 21 00 98 0A 14 05 53 45 49 20 20 20 20 20 |..!.....SEI |
00000280: 20 20 20 20 20 21 20 44 49 53 41 42 4C 45 20 46 | ! DISABLE F|
00000290: 4F 52 20 53 50 45 45 44 00 A6 0A 1E 05 4C 44 41 |OR SPEED.....LDA|
000002A0: 20 24 44 30 31 31 00 B7 0A 28 05 AF 20 23 25 31 | $D011...(.. #%1|
000002B0: 31 31 30 31 31 31 31 00 D7 0A 32 05 53 54 41 20 |1101111...2.STA |
000002C0: 24 44 30 31 31 20 20 20 20 21 20 42 4C 41 4E 4B |$D011 ! BLANK|
000002D0: 20 53 43 52 45 45 4E 00 FB 0A 3C 05 4A 53 52 20 | SCREEN...<.JSR |
000002E0: 43 4C 45 41 52 53 49 44 20 21 20 43 4C 45 41 52 |CLEARSID ! CLEAR|
000002F0: 20 53 4F 55 4E 44 20 43 48 49 50 00 1A 0B 46 05 | SOUND CHIP...F.|
00000300: 4A 53 52 20 50 4C 41 59 53 45 51 20 20 21 20 4D |JSR PLAYSEQ ! M|
00000310: 41 49 4E 20 50 4C 41 59 45 52 00 28 0B 50 05 4C |AIN PLAYER.(.P.L|
00000320: 44 41 20 24 44 30 31 31 00 3A 0B 5A 05 B0 41 20 |DA $D011.:.Z..A |
00000330: 23 25 30 30 30 31 30 30 30 30 00 5C 0B 64 05 53 |#%00010000.\.d.S|
00000340: 54 41 20 24 44 30 31 31 20 20 20 20 21 20 52 45 |TA $D011 ! RE|
00000350: 53 54 4F 52 45 20 53 43 52 45 45 4E 00 82 0B 6E |STORE SCREEN...n|
00000360: 05 43 4C 49 20 20 20 20 20 20 20 20 20 20 21 20 |.CLI ! |
00000370: 49 4E 54 45 52 52 55 50 54 53 20 42 41 43 4B 20 |INTERRUPTS BACK |
00000380: 4F 4E 00 8A 0B 78 05 52 54 53 00 90 0B 82 05 21 |ON...x.RTS.....!|
00000390: 00 96 0B 8C 05 21 00 B7 0B 96 05 21 20 2D 2D 2D |.....!.....! ---|
000003A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003B0: 2D 2D 2D 2D 2D 2D 2D 00 DB 0B A0 05 43 4C 45 41 |-------.....CLEA|
000003C0: 52 53 49 44 20 21 20 20 20 20 20 43 4C 45 41 52 |RSID ! CLEAR|
000003D0: 20 53 4F 55 4E 44 20 43 48 49 50 00 E6 0B AA 05 | SOUND CHIP.....|
000003E0: 4C 44 58 20 23 30 00 EE 0B B4 05 54 58 41 00 02 |LDX #0.....TXA..|
000003F0: 0C BE 05 4C 50 31 20 53 54 41 20 24 44 34 30 30 |...LP1 STA $D400|
00000400: 2C 58 00 0A 0C C8 05 49 4E 58 00 16 0C D2 05 43 |,X.....INX.....C|
00000410: 50 58 20 23 32 34 00 22 0C DC 05 42 4E 45 20 4C |PX #24."...BNE L|
00000420: 50 31 00 2A 0C E6 05 52 54 53 00 4B 0C F0 05 21 |P1.*...RTS.K...!|
00000430: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 51 0C FA 05 |-----------.Q...|
00000450: 21 00 57 0C 04 06 21 00 78 0C 0E 06 21 20 2D 2D |!.W...!.x...! --|
00000460: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000470: 2D 2D 2D 2D 2D 2D 2D 2D 00 9A 0C 18 06 21 20 50 |--------.....! P|
00000480: 4C 41 59 20 41 20 53 49 4E 47 4C 45 20 53 41 4D |LAY A SINGLE SAM|
00000490: 50 4C 45 20 53 50 4C 49 54 2E 00 BD 0C 22 06 21 |PLE SPLIT....".!|
000004A0: 20 27 53 54 41 52 54 27 20 48 4F 4C 44 53 20 53 | 'START' HOLDS S|
000004B0: 54 41 52 54 20 48 49 20 42 59 54 45 2E 00 D4 0C |TART HI BYTE....|
000004C0: 2C 06 21 20 4F 46 20 54 48 45 20 53 41 4D 50 4C |,.! OF THE SAMPL|
000004D0: 45 20 83 2E 00 F5 0C 36 06 21 20 27 4C 41 53 54 |E .....6.! 'LAST|
000004E0: 27 20 48 4F 4C 44 53 20 54 48 45 20 80 AB 48 49 |' HOLDS THE ..HI|
000004F0: 20 42 59 54 45 00 12 0D 40 06 21 20 41 44 44 52 | BYTE...@.! ADDR|
00000500: 45 53 53 20 4F 46 20 54 48 45 20 53 41 4D 50 4C |ESS OF THE SAMPL|
00000510: 45 2E 00 33 0D 4A 06 21 20 2D 2D 2D 2D 2D 2D 2D |E..3.J.! -------|
00000520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000530: 2D 2D 2D 00 4A 0D 54 06 50 4C 41 59 41 53 41 4D |---.J.T.PLAYASAM|
00000540: 50 4C 45 20 4C 44 58 20 23 30 00 58 0D 5E 06 4C |PLE LDX #0.X.^.L|
00000550: 44 59 20 53 54 41 52 54 00 66 0D 68 06 53 54 58 |DY START.f.h.STX|
00000560: 20 5A 45 52 4F 31 00 76 0D 72 06 53 54 59 20 5A | ZERO1.v.r.STY Z|
00000570: 45 52 4F 31 AA 31 00 81 0D 7C 06 4C 44 59 20 23 |ERO1.1...|.LDY #|
00000580: 30 00 A5 0D 86 06 50 4C 41 59 20 21 20 20 20 20 |0.....PLAY ! |
00000590: 20 20 20 21 20 4C 4F 4F 50 20 41 20 50 41 47 45 | ! LOOP A PAGE|
000005A0: 20 4F 46 20 83 00 CA 0D 90 06 4C 44 41 20 28 5A | OF ......LDA (Z|
000005B0: 45 52 4F 31 29 2C 59 20 20 21 20 47 45 54 20 53 |ERO1),Y ! GET S|
000005C0: 41 4D 50 4C 45 20 42 59 54 45 00 EF 0D 9A 06 4C |AMPLE BYTE.....L|
000005D0: 53 52 20 41 20 20 20 20 20 20 20 20 20 21 20 A1 |SR A ! .|
000005E0: 20 44 45 53 49 52 45 44 20 4E 49 42 42 4C 45 00 | DESIRED NIBBLE.|
000005F0: F9 0D A4 06 4C 53 52 20 41 00 03 0E AE 06 4C 53 |....LSR A.....LS|
00000600: 52 20 41 00 0D 0E B8 06 4C 53 52 20 41 00 31 0E |R A.....LSR A.1.|
00000610: C2 06 53 54 41 20 24 44 34 31 38 20 20 20 20 21 |..STA $D418 !|
00000620: 20 4F 55 54 50 55 54 20 41 53 20 56 4F 4C 55 4D | OUTPUT AS VOLUM|
00000630: 45 00 58 0E CC 06 4C 44 58 20 53 50 45 45 44 20 |E.X...LDX SPEED |
00000640: 20 20 20 21 20 44 45 4C 41 59 20 42 45 54 57 45 | ! DELAY BETWE|
00000650: 45 4E 20 42 59 54 45 53 00 65 0E D6 06 44 45 4C |EN BYTES.e...DEL|
00000660: 32 20 44 45 58 00 72 0E E0 06 42 4E 45 20 44 45 |2 DEX.r...BNE DE|
00000670: 4C 32 00 94 0E EA 06 49 4E 59 20 20 20 20 20 20 |L2.....INY |
00000680: 20 20 20 20 21 20 82 20 42 59 54 45 20 49 4E 20 | ! . BYTE IN |
00000690: 50 41 47 45 00 A1 0E F4 06 42 4E 45 20 50 4C 41 |PAGE.....BNE PLA|
000006A0: 59 00 C8 0E FE 06 49 4E 43 20 5A 45 52 4F 31 AA |Y.....INC ZERO1.|
000006B0: 31 20 20 21 20 41 44 44 20 32 35 36 20 28 48 49 |1 ! ADD 256 (HI|
000006C0: 20 42 59 54 45 2B 31 29 00 ED 0E 08 07 4C 44 41 | BYTE+1).....LDA|
000006D0: 20 5A 45 52 4F 31 AA 31 20 20 21 20 54 4F 20 52 | ZERO1.1 ! TO R|
000006E0: 45 41 44 20 4E 45 58 54 20 50 41 47 45 00 14 0F |EAD NEXT PAGE...|
000006F0: 12 07 43 4D 50 20 4C 41 53 54 20 20 20 20 20 21 |..CMP LAST !|
00000700: 20 43 48 45 43 4B 20 46 4F 52 20 4C 41 53 54 20 | CHECK FOR LAST |
00000710: 50 41 47 45 00 21 0F 1C 07 42 4E 45 20 50 4C 41 |PAGE.!...BNE PLA|
00000720: 59 00 29 0F 26 07 52 54 53 00 2F 0F 30 07 21 00 |Y.).&.RTS./.0.!.|
00000730: 45 0F 3A 07 53 54 41 52 54 20 42 59 54 20 B3 53 |E.:.START BYT .S|
00000740: 41 4D 50 4C 45 00 56 0F 44 07 4C 41 53 54 20 42 |AMPLE.V.D.LAST B|
00000750: 59 54 20 24 41 30 00 67 0F 4E 07 53 50 45 45 44 |YT $A0.g.N.SPEED|
00000760: 20 42 59 54 20 30 39 00 6D 0F 58 07 21 00 94 0F | BYT 09.m.X.!...|
00000770: 62 07 21 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |b.! ------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000790: 2D 2D 2D 2D 00 B8 0F 6C 07 21 20 20 4D 41 49 4E |----...l.! MAIN|
000007A0: 20 50 4C 41 59 45 52 20 54 4F 20 50 4C 41 59 20 | PLAYER TO PLAY |
000007B0: 41 20 22 54 55 4E 45 22 00 CB 0F 76 07 21 20 20 |A "TUNE"...v.! |
000007C0: 4F 46 20 53 41 4D 50 4C 45 53 2E 00 F2 0F 80 07 |OF SAMPLES......|
000007D0: 21 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |! --------------|
000007E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007F0: 2D 2D 00 00 10 8A 07 50 4C 41 59 53 45 51 20 21 |--.....PLAYSEQ !|
00000800: 00 0B 10 94 07 4C 44 58 20 23 30 00 19 10 9E 07 |.....LDX #0.....|
00000810: 53 54 58 20 49 4E 53 45 51 00 23 10 A8 07 52 44 |STX INSEQ.#...RD|
00000820: 53 20 21 00 48 10 B2 07 4C 44 59 20 54 55 4E 45 |S !.H...LDY TUNE|
00000830: 2C 58 20 20 21 20 52 45 41 44 20 53 41 4D 50 4C |,X ! READ SAMPL|
00000840: 45 20 23 20 54 4F 20 59 00 4E 10 BC 07 21 00 6A |E # TO Y.N...!.j|
00000850: 10 C6 07 21 20 AB AB AB AB AB AB B1 20 43 48 45 |...! ....... CHE|
00000860: 43 4B 20 81 20 46 4C 41 47 53 00 70 10 D0 07 21 |CK . FLAGS.p...!|
00000870: 00 8D 10 DA 07 43 50 59 20 23 31 33 31 20 20 20 |.....CPY #131 |
00000880: 20 21 20 31 33 31 B2 45 58 49 54 AD 80 00 9D 10 | ! 131.EXIT.....|
00000890: E4 07 42 45 51 20 45 58 49 54 53 45 51 00 A3 10 |..BEQ EXITSEQ...|
000008A0: EE 07 21 00 C6 10 F8 07 43 50 59 20 23 31 32 39 |..!.....CPY #129|
000008B0: 20 20 20 20 21 20 31 32 39 3D 53 50 45 45 44 20 | ! 129=SPEED |
000008C0: 43 48 41 4E 47 45 00 D8 10 02 08 42 45 51 20 4D |CHANGE.....BEQ M|
000008D0: 41 4B 45 53 50 45 45 44 00 FA 10 0C 08 43 50 59 |AKESPEED.....CPY|
000008E0: 20 23 31 33 30 20 20 20 20 21 20 31 33 30 3D 52 | #130 ! 130=R|
000008F0: 45 50 45 41 54 20 54 55 4E 45 00 09 11 16 08 42 |EPEAT TUNE.....B|
00000900: 45 51 20 52 45 50 45 41 54 00 30 11 20 08 43 50 |EQ REPEAT.0. .CP|
00000910: 59 20 23 31 32 38 20 20 20 20 21 20 31 32 38 3D |Y #128 ! 128=|
00000920: 44 45 4C 41 59 20 57 49 54 48 20 56 41 4C 55 45 |DELAY WITH VALUE|
00000930: 00 3C 11 2A 08 42 45 51 20 44 4F 92 00 42 11 34 |.<.*.BEQ DO..B.4|
00000940: 08 21 00 48 11 3E 08 21 00 6F 11 48 08 21 20 4E |.!.H.>.!.o.H.! N|
00000950: 4F 57 20 59 20 4D 55 53 54 20 42 45 20 41 20 22 |OW Y MUST BE A "|
00000960: 53 50 4C 49 54 22 20 54 4F 20 50 4C 41 59 2E 00 |SPLIT" TO PLAY..|
00000970: 75 11 52 08 21 00 9B 11 5C 08 21 20 2D 2D 2D 2D |u.R.!...\.! ----|
00000980: 3E 20 52 45 41 44 20 50 41 47 45 20 4E 55 4D 42 |> READ PAGE NUMB|
00000990: 45 52 53 20 54 4F 20 50 4C 41 59 00 B9 11 66 08 |ERS TO PLAY...f.|
000009A0: 21 20 20 20 20 20 20 20 46 52 4F 4D 20 2E 2E 2E |! FROM ...|
000009B0: 2E 20 54 4F 20 2E 2E 2E 2E 00 DE 11 70 08 21 20 |. TO .......p.! |
000009C0: 46 4F 52 20 54 48 45 20 27 50 4C 41 59 41 53 41 |FOR THE 'PLAYASA|
000009D0: 4D 50 4C 45 27 20 52 4F 55 54 49 4E 45 2E 00 E4 |MPLE' ROUTINE...|
000009E0: 11 7A 08 21 00 F5 11 84 08 4C 44 41 20 53 50 4C |.z.!.....LDA SPL|
000009F0: 49 54 53 2C 59 00 03 12 8E 08 53 54 41 20 53 54 |ITS,Y.....STA ST|
00000A00: 41 52 54 00 18 12 98 08 4C 44 41 20 53 50 4C 49 |ART.....LDA SPLI|
00000A10: 54 53 AA 31 32 38 2C 59 00 25 12 A2 08 53 54 41 |TS.128,Y.%...STA|
00000A20: 20 4C 41 53 54 00 2B 12 AC 08 21 00 52 12 B6 08 | LAST.+...!.R...|
00000A30: 21 20 52 45 41 44 20 23 20 54 49 4D 45 53 20 54 |! READ # TIMES T|
00000A40: 4F 20 50 4C 41 59 20 54 48 49 53 20 53 50 4C 49 |O PLAY THIS SPLI|
00000A50: 54 2E 00 58 12 C0 08 21 00 6B 12 CA 08 4C 44 41 |T..X...!.k...LDA|
00000A60: 20 54 55 4E 45 AA 32 35 36 2C 58 00 7D 12 D4 08 | TUNE.256,X.}...|
00000A70: 53 54 41 20 4C 4F 4F 50 43 4F 55 4E 54 00 83 12 |STA LOOPCOUNT...|
00000A80: DE 08 21 00 A8 12 E8 08 21 20 2D 2D 2D 2D 2D 3E |..!.....! ----->|
00000A90: 20 4C 4F 4F 50 43 4F 55 4E 54 3D 52 45 50 45 41 | LOOPCOUNT=REPEA|
00000AA0: 54 20 56 41 4C 55 45 2E 00 AE 12 F2 08 21 00 D3 |T VALUE......!..|
00000AB0: 12 FC 08 4C 4C 4C 20 4A 53 52 20 50 4C 41 59 41 |...LLL JSR PLAYA|
00000AC0: 53 41 4D 50 4C 45 20 21 20 50 4C 41 59 20 53 50 |SAMPLE ! PLAY SP|
00000AD0: 4C 49 54 00 FA 12 06 09 4C 44 41 20 24 44 43 30 |LIT.....LDA $DC0|
00000AE0: 31 20 20 20 20 20 20 20 20 20 20 21 20 45 58 49 |1 ! EXI|
00000AF0: 54 20 49 46 20 53 50 41 43 45 00 1E 13 10 09 AF |T IF SPACE......|
00000B00: 20 23 25 30 30 30 31 30 30 30 30 20 20 20 20 20 | #%00010000 |
00000B10: 21 20 42 41 52 20 50 52 45 53 53 45 44 2E 00 2A |! BAR PRESSED..*|
00000B20: 13 1A 09 42 4E 45 20 49 45 57 00 3A 13 24 09 4A |...BNE IEW.:.$.J|
00000B30: 4D 50 20 45 58 49 54 53 45 51 00 44 13 2E 09 49 |MP EXITSEQ.D...I|
00000B40: 45 57 20 21 00 6A 13 38 09 44 45 43 20 4C 4F 4F |EW !.j.8.DEC LOO|
00000B50: 50 43 4F 55 4E 54 20 20 20 20 20 20 21 20 4C 4F |PCOUNT ! LO|
00000B60: 4F 50 20 52 45 50 45 41 54 53 00 76 13 42 09 42 |OP REPEATS.v.B.B|
00000B70: 4E 45 20 4C 4C 4C 00 83 13 4C 09 82 49 4E 53 45 |NE LLL...L..INSE|
00000B80: 51 20 21 00 A9 13 56 09 49 4E 43 20 49 4E 53 45 |Q !...V.INC INSE|
00000B90: 51 20 20 20 20 20 20 20 20 20 20 21 20 53 45 51 |Q ! SEQ|
00000BA0: 2E 20 49 4E 44 45 58 2B 31 00 B7 13 60 09 4C 44 |. INDEX+1...`.LD|
00000BB0: 58 20 49 4E 53 45 51 00 DA 13 6A 09 4A 4D 50 20 |X INSEQ...j.JMP |
00000BC0: 52 44 53 20 20 20 20 20 20 20 20 20 20 20 20 21 |RDS !|
00000BD0: 20 4E 45 58 54 20 53 54 45 50 00 E0 13 74 09 21 | NEXT STEP...t.!|
00000BE0: 00 F0 13 7E 09 45 58 49 54 53 45 51 20 52 54 53 |...~.EXITSEQ RTS|
00000BF0: 00 F6 13 88 09 21 00 06 14 92 09 49 4E 53 45 51 |.....!.....INSEQ|
00000C00: 20 42 59 54 20 30 00 1A 14 9C 09 4C 4F 4F 50 43 | BYT 0.....LOOPC|
00000C10: 4F 55 4E 54 20 42 59 54 20 30 00 41 14 A6 09 21 |OUNT BYT 0.A...!|
00000C20: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000C30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C40: 2D 00 47 14 B0 09 21 00 64 14 BA 09 21 20 48 AF |-.G...!.d...! H.|
00000C50: 4C 45 20 54 48 45 20 22 53 50 22 20 46 4C 41 47 |LE THE "SP" FLAG|
00000C60: 2E 2E 2E 2E 00 6A 14 C4 09 21 00 87 14 CE 09 4D |.....j...!.....M|
00000C70: 41 4B 45 53 50 45 45 44 20 4C 44 41 20 54 55 4E |AKESPEED LDA TUN|
00000C80: 45 AA 32 35 36 2C 58 00 95 14 D8 09 53 54 41 20 |E.256,X.....STA |
00000C90: 53 50 45 45 44 00 A4 14 E2 09 4A 4D 50 20 82 49 |SPEED.....JMP .I|
00000CA0: 4E 53 45 51 00 AA 14 EC 09 21 00 BE 14 F6 09 21 |NSEQ.....!.....!|
00000CB0: 20 22 52 50 22 20 46 4C 41 47 2E 2E 2E 2E 00 C4 | "RP" FLAG......|
00000CC0: 14 00 0A 21 00 DB 14 0A 0A 52 45 50 45 41 54 20 |...!.....REPEAT |
00000CD0: 4A 4D 50 20 50 4C 41 59 53 45 51 00 E1 14 14 0A |JMP PLAYSEQ.....|
00000CE0: 21 00 F5 14 1E 0A 21 20 22 57 54 22 20 46 4C 41 |!.....! "WT" FLA|
00000CF0: 47 2E 2E 2E 2E 00 FB 14 28 0A 21 00 12 15 32 0A |G.......(.!...2.|
00000D00: 44 4F 92 20 4C 44 41 20 54 55 4E 45 AA 32 35 36 |DO. LDA TUNE.256|
00000D10: 2C 58 00 24 15 3C 0A 53 54 41 20 4C 4F 4F 50 43 |,X.$.<.STA LOOPC|
00000D20: 4F 55 4E 54 00 36 15 46 0A 4C 4C 49 20 4A 53 52 |OUNT.6.F.LLI JSR|
00000D30: 20 44 45 4C 41 59 00 48 15 50 0A 44 45 43 20 4C | DELAY.H.P.DEC L|
00000D40: 4F 4F 50 43 4F 55 4E 54 00 54 15 5A 0A 42 4E 45 |OOPCOUNT.T.Z.BNE|
00000D50: 20 4C 4C 49 00 63 15 64 0A 4A 4D 50 20 82 49 4E | LLI.c.d.JMP .IN|
00000D60: 53 45 51 00 69 15 6E 0A 21 00 7B 15 78 0A 44 45 |SEQ.i.n.!.{.x.DE|
00000D70: 4C 41 59 20 4C 44 58 20 23 31 30 00 86 15 82 0A |LAY LDX #10.....|
00000D80: 44 32 20 44 45 59 00 91 15 8C 0A 42 4E 45 20 44 |D2 DEY.....BNE D|
00000D90: 32 00 99 15 96 0A 44 45 58 00 A4 15 A0 0A 42 4E |2.....DEX.....BN|
00000DA0: 45 20 44 32 00 AC 15 AA 0A 52 54 53 00 B2 15 B4 |E D2.....RTS....|
00000DB0: 0A 21 00 B8 15 BE 0A 21 00 CE 15 C8 0A 21 20 20 |.!.....!.....! |
00000DC0: 20 20 20 20 20 20 49 47 27 31 39 39 30 2E 00 D4 | IG'1990...|
00000DD0: 15 D2 0A 21 00 DA 15 DC 0A 21 00 E0 15 E6 0A 21 |...!.....!.....!|
00000DE0: 00 00 00 |... |
........$C300.4...! --------------------
------------.Y...! C64 SAMPLE KIT - SAMP
LE PLAYER.|...! SOURCE FILE . MIKRO & 65
10.......!.....! WRITTEN BY IAN KFFE 1
990.A.$.! . COMMOD.E DISK USER..G...!.
..8.! MEMORY REQUIREMENTS:-...B.!.
..L.! SAMPLE:- $2000-$A000.7.V.
! SPLIT DATA:- $C000-$C100.[.`.!
TUNE:- $C100-$C300.A.J.!.G.T.!.
M.~.!.~...SAMPLE.$2000.....SPLITS.$C000.
....TUNE.$C100.....!.....ZERO1.$FB.....!
...D.! --------------------------------.
..N.! OBJECT CODE LEN:. $C5(197) BYTES.-
.X.! --------------------------------.3.
..!.>...LDA #0.L...STA 53280.M...STA 532
81 ! SCREEN->BLACK.S...!.....SEI
! DISABLE FOR SPEED.....LDA $D011..
.(.. #%11101111.W.2.STA $D011 ! BLANK
SCREEN...<.JSR CLEARSID ! CLEAR SOUND C
HIP...F.JSR PLAYSEQ ! MAIN PLAYER.(.P.L
DA $D011.:.Z..A #%00010000.\.D.STA $D011
! RESTORE SCREEN...N.CLI !
INTERRUPTS BACK ON...X.RTS.....!.....!..
...! --------------------------... .CLEA
RSID ! CLEAR SOUND CHIP.....LDX #0..
...TXA.....LP1 STA $D400,X...H.INX...R.C
PX #24."...BNE LP1.*...RTS.K...! -------
-------------------.Q...!.W...!.X...! --
------------------------.....! PLAY A SI
NGLE SAMPLE SPLIT....".! 'START' HOLDS S
TART HI BYTE..T.,.! OF THE SAMPLE .....6
.! 'LAST' HOLDS THE ..HI BYTE...@.! ADDR
ESS OF THE SAMPLE..3.J.! ---------------
-----------.J.T.PLAYASAMPLE LDX #0.X.^.L
DY START.F.H.STX ZERO1.V.R.STY ZERO1.1..
.|.LDY #0.....PLAY ! ! LOOP A PAGE
OF ..J...LDA (ZERO1),Y ! GET SAMPLE BY
TE.....LSR A ! . DESIRED NIBBLE.
....LSR A.....LSR A.....LSR A.1.B.STA $D
418 ! OUTPUT AS VOLUME.X.L.LDX SPEED
! DELAY BETWEEN BYTES.E.V.DEL2 DEX.R.
..BNE DEL2.....INY ! . BYTE IN
PAGE.....BNE PLAY.H...INC ZERO1.1 ! ADD
256 (HI BYTE+1).....LDA ZERO1.1 ! TO R
EAD NEXT PAGE.....CMP LAST ! CHECK F
OR LAST PAGE.!...BNE PLAY.).&.RTS./.0.!.
E.:.START BYT .SAMPLE.V.D.LAST BYT $A0.G
.N.SPEED BYT 09.M.X.!...B.! ------------
--------------------...L.! MAIN PLAYER
TO PLAY A "TUNE".K.V.! OF SAMPLES......
! --------------------------------.....P
LAYSEQ !.....LDX #0.....STX INSEQ.#...RD
S !.H...LDY TUNE,X ! READ SAMPLE # TO Y
.N...!.J.F.! ....... CHECK . FLAGS.P.P.!
...Z.CPY #131 ! 131.EXIT.......BEQ EX
ITSEQ.....!.F...CPY #129 ! 129=SPEED
CHANGE.X...BEQ MAKESPEED.....CPY #130
! 130=REPEAT TUNE.....BEQ REPEAT.0. .CP
Y #128 ! 128=DELAY WITH VALUE.<.*.BEQ
DO..B.4.!.H.>.!.O.H.! NOW Y MUST BE A "
SPLIT" TO PLAY..U.R.!...\.! ----> READ P
AGE NUMBERS TO PLAY...F.! FROM ...
. TO .......P.! FOR THE 'PLAYASAMPLE' RO
UTINE....Z.!.....LDA SPLITS,Y.....STA ST
ART.....LDA SPLITS.128,Y.%...STA LAST.+.
..!.R...! READ # TIMES TO PLAY THIS SPLI
T..X...!.K.J.LDA TUNE.256,X.}.T.STA LOOP
COUNT.....!.....! -----> LOOPCOUNT=REPEA
T VALUE......!.S...LLL JSR PLAYASAMPLE !
PLAY SPLIT.....LDA $DC01 ! EXI
T IF SPACE...... #%00010000 ! BAR PR
ESSED..*...BNE IEW.:.$.JMP EXITSEQ.D...I
EW !.J.8.DEC LOOPCOUNT ! LOOP REPEA
TS.V.B.BNE LLL...L..INSEQ !...V.INC INSE
Q ! SEQ. INDEX+1...`.LDX INSEQ.
Z.J.JMP RDS ! NEXT STEP...T.!
...~.EXITSEQ RTS.....!.....INSEQ BYT 0..
...LOOPCOUNT BYT 0.A...! ---------------
-----------------.G...!.D...! H.LE THE "
SP" FLAG.....J.D.!...N.MAKESPEED LDA TUN
E.256,X...X.STA SPEED.....JMP .INSEQ....
.!.....! "RP" FLAG.....D...!.....REPEAT
JMP PLAYSEQ.....!.....! "WT" FLAG.......
(.!...2.DO. LDA TUNE.256,X.$.<.STA LOOPC
OUNT.6.F.LLI JSR DELAY.H.P.DEC LOOPCOUNT
.T.Z.BNE LLI.C.D.JMP .INSEQ.I.N.!.{.X.DE
LAY LDX #10.....D2 DEY.....BNE D2.....DE
X... .BNE D2.....RTS.....!.....!.N.H.!
IG'1990..T.R.!.Z...!.....!...
> CLICK IMAGE PREVIEW FOR FULL MODAL