← #922 Top 1024 #924 →
#923

Swiss Cracking Association [SCA] 01

Swiss Cracking Association [SCA]

567 lines of code

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

History

Released
April 1987
Group
Swiss Cracking Association — Switzerland, founded 1983

The first crack intro from the Swiss Cracking Association — a Zurich-based group founded in 1983 by Saturnus the Invincible. CSDb (group ID 1452) classifies SCA as both a demo group and cracker group, active until 1988. This silent intro (CSDb release 54150) dates to 28 April 1987 — a text-driven presentation with no SID output. SCA's members included Smith the Software-Pope, United Cracking Academy, Big Apple, Sexton, and Spot 3001. The group produced 81 documented releases spanning 1984 to 1988, including cracks of notable titles such as Knight Rider, Miami Vice, and Blade Runner. SCA later expanded to the Amiga platform and achieved notoriety for creating what is considered the first Amiga virus on 5 July 1987. Comments on intros.c64.org from Ze Smasher of F4CG note connections between SCA and the Crazy group, suggesting overlapping membership or close ties within the tight-knit Swiss scene.

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

sca-01.asm 567 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:43
// 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:  $080d (2061)
//
// Code: 327 bytes, Data: 63160 bytes
// Labels: 81, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$0864 ---
.pc = $080d "main_080d"

main_080d:
        jsr $ff81

loc_0810:
        ldx #$00

loc_0812:
        lda txt_0900,x
        sta $0400,x
        inx
        bne loc_0812
        inc $0814
        inc $0817
        lda $0817
        cmp #$08
        bne loc_0810
        lda #$37
        ldx #$17
        ldy #$00
        sty $d020
        nop
        nop
        nop
        sty $d021
        sta $dd00
        stx $d018
        cli
        lda #$1b
        sta $d011
        lda #$80
        sta $0291
        lda #$01

loc_084a:
        sta chr_d800,y
        sta $d900,y
        sta $da00,y
        sta $db00,y
        iny
        bne loc_084a

loc_0859:
        jsr $ffe4
        cmp #$20
        bne loc_0859
        jmp loc_fce2

dat_0863:
        .byte $d5,$c3                               // ..

// --- Region $533d-$533d ---
.pc = $533d "Segment $533d"
        brk

// --- Region $5528-$5528 ---
.pc = $5528 "sub_5528"
// Referenced by: jsr from $ff81

sub_5528:
        brk

// --- Region $ead0-$ead0 ---
.pc = $ead0 "Segment $ead0"
        brk

// --- Region $f9d0-$f9d0 ---
.pc = $f9d0 "Segment $f9d0"
        brk

// --- Region $fce2-$fce2 ---
.pc = $fce2 "loc_fce2"

loc_fce2:
        brk

// --- Region $fd01-$fd43 ---
.pc = $fd01 "loc_fd01"

loc_fd01:
        txs
        ldy #$00

loc_fd04:
        dec $32
        dec $082c

loc_fd09:
        lda ($31),y
        sta dat_fd00,y
        iny
        bne loc_fd09
        lda $32
        cmp #$08
        bne loc_fd04

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

dat_fd23:
        .byte $01,$08,$1a,$fe,$1f,$0b               // ......

loc_fd29:
        lda ($2f),y
        rol
        rol
        rol
        rol
        and #$07
        tax
        lda $011a,x
        sta $0118
        lda ($2f),y
        and #$1f
        tax
        jsr $0122
        jmp $01ff

dat_fd43:
        .byte $a4                                   // .

// --- Region $fd50-$fdbf ---
.pc = $fd50 "loc_fd50"

loc_fd50: