#869

Cleveland Cracking Service [CCS] 03

Cleveland Cracking Service [CCS]

1.330 lines of code

RasterbarsRSTRSpritesSPRTBitmapBMAP

History

Released
c. 1987
Group
Cleveland Cracking Service — United Kingdom, founded 1983

A second ranked intro from Cleveland Cracking Service, the long-running British cracking group founded in 1983. Intros.c64.org comments praise its minimalist approach — "the simple low tone sound puts a lot of atmos into it" — suggesting the intro used a basic sound effect rather than a full SID composition. No individual credits for code or music have been identified. CCS operated from the Cleveland region of north-east England, part of a cluster of British cracking groups that also included Teesside Cracking Service — reportedly a local rival. The group's output peaked in 1987, with CSDb listing multiple distinct intro designs from that year alone. CCS released around 300 titles across nearly a decade of activity, an unusually long run for a UK cracking group. The higher-ranked #254 CCS-01 shares the same sparse credit situation, typical of mid-1980s British intros where individual attribution was less common than in Scandinavian or German groups.

Sources: CSDb Group · intros.c64.org

clevelandcs-03.asm 1.330 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:14
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $4000  (14337 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0c00 (3072)
// IRQ handler:  $1006 (irq_1006)
//
// Code: 564 bytes, Data: 13773 bytes
// Labels: 123, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $09e0-$09ef ---
.pc = $09e0 "loc_09e0"

loc_09e0:
        ldy #$00

loc_09e2:
        lda dat_09f0,y
        sta $d026,y
        iny
        cpy #$08
        bne loc_09e2
        jmp loc_0a00

// --- Region $0a00-$0a5a ---
.pc = $0a00 "loc_0a00"

loc_0a00:
        lda $d018
        ora #$08
        sta $d018
        lda $d011
        ora #$20
        sta $d011
        lda $d016
        ora #$10
        sta $d016
        lda #$00
        sta $d020
        sta $d021
        ldy #$00

loc_0a22:
        lda dat_1200,y
        sta $0400,y
        lda $1600,y
        sta $d800,y
        lda $1300,y
        sta $0500,y
        lda $1700,y
        sta $d900,y
        lda $1400,y
        sta $0600,y
        lda $1800,y
        sta $da00,y
        lda $1500,y
        sta $0700,y
        lda $1900,y
        sta $db00,y
        iny
        bne loc_0a22
        jsr sub_1000
        jmp loc_1a00

// --- Region $0c00-$0c1c ---
.pc = $0c00 "main_0c00"

main_0c00:
        ldy #$00
        lda $00

loc_0c04:
        sta $d400,y
        iny
        cpy #$18
        bne loc_0c04
        ldy #$00

loc_0c0e:
        lda dat_0c1c,y
        sta $d400,y
        iny
        cpy #$19
        bne loc_0c0e
        jmp loc_09e0

dat_0c1c:
        // === Data block (1 bytes, $0c1c-$0c1c) ===
        .byte $8a                                   // .

// --- Region $1000-$1165 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $0a55

sub_1000:
        jsr sub_10bb
        jmp loc_103e

irq_1006:
        lda $d019
        and #$01
        bne loc_1010
        jmp $ea31

loc_1010:
        sta $d019
        lda $d012
        bpl loc_1028
        lda $d011
        and #$f7
        sta $d011
        lda #$1e
        sta $d012
        jmp $ea31

loc_1028:
        lda $d011
        ora #$08
        sta $d011
        lda #$f9
        sta $d012
        jsr sub_1152
        jsr sub_1152
        jmp $febc

loc_103e:
        sei
        lda #$00
        sta $dc0e
        lda #$06
        sta $0314
        lda #$10
        sta $0315
        lda $d011
        and #$7f
        sta $d011
        lda #$3c
        sta $d012
        lda #$81
        sta $d01a