History
- Released
- 10 February 1988
- Group
- Fusion -- United Kingdom, founded October 1987
CSDb confirms this intro was coded and illustrated by The Tex, with Marc Buttery's "Brummen" providing the ripped music. Doc Snyder's page documents this as Fusion's Crack Intro #04. Fusion was a British cracking group founded in October 1987 by Ian and Mick, operating under the motto "Man and Machine" until dissolving in January 1989. The group's name reportedly derived from a newspaper article about horse racing -- a horse that finished last in a race. Released on 10 February 1988, this intro accompanied a crack of "Power at Sea," with the scrolltext sending greetings to Triad, Fairlight, Dominators, Orion, The Wanderer Group, TAU, Radwar, ACE, F4CG, TPI, and Zenith. Fusion produced 411 documented releases during its brief existence. This is one of several Fusion entries in the collection, alongside the highly ranked #28 fusion-01. Fusion's exclusive modem-trading arrangement with Rowdy American Distributors connected the British and American scenes.
Sources: CSDb · docsnyderspage
// ============================================ // 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: $0801 End: $1551 (3409 bytes) // Entry point: $080d (via BASIC SYS 2061) // IRQ handler: $ea31 (irq_ea31) // IRQ handler: $c021 (irq_c021) // IRQ handler: $c52b (irq_c52b) // // Code: 982 bytes, Data: 2427 bytes // Labels: 148, Subroutines: 5 // // Cross-references: all OK // ============================================ // --- Region $080d-$086d --- .pc = $080d "main_080d" main_080d: jsr $ff5b dex stx $d020 stx $d021 ldy #$28 loc_0819: lda #$01 sta $d7ff,y lda $0853,y sta $03ff,y dey bne loc_0819 sei sty $01 ldx #$07 loc_082c: lda $08cd,x sta $2d,x dex bpl loc_082c txs loc_0835: lda $08d5,y sta.abs $00f7,y iny bne loc_0835 ldx #$0c loc_0840: dec $0848 dec $084b loc_0846: lda $1552,y sta.abs $0000,y iny bne loc_0846 dex bne loc_0840 beq loc_0881 jsr $2020 jsr $2020 jsr $2020 php .byte $14,$14 // nop $14,x // ILLEGAL bpl loc_089c .byte $2f,$2f,$09 // rla $092f // ILLEGAL asl $1214 .byte $0f,$13,$2e // slo $2e13 // ILLEGAL .byte $03,$36 // slo ($36,x) // ILLEGAL dat_086d: .byte $34 // 4 // --- Region $087c-$08e1 --- .pc = $087c "loc_087c" loc_087c: lda #$f8 loc_087e: jsr $00fa loc_0881: jsr $010d cmp #$f8 beq loc_08a0 ldx $30 bne loc_087e loc_088c: lda $f2af,y sta ($2d),y iny bne loc_088c loc_0894: lda $31,x sta $2d,x inx cpx #$04 .label loc_089c = * + 1 bne loc_0894 jmp $0127 loc_08a0: jsr $010d beq loc_087c pha and #$c0 sta $f9 pla and #$3f sta $0f loc_08af: sty $0e ldx #$03 loc_08b3: jsr $010d lsr rol $0e lsr rol $0e jsr $00f7 dex bne loc_08b3 lda $0e jsr $00f7 dec $0f bne loc_08af beq loc_0881 .byte $af,$f2,$24 // lax $24f2 // ILLEGAL .byte $f4,$00 // nop $00,x // ILLEGAL inx ldx $18f3 adc #$00 sta ($2d),y inc $2d bne loc_08e0 inc $2e