MUSIC-SWITCH.SRC
FILE INFORMATION
FILENAME(S): MUSIC-SWITCH.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-12-02 00:13:14
APPEARS ON: 1 disk(s)
FILE HASH
3844b369a514758470df377950ccf87b138fead83170843e06e4f3512f2ec88d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10712 12 87 | MUSIC-SWITCH.SRC | PRG | earthshaker | 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 B8 4E FF FF EE FF ED | ;.N.....| 000000C0: FF FF FF FF FF FF FF FF FF FF FF A2 FF FF FF FF |................| 000000D0: FF FF FF FF FF FF FF AA FF FF FF FF FF FF FF FF |................| 000000E0: FF FF FF FF FF FF FF FF FF FF FF FF EE DC FF FF |................| 000000F0: FF FF FF D6 FF 6E F3 FF FF FF FF FF FF FF 24 32 |.....n........$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 8A FF FF FF |UM NEUSTART.....| 00000240: A6 FF D0 80 0D FF F8 F8 FF FF FF FF D9 F8 FF 98 |................| 00000250: FF FF 77 97 97 87 FF FF FF FF FF FF FF FF FF FF |..w.............| 00000260: FF FF FF F9 FF FF 77 99 FF FF FF FF FF D7 97 FF |......w.........| 00000270: FF 19 FF FF 79 FF FF 77 9F FF FF FF FF FF FF FF |....y..w........| 00000280: 9F FF FF C1 FF FF FF 77 99 FF FF FF FF FF 89 FF |.......w........| 00000290: FF FF FF FF D9 FF FF 77 97 97 87 FF FF FF FF FF |.......w........| 000002A0: FF FF 1F C1 FF FF DF FF 7F C1 6F FF 97 FF FF FF |..........o.....| 000002B0: FF 89 F8 F9 FF FF FF FF A2 2B 31 33 FF FF FF FF |.........+13....| 000002C0: FF AA 27 02 66 02 2B FF B3 FF FF 33 FF FF FF E0 |..'.f.+....3....| 000002D0: 27 52 66 42 2B 63 FF FF FF 33 FF FF FF A2 27 6A |'RfB+c...3....'j| 000002E0: 66 32 2B 31 33 FF FF FF FF FF A2 2F 40 66 72 2B |f2+13....../@fr+| 000002F0: FF B3 FF FF 33 FF FF FF A0 23 01 0B B8 01 52 54 |....3....#....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 42 00 5E 0C 44 02 53 54 58 20 24 |ICHERB.^.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 ;.N.............
........................................
...V.N........$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.......P.........Y.....W.....
..............W......W......Y..W........
...A...W............Y..W...........A....
AO..............+13......'.F.+....3....
'RFB+C...3....'JF2+13....../@FR+....3...
#....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 SPEICHERB.^
.D.STX $C010 ;X NACH $C010 SPEICHERN.
.N.CLI ;.ERRUPT .IGEBEN...X.JMP
NEU ;NEUSTART...B.....
> CLICK IMAGE PREVIEW FOR FULL MODAL