#253

West Coast Crackers [WCC] 06

West Coast Crackers [WCC]

951 lines of code

RasterbarsRSTRScrollerSCRLSpritesSPRT

History

Released
November 1986
Group
West Coast Crackers — Sweden, founded 19 September 1986

This West Coast Crackers intro from November 1986 dates to the earliest era of Commodore 64 crack intros, released just two months after the group's founding on 19 September 1986. No individual credits for code, music, or graphics appear on CSDb, and no SID file is associated with the release — consistent with the primitive state of crack intros in this period, before SID-driven music became standard. The group's name references Sweden's west coast, placing them among the Nordic scene's early wave of cracking groups. WCC left minimal documentation — no Doc Snyder page, Demozoo listing, or scene press coverage has been found. The November 1986 release date makes this one of the oldest intros in the ranked collection, predating the explosion of sophisticated crack intros that began in 1987-1988. Swedish groups would go on to dominate the European cracking scene, but in late 1986 the infrastructure of BBS networks and mail trading was still being established.

Sources: CSDb

wcc-06.asm 951 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:40
// 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:  $ca00 (51712)
// IRQ handler:  $cbc7 (nmi_cbc7)
// IRQ handler:  $cacf (irq_cacf)
//
// Code: 645 bytes, Data: 62842 bytes
// Labels: 47, Subroutines: 6
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $ab1e-$ab1e ---
.pc = $ab1e "sub_ab1e"
// Referenced by: jsr from $ca2d

sub_ab1e:
        brk

// --- Region $ca00-$cc85 ---
.pc = $ca00 "main_ca00"

main_ca00:
        lda $dd02
        ora #$03
        sta $dd02
        lda #$00
        sta $dd00
        lda $d018
        and #$f0
        ora #$0e
        sta $d018
        lda $d018
        and #$0f
        ora #$c0
        sta $d018
        lda #$f0
        sta $0288
        jsr sub_cc7a
        lda #$92
        ldy #$cf
        jsr sub_ab1e
        sei
        lda #$00
        sta $3fff
        sta $fe
        sta $0a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$81
        sta $d01a
        lda #$c7
        sta $fffa
        lda #$cb
        sta $fffb
        lda #$cf
        sta $fffe
        lda #$ca
        sta $ffff
        lda #$32
        sta $d012
        lda #$18
        sta $02
        lda #$ff
        sta $d01d
        lda #$00
        sta $d017
        lda #$00
        ldy #$00

loc_ca74:
        sta $f400,y
        sta $f500,y
        iny
        bne loc_ca74
        ldy #$3f

loc_ca7f:
        sta $f600,y
        dey
        bpl loc_ca7f
        lda #$00
        ldy #$01

loc_ca89:
        sta dat_d000,y
        iny
        iny
        cpy #$0f
        bne loc_ca89
        lda #$00
        ldy #$00

loc_ca96:
        sta dat_d000,y
        clc
        adc #$30
        iny
        iny
        cpy #$10
        bne loc_ca96
        lda #$ff
        sta $d015
        lda #$c0
        sta $d010
        lda #$01
        ldy #$00

loc_cab0:
        sta $d027,y
        iny
        cpy #$08
        bne loc_cab0
        lda #$d0
        ldy #$00

loc_cabc:
        sta $f3f8,y
        clc
        adc #$01
        iny
        cpy #$08
        bne loc_cabc
        lda #$35
        sta $01
        cli
        jmp loc_cc16
irq_cacf: {
        pha
        txa
        pha
        tya
        pha