← #644 Top 1024 #646 →
#645

Fusion 04

Fusion

3.633 lines of code

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

History

Code
The Tex
Graphics
The Tex
Music
Marc Buttery
Released
10 February 1988
Group
Fusion [FS] -- United Kingdom, founded October 1987

Fusion Crack Intro #04 is a C64 crack intro released on 10 February 1988 by the British cracking group Fusion. The intro was coded and graphically designed by The Tex, with music by Marc Buttery using his "Brummen" SID composition, as confirmed by Doc Snyder. The CSDb release credits The Tex for code and graphics under group name Safecrackers, though Doc Snyder clearly attributes this intro to Fusion. The scrolltext announces an import of "Power at Sea" by Fusion dated 13 February 1988, with greetings to Triad, Fairlight, Dominators, Orion, Wanderer Group, Tau, Radwar, Ace, F4CG, TPI, Zenith, Razor Exprezz, and Axios. Fusion was founded in October 1987 in the United Kingdom and used the motto "Man and Machine." The release is preserved on CSDb as release #85427, verified through the Doc Snyder link. Also ranked: #28 Fusion Intro #1 and #208 Fusion Intro #3.

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

fusion-04.asm 3.633 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:43
// 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:  $11fb (4603)
// IRQ handler:  $1006 (irq_1006)
//
// Code: 3721 bytes, Data: 59767 bytes
// Labels: 368, Subroutines: 15
//
// Cross-references: all OK
// ============================================


// --- Region $0840-$0868 ---
.pc = $0840 "loc_0840"

loc_0840:
        ldx #$10

loc_0842:
        lda $f0,x
        sta $02a7,x
        dex
        bpl loc_0842
        nop
        nop
        nop
        nop
        nop
        nop
        lda #$36
        sta $01
        jsr sub_c125
        lda #$37
        sta $01
        nop
        ldx #$10

loc_085e:
        lda $02a7,x
        sta $f0,x
        dex
        bpl loc_085e
        jmp loc_ea31

// --- Region $0ad0-$0ad0 ---
.pc = $0ad0 "Program $0ad0"
        brk

// --- Region $0d60-$0d81 ---
.pc = $0d60 "sub_0d60"
// Referenced by: jsr from $1261, $ef88

sub_0d60:
        lda #$03
        jsr sub_c000
        ldx #$00

loc_0d67:
        ldy #$00

loc_0d69:
        inc $0351
        inc $0352
        inc $0353
        dey
        bne loc_0d69
        inc $0351
        inc $0352
        inc $0353
        dex
        bne loc_0d67
        rts

// --- Region $1000-$1165 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1243, $ef6a

sub_1000:
        jsr sub_10bb
        jmp loc_103e

irq_1006:
        lda $d019
        and #$01
        bne loc_1010
        jmp loc_ea31

loc_1010:
        sta $d019
        lda $d012
        bpl loc_1028
        lda $d011
        nop
        nop
        sta $d011
        lda #$20
        sta $d012
        jmp loc_0840

loc_1028:
        lda $d011
        ora #$08
        sta $d011
        lda #$f9
        sta $d012
        jsr sub_1152
        jsr sub_1152
        jmp loc_ea31

loc_103e:
        sei
        lda #$00
        sta $dc0e
        lda #$06
        sta $0314
        lda #$10
        sta $0315
        lda $d011
        and #$7f
        sta $d011
        lda #$3c
        sta $d012
        lda #$81
        sta $d01a
        lda $d019
        sta $d019
        cli
        rts

// Referenced by: jsr from $1162, $eef5
sub_1068: {
        ldx #$00
loop:
        clc
        rol $0fc2,x
        rol $0fc1,x
        rol $0fc0,x
        rol $0f82,x
        rol $0f81,x
        rol $0f80,x
        rol $0f42,x
        rol $0f41,x