← #27 Top 1024 #29 →
#28

Fusion 01

Fusion

1.629 lines of code

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

History

Released
19 May 1988
Music
Noisy Pillars (tune 1) by Jeroen Tel
Group
Fusion — United Kingdom, founded October 1987

Ranked #28 on intros.c64.org, this is the signature Fusion release — catalogued on CSDb as "Fusion Intro" and dated 19 May 1988. The only credit CSDb attaches is Jeroen Tel for the music, the tune being "Noisy Pillars (tune 1)," preserved in the HVSC under Tel's composer directory. Doc Snyder's verified section for this intro confirms the music credit and names no coder or graphics artist either. The scrolltext announces a crack of Vixen by Martech, "cracked and trained on 20.5.88... imported into the US by INC," and greets Abyss, TS, ESI, Fairlight, Triad, Orion, Jewels, Last Science, Sharks and INXS among many others. Fusion were founded in the United Kingdom in October 1987, making this intro roughly seven months into the group's existence.

Sources: CSDb · docsnyderspage

fusion-01.asm 1.629 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0800  End: $220e  (6671 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2200 (8704)
// IRQ handler:  $1e06 (irq_1e06)
//
// Code: 1519 bytes, Data: 5152 bytes
// Labels: 169, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $1180-$1410 ---
.pc = $1180 "sub_1180"
// Referenced by: jsr from $124e, $12f3, $1300, $130c

sub_1180:
        tya
        sta $101c,x
// Referenced by: jsr from $127f

sub_1184:
        lda $106e,y
        sta $d401,x
        sta $1033,x
        lda $10cd,y
        sta $d400,x
        sta $1032,x
        rts

// Referenced by: jsr from $1394
sub_1197: {
        lda #$01
        sta $1047,x
loop:
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne skip1
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc skip2
skip1:
        cmp #$01
        bne skip2
        lda #$00
        sta $1000
        rts
skip2:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $102f,x
        tay
        clc
        adc #$02
        sta $102f,x
        lda ($fb),y
        cmp #$00
        bne skip3
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp $119c
skip3:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        sta $1004,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $1059,x
        sta $fb
        lda $105a
        sta $fc
        lda #$00
        sta $d404,x
        sta $d402,x
        sta $1034,x
        lda ($fb),y
        iny
        sta $d403,x
        sta $1035,x
        and #$f0
        sta $1003,x
        lda ($fb),y
        iny
        sta $1005,x
        lda ($fb),y
        iny
        sta $d405,x
        lda ($fb),y
        iny
        sta $d406,x
        lda ($fb),y
        iny
        sta $101a,x
        lda ($fb),y
        iny
        sta $1007,x
        lda ($fb),y
        iny
        sta $1046,x
        lda ($fb),y
        iny
        sta $1008,x
        ldy $101c,x
        jsr sub_1180
        lda $1033,x
        sta $1049,x
        lda $1032,x
        sta $1048,x
        lda $1005,x
        sta $d404,x
        lda #$00
        sta $1009,x
        sta $1006,x
        rts
}
// Referenced by: jsr from $1384

sub_126c:
        inc $1006,x
        lda $1006,x