← #93 Top 1024 #95 →
#94

Fairlight [FLT] 10

Fairlight [FLT]

1.197 lines of code

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

History

Released
September 1993
Code
The Alchemist
Music
David Hanlon — "Enlightenment: Druid II" (same as FLT-01)
Charset
Tob
Group
Fairlight — Sweden, founded 14 April 1987

A deliberate callback — The Alchemist coded a new intro but retained David Hanlon's "Enlightenment: Druid II" SID, the same iconic tune from the legendary #2 FLT-01. Using the same music six years later was a statement of brand identity — the "Fairlight tune" had become inseparable from the group itself. Tob contributed the charset. Released in September 1993, this came during Fairlight's later period when The Alchemist was their primary coder. The HVSC preserves the tune. Doc Snyder's page documents the full chronology of Fairlight intros. The decision to reuse rather than replace the Druid II SID — when other groups were commissioning fresh compositions — shows Fairlight understood the power of their audio branding. Few crack intros achieve the status where their music becomes a group signature.

Sources: CSDb · docsnyderspage

flt-10.asm 1.197 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:47
// 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:  $0801 (2049)
//
// Code: 678 bytes, Data: 62810 bytes
// Labels: 103, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0801-$0a6e ---
.pc = $0801 "main_0801"

main_0801:
        sei
        lda #$03
        sta $dd02
        lda #$fe
        sta $d018
        lda #$00
        sta $d011
        sta $dd00
        sta $d020
        jsr $e536
        lda #$35
        sta $01

loc_081e:
        stx $fd
        ldy $0a90,x
        ldx #$04

loc_0825:
        lda $0a92,y
        sta $f8,x
        dey
        dex
        bpl loc_0825
        ldy #$00

loc_0830:
        ldx #$01
        lda ($f8),y
        cmp $fc
        bne loc_084c
        inc $f8
        bne loc_083e
        inc $f9

loc_083e:
        lda ($f8),y
        bne loc_0849
        ldx $fd
        dex
        bpl loc_081e
        bmi loc_085f

loc_0849:
        tax
        lda $fc

loc_084c:
        sta ($fa),y
        inc $fa
        bne loc_0854
        inc $fb

loc_0854:
        dex
        bne loc_084c
        inc $f8
        bne loc_085d
        inc $f9

loc_085d:
        bne loc_0830

loc_085f:
        inx

loc_0860:
        lda $0a9c,y
        sta $fa00,x
        lda $0b1c,y
        sta $fb00,x
        lda #$ff
        sta $fa01,x
        sta $fb01,x
        lda #$08
        sta $d850,y
        sta $d870,y
        cpy #$1e
        bcs $0886
        lda $ff70,y
        sta $d400,y
        inx
        inx
        iny
        bpl loc_0860
        lda #$c7
        sta $fd
        lda #$28
        ldy #$10
        sta $f8
        sty $f9

loc_0897:
        ldy #$02

loc_0899:
        lda $ff20,x
        sta $d022
        lda $ff40,x
        sta $d023
        lda $ff00,x
        sta $d021
        cpy #$02
        bne $08c4
        lda $ff21,x
        sta $d022
        lda $ff41,x
        sta $d023
        lda $ff01,x
        sta $d021
        inx
        bne loc_08c8
        nop
        nop
        nop
        nop

loc_08c8:
        nop
        lda $dc01
        and #$10
        bne loc_08e7
        sei
        ldx #$00
        stx $d011
        stx $d418
        stx $01