← #244 Top 1024 #246 →
#245

Fusion 02

Fusion

3.710 lines of code

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

History

Released
28 April 1988
Music
Jeroen Tel — "Noisy Pillars" (tune 1)
Group
Fusion — United Kingdom, founded October 1987

Fusion's second catalogued crack intro, released on 28 April 1988, uses the first tune from Jeroen Tel's "Noisy Pillars" — one of Tel's well-known SID compositions preserved in the HVSC. No individual code or graphics credits have been documented on CSDb for this particular entry. The scrolltext identifies this as a crack of "Shanghai Karate" and notes the intro was produced by "the only member of Fusion with a workable drive," a humorous nod to the hardware reliability issues that plagued sceners. Fusion was a British group founded in October 1987, and their greetings list — including Fairlight, Triad, Orion, and F4CG — places them squarely in the top tier of European cracking circles. Doc Snyder's page documents four Fusion intros with credits spanning coders like Ian and The Tex. This intro shares its music source with #53 Fusion 01, both drawing from Tel's "Noisy Pillars."

Sources: CSDb · docsnyderspage

fusion-02.asm 3.710 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:21
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with NSU Packer 1.1 — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1000 (4096)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $c021 (irq_c021)
// IRQ handler:  $c046 (irq_c046)
// IRQ handler:  $c52b (irq_c52b)
//
// Code: 3754 bytes, Data: 59733 bytes
// Labels: 408, Subroutines: 28
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $080f-$081f ---
.pc = $080f "Program $080f"
        .byte $ff,$9a,$a2                           // isc $a29a,x // ILLEGAL
.label loc_0813 = * + 1
        eor #$bd
        asl $9508,x
        brk
        dex
        bne loc_0813
        ldy #$3e
        jmp $0037

// --- Region $0f20-$0f24 ---
.pc = $0f20 "Program $0f20"
        php
        ora ($00),y
        inx
        brk

// --- Region $1000-$1005 ---
.pc = $1000 "main_1000"
// Referenced by: jsr from $1f54, $c7ce

main_1000:
        jmp loc_1a34
// Referenced by: jsr from $c54a

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
.label loc_1051 = * + 1
        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
.label loc_106d = * + 1
        bmi loc_1074
        jmp loc_1183

loc_1071:
        jmp loc_1193

loc_1074:
        ldy dat_1a93,x
        lda ($fb),y
        cmp #$fe
        beq loc_1092
        cmp #$ff
        bne loc_109a
        lda #$00
        sta $1a99,x
        sta dat_1a93,x
        sta $1a96,x
        sta dat_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 dat_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