← #100 Top 1024 #102 →
#101

Thee Supreme Council [TSC] 01

Thee Supreme Council [TSC]

7.014 lines of code

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

History

Released
October 1986
Code
JJ the Breaker
Music
Ratt, Benn, Rob Hubbard (ripped)
Group
Thee Supreme Council — United States, founded 1986

One of the earliest C64 crack intros in existence — released in October 1986 when the genre was still being defined. JJ the Breaker coded the intro for Thee Supreme Council, an American group founded that same year. The music draws from three sources: Ratt and Benn contributed (likely ripped tunes credited under aliases), and Rob Hubbard's "Zoolook" appears alongside Ben Daglish and Antony Crowther's "We M.U.S.I.C. 3." The October 1986 date places this among the first generation of crack intros to combine multiple SID tunes — a proto-jukebox approach that would become standard within two years. TSC operated from the US during the brief window when American groups were competitive with emerging European operations. The HVSC preserves the Hubbard and Daglish/Crowther compositions.

Sources: CSDb

tsc-01.asm 7.014 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:37
// 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:  $105e (4190)
// IRQ handler:  $c7d3 (irq_c7d3)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 6141 bytes, Data: 57347 bytes
// Labels: 823, Subroutines: 22
//
// Cross-references: all OK
// ============================================


// --- Region $105e-$107f ---
.pc = $105e "main_105e"
// Referenced by: jsr from $d8c4

main_105e:
        ldx #$32
        ldy #$1d
        stx $63
        sty $64
        ldx #$80
        ldy #$1a
        stx $61
        sty $62
        rts

loc_106f:
        sta $69

loc_1071:
        ldx #$00

loc_1073:
        ldy #$00

loc_1075:
        dey
        bne loc_1075
        dex
        bne loc_1073
        dec $69
        bne loc_1071
        rts

// --- Region $11b0-$11d2 ---
.pc = $11b0 "sub_11b0"
// Referenced by: jsr from $d8e4

sub_11b0:
        ldx #$07
        stx $66

loc_11b4:
        txa
        asl
        tay
        lda $0334,y
        sta $d000,y
        lda $d010
        and dat_11d3,x
        ora $0335,y
        sta $d010
        lda $0344,x
        sta $d001,y
        dex
        bpl loc_11b4
        rts

// --- Region $149d-$14a3 ---
.pc = $149d "Segment $149d"
        .byte $e7,$e7                               // isc $e7 // ILLEGAL
        .byte $fc,$fc,$fc                           // nop $fcfc,x // ILLEGAL

dat_14a2:
        .byte $f7,$f7                               // ..

// --- Region $166c-$1673 ---
.pc = $166c "loc_166c"

loc_166c:
        brk

dat_166d:
        .byte $00,$00,$00,$00,$00,$00               // ......

loc_1673:
        brk

// --- Region $16d2-$16ef ---
.pc = $16d2 "loc_16d2"

loc_16d2:
        ror $9b
        bcc loc_166c
        bcc loc_1673
.label loc_16d9 = * + 1
        bcc loc_173b
        stx $96,y
.label loc_16dd = * + 1
        lsr $96,x
        stx $96,y
        ror $96
        stx $96,y
        stx $96,y
        stx $9f,y
        stx $96,y
        stx $96,y
        stx $9f,y
        rts

dat_16ef:
        .byte $6b                                   // k

// --- Region $1738-$1747 ---
.pc = $1738 "loc_1738"

loc_1738:
        bcc loc_16d9
.label loc_173b = * + 1
        sta ($91),y
        bcc loc_16dd
        rts
        .byte $9b,$90,$8b                           // tas $8b90,y // ILLEGAL
        .byte $9b,$9b,$9f                           // tas $9f9b,y // ILLEGAL
        .byte $6b,$91                               // arr #$91 // ILLEGAL

dat_1747:
        .byte $9f                                   // .

// --- Region $4000-$406a ---
.pc = $4000 "loc_4000"

loc_4000:
        lda dat_406b
        bmi loc_4008
        beq loc_4039
        rts

loc_4008:
        lda #$b7