← #380 Top 1024 #382 →
#381

Genesis Project [G*P] 13

Genesis Project [G*P]

4.507 lines of code

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

History

Code
Alf
Code
Spike
Music
Technic (Jesper Olsen)
Released
1988
Group
Genesis Project [G*P] -- Germany, founded 1986

Genesis Project Crack Intro #13 -- titled the "Alf & Spike Intro" on CSDb -- is a C64 crack intro released in 1988 by the German cracking group Genesis Project. The intro was jointly coded by Alf and Spike, with music by Technic (Jesper Olsen) using his "Busy Scene" SID composition, preserved in the HVSC under the JO directory. On CSDb, the music credit lists the handle as Technic rather than the more commonly seen JO, though both refer to the same musician, Jesper Olsen. Doc Snyder's page does not include a detailed entry for this particular intro number, but the CSDb release confirms the credits. Genesis Project was founded in 1986 and built an extensive catalogue of crack intros with a deep roster of contributors. The release is preserved on CSDb as release #110406, verified through the Doc Snyder link.

Sources: CSDb · CSDb Group · intros.c64.org · Doc Snyder

gp-13.asm 4.507 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:44
// 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:  $0c00 (3072)
//
// Code: 4469 bytes, Data: 59019 bytes
// Labels: 389, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0d00 ---
.pc = $0c00 "main_0c00"

main_0c00:
        sei
        lda #$00
        sta $d020
        sta $d021
        sta $0314
        lda #$3b
        sta $d011
        lda #$32
        sta $d012
        lda #$d0
        sta $d016
        lda #$18
        sta $d018
        lda #$03
        sta $dd00
        lda #$0d
        sta $0315
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$00
        ldx #$00

loc_0c38:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $dae8,x
        sta $0380,x
        sta $0480,x
        sta $0580,x
        sta $0680,x
        sta $0780,x
        sta $0880,x
        sta $0980,x
        sta $0a80,x
        sta $0b00,x
        dex
        bne loc_0c38
        jsr sub_1000
        lda #$11
        sta $52
        lda #$3b
        ldx #$20
        sta $0b
        stx $0a
        lda #$0d
        sta $12
        lda #$ff
        sta $d015
        ldx #$07
        lda #$01

loc_0c7e:
        sta $d027,x
        dex
        bpl loc_0c7e
        ldx #$11

loc_0c86:
        lda $24a0,x
        sta $40,x
        dex
        bpl loc_0c86
        cli

loc_0c8f:
        lda $05
        clc
        adc #$01
        and #$3f
        sta $05
        lda #$00
        sta $11

loc_0c9c:
        ldx $11
        clc
        lda $24c0,x
        sta $20
        sta $22
        sta $24
        lda #$00
        adc $24d0,x
        sta $21
        eor #$dc
        sta $23
        eor #$e0
        sta $25
        jsr sub_2520
        inc $11
        lda $11
        cmp #$10
        bne loc_0c9c
        lda #$a0

loc_0cc4:
        cmp $d012
        bne loc_0cc4
        lda #$00
        sta $11

loc_0ccd:
        ldx $11
        clc
        lda #$10
        adc $24c0,x
        sta $20
        sta $22
        sta $24
        lda #$00
        adc $24d0,x
        sta $21
        eor #$dc
        sta $23
        eor #$e0
        sta $25
        jsr sub_2520
        inc $11
        lda $11
        cmp #$10
        bne loc_0ccd
        lda #$a0

loc_0cf7:
        cmp $d012