History
- Code
- Excell
- Music
- Johannes Bjerregaard
- Music
- Leffty
- Music
- JCH (Jens-Christian Huus)
- Music
- Diflex (Markus Schneider)
- Music
- Jeroen Soede
- Music
- EVS (Edwin van Santen)
- Released
- 22 December 1988
- Group
- Ikari [IK] -- United Kingdom, founded July 1987
Ikari Crack Intro #04 is a C64 crack intro released on 22 December 1988 by the British cracking group Ikari. The intro was coded by Excell and features an exceptional multi-tune jukebox with SID compositions from six different musicians: Johannes Bjerregaard ("Chase"), Leffty ("Bangkok Fe"), JCH ("Nilfisk," "Shadow Sun," "Short 'n' Sad," "Revolutionary"), Diflex ("Rhenus Demo '88"), Jeroen Soede ("Funky Stuff"), and EVS ("Popcorn Mix"). CSDb lists nine SID tunes in total, all preserved in the HVSC. This multi-tune format -- offering users a selectable music menu -- was a hallmark of Ikari's premium intros. The sheer number of composers represented demonstrates the group's extensive network across the Dutch and Danish SID music scenes. Ikari was founded in July 1987 in the UK. The release is preserved on CSDb as release #53886, verified through the Doc Snyder link.
Sources: CSDb · CSDb Group · intros.c64.org · Doc Snyder
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:24 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $1ffe (6143 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0813 (2067) // IRQ handler: $086a (irq_086a) // IRQ handler: $ea31 (irq_ea31) // // Code: 1644 bytes, Data: 4499 bytes // Labels: 149, Subroutines: 2 // // Cross-references: all OK // ============================================ // --- Region $0813-$08f3 --- .pc = $0813 "main_0813" main_0813: { sei lda #$7f sta $dc0d ldx #$00 stx $dc0e inx stx $d01a lda #$d8 sta $d016 lda #$1b sta $d011 ldx #$00 loop: lda dat_1900,x sta $0400,x lda $1a00,x sta $0500,x lda $1b00,x sta $0600,x lda $1bf0,x sta $06f0,x lda #$08 sta $d800,x sta $d900,x sta $da00,x sta $db00,x dex bne loop lda #$6a sta $0314 lda #$08 sta $0315 lda #$13 sta $d018 cli jmp $0867 } irq_086a: lda #$32 sta $d012 ldx #$06 loc_0871: dex bne loc_0871 ldx #$00 loc_0876: ldy #$08 lda $0900,x loc_087b: sta $d021 sta $d020 inx dey beq loc_0876 cpx #$90 bcs $0898 jsr sub_0a88 lda $0a00,x sta $d023 lda $0900,x clc bcc loc_087b lda #$01 sta $d019 ldy $0989 ldx #$83 loc_08a2: lda $0907,x sta $0908,x dex bne loc_08a2 sty $0908 ldy $0a08 ldx #$00 loc_08b3: lda $0a09,x sta $0a08,x inx cpx #$7d bne loc_08b3 sty $0a83 ldy $0997 ldx #$00 loc_08c6: lda $0998,x sta $0997,x inx cpx #$18 bne loc_08c6 sty $09ad inc $08ff ldx $08ff lda $0a98,x sta $d022 lda $08ff cmp #$57 bne loc_08ec lda #$00 sta $08ff loc_08ec: jsr sub_177b jmp loc_0d30 dat_08f2: // === Sine/lookup table (190 bytes, range $00-$30) === .byte $00,$00 // .. // --- Region $0a88-$0a90 --- .pc = $0a88 "sub_0a88" // Referenced by: jsr from $0889 sub_0a88: nop nop nop nop nop nop