MUSIC-SWITCH.SRC
FILE INFORMATION
FILENAME(S): MUSIC-SWITCH.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 01:12:42
APPEARS ON: 3 disk(s)
FILE HASH
96085f59c67304c744401bdb3f24affc0048010a071b0e144294137581b3be93
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10712 12 87 | MUSIC-SWITCH.SRC | PRG | C64er, DuncanTwain | 15 | 3 | DOWNLOAD FILE |
| 15833 SEITE B | MUSIC-SWITCH.SRC | PRG | C64er | 30 | 8 | DOWNLOAD FILE |
| 10712 12 87 | MUSIC-SWITCH.SRC | PRG | DuncanTwain | 15 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 64 00 CC 00 13 08 6E 00 2E 4F 50 54 |....d.....n..OPT| 00000010: 20 4F 4F 00 33 08 78 00 AC B2 20 24 30 33 33 43 | OO.3.x... $033C| 00000020: 20 20 20 20 3B 41 4E 46 41 4E 47 53 41 44 52 45 | ;ANFANGSADRE| 00000030: 53 53 45 00 39 08 82 00 3B 00 3F 08 8C 00 3B 00 |SSE.9...;.?...;.| 00000040: 45 08 96 00 3B 00 68 08 A0 00 4A 53 52 20 24 41 |E...;.h...JSR $A| 00000050: 45 46 44 20 20 20 3B 41 55 46 20 4B 4F 4D 4D 41 |EFD ;AUF KOMMA| 00000060: 20 50 52 55 45 46 45 4E 00 89 08 AA 00 4A 53 52 | PRUEFEN.....JSR| 00000070: 20 24 42 37 39 45 20 20 20 3B 57 45 52 54 20 4E | $B79E ;WERT N| 00000080: 41 43 48 20 58 20 48 4F C3 00 A7 08 B4 00 54 58 |ACH X HO......TX| 00000090: 41 20 20 20 20 20 20 20 20 20 3B 57 45 52 54 20 |A ;WERT | 000000A0: 49 4E 20 41 43 43 55 00 C8 08 BE 00 53 45 49 20 |IN ACCU.....SEI | 000000B0: 20 20 20 20 20 20 20 20 3B B5 45 52 52 55 50 54 | ;.ERRUPT| 000000C0: 20 53 50 45 52 52 45 4E 00 CE 08 C8 00 3B 00 D4 | SPERREN.....;..| 000000D0: 08 D2 00 3B 00 F4 08 DC 00 50 48 41 20 20 20 20 |...;.....PHA | 000000E0: 20 20 20 20 20 3B 41 43 43 55 20 41 55 46 20 53 | ;ACCU AUF S| 000000F0: 54 41 43 4B 00 15 09 E6 00 4C 44 41 20 23 24 32 |TACK.....LDA #$2| 00000100: 43 20 20 20 20 3B 57 45 52 54 20 46 55 45 52 20 |C ;WERT FUER | 00000110: 4B 4F 4D 4D 41 00 22 09 F0 00 4C 44 59 20 23 24 |KOMMA."...LDY #$| 00000120: 30 30 00 45 09 FA 00 43 4D 50 20 28 24 37 41 29 |00.E...CMP ($7A)| 00000130: 2C 59 20 3B 41 55 46 20 4B 4F 4D 4D 41 20 50 52 |,Y ;AUF KOMMA PR| 00000140: 55 45 46 45 4E 00 76 09 04 01 42 45 51 20 A9 20 |UEFEN.v...BEQ . | 00000150: 20 20 20 3B 57 45 4E 4E 20 4A 41 2C 20 44 41 4E | ;WENN JA, DAN| 00000160: 4E 20 4D 45 48 52 20 41 4C 53 20 31 20 50 41 52 |N MEHR ALS 1 PAR| 00000170: 41 4D 45 54 45 52 00 96 09 0E 01 53 54 41 52 54 |AMETER.....START| 00000180: 20 50 4C 41 20 20 20 3B 41 43 43 55 20 56 4F 4D | PLA ;ACCU VOM| 00000190: 20 53 54 41 43 4B 00 B7 09 18 01 43 4C 49 20 20 | STACK.....CLI | 000001A0: 20 20 20 20 20 20 20 3B B5 45 52 52 55 50 54 20 | ;.ERRUPT | 000001B0: B8 49 47 45 42 45 4E 00 D6 09 22 01 43 4D 50 20 |.IGEBEN...".CMP | 000001C0: 23 24 30 31 20 20 20 20 3B 31 20 B2 20 81 54 53 |#$01 ;1 . .TS| 000001D0: 45 54 5A 55 4E 47 00 FA 09 2C 01 42 45 51 20 45 |ETZUNG...,.BEQ E| 000001E0: 49 4E 20 20 20 20 20 3B 53 50 8A 47 20 5A 55 52 |IN ;SP.G ZUR| 000001F0: 20 81 54 53 45 54 5A 55 4E 47 00 18 0A 36 01 43 | .TSETZUNG...6.C| 00000200: 4D 50 20 23 24 30 32 20 20 20 20 3B 32 20 B2 20 |MP #$02 ;2 . | 00000210: 4E 45 55 53 54 41 52 54 00 3B 0A 40 01 42 45 51 |NEUSTART.;.@.BEQ| 00000220: 20 4E 45 55 20 20 20 20 20 3B 53 50 8A 47 20 5A | NEU ;SP.G Z| 00000230: 55 4D 20 4E 45 55 53 54 41 52 54 00 5C 0A 4A 01 |UM NEUSTART.\.J.| 00000240: 43 4D 50 20 23 24 30 30 20 20 20 20 3B 30 20 B2 |CMP #$00 ;0 .| 00000250: 20 41 55 53 53 43 48 41 4C 54 45 4E 00 79 0A 54 | AUSSCHALTEN.y.T| 00000260: 01 42 45 51 20 41 55 53 20 20 20 20 20 3B 53 50 |.BEQ AUS ;SP| 00000270: 8A 47 20 5A 55 20 41 55 53 00 81 0A 5E 01 52 54 |.G ZU AUS...^.RT| 00000280: 53 00 A1 0A 68 01 41 55 53 20 4C 44 41 20 23 24 |S...h.AUS LDA #$| 00000290: 45 41 20 20 3B 20 41 55 53 53 43 48 41 4C 54 45 |EA ; AUSSCHALTE| 000002A0: 4E 00 A7 0A 72 01 3B 00 B5 0A 7C 01 53 54 41 20 |N...r.;...|.STA | 000002B0: 24 43 30 31 34 00 C2 0A 86 01 4C 44 41 20 23 24 |$C014.....LDA #$| 000002C0: 33 31 00 D0 0A 90 01 53 54 41 20 24 43 30 31 39 |31.....STA $C019| 000002D0: 00 DE 0A 9A 01 4A 53 52 20 24 43 30 30 30 00 EB |.....JSR $C000..| 000002E0: 0A A4 01 4C 44 41 20 23 24 30 30 00 F9 0A AE 01 |...LDA #$00.....| 000002F0: 53 54 41 20 24 44 34 31 38 00 01 0B B8 01 52 54 |STA $D418.....RT| 00000300: 53 00 21 0B C2 01 45 49 4E 20 4C 44 41 20 23 24 |S.!...EIN LDA #$| 00000310: 43 30 20 20 3B 20 45 49 4E 53 43 48 41 4C 54 45 |C0 ; EINSCHALTE| 00000320: 4E 00 2F 0B CC 01 53 54 41 20 24 43 30 31 34 00 |N./...STA $C014.| 00000330: 3C 0B D6 01 4C 44 41 20 23 24 31 46 00 4A 0B E0 |<...LDA #$1F.J..| 00000340: 01 53 54 41 20 24 43 30 31 39 00 58 0B EA 01 4A |.STA $C019.X...J| 00000350: 4D 50 20 24 43 30 30 30 00 75 0B F4 01 4E 45 55 |MP $C000.u...NEU| 00000360: 20 4C 44 41 20 23 24 30 31 20 20 3B 20 4E 45 55 | LDA #$01 ; NEU| 00000370: 53 54 41 52 54 00 83 0B FE 01 53 54 41 20 24 43 |START.....STA $C| 00000380: 30 30 46 00 8F 0B 08 02 4A 4D 50 20 45 49 4E 00 |00F.....JMP EIN.| 00000390: AA 0B 12 02 3B 20 20 20 20 20 20 20 20 20 20 20 |....; | 000003A0: 20 3B A9 20 56 91 AD 42 49 53 00 CF 0B 1C 02 A9 | ;. V..BIS......| 000003B0: 20 4A 53 52 20 24 30 30 37 33 20 20 20 3B 4E 41 | JSR $0073 ;NA| 000003C0: 45 43 48 53 54 45 53 20 5A 45 49 43 48 45 4E 00 |ECHSTES ZEICHEN.| 000003D0: F0 0B 26 02 4A 53 52 20 24 42 37 39 45 20 20 20 |..&.JSR $B79E | 000003E0: 3B 57 45 52 54 20 4E 41 43 48 20 58 20 48 4F C3 |;WERT NACH X HO.| 000003F0: 00 10 0C 30 02 50 4C 41 20 20 20 20 20 20 20 20 |...0.PLA | 00000400: 20 3B 41 43 43 55 20 56 4F 4D 20 53 54 41 43 4B | ;ACCU VOM STACK| 00000410: 00 36 0C 3A 02 53 54 41 20 24 43 30 31 31 20 20 |.6.:.STA $C011 | 00000420: 20 3B 4E 41 43 48 20 24 43 30 31 31 20 53 50 45 | ;NACH $C011 SPE| 00000430: 49 43 48 45 52 4E 00 5E 0C 44 02 53 54 58 20 24 |ICHERN.^.D.STX $| 00000440: 43 30 31 30 20 20 20 3B 58 20 4E 41 43 48 20 24 |C010 ;X NACH $| 00000450: 43 30 31 30 20 53 50 45 49 43 48 45 52 4E 00 7F |C010 SPEICHERN..| 00000460: 0C 4E 02 43 4C 49 20 20 20 20 20 20 20 20 20 3B |.N.CLI ;| 00000470: B5 45 52 52 55 50 54 20 B8 49 47 45 42 45 4E 00 |.ERRUPT .IGEBEN.| 00000480: 99 0C 58 02 4A 4D 50 20 4E 45 55 20 20 20 20 20 |..X.JMP NEU | 00000490: 3B 4E 45 55 53 54 41 52 54 00 9F 0C 62 02 80 00 |;NEUSTART...b...| 000004A0: 00 00 |.. |
....D.L...N..OPT OO.3.X... $033C ;ANF
ANGSADRESSE.9...;.?...;.E...;.H. .JSR $A
EFD ;AUF KOMMA PRUEFEN.....JSR $B79E
;WERT NACH X HOC.....TXA ;WERT
IN ACCU.H...SEI ;.ERRUPT SPERREN
.N.H.;.T.R.;.....PHA ;ACCU AUF S
TACK.....LDA #$2C ;WERT FUER KOMMA.".
..LDY #$00.E...CMP ($7A),Y ;AUF KOMMA PR
UEFEN.V...BEQ . ;WENN JA, DANN MEHR A
LS 1 PARAMETER.....START PLA ;ACCU VOM
STACK.....CLI ;.ERRUPT .IGEBEN.
V.".CMP #$01 ;1 . .TSETZUNG...,.BEQ E
IN ;SP.G ZUR .TSETZUNG...6.CMP #$02
;2 . NEUSTART.;.@.BEQ NEU ;SP.G Z
UM NEUSTART.\.J.CMP #$00 ;0 . AUSSCHA
LTEN.Y.T.BEQ AUS ;SP.G ZU AUS...^.RT
S...H.AUS LDA #$EA ; AUSSCHALTEN...R.;.
..|.STA $C014.B...LDA #$31.P...STA $C019
.....JSR $C000.....LDA #$00.....STA $D41
8.....RTS.!.B.EIN LDA #$C0 ; EINSCHALTE
N./.L.STA $C014.<.V.LDA #$1F.J...STA $C0
19.X...JMP $C000.U...NEU LDA #$01 ; NEU
START.....STA $C00F.....JMP EIN.....;
;. V..BIS.O.... JSR $0073 ;NA
ECHSTES ZEICHEN...&.JSR $B79E ;WERT NA
CH X HOC...0.PLA ;ACCU VOM STACK
.6.:.STA $C011 ;NACH $C011 SPEICHERN.^
.D.STX $C010 ;X NACH $C010 SPEICHERN.
.N.CLI ;.ERRUPT .IGEBEN...X.JMP
NEU ;NEUSTART...B.....
> CLICK IMAGE PREVIEW FOR FULL MODAL