#168

Decibel [DBL] 01

Decibel [DBL]

1.944 lines of code

MusicSIDScrollerSCRL

History

Code
Dieters Software House
Music
White (Bart Meeuwissen), Rob Hubbard
Released
September 1987
Group
Decibel -- CSDb group ID #2486, Netherlands

Decibel Crack Intro #01 is a September 1987 release from the Dutch cracking group Decibel, preserved on CSDb as entry #53453. The intro was coded by Dieters Software House, with music credited to White (Bart Meeuwissen) and Rob Hubbard. Three SID tracks are associated with the release: "Crazy Comets Remix" and "Think Twice I" by White, and "ACE II" by Rob Hubbard -- all preserved in the High Voltage SID Collection. The scrolltext presents a ranked greeting list headed by Vortex, RDI, FCS, NFL, TDT, and The Last Science, followed by overseas greetings to MSI, UII, Silent Rage, RAD, TSD, TWGI, Time League, and Nepa. The scroll attributes the music to "Red/Judges" and credits the game crack to FCS -- a discrepancy with the CSDb and Doc Snyder credits that may reflect different versions or re-attributions over time. This is the only Decibel intro documented on Doc Snyder's page, where it ranks at #168 on intros.c64.org.

Sources: CSDb Release · Doc Snyder · intros.c64.org

dbl-01.asm 1.944 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $0812 (via BASIC SYS 2066)
// Entry point:  $0334 (820)
// IRQ handler:  $0c40 (irq_0c40)
// IRQ handler:  $5540 (irq_5540)
// IRQ handler:  $0cbf (irq_0cbf)
// IRQ handler:  $0d20 (loc_0d20)
//
// Code: 1680 bytes, Data: 61808 bytes
// Labels: 196, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0a18-$0a54 ---
.pc = $0a18 "Program $0a18"
        lda $7e82,x
        .byte $9f,$82,$5e                           // sha $5e82,y // ILLEGAL
        .byte $97,$82                               // sax $82,y // ILLEGAL
        dec $b5,x
        .byte $82,$f6                               // nop #$f6 // ILLEGAL
        lda $7e82,x
        .byte $9f,$82,$5e                           // sha $5e82,y // ILLEGAL
        .byte $97,$82                               // sax $82,y // ILLEGAL
        dec $b5,x
        .byte $82,$f6                               // nop #$f6 // ILLEGAL
        lda $7ea9,x
        .byte $9f,$5f,$5e                           // sha $5e5f,y // ILLEGAL
        .byte $97,$d7                               // sax $d7,y // ILLEGAL
        dec $b5,x
        sbc $f8,x
        tax
        tax
        ldy #$00
        rol
        tax
        tay
        .byte $9f,$5f,$56                           // sha $565f,y // ILLEGAL
        .byte $97,$d7                               // sax $d7,y // ILLEGAL
        dec $b5,x
        sbc $f6,x
        lda $7e7d,x
        .byte $9f,$aa,$a8                           // sha $a8aa,y // ILLEGAL
        .byte $97,$80                               // sax $80,y // ILLEGAL
        brk

// --- Region $0bff-$0dec ---
.pc = $0bff "loc_0bff"

loc_0bff:
        ldy #$00

loc_0c01:
        lda loc_0c0f,y
        sta $033c,y
        iny
        cpy #$2c
        bne loc_0c01
        jmp $033c

loc_0c0f:
        lda #$36
        sta $01
        lda #$01
        ldy #$1b
        ldx #$08
        sta $fe
        sty $ff
        sta $fb
        stx $fc

loc_0c21:
        ldy #$00

loc_0c23:
        lda ($fe),y
        sta ($fb),y
        iny
        bne loc_0c23
        inc $ff
        inc $fc
        lda $ff
        cmp #$d0
        bne loc_0c21
        lda #$37
        sta $01
        jmp loc_fce2

dat_0c3b:
        .byte $00,$00,$00,$00,$00                   // .....
irq_0c40: {
        lda #$01
        sta $d019
        lda #$35
        ldx #$00
loop1:
        sta $d001,x
        inx
        inx
        cpx #$10
        bne loop1
        lda #$18
        sta $d000
        lda #$49
        sta $d002
        lda #$7a
        sta $d004
        lda #$9f
        sta $d006
        lda #$c8
        sta $d008
        lda #$f9
        sta $d00a
        lda #$2b
        sta $d00c
        lda #$40
        sta $d010
        lda #$7f
        sta $d017
        ldx #$40
loop2:
        txa
        clc
        adc $f9
        lsr
        and #$1f
        tay
        lda $0e50,y
        sta $d025
        txa
        sec
        sbc $f9
        lsr
        lsr
        and #$1f
        tay
        lda $0e50,y
        sta $d026
        nop
        nop
        nop