← #988 Top 1024 #990 →
#989

Thunderbolt Cracking Crew [TCC] 01

Thunderbolt Cracking Crew [TCC]

337 lines of code

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

History

Released
December 1986
Group
Thunderbolt Cracking Crew — Norway, founded c. 1985

A Norwegian crack intro from December 1986 by Thunderbolt Cracking Crew, also known as TCC 1777. CSDb catalogues the group under ID 1606 with 24 members and 127 releases spanning 1985–1987. The roster included coders Creator, Dr.Creep, Fist, Iron Man, and Kugel, plus graphicians New Vision and Omega. No individual credits are documented for this specific intro. The group cracked notable titles including Ghosts'n Goblins and Breakthru. TCC was part of the Norwegian wave that included groups like The Ruling Company and Raw Deal — Norway contributed significantly to the Scandinavian scene alongside the Swedish and Danish giants. The group's BBS activity and copy party connections linked them to the broader Nordic trading network. CSDb also documents a response release titled "Fuck Thunderbolt Cracking Crew" by Foxx Inc., suggesting the group's activities provoked reactions from rivals. By 1987, most members had moved on.

Sources: CSDb · intros.c64.org

thunderbolt-01.asm 337 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:49
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $9309  (35593 bytes)
// Crunched with PuCrunch — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $9130 (37168)
//
// Code: 249 bytes, Data: 35344 bytes
// Labels: 34, Subroutines: 0
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $20d0-$20d0 ---
.pc = $20d0 "Segment $20d0"
        brk

// --- Region $49d0-$49d0 ---
.pc = $49d0 "Segment $49d0"
        brk

// --- Region $85d0-$85d0 ---
.pc = $85d0 "Segment $85d0"
        brk

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $9023-$905f ---
.pc = $9023 "loc_9023"

loc_9023:
        ldx #$00

loc_9025:
        lda $9065,x
        sta $0110,x
        inx
        bne loc_9025
        ldx #$34

loc_9030:
        lda loc_90cc,x
        sta $0300,x
        inx
        bne loc_9030
        nop
        nop
        ldx #$ff
        txs
        lda #$ff
        sta $2d
        sec
        sbc #$01
        sta $fe
        lda #$bf
        sta $2e
        sbc #$00
        sta $ff
        lda #$22
        sta $fc
        lda #$90
        sta $fd
        lda $d020
        sta $fb
        jmp $0152

dat_905f:
        .byte $00                                   // .

// --- Region $9082-$90ee ---
.pc = $9082 "loc_9082"

loc_9082:
        ror.abs $003c,x
        pha
        dec $fc
        lda $fc
        cmp #$ff
        bne loc_9090
        dec $fd

loc_9090:
        pla
        rts

loc_9092:
        pha
        lda $d020
        eor #$01
        sta $d020
        dec $fe
        lda $fe
        cmp #$ff
        bne loc_90a5
        dec $ff

loc_90a5:
        pla
        rts

loc_90a7:
        ldy #$00

loc_90a9:
        lda ($fc),y
        cmp #$9c
        bne loc_90c7
        sta $d020
        jsr $0130
        lda ($fc),y
        tax
        jsr $0130
        lda ($fc),y

loc_90bd:
        sta ($fe),y
        jsr $013d
        dex
        bne loc_90bd
        beq loc_90cc

loc_90c7:
        sta ($fe),y
        jsr $013d

loc_90cc:
        ldx $fc
        dex
        stx $fc
        cpx #$ff
        bne loc_90d7
        dec $fd

loc_90d7:
        lda $fe
        cmp #$1f
        lda $ff
        sbc #$08
        bcs loc_90a9
        lda $fb