#124

Ikari 18

Ikari

3.908 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
7 July 1988
Code
Fletch
Music
JCH (Jens-Christian Huus) — "Orion Copy-Party"
Charset
Excell
Group
Ikari — United Kingdom, founded July 1987

Fletch coded while JCH contributed "Orion Copy-Party" — a composition whose title references one of the scene's legendary gathering events. Excell provided the charset rather than code for this release, showing his versatility across both programming and pixel art. Released on 7 July 1988, exactly one year after Ikari's founding. The HVSC preserves Huus's composition. Doc Snyder's page documents this intro. The copy-party reference in the tune title connects this intro to the physical meeting culture that underpinned the cracking scene — events where sceners gathered to trade software, share techniques, and socialize. By July 1988 Ikari had coders (Fletch, Excell), musicians (JCH, Laxity, Tel), and charset artists all working within one organization — a complete production pipeline.

Sources: CSDb · docsnyderspage

ikari-18.asm 3.908 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:  $1bd0 (7120)
// IRQ handler:  $1bfa (irq_1bfa)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 4428 bytes, Data: 59060 bytes
// Labels: 343, Subroutines: 27
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0836 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $2029

sub_0814:
        and $0339,y
        .byte $ff,$83,$39                           // isc $3983,x // ILLEGAL
        .byte $3f,$3f,$3f                           // rla $3f3f,x // ILLEGAL
        and $ff83,y
        .byte $03,$39                               // slo ($39,x) // ILLEGAL
        and $3939,y
        and $ff03,y
        .byte $83,$39                               // sax ($39,x) // ILLEGAL
        .byte $3f,$07,$3f                           // rla $3f07,x // ILLEGAL
        and $ff83,y
        .byte $83,$39                               // sax ($39,x) // ILLEGAL
        .byte $3f,$07,$3f                           // rla $3f07,x // ILLEGAL

dat_0835:
        .byte $3f,$3f                               // ??

// --- Region $0914-$091b ---
.pc = $0914 "sub_0914"
// Referenced by: jsr from $ffdd

sub_0914:
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$dd,$99                           // isc $99dd,x // ILLEGAL
        brk

dat_091b:
        .byte $99                                   // .

// --- Region $0b0f-$0b19 ---
.pc = $0b0f "sub_0b0f"
// Referenced by: jsr from $203b

sub_0b0f:
        eor $51,x
        eor $15
        eor $55,x
        eor $55,x
        eor $55,x
        brk

// --- Region $0f06-$0f0c ---
.pc = $0f06 "sub_0f06"
// Referenced by: jsr from $2047

sub_0f06:
        rti

dat_0f07:
        .byte $40                                   // @ character
        .byte $40                                   // @ character
        .byte $40                                   // @ character
        .byte $40                                   // @ character
        .byte $40                                   // @ character
// Referenced by: jsr from $203e

sub_0f0c:
        rti

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1e6a, $fd52

sub_1000:
        jmp loc_1020
// Referenced by: jsr from $1c7b, $fbbc

sub_1003:
        jmp loc_107c

dat_1006:
        .byte $88                                   // .

// --- Region $1020-$1623 ---
.pc = $1020 "loc_1020"

loc_1020:
        sta $1744
        jsr sub_1060
        ldy #$00
        tya

loc_1029:
        sta $d400,y
        iny
        cpy #$17
        bne loc_1029
        tay

loc_1032:
        sta $1745,y
        iny
        cpy #$06
        bne loc_1032
        lda #$f0
        sta $d417
        sta $16e4
        lda #$88
        sta $174f
        sta $1750
        sta $1751
        lda #$47
        sta $1752
        sta $1753
        sta $1754
        lda #$1f
        sta $d418
        ldx #$02
        rts
// Referenced by: jsr from $1023, $1084, $efc7, $f029

sub_1060:
        ldy #$00
        asl
        asl
        asl
        tax

loc_1066:
        lda $1010,x
        sta $173b,y
        inx
        iny
        cpy #$06
        bne loc_1066