← #102 Top 1024 #104 →
#103

Fairlight [FLT] 12

Fairlight [FLT]

689 lines of code

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

History

Released
June 1991
Code
Watchman
Graphics
Rowdy
Help
Bacchus
Group
Fairlight — Sweden, founded 14 April 1987

CSDb credits Watchman as coder with Rowdy on graphics and Bacchus providing "Help" — a vague credit that likely indicates technical assistance or debugging. No music is listed, making this an unusual silent Fairlight intro. Released in June 1991, this represents Fairlight's transitional period between the Woodo/Alchemist eras. Rowdy's graphics credit is significant — this is the same Rowdy who confirmed that #3 Dynamic Duo inspired the original Fairlight intro. Bacchus would later become one of Fairlight's most important members in the demo scene era. Doc Snyder's page documents the full Fairlight intro chronology. The absence of music — in a group defined by the Druid II tune — suggests this was either a quick utility intro or a deliberate stylistic departure.

Sources: CSDb · docsnyderspage

flt-12.asm 689 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:22
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $7040 (28736)
//
// Code: 535 bytes, Data: 62952 bytes
// Labels: 57, Subroutines: 4
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $7000-$701c ---
.pc = $7000 "loc_7000"

loc_7000:
        lda #$0f
        jsr $e536
        lda #$0b
        sta $d020
        sta $d021
        ldx #$13

loc_700f:
        lda $701e,x
        sta $0431,x
        dex
        bne loc_700f
        jmp loc_fce2

dat_701b:
        .byte $00,$00                               // ..

// --- Region $7040-$71dd ---
.pc = $7040 "main_7040"

main_7040:
        sei
        jsr $e544
        ldy #$11

loc_7046:
        ldx #$03

loc_7048:
        jsr sub_71d2
        dex
        bpl loc_7048
        lda $73f0,y
        sta $d020
        sta $d021
        dey
        bpl loc_7046
        jsr $e536
        stx $7513
        stx $7515
        dex
        stx $7516
        stx $7514
        txa

loc_706b:
        sta $0400,x
        dex
        bne loc_706b

loc_7071:
        lda $745f,x
        sta $0400,x
        inx
        cpx #$70
        bne loc_7071
        ldy #$0a
        lda #$fe

loc_7080:
        sta $0475,y
        dey
        bpl loc_7080
        ldy #$16

loc_7088:
        lda $741a,y
        sta $04a8,y
        sta $06d8,y
        lda $7431,y
        sta $04d0,y
        sta $0700,y
        lda $7448,y
        sta $04f8,y
        sta $0728,y
        dey
        bpl loc_7088
        ldy #$20

loc_70a8:
        lda $74cf,y
        sta $0543,y
        lda $74f0,y
        sta $0683,y
        lda #$0f
        sta $d943,y
        sta $da83,y
        dey
        bpl loc_70a8
        ldy #$27

loc_70c1:
        lda #$64
        sta $0590,y
        sta $0608,y
        lda #$63
        sta $05b8,y
        sta $0630,y
        dey
        bpl loc_70c1
        jsr sub_7199

loc_70d7:
        lda #$6d
        jsr sub_7517
        lda #$16
        sta $d018
        lda #$8d
        jsr sub_7517
.label smc_70e7 = * + 1
        lda #$00                                    // !SMC: modified by $71ab
        sta $d016
        ldx #$e0

loc_70ed:
        dex
        bne loc_70ed
        lda #$08
        sta $d016
        lda #$c1
        jsr sub_7517
        lda #$10
        sta $d018
        lda #$e0
        jsr sub_7517