History
- Released
- 29 April 1990
- Code
- Raistlin
- Graphics
- Spacie
- Music
- Drax (Thomas Mogensen) — "Disco Zax"
- Group
- Genesis Project — founded 1986
CSDb titles this the "Blue Pipe Intro" — coded by Raistlin with graphics by Spacie and music by Drax (Thomas Mogensen), whose "Disco Zax" is preserved in the HVSC. Raistlin was one of Genesis Project's earlier coders, while Drax — the celebrated Danish SID composer — contributed to numerous groups across the scene. Released on 29 April 1990, this arrived during Genesis Project's prolific cracking years. The group was founded in 1986 under the tagline "Europe's No. 1" and maintained active output across multiple decades. Doc Snyder's page documents over twenty numbered crack intros spanning coders from the early era through modern contributors like Zyron, Scrap, and Mermaid. The "Blue Pipe" visual motif suggests a distinctive design element in the intro's presentation. Other Genesis Project intros appear at #127 GP-04 and #139 GP-01.
Sources: CSDb · docsnyderspage
// ============================================ // output - Part 1 of 2 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:46 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $3fff (14336 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0820 (2080) // // Code: 1904 bytes, Data: 12432 bytes // Labels: 219, Subroutines: 10 // // Verification: 2 line(s) auto-corrected to .byte for exact byte matching // // Cross-references: all OK // ============================================ // --- Region $080a-$08d4 --- .pc = $080a "loc_080a" loc_080a: bmi loc_0835 jsr $4854 eor $20 lsr $52 eor #$80 .byte $53,$20 // sre ($20),y // ILLEGAL rol $2e2e brk dat_081b: .byte $00,$00,$54,$42,$43 // ..TBC main_0820: ldx #$e9 loc_0822: lda $0832,x sta.abs $00ff,x dex bne loc_0822 loc_082b: sei stx $01 dex txs jmp $0100 dat_0833: .byte $a0,$00 // .. loc_0835: sty $fd sty $fe lda #$bd ldx #$2b sta $ae stx $af lda #$1c ldx #$09 sta $ac stx $ad jsr $0181 lda #$01 ldx #$08 sta $ae stx $af loc_0854: lda ($fd),y cmp #$d1 bne loc_086a lda #$00 pha loc_085d: jsr $01a2 tax pla loc_0862: jsr $01a8 dex bne loc_0862 beq loc_0877 loc_086a: cmp #$cb bne loc_0874 jsr $01a2 pha bne loc_085d loc_0874: jsr $01a8 loc_0877: jsr $01b1 bne loc_0854 ldx $01b8 dex loc_0880: bmi loc_08a6 lda $01b9,x sta $fe sta $2e dex lda $01b9,x sta $fd sta $2d dex lda $01b9,x sta $ad dex lda $01b9,x sta $ac stx $01b8 jsr $0181 jmp $0149 loc_08a6: lda #$37 sta $01 and #$06 cmp #$06 bne $08b1 cli .label loc_08b3 = * + 2 jmp loc_0880 loc_08b4: lda $fd bne loc_08ba dec $fe loc_08ba: dec $fd lda $ae bne loc_08c2 dec $af loc_08c2: dec $ae lda ($ae),y