← #42 Top 1024 #44 →
#43

Ikari 15

Ikari

2.348 lines of code

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

History

Released
25 April 1988
Music
Ikari Union by Jeroen Tel; Koekoek by Charles Deenen
Group
Ikari — United Kingdom, founded July 1987

Ranked #43 on intros.c64.org, this Ikari release is catalogued on CSDb as "Ikari Intro" and dated 25 April 1988. CSDb lists two music credits: Jeroen Tel for the tune "Ikari Union" and Charles Deenen for "Koekoek." Both tunes are preserved in the HVSC under their composer directories. CSDb does not attach code, graphics or charset credits to this release, and Doc Snyder's page for Ikari carries no section confirmed to match this specific intro. The combination of two Dutch composers on a single UK release is characteristic of Ikari's wider musical network.

Sources: CSDb · docsnyderspage

ikari-15.asm 2.348 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: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1a00 (6656)
// IRQ handler:  $0900 (irq_0900)
// IRQ handler:  $1029 (irq_1029)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2142 bytes, Data: 61346 bytes
// Labels: 233, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$08be ---
.pc = $0810 "loc_0810"

loc_0810:
        sei
        lda #$1b
        sta $d011
        lda #$7f
        sta $dc0d
        lda #$09
        sta $0315
        lda #$00
        sta $0314
        lda #$01
        sta $d01a
        sta $d019
        ldx #$00

loc_082f:
        lda dat_2200,x
        sta $0400,x
        lda $2300,x
        sta $0500,x
        lda $2400,x
        sta $0600,x
        lda $2500,x
        sta $0700,x
        lda #$00
        sta $d800,x
        sta $d900,x
        dex
        bne loc_082f
        lda #$ff
        sta $d015
        sta $d01c
        lda #$09
        sta $d025
        lda #$07
        sta $d026
        lda #$d3
        ldx #$00

loc_0868:
        sta $d001,x
        inx
        inx
        cpx #$10
        bne loc_0868
        ldx #$98
        stx $07fe
        inx
        stx $07ff
        stx $07fb
        inx
        stx $07fd
        inx
        stx $07fc
        inx
        stx $07fa
        inx
        stx $07f9
        nop
        stx $07f8
        lda #$08
        ldx #$00

loc_0895:
        sta $d027,x
        inx
        cpx #$08
        bne loc_0895
        ldx #$00

loc_089f:
        lda $2c00,x
        sta $d800,x
        lda $2d00,x
        sta $d900,x
        lda $2e00,x
        sta $da00,x
        lda $2f00,x
        sta $db00,x
        dex
        bne loc_089f
        cli

loc_08bb:
        jmp loc_08bb

dat_08be:
        // === Fill data (1 bytes, $08be-$08be) ===
        .byte $00                                   // .

// --- Region $0900-$098f ---
.pc = $0900 "irq_0900"

irq_0900:
        sei
        lda $d019
        sta $d019
        nop
        ldx #$02

loc_090a:
        dex
        bne loc_090a
        inc $08ff
        lda $08ff
        cmp #$02
        bne loc_091f
        lda #$00
        sta $08ff
        jmp loc_0a00

loc_091f:
        lda #$35
        sta $d012
        lda #$5a
        sta $d011
        lda #$1b
        sta $d018
        lda #$c8
        sta $d016
        ldy dat_1e03
        ldx #$00

loc_0938:
        lda $1e04,x