History
- Released
- 25 April 1988
- Code
- Mr. Cursor
- Graphics
- Rex
- Music
- Future Freak (Kim Christensen) — "Cooperation Demo" (ripped)
- Group
- Ikari — United Kingdom
CSDb catalogues this as an Ikari Intro released 25 April 1988, with Mr. Cursor credited for code, Rex for graphics, and Future Freak (Kim Christensen) for the music — the "Cooperation Demo" tune preserved in the HVSC. Notably, CSDb lists the release under The Wanderer Group (group ID 700), suggesting Mr. Cursor may have coded this intro while affiliated with TWG before or during his work with Ikari. Mr. Cursor was a prolific intro coder whose work appeared across multiple groups. Ikari, based in the United Kingdom with the slogan "For the best — trade with the best," were among the most prominent C64 cracking groups of the late 1980s. The group's extensive catalogue includes numerous higher-ranked intros such as #48 Ikari-01. Doc Snyder's page documents over a dozen Ikari intros, confirming their sustained and prolific output across multiple years.
Sources: CSDb · intros.c64.org · docsnyderspage
// ============================================ // output - Part 1 of 2 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:19 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $2919 (8474 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $1000 (4096) // IRQ handler: $1300 (irq_1300) // IRQ handler: $ea31 (irq_ea31) // // Code: 1404 bytes, Data: 7070 bytes // Labels: 158, Subroutines: 9 // // Cross-references: all OK // ============================================ // --- Region $1000-$1036 --- .pc = $1000 "main_1000" main_1000: lda #$93 jsr $ffd2 lda $3fff sta $07ff lda #$00 sta $3fff sei lda #$35 sta $01 lda #$00 sta $fffe lda #$13 sta $ffff ldx #$01 stx $d01a stx $dc0d stx $d011 lda #$39 sta $d012 jsr sub_1100 cli loc_1033: .label smc_1034 = * + 1 jmp loc_1033 // !SMC: modified by $12e9 dat_1036: .byte $a9 // . // --- Region $1100-$11b3 --- .pc = $1100 "sub_1100" // Referenced by: jsr from $102f sub_1100: lda #$00 sta smc_1311 // SMC: modifies $1311 sta smc_133e // SMC: modifies $133e sta $6f sta $80 sta $83 sta $84 lda #$e6 sta smc_176a // SMC: modifies $176a sta smc_17cf // SMC: modifies $17cf sta smc_17f5 // SMC: modifies $17f5 sta smc_1841 // SMC: modifies $1841 lda #$38 sta $d016 ldy #$00 lda #$09 loc_1127: sta $d800,y sta $d900,y iny bne loc_1127 ldy #$1f loc_1132: lda $14d0,y sta $0200,y dey bpl loc_1132 jsr sub_1200 ldy #$00 loc_1140: clc tya adc #$80 sta $02c0,y iny cpy #$2b bne loc_1140 ldy #$00 ldx #$00 stx $fa stx $fc lda #$20 sta $fb lda #$08 sta $fd loc_115c: lda ($fa),y sta ($fc),y iny bne loc_115c inc $fb inc $fd inx cpx #$08 bne loc_115c lda #$13 sta $d018 lda #$0f sta $d022 lda #$01 sta $05a0 ora #$40 sta $05a1 ldy #$27 loc_1182: lda #$01 sta $d990,y lda #$00 sta $d9e0,y dey bpl loc_1182 ldy #$00 loc_1191: lda $1530,y sta $0100,y iny cpy #$60 bne loc_1191 ldy #$00 ldx #$00 loc_11a0: lda $1fe0,y sta $0590,x inx