← #333 Top 1024 #335 →
#334

Cumbria Cracking Service [CCS] 01

Cumbria Cracking Service [CCS]

665 lines of code

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

History

Released
1985
Group
Cumbria Cracking Service — United Kingdom

One of the oldest intros in the entire ranked collection — released in 1985, during the very earliest years of C64 software cracking in the United Kingdom. CSDb confirms the release but lists no individual credits for code, music, or graphics, which is consistent with the era's rudimentary production standards. The group name follows the "[Location] Cracking Service" naming convention common among early British groups, placing them in Cumbria — a rural county in northwest England, far from the London-centric computing scene. No founding date is recorded on CSDb. The 1985 date makes this a near-contemporary of the very first crack intros, when the concept of a branded visual introduction to pirated software was still being established. The intro attracted four comments on intros.c64.org, including one from an apparent scene contemporary. The Cumbria Cracking Service appears in no other scene archives — Doc Snyder's page, Demozoo, and Atlantis all return no results.

Sources: CSDb · intros.c64.org

cumbria-01.asm 665 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:  $082c (2092)
//
// Code: 673 bytes, Data: 62814 bytes
// Labels: 77, Subroutines: 2
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $082c-$086c ---
.pc = $082c "main_082c"

// Referenced by: jsr from $fda6
main_082c: {
        lda #$10
        sta $fc
        lda #$70
        sta $fe
        lda #$00
        sta $fb
        sta $fd
loop1:
        ldy #$00
loop2:
        lda ($fb),y
        sta ($fd),y
        iny
        bne loop2
        inc $fc
        inc $fe
        lda $fe
        cmp #$c0
        bne loop1
        jmp loc_08a0
}
// Referenced by: jsr from $09c2, $09c9, $09d0

sub_0850:
        stx $fb
        lda #$00

loc_0854:
        sta $d000,y
        pha
        lda #$00

loc_085a:
        ldx #$05

loc_085c:
        dex
        bne loc_085c
        clc
        adc #$01
        bne loc_085a
        pla
        clc
        adc #$01
        cmp $fb
        bne loc_0854
        rts

// --- Region $08a0-$08b2 ---
.pc = $08a0 "loc_08a0"

loc_08a0:
        lda #$93
        jsr $ffd2
        lda #$00
        sta $d020
        lda #$00
        sta $d021
        jmp loc_0980

dat_08b2:
        // === Fill data (1 bytes, $08b2-$08b2) ===
        .byte $00                                   // .

// --- Region $0980-$0a7d ---
.pc = $0980 "loc_0980"

loc_0980:
        lda #$00
        sta $d015
        lda #$24
        sta $07f8
        sta $07f9
        lda #$25
        sta $07fa
        lda #$00
        ldy #$10

loc_0996:
        sta $d000,y
        dey
        bne loc_0996
        lda #$02
        sta $d027
        lda #$06
        sta $d028
        lda #$09
        sta $d029
        lda $d015
        ora #$07
        sta $d015
        lda #$50
        sta $d001
        sta $d003
        sta $d005
        ldy #$00
        ldx #$80
        jsr sub_0850
        ldy #$02
        ldx #$a0
        jsr sub_0850
        ldy #$04
        ldx #$c0
        jsr sub_0850
        ldx #$ff

loc_09d5:
        ldy #$ff

loc_09d7:
        dey
        bne loc_09d7
        dex
        bne loc_09d5

loc_09dd:
        dec $d002
        inc $d003
        dec $d004
        inc $d005
        lda #$00

loc_09eb:
        ldx #$05