← #775 Top 1024 #777 →
#776

Genesis Project [G*P] 86

Genesis Project [G*P]

3.367 lines of code

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

History

Group
Genesis Project -- Sweden, founded late 1985

This intro represents one of the many productions from Genesis Project -- described by CSDb as "one of the most well known and productive C64 cracking groups of all time." Founded in late 1985 by The Nasty Ounk, Catman, and The Nauseating Timelord, G*P has accumulated a staggering 2,682 documented releases on CSDb, earning a group rating of 9.1/10. The group's mottos -- "Accept No Limits" and "Europe's No. 1" -- reflect its ambition and longevity. Doc Snyder's page documents an extensive series of G*P intros featuring contributors like Mermaid (Vanja Utne), Zyron (Johan Astrand), Scrap, Dr. Science, and many others. A comprehensive history covering 1986--2016 was published in Vandalism News #65. The group remains active decades after its founding, maintaining BBS headquarters and organizing events such as Datastorm, Gubbdata, and Fjaelldata. Without a confirmed CSDb release match for this specific intro, precise credits remain uncertain, but it belongs to G*P's vast catalogue of crack intros spanning over three decades of continuous activity.

Sources: intros.c64.org · docsnyderspage

gp-86.asm 3.367 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:45
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $dbe7  (54504 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $3400 (13312)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2867 bytes, Data: 51637 bytes
// Labels: 414, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3409

sub_1000:
        jmp loc_109c
// Referenced by: jsr from $34be

sub_1003:
        jmp loc_10a0

spr_1006:
        // === Sprite data (1 bytes, $1006-$1006) ===
        .byte $b9

// --- Region $109c-$134c ---
.pc = $109c "loc_109c"

loc_109c:
        sta smc_10a3                                // SMC: modifies $10a3
        rts

loc_10a0:
        ldx #$00
.label smc_10a3 = * + 1
        ldy #$00                                    // !SMC: modified by $109c, $10b8
        bmi loc_10d6
        txa
        ldx #$29

loc_10a9:
        sta $1362,x
        dex
        bpl loc_10a9
        sta $d415
        sta $1125
        sta $10d7
        stx smc_10a3                                // SMC: modifies $10a3
        tax
        jsr sub_10c6
        ldx #$07
        jsr sub_10c6
        ldx #$0e
// Referenced by: jsr from $10bc, $10c1

sub_10c6:
        lda #$05
        sta $138e,x
        lda #$01
        sta $138f,x
        sta dat_1391,x
        jmp loc_1343

loc_10d6:
        ldy #$00
        beq loc_111f

loc_10da:
        lda #$00
        bne $1101
        lda $14e8,y
        beq loc_10f5
        bpl loc_10fe
        asl
        sta $112a
        lda $14f2,y
        sta $1125
        lda $14e9,y
        bne loc_1113
        iny

loc_10f5:
        lda $14f2,y
        sta $1120
        jmp loc_1110

loc_10fe:
        sta $10db
        lda $14f2,y
        clc
        adc $1120
        sta $1120
        dec $10db
        bne loc_1121

loc_1110:
        lda $14e9,y

loc_1113:
        cmp #$ff
        iny
        tya
        bcc loc_111c
        lda $14f2,y

loc_111c:
        sta $10d7

loc_111f:
        lda #$00

loc_1121:
        sta $d416
        lda #$00
        sta $d417
        lda #$00
        ora #$0f
        sta $d418
        jsr sub_113a
        ldx #$07
        jsr sub_113a
        ldx #$0e
// Referenced by: jsr from $1130, $1135

sub_113a:
        dec $138f,x
        beq loc_114a
        bpl loc_1147
        lda $138e,x
        sta $138f,x

loc_1147:
        jmp loc_11eb

loc_114a:
        ldy $1367,x
        lda dat_134d,y
        sta $11e0
        sta $11e9
        lda $1365,x