#887

Fire Eagle+Genesis Project 06

Fire Eagle+Genesis Project

2.598 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
2 January 1989
Code
Olle
Graphics
Hires
Music
Invisible -- "Sex Games Preview (tune 4)"
Group
Fire Eagle & Genesis Project -- founded 1986

A cooperative intro between Fire Eagle and Genesis Project, released on 2 January 1989. CSDb titles it the "Olle & Hires Intro," crediting the two primary contributors by name -- Olle on code and Hires on graphics. The music is Invisible's "Sex Games Preview (tune 4)," composed jointly with Zephir and preserved in the HVSC. Genesis Project was founded in 1986 and became one of the most enduring Swedish cracking operations, with numerous intros across the ranking including #243 GP-01. Fire Eagle was another group from the same era, also represented at #310 FE-02. The January 1989 release date places this cooperation at the height of the C64 cracking scene's golden age. Comments on intros.c64.org from Shine and Rough acknowledge the intro's place in the groups' collaborative history. The cooperative format signals the alliance between these two groups during a period of intense inter-group networking.

Sources: CSDb

fe_gp-06.asm 2.598 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:41
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $37ff  (12288 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1680 (5760)
// IRQ handler:  $10eb (irq_10eb)
// IRQ handler:  $111a (irq_111a)
// IRQ handler:  $1161 (irq_1161)
//
// Code: 2694 bytes, Data: 9594 bytes
// Labels: 250, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1241 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1681

sub_1000:
        sei
        jsr sub_1481
        lda #$02
        sta dat_13e8
        lda #$12
        sta $d018
        lda #$00
        sta $d022
        lda #$00
        sta $d023
        lda #$d8
        sta $d016
        lda #$03
        sta $d015
        lda #$00
        sta $d027
        sta $d028
        lda #$f5
        sta $d001
        sta $d003
        lda #$20
        sta $d000
        clc
        adc #$18
        sta $d002
        lda #$3e
        sta $07f8
        lda #$3f
        sta $07f9
        lda #$00
        sta $d020
        sta $d021
        lda #$71
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$eb
        sta $0314
        lda #$10
        sta $0315
        lda #$62
        sta $d012
        lda #$0b
        sta $d011
        ldy #$00

loc_106f:
        lda #$08
        sta $d900,y
        sta $da00,y
        lda #$01
        sta $0540,y
        sta $0600,y
        iny
        bne loc_106f
        lda #$00
        jsr sub_1800
        lda #$10
        sta smc_1834                                // SMC: modifies $1834
        lda #$00
        sta dat_1242
        sta $1252
        sta $1262
        lda $dc0d
        cli
        jsr sub_1446
        lda dat_10e8
        sta smc_1142                                // SMC: modifies $1142
        lda $10e9
        sta smc_1143                                // SMC: modifies $1143
        lda $10ea
        sta smc_1144                                // SMC: modifies $1144
        lda #$03
        sta smc_11ef                                // SMC: modifies $11ef
        lda #$06
        sta dat_1242
        lda #$0b
        sta $1252
        lda #$0e
        sta $1262
        jsr sub_1424
        lda #$0d
        sta $d027
        sta $d028

loc_10cf:
        jsr sub_11e4
        lda $dc01
        cmp #$ef
        bne loc_10cf
        jsr sub_14dd
        sei
        jsr $fda3
        jsr $fd15
        jsr $e518
        cli
        rts

dat_10e8:
        .byte $20,$22,$13                           //  ".

irq_10eb:
        lda #$d8
        sta $d016
        lda #$1b
        sta $d011
        nop
        nop
        inc $d019
        lda #$1a
        sta $0314
        lda #$11
        sta $0315
        lda #$d8
        sta $d012
        ldy #$1a

loc_110b:
        dey
        bpl loc_110b
        nop
        lda #$18
        sta $d018