← #30 Top 1024 #32 →
#31

Ikari 14

Ikari

4.495 lines of code

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

History

Released
18 November 1988
Charset
Fletch
Music
Tunes by Jeroen Soede, Hayes, JCH, Jeroen Tel and EVS
Group
Ikari — United Kingdom, founded July 1987

Ranked #31 on intros.c64.org, this Ikari release is catalogued on CSDb as "Ikari Intro" and dated 18 November 1988. Fletch produced the charset, but CSDb attaches no code or graphics credit to the release. The intro is effectively a SID jukebox, cycling through six tunes from five different composers: "Magic Funk" by Jeroen Soede, "The Cat" by Hayes — the handle of Markus Müller — "Savage" by Jeroen Tel, "PCW-Tune '88" by EVS (Edwin van Santen), and two from JCH (Jens-Christian Huus): "She's Just a Maniac" and "Need You Tonight v2." All six tunes are preserved in the HVSC under their composer directories. Doc Snyder's page for Ikari exists but carries no section confirmed to map specifically to this release. The density of top-tier SID composers on a single intro was characteristic of Ikari's mid-1988 output.

Sources: CSDb · docsnyderspage

ikari-14.asm 4.495 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:  $17f0 (6128)
// IRQ handler:  $18ef (irq_18ef)
// IRQ handler:  $1b39 (nmi_1b39)
//
// Code: 4700 bytes, Data: 58788 bytes
// Labels: 460, Subroutines: 23
//
// Cross-references: all OK
// ============================================


// --- Region $09f0-$0a01 ---
.pc = $09f0 "Program $09f0"
        adc $94
        eor ($44),y
        bpl loc_0a37
        .byte $04,$11                               // nop $11 // ILLEGAL
        bit $54
        clc
        bit $58
        plp
        jmp ($0578)

dat_0a01:
        .byte $06                                   // .

// --- Region $0a37-$0a39 ---
.pc = $0a37 "loc_0a37"

loc_0a37:
        ora ($00),y
        brk

// --- Region $0f06-$0f11 ---
.pc = $0f06 "Program $0f06"
        plp
        plp
        plp
        plp
        plp
        plp
        plp
        .byte $27,$27                               // rla $27 // ILLEGAL
        .byte $27,$27                               // rla $27 // ILLEGAL

txt_0f11:
        .text "'"

// --- Region $0ffe-$135e ---
.pc = $0ffe "loc_0ffe"

loc_0ffe:
        plp
        plp
// Referenced by: jsr from $1940, $f61a

sub_1000:
        ldy $71
        bmi loc_100d
        beq loc_1009
        jmp loc_131b

loc_1009:
        sty $d418
        rts

loc_100d:
        ldx #$02

loc_100f:
        jsr sub_102b
        dex
        bpl loc_100f
        dec $51
        bpl loc_101d
        lda #$02
        sta $51

loc_101d:
        lda $72
        sta $d418
        dec $0e
        bpl loc_102a
        lda #$02
        sta $0e

loc_102a:
        rts
// Referenced by: jsr from $100f, $ed65

sub_102b:
        lda $0e
        bne loc_1036
        dec $0b,x
        bne loc_1036
        jmp loc_120c

loc_1036:
        lda $12,x
        bne loc_1056
        lda $1b,x
        ldy dat_135f,x
        stx $fe
        tax
        lda $147a,x
        sta $d404,y
        lda $147c,x
        sta $d405,y
        lda $147d,x
        sta $d406,y
        ldx $fe

loc_1056:
        inc $12,x
        lda $45,x
        bpl loc_1084
        ldy $48,x
        lda $143c,y
        sta $fe
        lda $143f,y
        sta $ff
        ldy $3f,x
        lda ($fe),y
        cmp #$ff
        beq loc_1078
        inc $3f,x
        ldy dat_135f,x
        sta $d404,y

loc_1078:
        ldy $42,x
        lda ($fe),y
        cmp #$80
        beq loc_1084
        inc $42,x
        sta $24,x

loc_1084:
        lda #$10
        clc