2-VOICE-PLAYER
FILE INFORMATION
FILENAME(S): 2-VOICE-PLAYER
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 01:13:05
APPEARS ON: 1 disk(s)
FILE HASH
4e0696b83d5277e43e90b403814ec75362b6c80c2f083173a8771d30918bfde8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10309 SEITE B | 2-VOICE-PLAYER | PRG | C64er, earthshaker | 13 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 0A 00 9E 39 AC 34 30 39 36 3A 2E 4F |..1....9.4096:.O| 00000010: 50 54 20 4F 4F 3A 20 20 20 20 20 20 20 20 3B 20 |PT OO: ; | 00000020: 41 53 53 45 4D 42 4C 45 52 20 53 54 41 52 54 45 |ASSEMBLER STARTE| 00000030: 4E 00 37 08 13 00 3A 00 61 08 14 00 49 4E 49 54 |N.7...:.a...INIT| 00000040: 20 4C 44 41 20 23 B3 4E 4D 49 31 3A 53 54 41 20 | LDA #.NMI1:STA | 00000050: 24 33 31 38 20 20 3B 20 4E 4D 49 AB 56 45 4B A4 |$318 ; NMI.VEK.| 00000060: 52 00 94 08 16 00 3A 20 20 20 20 4C 44 41 20 23 |R.....: LDA #| 00000070: B1 4E 4D 49 31 3A 53 54 41 20 24 33 31 39 20 20 |.NMI1:STA $319 | 00000080: 3B 20 41 55 46 20 52 4F 55 54 49 4E 45 20 53 54 |; AUF ROUTINE ST| 00000090: 45 4C C3 2E 00 CC 08 18 00 3A 20 20 20 20 4C 44 |EL.......: LD| 000000A0: 41 20 23 31 35 30 3A 53 54 41 20 24 44 44 30 34 |A #150:STA $DD04| 000000B0: 20 20 20 3B 20 54 49 4D 45 52 AB 53 50 45 45 44 | ; TIMER.SPEED| 000000C0: AB 4C 4F 20 41 55 46 20 31 35 30 2E 00 02 09 1E |.LO AUF 150.....| 000000D0: 00 3A 20 20 20 20 4C 44 41 20 23 30 3A 53 54 41 |.: LDA #0:STA| 000000E0: 20 24 44 44 30 35 20 20 20 20 20 3B 20 54 49 4D | $DD05 ; TIM| 000000F0: 45 52 AB 53 50 45 45 44 AB 48 49 20 41 55 46 20 |ER.SPEED.HI AUF | 00000100: 30 2E 00 3F 09 20 00 3A 20 20 20 20 4C 44 41 20 |0..?. .: LDA | 00000110: 23 24 38 31 3A 53 54 41 20 24 44 44 30 44 20 20 |#$81:STA $DD0D | 00000120: 20 3B 20 4E 4D 49 20 56 4F 4D 20 43 49 41 AB 54 | ; NMI VOM CIA.T| 00000130: 49 4D 45 52 20 41 55 53 4C 4F 45 53 45 4E 2E 00 |IMER AUSLOESEN..| 00000140: 80 09 22 00 3A 20 20 20 20 4C 44 41 20 23 31 3A |..".: LDA #1:| 00000150: 53 54 41 20 24 44 44 30 45 3A 52 54 53 20 3B 20 |STA $DD0E:RTS ; | 00000160: 43 49 41 AB 54 49 4D 45 52 20 41 55 46 20 57 49 |CIA.TIMER AUF WI| 00000170: 45 44 45 52 48 4F 4C 55 4E 47 20 26 20 80 45 2E |EDERHOLUNG & .E.| 00000180: 00 86 09 28 00 3A 00 B7 09 2A 00 4E 4D 49 31 20 |...(.:...*.NMI1 | 00000190: 53 54 41 20 24 39 42 3A 53 54 59 20 24 39 45 20 |STA $9B:STY $9E | 000001A0: 20 20 20 20 20 3B 20 52 45 47 49 53 54 45 52 20 | ; REGISTER | 000001B0: 52 45 54 54 45 4E 2E 00 EB 09 2C 00 3A 20 20 20 |RETTEN....,.: | 000001C0: 20 4C 44 59 20 23 30 3A 4C 44 41 20 28 24 46 37 | LDY #0:LDA ($F7| 000001D0: 29 2C 59 20 20 20 3B 20 53 41 4D 50 4C 45 53 20 |),Y ; SAMPLES | 000001E0: 56 91 20 53 54 49 4D 4D 45 20 31 00 2D 0A 2E 00 |V. STIMME 1.-...| 000001F0: 3A 20 20 20 20 43 4C 43 3A 41 44 43 20 28 24 46 |: CLC:ADC ($F| 00000200: 42 29 2C 59 20 20 20 20 20 20 3B 20 4D 49 54 20 |B),Y ; MIT | 00000210: 53 41 4D 50 4C 45 53 20 56 91 20 53 54 49 4D 4D |SAMPLES V. STIMM| 00000220: 45 20 32 20 41 44 44 49 45 52 45 4E 2C 00 6C 0A |E 2 ADDIEREN,.l.| 00000230: 30 00 3A 20 20 20 20 53 54 41 20 24 39 46 3A AF |0.: STA $9F:.| 00000240: 20 23 31 35 20 20 20 20 20 20 3B 20 4D 45 52 4B | #15 ; MERK| 00000250: 45 4E 2C 20 45 52 53 54 45 53 20 53 41 4D 50 4C |EN, ERSTES SAMPL| 00000260: 45 20 49 53 4F 4C 49 45 52 45 4E 2C 00 A5 0A 32 |E ISOLIEREN,...2| 00000270: 00 3A 20 20 20 20 B0 41 20 24 46 45 3A 53 54 41 |.: .A $FE:STA| 00000280: 20 24 44 34 31 38 20 20 20 20 3B 20 46 49 4C 54 | $D418 ; FILT| 00000290: 45 52 20 44 41 5A 55 20 55 4E 44 20 41 55 53 47 |ER DAZU UND AUSG| 000002A0: 45 42 45 4E 2E 00 E4 0A 34 00 3A 20 20 20 20 4C |EBEN....4.: L| 000002B0: 44 41 20 24 46 41 3A 43 4D 50 20 24 46 38 20 20 |DA $FA:CMP $F8 | 000002C0: 20 20 20 20 3B 20 80 41 44 52 45 53 53 45 20 53 | ; .ADRESSE S| 000002D0: 54 49 4D 4D 45 20 31 20 45 52 52 45 49 43 48 54 |TIMME 1 ERREICHT| 000002E0: 20 22 3F 22 00 21 0B 36 00 3A 20 20 20 20 42 45 | "?".!.6.: BE| 000002F0: 51 20 4E 31 42 3A 49 4E 43 20 24 46 37 20 20 20 |Q N1B:INC $F7 | 00000300: 20 20 20 3B 20 4E 45 49 4E 2C 20 44 41 4E 4E 20 | ; NEIN, DANN | 00000310: 41 44 52 45 53 53 45 20 42 59 54 45 57 45 49 53 |ADRESSE BYTEWEIS| 00000320: 45 00 4B 0B 38 00 3A 20 20 20 20 42 4E 45 20 4E |E.K.8.: BNE N| 00000330: 31 42 3A 49 4E 43 20 24 46 38 20 20 20 20 20 20 |1B:INC $F8 | 00000340: 3B 20 45 52 48 4F 45 48 45 4E 2E 00 83 0B 3A 00 |; ERHOEHEN....:.| 00000350: 4E 31 42 20 20 4C 44 41 20 23 B3 4E 4D 49 32 3A |N1B LDA #.NMI2:| 00000360: 53 54 41 20 24 33 31 38 20 20 3B 20 4E 4D 49 20 |STA $318 ; NMI | 00000370: 41 55 46 20 5A 57 45 49 54 45 20 52 4F 55 54 49 |AUF ZWEITE ROUTI| 00000380: 4E 45 2E 00 B6 0B 3C 00 3A 20 20 20 20 4C 44 41 |NE....<.: LDA| 00000390: 20 24 44 44 30 44 20 20 20 20 20 20 20 20 20 20 | $DD0D | 000003A0: 20 20 3B 20 4E 4D 49 AB 46 4C 41 47 20 4C 4F 45 | ; NMI.FLAG LOE| 000003B0: 53 43 48 45 4E 2E 00 F0 0B 3E 00 3A 20 20 20 20 |SCHEN....>.: | 000003C0: 4C 44 59 20 24 39 45 3A 4C 44 41 20 24 39 42 3A |LDY $9E:LDA $9B:| 000003D0: 52 54 49 20 20 3B 20 52 45 47 49 53 54 45 52 20 |RTI ; REGISTER | 000003E0: 5A 55 52 55 45 43 4B 48 4F C3 20 26 20 80 45 2E |ZURUECKHO. & .E.| 000003F0: 00 F6 0B 40 00 3A 00 35 0C 42 00 4E 4D 49 32 20 |...@.:.5.B.NMI2 | 00000400: 53 54 41 20 24 39 42 3A 4C 44 41 20 24 39 46 20 |STA $9B:LDA $9F | 00000410: 20 20 20 20 20 3B 20 52 45 47 49 53 54 45 52 20 | ; REGISTER | 00000420: 52 45 54 54 45 4E 20 26 20 53 41 4D 50 4C 45 53 |RETTEN & SAMPLES| 00000430: 20 48 4F C3 2E 00 6C 0C 44 00 3A 20 20 20 20 4C | HO...l.D.: L| 00000440: 53 52 3A 4C 53 52 3A 4C 53 52 3A 4C 53 52 20 20 |SR:LSR:LSR:LSR | 00000450: 20 20 20 20 3B 20 5A 57 45 49 54 45 53 20 53 41 | ; ZWEITES SA| 00000460: 4D 50 4C 45 20 4E 45 48 4D 45 4E 2C 00 A5 0C 46 |MPLE NEHMEN,...F| 00000470: 00 3A 20 20 20 20 B0 41 20 24 46 45 3A 53 54 41 |.: .A $FE:STA| 00000480: 20 24 44 34 31 38 20 20 20 20 3B 20 46 49 4C 54 | $D418 ; FILT| 00000490: 45 52 20 44 41 5A 55 20 55 4E 44 20 41 55 53 47 |ER DAZU UND AUSG| 000004A0: 45 42 45 4E 2E 00 DC 0C 48 00 3A 20 20 20 20 4C |EBEN....H.: L| 000004B0: 44 41 20 23 B3 4E 4D 49 31 3A 53 54 41 20 24 33 |DA #.NMI1:STA $3| 000004C0: 31 38 20 20 3B 20 4E 4D 49 20 41 55 46 20 45 52 |18 ; NMI AUF ER| 000004D0: 53 54 45 20 52 4F 55 54 49 4E 45 2E 00 1B 0D 4A |STE ROUTINE....J| 000004E0: 00 3A 20 20 20 20 4C 44 41 20 24 46 44 3A 43 4D |.: LDA $FD:CM| 000004F0: 50 20 24 46 43 20 20 20 20 20 20 3B 20 80 41 44 |P $FC ; .AD| 00000500: 52 45 53 53 45 20 53 54 49 4D 4D 45 20 32 20 45 |RESSE STIMME 2 E| 00000510: 52 52 45 49 43 48 54 20 22 3F 22 00 58 0D 4C 00 |RREICHT "?".X.L.| 00000520: 3A 20 20 20 20 42 45 51 20 4E 32 42 3A 49 4E 43 |: BEQ N2B:INC| 00000530: 20 24 46 42 20 20 20 20 20 20 3B 20 4E 45 49 4E | $FB ; NEIN| 00000540: 2C 20 44 41 4E 4E 20 41 44 52 45 53 53 45 20 42 |, DANN ADRESSE B| 00000550: 59 54 45 57 45 49 53 45 00 82 0D 4D 00 3A 20 20 |YTEWEISE...M.: | 00000560: 20 20 42 4E 45 20 4E 32 42 3A 49 4E 43 20 24 46 | BNE N2B:INC $F| 00000570: 43 20 20 20 20 20 20 3B 20 45 52 48 4F 45 48 45 |C ; ERHOEHE| 00000580: 4E 2E 00 B5 0D 4E 00 4E 32 42 20 20 4C 44 41 20 |N....N.N2B LDA | 00000590: 24 44 44 30 44 20 20 20 20 20 20 20 20 20 20 20 |$DD0D | 000005A0: 20 3B 20 4E 4D 49 AB 46 4C 41 47 20 4C 4F 45 53 | ; NMI.FLAG LOES| 000005B0: 43 48 45 4E 2E 00 F0 0D 4F 00 3A 20 20 20 20 4C |CHEN....O.: L| 000005C0: 44 41 20 24 39 42 3A 52 54 49 20 20 20 20 20 20 |DA $9B:RTI | 000005D0: 20 20 20 20 3B 20 52 45 47 49 53 54 45 52 20 5A | ; REGISTER Z| 000005E0: 55 52 55 45 43 4B 48 4F C3 20 26 20 80 45 20 21 |URUECKHO. & .E !| 000005F0: 00 F6 0D 50 00 3A 00 1F 0E 51 00 3B AC AC AC AC |...P.:...Q.;....| 00000600: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000610: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................| 00000620: 25 0E 52 00 3B 00 35 0E 53 00 3B 20 53 54 49 4D |%.R.;.5.S.; STIM| 00000630: 4D 45 20 23 31 00 45 0E 54 00 3B 20 AB AB AB AB |ME #1.E.T.; ....| 00000640: AB AB AB AB AB 00 4B 0E 55 00 3B 00 69 0E 56 00 |......K.U.;.i.V.| 00000650: 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 20 49 |; STARTADRESSE I| 00000660: 4E 20 24 46 37 AD 24 46 38 00 81 0E 57 00 3B 20 |N $F7.$F8...W.; | 00000670: 80 41 44 52 2E 28 48 49 29 20 20 49 4E 20 24 46 |.ADR.(HI) IN $F| 00000680: 41 00 87 0E 58 00 3B 00 97 0E 59 00 3B 20 53 54 |A...X.;...Y.; ST| 00000690: 49 4D 4D 45 20 23 32 00 A7 0E 5A 00 3B 20 AB AB |IMME #2...Z.; ..| 000006A0: AB AB AB AB AB AB AB 00 AD 0E 5B 00 3B 00 CB 0E |..........[.;...| 000006B0: 5C 00 3B 20 53 54 41 52 54 41 44 52 45 53 53 45 |\.; STARTADRESSE| 000006C0: 20 49 4E 20 24 46 42 AD 24 46 43 00 E3 0E 5D 00 | IN $FB.$FC...].| 000006D0: 3B 20 80 41 44 52 2E 28 48 49 29 20 20 49 4E 20 |; .ADR.(HI) IN | 000006E0: 24 46 44 00 E9 0E 5E 00 3B 00 03 0F 5F 00 3B 20 |$FD...^.;..._.; | 000006F0: 46 49 4C 54 45 52 20 20 20 20 20 20 20 49 4E 20 |FILTER IN | 00000700: 24 46 45 00 09 0F 60 00 3B 00 2C 0F 61 00 3B 20 |$FE...`.;.,.a.; | 00000710: 41 4C 53 20 88 5A 54 45 53 20 42 59 54 45 20 28 |ALS .ZTES BYTE (| 00000720: 53 2E 54 45 58 54 29 20 4D 55 53 53 00 50 0F 62 |S.TEXT) MUSS.P.b| 00000730: 00 3B 20 4A 45 54 5A 54 20 36 38 20 28 24 34 34 |.; JETZT 68 ($44| 00000740: 29 20 47 45 97 44 20 57 45 52 44 45 4E 20 21 21 |) GE.D WERDEN !!| 00000750: 00 82 0F 63 00 3B 20 28 44 41 20 45 49 4E 20 53 |...c.; (DA EIN S| 00000760: 41 4D 50 4C 45 20 4E 55 52 20 4E 4F 43 48 20 57 |AMPLE NUR NOCH W| 00000770: 45 52 54 45 20 56 91 20 30 AB 37 20 48 41 54 20 |ERTE V. 0.7 HAT | 00000780: 21 29 00 00 00 |!)... |
..1....9.4096:.OPT OO: ; ASSEMBLE
R STARTEN.7...:.A...INIT LDA #.NMI1:STA
$318 ; NMI.VEK.R.....: LDA #.NMI1:ST
A $319 ; AUF ROUTINE STELC..L...: LD
A #150:STA $DD04 ; TIMER.SPEED.LO AUF
150......: LDA #0:STA $DD05 ; TIM
ER.SPEED.HI AUF 0..?. .: LDA #$81:STA
$DD0D ; NMI VOM CIA.TIMER AUSLOESEN..
..".: LDA #1:STA $DD0E:RTS ; CIA.TIME
R AUF WIEDERHOLUNG & .E....(.:...*.NMI1
STA $9B:STY $9E ; REGISTER RETTEN..
..,.: LDY #0:LDA ($F7),Y ; SAMPLES
V. STIMME 1.-...: CLC:ADC ($FB),Y
; MIT SAMPLES V. STIMME 2 ADDIEREN,.L.
0.: STA $9F:. #15 ; MERKEN, ERST
ES SAMPLE ISOLIEREN,...2.: .A $FE:STA
$D418 ; FILTER DAZU UND AUSGEBEN....
4.: LDA $FA:CMP $F8 ; .ADRESSE S
TIMME 1 ERREICHT "?".!.6.: BEQ N1B:IN
C $F7 ; NEIN, DANN ADRESSE BYTEWEIS
E.K.8.: BNE N1B:INC $F8 ; ERHOEH
EN....:.N1B LDA #.NMI2:STA $318 ; NMI
AUF ZWEITE ROUTINE....<.: LDA $DD0D
; NMI.FLAG LOESCHEN....>.:
LDY $9E:LDA $9B:RTI ; REGISTER ZURUECKH
OC & .E....@.:.5.B.NMI2 STA $9B:LDA $9F
; REGISTER RETTEN & SAMPLES HOC..L.
D.: LSR:LSR:LSR:LSR ; ZWEITES SA
MPLE NEHMEN,...F.: .A $FE:STA $D418
; FILTER DAZU UND AUSGEBEN....H.: L
DA #.NMI1:STA $318 ; NMI AUF ERSTE ROUT
INE....J.: LDA $FD:CMP $FC ; .AD
RESSE STIMME 2 ERREICHT "?".X.L.: BEQ
N2B:INC $FB ; NEIN, DANN ADRESSE B
YTEWEISE...M.: BNE N2B:INC $FC ;
ERHOEHEN....N.N2B LDA $DD0D
; NMI.FLAG LOESCHEN....O.: LDA $9B:R
TI ; REGISTER ZURUECKHOC & .E !
...P.:...Q.;............................
........%.R.;.5.S.; STIMME #1.E.T.; ....
......K.U.;.I.V.; STARTADRESSE IN $F7.$F
8...W.; .ADR.(HI) IN $FA...X.;...Y.; ST
IMME #2...Z.; ............[.;.K.\.; STAR
TADRESSE IN $FB.$FC...].; .ADR.(HI) IN
$FD...^.;..._.; FILTER IN $FE...`.
;.,.A.; ALS .ZTES BYTE (S.TEXT) MUSS.P.B
.; JETZT 68 ($44) GE.D WERDEN !!...C.; (
DA EIN SAMPLE NUR NOCH WERTE V. 0.7 HAT
!)...
> CLICK IMAGE PREVIEW FOR FULL MODAL