← #795 Top 1024 #797 →
#796

Main Underground Service in Commodore [MUSIC] 01

Main Underground Service in Commodore [MUSIC]

2.982 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL
Disassemble Download .asm Download .prg intros.c64.org

History

Group
Main Underground Service in Commodore [MUSIC]

The sole ranked intro from Main Underground Service in Commodore — a group whose name forms the acronym MUSIC, reflecting the C64 scene's deep connection to SID chip compositions. The group does not appear on CSDb, Doc Snyder's page, Demozoo, or any other major scene archive, and no individual credits for code, music, or graphics have been recovered. Backronym-style group names were a recurring convention in the C64 scene, where crews competed to craft memorable abbreviations with secondary meanings — MUSIC being a particularly apt example given the platform's celebrated sound capabilities. The intros.c64.org listing attracted a comment from Daison, a scene archivist known for cataloguing obscure releases. Without a confirmed release date, country of origin, or membership roster, the group remains one of the most elusive in the collection. The deliberate wordplay in the name suggests the members were well integrated into scene culture and its naming traditions, even if their documentary footprint has not survived.

Sources: intros.c64.org

music-01.asm 2.982 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:25
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1300 (4864)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1600 (irq_1600)
//
// Code: 1619 bytes, Data: 61869 bytes
// Labels: 327, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $1300-$1309 ---
.pc = $1300 "main_1300"

main_1300:
        jsr sub_1488
        jsr sub_1400
        jmp loc_1500

dat_1309:
        .byte $00                                   // .

// --- Region $1320-$1360 ---
.pc = $1320 "sub_1320"
// Referenced by: jsr from $1515, $ee75; branch from $1325

sub_1320:
        lda $dc01
        cmp #$ef
        bne sub_1320
        jsr $ff5b
        lda #$00
        sta $c6
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        jsr $e518
        lda #$00
        ldx #$1e

loc_133f:
        sta $d3ff,x
        dex
        bne loc_133f
        ldx #$00

loc_1347:
        lda $3500,x
        sta $0801,x
        lda $3600,x
        sta $0901,x
        lda $3700,x
        sta $0a01,x
        inx
        bne loc_1347
        jmp loc_fce2

dat_135f:
        .byte $4c,$ae                               // L.

// --- Region $1400-$144f ---
.pc = $1400 "sub_1400"
// Referenced by: jsr from $1303, $ed78

sub_1400:
        lda #$00
        sta $02
        lda #$0c
        sta $03
        lda #$0f
        sta $0286
        jsr $e544
        lda #$00
        sta $c000
        lda #$02
        jsr sub_c099
        ldx #$00
        txa

loc_141d:
        sta $0400,x
        inx
        cpx #$28
        bcc loc_141d
        ldx #$00

loc_1427:
        lda $1a00,x
        sta $0428,x
        lda $1ae2,x
        sta $050a,x
        inx
        bne loc_1427
        lda #$00
        sta $d022
        lda #$02
        sta $d023
        ldx #$00

loc_1442:
        lda txt_187c,x
        and #$bf
        sta $0608,x
        inx
        cpx #$28
        bcc loc_1442
        rts

// --- Region $1470-$14ae ---
.pc = $1470 "sub_1470"
// Referenced by: jsr from $148a, $ee37

sub_1470:
        ldx #$00

loc_1472:
.label smc_1474 = * + 2
        lda dat_2800,x                              // !SMC: modified by $14a2
        sta $0400,x
.label smc_147a = * + 2
        lda $c000,x                                 // !SMC: modified by $14a8
.label smc_147d = * + 2
        sta dat_2800,x                              // !SMC: modified by $14a5
        lda $0400,x
.label smc_1483 = * + 2
        sta $c000,x                                 // !SMC: modified by $14ab
        inx
        bne loc_1472
        rts
// Referenced by: jsr from $1300, $ed75

sub_1488:
        ldy #$28

loc_148a:
        jsr sub_1470
        inc smc_1474
        inc smc_147d
        inc smc_147a