#53

Doughnut Cracking Service [DCS] 06

Doughnut Cracking Service [DCS]

2.588 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

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

A seven-SID jukebox intro dominated by Jeroen Tel — four of the seven tunes are his: "Orion Intro," "The Beginning," "Fun Fun," and "S-Express." Laxity (Thomas E. Petersen) contributed "Ikari Intro Song" and Charles Deenen added "RWE Intro." Crime coded the intro while Andrew Sleigh provided the charset and M+K handled graphics. Doughnut Cracking Service was a British group founded remarkably early in January 1984, making them among the oldest cracking operations on the C64. By October 1988 when this intro appeared, DCS had been active for nearly five years. The sheer volume of Jeroen Tel compositions packed into one intro demonstrates his extraordinary productivity during 1988 — the Dutch musician was supplying material to multiple groups simultaneously. All seven SIDs are preserved in the HVSC. Doc Snyder's page documents DCS's extensive history.

Sources: CSDb · docsnyderspage

dcs-06.asm 2.588 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:22
// 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:  $17a7 (6055)
// IRQ handler:  $17e1 (irq_17e1)
//
// Code: 2631 bytes, Data: 60857 bytes
// Labels: 236, Subroutines: 9
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


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

// --- Region $0e01-$0e2b ---
.pc = $0e01 "Program $0e01"
        lsr
        lsr $6665,x
        ror $67
        bvc loc_0e53
        lsr
        lsr $6968,x
        adc #$6a
        rti

dat_0e10:
        .byte $6b,$6c,$6d,$6e,$4a                   // klmnJ
        lsr
        .byte $6f,$40,$40                           // rra $4040 // ILLEGAL
        bvc loc_0e65
        lsr
        bvs loc_0e62
        .byte $44,$44                               // nop $44 // ILLEGAL
        .byte $44,$71                               // nop $71 // ILLEGAL
        lsr
        lsr
        bvs loc_0e98
        lsr
        .byte $73,$74                               // rra ($74),y // ILLEGAL
        .byte $44,$44                               // nop $44 // ILLEGAL

dat_0e2b:
        .byte $44                                   // D

// --- Region $0e53-$0e65 ---
.pc = $0e53 "loc_0e53"

loc_0e53:
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr
        lsr

loc_0e62:
        ror $807f,x

loc_0e65:
        rti

// --- Region $0e98-$0ea3 ---
.pc = $0e98 "loc_0e98"

loc_0e98:
        php
        .byte $14,$20                               // nop $20,x // ILLEGAL
        .byte $14,$0f                               // nop $0f,x // ILLEGAL
        jsr sub_0f19
        ora $20,x
        .byte $02                                   // jam // ILLEGAL

txt_0ea3:
        .encoding "screencode_mixed"
        .text "y"
        .encoding "petscii_upper"

// --- Region $0f14-$1001 ---
.pc = $0f14 "Program $0f14"
        jsr sub_2020
.label sub_0f19 = * + 2
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020