← #207 Top 1024 #209 →
#208

Fusion 03

Fusion

3.884 lines of code

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

History

Code
Ian
Music
Red (Jeroen Kimmel)
Released
16 January 1988
Group
Fusion [FS] -- United Kingdom, founded October 1987

Fusion Crack Intro #03 -- described on CSDb as "the legendary" -- is a C64 crack intro released on 16 January 1988 by the British cracking group Fusion. The intro was coded by Ian and features music by Red (Jeroen Kimmel), using his "Rhaa Lovely II (tune 2)" SID composition, as confirmed by both CSDb and Doc Snyder. This particular tune became closely associated with Fusion and is one of the group's most recognizable audio signatures. The scrolltext announces a crack of "U.C.M." with greetings to Triad, Fairlight, The Dominators, Ace, Tau, Radwar Surprises, F4CG, TPI, Beasties, Wanderer Group, FAC, and Hotline. Fusion was founded in October 1987 in the United Kingdom under the motto "Man and Machine." The release is preserved on CSDb as release #58116, verified through the Doc Snyder link. Also ranked: #28 Fusion Intro #1 and #645 Fusion Intro #4.

Sources: CSDb · CSDb Group · intros.c64.org · Doc Snyder

fusion-03.asm 3.884 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:22
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1d00 (7424)
// IRQ handler:  $1db0 (irq_1db0)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1f8d (irq_1f8d)
// IRQ handler:  $1e00 (irq_1e00)
// IRQ handler:  $1f28 (irq_1f28)
//
// Code: 4667 bytes, Data: 58821 bytes
// Labels: 387, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1005 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1d6a, $fa77

sub_1000:
        jmp loc_1a34
// Referenced by: jsr from $1f92

sub_1003:
        jmp loc_1a18

// --- Region $103e-$15a5 ---
.pc = $103e "loc_103e"

loc_103e:
        ldx #$02
        dec $1ae5
        bpl loc_104b
        lda dat_1a8f
        sta $1ae5

loc_104b:
        bit $d020
        stx $ff
        lda $1a90,x
        sta $1ac8
        tay
        lda $1ae5
        cmp dat_1a8f
        bne loc_1071
        lda $1758,x
        sta $fb
        lda $175b,x
        sta $fc
        dec $1a99,x
        bmi loc_1074
        jmp loc_1183

loc_1071:
        jmp loc_1193

loc_1074:
        ldy $1a93,x
        lda ($fb),y
        cmp #$fe
        beq loc_1092
        cmp #$ff
        bne loc_109a
        lda #$00
        sta $1a99,x
        sta $1a93,x
        sta $1a96,x
        sta $1ae4
        jmp loc_1074

loc_1092:
        lda #$02
        sta $1ae6
        jmp loc_1a83

loc_109a:
        sta $1ad9
        and #$80
        beq loc_10af
        lda $1ad9
        and #$1f
        sta $1ac1,x
        inc $1a93,x
        jmp loc_1074

loc_10af:
        lda $1ad9
        asl
        tay
        lda $175e,y
        sta $fd
        lda $175f,y
        sta $fe
        lda #$00
        sta $1ab1,x
        ldy $1a96,x
        sta $1ab4,x
        lda #$03
        sta $1ad3,x
        lda ($fd),y
        sta $1a9c,x
        sta $1ad8
        and #$7f
        sta $1a99,x
        inc $1a96,x
        lda $1ad8
        bpl loc_10f4
        iny
        lda ($fd),y
        bpl loc_10ee
        sta $1ab1,x
        jmp loc_10f1

loc_10ee:
        sta $1aa5,x

loc_10f1:
        inc $1a96,x

loc_10f4:
        iny
        lda ($fd),y
        clc
        adc $1ac1,x
        sta $1aa2,x
        tay
        lda dat_15a6,y
        pha
        lda $1606,y
        ldy $1ac8
        sta $d401,y
        sta $1aa8,x
        sta $1aab,x
        pla
        sta $d400,y
        sta $1aae,x
        lda $1aa5,x
        asl
        asl
        asl
        tax