#981

West Coast Crackers [WCC] 13

West Coast Crackers [WCC]

3.531 lines of code

MusicSIDScrollerSCRLBitmapBMAP

History

Group
West Coast Crackers — Sweden, founded 19 September 1986

The thirteenth numbered crack intro from West Coast Crackers, a Swedish cracking and demo group founded on 19 September 1986. CSDb reveals that WCC evolved from the earlier Swedish Copy Masters and dissolved in April 1987 — an active period of just seven months. Despite this brevity, the group produced 124 documented releases and earned a CSDb community rating of 8 out of 10. Key members included Mr. Pinge (coder, cracker, swapper), Sir Galahad and Lancelot (both coders and crackers), Nike (coder, graphician), and musicians Crusader and Sparrow. WCC's historical significance extends beyond its own output — upon dissolution, its members went on to form both Relax and Fairlight, the latter becoming one of the most legendary groups in C64 history. The comment from Monk on intros.c64.org — identifying himself as ex-Science 451 — suggests overlapping Swedish scene connections. WCC's Arthurian-themed handles (Sir Galahad, Lancelot, King Arthur) give the group a distinctive character.

Sources: CSDb Group

wcc-13.asm 3.531 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:01
// 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:  $cf00 (52992)
//
// Code: 1378 bytes, Data: 62109 bytes
// Labels: 360, Subroutines: 11
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0823-$0842 ---
.pc = $0823 "loc_0823"

loc_0823:
        dec $32
        dec $082c

loc_0828:
        lda ($31),y
        sta dat_dc00,y
        iny
        bne loc_0828
        lda $32
        cmp #$08
        bne loc_0823

loc_0836:
        lda $0848,y
        sta $0100,y
        iny
        bne loc_0836
        jmp $0100

dat_0842:
        .byte $00                                   // .

// --- Region $1002-$10a6 ---
.pc = $1002 "sub_1002"
// Referenced by: jsr from $cf00

sub_1002:
        lda $d011
        and #$ef
        sta $d011
        ldx #$7f
        ldy #$40
        jsr sub_109c
        ldx #$04
        ldy #$00
        jsr sub_10a1
        ldx #$83
        ldy #$27
        jsr sub_1072
        ldx #$83
        ldy #$28
        jsr sub_109c
        ldx #$d8
        ldy #$00
        jsr sub_10a1
        ldx #$87
        ldy #$0f
        jsr sub_1072
        lda $8710
        sta $d021
        lda $d011
        ora #$22
        sta $d011
        lda $d016
        and #$df
        ora #$10
        sta $d016
        lda $d018
        ora #$08
        sta $d018
        ldx #$60
        ldy #$00
        jsr sub_109c
        ldx #$20
        ldy #$00
        jsr sub_10a1
        ldx #$7f
        ldy #$3f
        jsr sub_1072
        lda $d011
        ora #$10
        sta $d011
        rts
// Referenced by: jsr from $101c, $1031, $1066

sub_1072:
        stx $1001
        sty $1000
        ldy #$00

loc_107a:
        lda ($fb),y
        sta ($fd),y
        lda $fc
        cmp $1001
        bne loc_108d
        lda $fb
        cmp $1000
        bne loc_108d
        rts

loc_108d:
        inc $fb
        bne loc_1093
        inc $fc

loc_1093:
        inc $fd
        bne loc_107a
        inc $fe
        jmp loc_107a
// Referenced by: jsr from $100e, $1023, $1058

sub_109c:
        stx $fc
        sty $fb
        rts
// Referenced by: jsr from $1015, $102a, $105f

sub_10a1:
        stx $fe
        sty $fd
        rts

dat_10a6:
        // === Fill data (1 bytes, $10a6-$10a6) ===
        .byte $00                                   // .

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

// --- Region $c000-$c3f2 ---
.pc = $c000 "sub_c000"
// Referenced by: jsr from $cf05