← #253 Top 1024 #255 →
#254

Cleveland Cracking Service [CCS] 01

Cleveland Cracking Service [CCS]

227 lines of code

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

History

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

This intro from Cleveland Cracking Service represents one of the UK's earliest dedicated cracking groups. CCS was founded in 1983 by Micky and Stu — a founding date that, if accurate, places them among the very first organised C64 cracking collectives in Britain. Based in the Cleveland area of north-east England, the group produced approximately 300 releases between 1983 and 1992, with peak activity in 1987. Intros.c64.org comments describe the intro's "atmospheric muzak" and distinctive visual style, with one contributor — likely a former member — noting "I still remember writing it." CSDb catalogues at least seven distinct CCS intros from 1987 alone, reflecting a period of high productivity. The group reportedly had a regional rivalry with Teesside Cracking Service, a detail preserved in CSDb commentary. Community assessments describe CCS as "highly underrated" among 1980s scene groups. A second ranked CCS entry — #869 CCS-05 — confirms their continued presence in the collection.

Sources: CSDb Group · intros.c64.org

clevelandcs-01.asm 227 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $0a7f  (639 bytes)
// Entry point:  $0839 (via BASIC SYS 2105)
//
// Code: 160 bytes, Data: 479 bytes
// Labels: 24, Subroutines: 0
//
// Cross-references: all OK
// ============================================


// --- Region $0839-$08d8 ---
.pc = $0839 "main_0839"

main_0839:
        lda #$02
        ldx #$01
        ldy #$06
        sta $d027
        stx $d028
        sty $d029
        lda #$00
        sta $d020
        sta $d021
        lda #$07
        sta $d01d
        sta $d017
        lda #$40
        sta $d001
        sta $d003
        sta $d005
        lda #$50
        sta $d000
        lda #$a0
        sta $d002
        lda #$ea
        sta $d004
        lda #$00
        sta $07f8
        sta $07f9
        lda #$01
        sta $07fa
        lda #$07
        sta $d015
        lda #$28
        sta $07f8
        sta $07f9
        lda #$29
        sta $07fa
        nop
        nop
        nop
        ldx #$00

loc_0896:
        lda dat_0900,x
        jsr $ffd2
        inx
        bne loc_0896

loc_089f:
        lda #$9b
        sta $d027
        sta $d028
        sta $d029
        lda $cb
        cmp #$40
        bne loc_08bb
        inc $08a0
        ldx #$f0

loc_08b5:
        inx
        bne loc_08b5
        jmp loc_089f

loc_08bb:
        lda #$37
        sta $01
        lda #$00
        sta $d015
        lda #$00
        sta $d01d
        sta $d017
        sei
        jsr $fda3
        jsr $fd15
        jsr $ff5b
        jmp $fce2

// ============================================
// Data blocks
// ============================================

// --- Region $0801-$0838 ---
.pc = $0801 "dat_0801"

dat_0801:
        // === BASIC loader stub ===
        .byte $0b,$08                               // next line pointer ($080b)
        .byte $00,$00                               // line number 0
        .byte $9e                                   // SYS token
        .text "2105"                                // SYS 2105 → main_0839
        .byte $00                                   // end of line
        .byte $00,$00                               // end of BASIC program
        .byte $0e,$3e,$3a,$ff,$ea,$ea,$ea,$e9,$eb,$ea,$ea,$3f,$fa,$ea,$ea,$ea // .>:........?....
        .byte $e9,$e9,$e9,$ff,$ea,$ea,$ea,$e9,$e9,$e9,$e9,$3f,$fa,$ea,$ea,$e9 // ...........?....
        .byte $eb,$ea,$ea,$3f,$fa,$ea,$ea,$e9,$eb,$ea,$ea,$3f // ...?.......?

// --- Region $08d9-$08d9 ---
.pc = $08d9 "dat_08d9"

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

// --- Region $0900-$0a7f ---
.pc = $0900 "dat_0900"

dat_0900:
        .byte $93                                   // .

txt_0901:
        .text "     "
        .byte $1c                                   // .

txt_0907:
        .text "CLEVELAND  "
        .byte $05                                   // .

txt_0913:
        .text "CRACKING  "
        .byte $1f                                   // .

txt_091e:
        .text "SERVICE"
        .fill 8, $8d

txt_092d:
        .text "               "
        .byte $1e                                   // .

txt_093d:
        .text "PRESENT'S"