← #82 Top 1024 #84 →
#83

Doughnut Cracking Service [DCS] 08

Doughnut Cracking Service [DCS]

2.869 lines of code

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

History

Released
22 October 1988
Code
Crime
Music
Jeroen Tel, Laxity, Charles Deenen
Charset
Andrew Sleigh
Graphics
M+K
Group
Doughnut Cracking Service — United Kingdom, founded January 1984

A variant of #53 DCS-06 — same date, same team, same seven-SID music collection. Crime coded while Andrew Sleigh provided the charset and M+K handled graphics. The jukebox is dominated by Jeroen Tel with four contributions: "Orion Intro," "The Beginning," "Fun Fun," and "S-Express." Laxity adds "Ikari Intro Song" and Deenen provides "RWE Intro." DCS was founded in January 1984 — among the oldest British cracking operations, predating even the major Scandinavian groups by years. The identical release date and credits to DCS-06 suggest these were alternate visual configurations of the same underlying intro, distributed with different cracks. All seven SIDs are preserved in the HVSC. Doc Snyder's page documents DCS's extensive multi-year history.

Sources: CSDb · docsnyderspage

dcs-08.asm 2.869 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:20
// 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:  $2500 (9472)
//
// Code: 2547 bytes, Data: 60941 bytes
// Labels: 289, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0814 ---
.pc = $0814 "Program $0814"
        brk

// --- Region $1000-$1024 ---
.pc = $1000 "$1000"
        sei
        lda #$26
        sta $0314
        lda #$10
        sta $0315
        lda #$00
        sta $dc0e
        lda #$01
        sta $d01a
        lda #$1b
        sta $d011
        lda #$42
        sta $d012
        lda #$00
        jsr loc_1a64
        rts

// --- Region $103e-$15a5 ---
.pc = $103e "loc_103e"

loc_103e:
        ldx #$02
        dec $1ae5
        bpl loc_104b
        lda dat_1a8f
        sta $1ae5

loc_104b:
        inc $03ff
        stx $ff
        lda $1a90,x
        sta $1ac8
        tay
        lda $1ae5
        cmp dat_1a8f
        bne loc_1071
        lda $1758,x
        sta $fb
        lda $175b,x
        sta $fc
        dec $1a99,x
        bmi loc_1074
        jmp loc_1183

loc_1071:
        jmp loc_1193

loc_1074:
        ldy $1a93,x
        lda ($fb),y
        cmp #$fe
        beq loc_1092
        cmp #$ff
        bne loc_109a
        lda #$00
        sta $1a99,x
        sta $1a93,x
        sta $1a96,x
        sta $1ae4
        jmp loc_1074

loc_1092:
        lda #$02
        sta $1ae6
        jmp loc_1a83

loc_109a:
        sta $1ad9
        and #$80
        beq loc_10af
        lda $1ad9
        and #$1f
        sta $1ac1,x
        inc $1a93,x
        jmp loc_1074

loc_10af:
        lda $1ad9
        asl
        tay
        lda $175e,y
        sta $fd
        lda $175f,y
        sta $fe
        lda #$00
        sta $1ab1,x
        ldy $1a96,x
        sta $1ab4,x
        lda #$03
        sta $1ad3,x
        lda ($fd),y
        sta $1a9c,x
        sta $1ad8
        and #$7f
        sta $1a99,x
        inc $1a96,x
        lda $1ad8
        bpl loc_10f4
        iny
        lda ($fd),y
        bpl loc_10ee
        sta $1ab1,x
        jmp loc_10f1

loc_10ee:
        sta $1aa5,x

loc_10f1:
        inc $1a96,x

loc_10f4:
        iny
        lda ($fd),y
        clc
        adc $1ac1,x
        sta $1aa2,x
        tay
        lda dat_15a6,y
        pha
        lda $1606,y
        ldy $1ac8
        sta $d401,y
        sta $1aa8,x
        sta $1aab,x
        pla