#82

Ikari 04

Ikari

1.369 lines of code

RasterbarsRSTRMusicSID

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

ikari-04.asm 1.369 lines
// ============================================
// 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