#241

Swedish Cracking Crew [SCC] 01

Swedish Cracking Crew [SCC]

2.811 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
October 1985
Group
Swedish Cracking Crew — Sweden, founded 1985

The first crack intro from the Swedish Cracking Crew — one of the earlier Swedish groups on the C64, founded in 1985. CSDb (group ID 322) classifies SCC as a demo group and cracker group, active until 1987. This intro (CSDb release 18465) is dated 5 October 1985 and features Bogg's rendition of Harold Faltermeyer's "Axel F," placing it among the earliest crack intros to incorporate recognizable pop music via the SID chip. SCC's roster included Covenant, Inferno, Zzap, Adroit, Superman, and Zenith, handling coding, cracking, graphics, and swapping duties. The group produced approximately 95 releases during its two-year existence before dissolving in 1987. SCC initially had conflicts with rival Swedish crews but later reconciled with Triad, with both groups attending meetings together. After dissolution, several members transitioned to Amiga development under the name Northern Lights. Comments on intros.c64.org from ZZAP/SCC in 2004 confirm a founding member's continued engagement with the archived production.

Sources: CSDb · CSDb — Group · Demozoo · intros.c64.org

scc-01.asm 2.811 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:31
// 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:  $1404 (5124)
// IRQ handler:  $1455 (irq_1455)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2902 bytes, Data: 60585 bytes
// Labels: 278, Subroutines: 21
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0823-$085c ---
.pc = $0823 "loc_0823"

loc_0823:
        sei
        ldx #$00
        txa

loc_0827:
        sta $d400,x
        inx
        cpx #$19
        bne loc_0827
        lda #$0f
        sta dat_d418
        lda #$c5
        sta $fe
        lda #$08
        sta $fc
        lda #$61
        sta $fb
        ldy #$00
        sty $fd

loc_0844:
        lda ($fb),y
        sta ($fd),y
        iny
        bne loc_0844
        inc $fc
        inc $fe
        lda $fe
        cmp #$d0
        bne loc_0844
        cli
        lda #$00
        sta $1d
        jmp loc_1a00

// --- Region $091e-$099e ---
.pc = $091e "loc_091e"

loc_091e:
        cmp $60
        jsr sub_c7ee
        bne loc_0926
        rts

loc_0926:
        asl
        tax
        lda dat_c652,x
        sta $d407
        sta $cef0
        inx
        lda dat_c652,x
        sta $cef1
        sta $d408
        dex
        txa
        clc
        adc #$18
        tax
        lda dat_c652,x
        sta $cef2
        inx
        lda dat_c652,x
        sta $cef3
        lda #$20
        sta $d40b
        lda #$21
        sta $d40b
        rts

loc_0959:
        jsr sub_c7ee
        bne loc_095f
        rts

loc_095f:
        asl
        tax
        lda dat_c652,x
        beq loc_0968
        eor #$08

loc_0968:
        sta $d40e
        inx
        lda dat_c652,x
        sta $d40f
        lda #$20
        sta $d412
        lda #$21
        sta $d412
        rts

loc_097d:
        jsr sub_c7ee
        bne loc_0983
        rts

loc_0983:
        asl
        tax
        lda dat_c652,x
        eor #$00
        sta $d400
        inx
        lda dat_c652,x
        sta $d401
        lda #$20
        sta $d404
        lda #$21
        sta $d404
        rts

// --- Region $0a70-$0ac2 ---
.pc = $0a70 "loc_0a70"

loc_0a70:
        sbc ($f8,x)
        inc $fd2e
        lda #$00
        sta $d406
        sta $d40d
        sta $d414