← #126 Top 1024 #128 →
#127

Genesis Project [G*P] 04

Genesis Project [G*P]

1.844 lines of code

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

History

Released
26 January 1989
Code
Frankieghost
Charset
Mr. Cursor
Group
Genesis Project — founded 1986

CSDb catalogues this as the "Wave Logo Intro" — a visual description hinting at animated effects. Frankieghost coded while Mr. Cursor contributed the charset — his work appearing once again across the German/international scene. Genesis Project (G*P) was founded in 1986, their founding country unlisted on CSDb though their connections to German scene infrastructure are well documented. Released on 26 January 1989, this came during G*P's active cracking period before their later transition to demo and music production. No music is credited. Mr. Cursor's charset appears in multiple Genesis Project intros alongside #188 GP-15, indicating an ongoing collaboration. Doc Snyder's page documents the group. Genesis Project would later become better known for their music collections and demo work than for cracking.

Sources: CSDb · docsnyderspage

gp-04.asm 1.844 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1100 (4352)
// IRQ handler:  $11c3 (irq_11c3)
// IRQ handler:  $1235 (irq_1235)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1277 (irq_1277)
// IRQ handler:  $1293 (irq_1293)
// IRQ handler:  $12b5 (irq_12b5)
// IRQ handler:  $12d1 (irq_12d1)
// IRQ handler:  $1304 (irq_1304)
//
// Code: 1127 bytes, Data: 62361 bytes
// Labels: 235, Subroutines: 4
//
// Cross-references: all OK
// ============================================


// --- Region $1100-$11a5 ---
.pc = $1100 "main_1100"

main_1100:
        jsr $ff5b
        jsr $fda3
        jsr $ff84
        ldx #$00
        txa

loc_110c:
        sta $d400,x
        inx
        bne loc_110c
        lda #$0f
        sta $0286
        jsr $e544
        lda #$00
        sta $d020
        sta $d021
        ldx #$00

loc_1124:
        lda txt_11a5,x
        sta $0405,x
        inx
        cpx #$1e
        bne loc_1124
        ldx #$00

loc_1131:
        lda $1543,x
        sta $06b4,x
        inx
        cpx #$10
        bne loc_1131
        ldx #$00
        txa

loc_113f:
        sta $db98,x
        sta $d800,x
        inx
        cpx #$28
        bne loc_113f
        ldx #$00

loc_114c:
        lda $1586,x
        sta $0754,x
        lda #$00
        sta $db54,x
        inx
        cpx #$10
        bne loc_114c
        ldx #$00

loc_115e:
        lda #$02
        sta $d828,x
        sta $da08,x
        lda #$0a
        sta $d8a0,x
        sta $d990,x
        lda #$0f
        sta $d918,x
        inx
        cpx #$78
        bne loc_115e
        sei
        lda #$c3
        sta $0314
        lda #$11
        sta $0315
        lda #$00
        sta $d012
        lda #$01
        sta $d019
        lda #$1b
        sta $d011
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$12
        sta $d018
        cli

loc_11a2:
        jmp loc_11a2

txt_11a5:
        .encoding "screencode_mixed"
        .text "n"
        .encoding "petscii_upper"

// --- Region $11c3-$151a ---
.pc = $11c3 "irq_11c3"

irq_11c3:
        lda #$01
        sta $d019
        lda #$c8
        sta $d016
        lda $151d
        cmp #$02
        bne loc_11f3
        lda #$00
        sta $151d
        ldx #$88

loc_11db:
        lda $0a00,x
        sta $0a08,x
        dex
        cpx #$ff
        bne loc_11db
        ldx #$00

loc_11e8:
        lda $0a80,x
        sta $0a00,x
        inx