← #817 Top 1024 #819 →
#818

Doughnut Cracking Service [DCS] 03

Doughnut Cracking Service [DCS]

688 lines of code

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

History

Music
Laxity (Thomas Petersen)
Released
7 April 1989
Group
Doughnut Cracking Service -- CSDb group ID #762, United Kingdom, founded January 1984

Doughnut Cracking Service Crack Intro #03 is an April 1989 release from the British cracking group DCS, preserved on CSDb as entry #95820. The only credited contributor is Laxity (Thomas E. Petersen), whose SID track "Galaxylogo" provides the music and is preserved in the High Voltage SID Collection. No code or graphics credits are recorded on CSDb for this specific intro, and Doc Snyder marks it as "missing info." The first scrolltext presents a ranking of groups of the era, naming Illusion, Cosmos, Genesis Project, Fire Eagle, Science 451, Dominators, 1-Way, Abnormal, Drive, and many others. A second scroll announces the crack of "Treble Champions" by Mik of DCS on 12 August 1989 and promotes a new issue of the magazine Iguana. The CSDb entry lists the release group as X-Ray rather than DCS -- a cataloguing discrepancy, as the Doc Snyder link and scrolltext content clearly confirm it as a DCS production. DCS operated from their founding in January 1984 through to 1990.

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

dcs-03.asm 688 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:15
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $c000 (49152)
// IRQ handler:  $c2a7 (irq_c2a7)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 670 bytes, Data: 62817 bytes
// Labels: 65, Subroutines: 2
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


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

// --- Region $a660-$a660 ---
.pc = $a660 "sub_a660"
// Referenced by: jsr from $c3ad, $ffb5

sub_a660:
        brk

// --- Region $a68e-$a68e ---
.pc = $a68e "sub_a68e"
// Referenced by: jsr from $c3b0, $ffb8

sub_a68e:
        brk

// --- Region $a9d0-$a9d0 ---
.pc = $a9d0 "Segment $a9d0"
        brk

// --- Region $c000-$c00d ---
.pc = $c000 "main_c000"

main_c000:
        lda #$01
        sta $d020
        sta $d021
        sta $c6
        jmp loc_c263

dat_c00d:
        .byte $20                                   //  

// --- Region $c263-$c3ba ---
.pc = $c263 "loc_c263"

loc_c263:
        lda dat_c00d
        beq loc_c27c
        cmp #$11
        bne loc_c26f
        sec
        sbc #$04

loc_c26f:
        jsr $ffd2
        inc $c264
        bne loc_c263
        inc $c265
        bne loc_c263

loc_c27c:
        sei
        lda #$81
        sta $d01a
        lda #$7f
        sta $dc0d
        lda $d016
        and #$f7
        sta $d016
        lda #$00
        sta $fb
        sta $fc
        sta $fd
        sta $fe
        lda #$a7
        sta $0314
        lda #$c2
        sta $0315
        cli
        jmp loc_c37f

irq_c2a7:
        ldx $fe
        cpx #$01
        beq loc_c2b0
        jmp loc_c32b

loc_c2b0:
        lda $d016
        and #$f8
        adc $fb
        lda $fb
        sta $d016
        dec $fb
        ldy $fb
        bpl loc_c316
        ldy #$00
        sty $fb
        ldx #$00
        inc $d020
        inc $d021

loc_c2ce:
        lda $0771,x
        sta $0770,x
        inx
        cpx #$27
        bne loc_c2ce
.label smc_c2da = * + 1
.label smc_c2db = * + 2
        lda dat_c3b9                                // !SMC: modified by $c2f0, $c2f5
        beq loc_c2ee
        and #$3f
        sta $0797
        inc smc_c2da
        bne loc_c2eb
        inc smc_c2db

loc_c2eb:
        jmp loc_c2f8

loc_c2ee:
        lda #$b9
        sta smc_c2da                                // SMC: modifies $c2da
        lda #$c3
        sta smc_c2db                                // SMC: modifies $c2db

loc_c2f8:
        inc $fc
        ldy $fc
        cpy #$ff
        bne loc_c304
        ldx #$00
        stx $fc