#713

Ikari 13

Ikari

2.543 lines of code

RasterbarsRSTRMusicSID

History

Released
July 1988
Code
Fletch
Music
JCH (Jens-Christian Huus) — "Can't Stop"
Group
Ikari — United Kingdom, founded July 1987

Fletch coded this Ikari intro released in July 1988, exactly one year after the British group's founding. The music is JCH's (Jens-Christian Huus) "Can't Stop" — a SID tune preserved in the High Voltage SID Collection. JCH was one of the most celebrated C64 composers, and his music appeared in numerous Ikari intros throughout the group's catalogue. Fletch was a key member who later became central to Ikari's joint operations with Talent, handling both coding and cracking duties in that partnership's releases. Ikari is among the most heavily represented groups in this entire collection, with entries ranging from #6 Ikari-02 and #15 Ikari-07 through to dozens of other placements. Doc Snyder's Page lists Fletch as both coder and artist for the Ikari+Talent joint intros, confirming his versatility within the group. This mid-1988 release falls during Ikari's first major expansion phase as a leading UK cracking operation.

Sources: CSDb · Doc Snyder's Page

ikari-13.asm 2.543 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:50
// 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:  $16c8 (5832)
// IRQ handler:  $1767 (irq_1767)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $16f7 (nmi_16f7)
//
// Code: 2206 bytes, Data: 61282 bytes
// Labels: 264, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0a10-$0a10 ---
.pc = $0a10 "Program $0a10"
        brk

// --- Region $0be1-$0be5 ---
.pc = $0be1 "loc_0be1"

loc_0be1:
        bmi loc_0be3

loc_0be3:
        bmi loc_0be5

loc_0be5:
        brk

// --- Region $0bfa-$0bfe ---
.pc = $0bfa "loc_0bfa"

loc_0bfa:
        bpl loc_0c0c
        bvc loc_0c3e
        rti

// --- Region $0c0c-$0c41 ---
.pc = $0c0c "loc_0c0c"

loc_0c0c:
        bpl loc_0c1e
        bne loc_0c60
        nop
        cmp $ff,x
        beq loc_0be1
        .byte $f3,$cf                               // isc ($cf),y // ILLEGAL
        .byte $fc,$a4,$54                           // nop $54a4,x // ILLEGAL

dat_0c1a:
        .byte $f4,$04,$c4,$34                       // ...4

loc_0c1e:
        cpy $f4
        .byte $3a                                   // nop // ILLEGAL
        and $3f,x
        bmi loc_0c61
        .byte $33,$3c                               // rla ($3c),y // ILLEGAL
        .byte $33,$aa                               // rla ($aa),y // ILLEGAL
        eor $ff,x
        .byte $0f,$c1,$3d                           // slo $3dc1 // ILLEGAL
        sbc ($cd),y
        tax
        eor $ff,x
        beq loc_0c65
        .byte $3f,$0f,$0f                           // rla $0f0f,x // ILLEGAL
        ldy $55
        sbc $3301,x
.label loc_0c3e = * + 1
        cpy $ff33
        brk

dat_0c41:
        .byte $00                                   // .

// --- Region $0c60-$0c6a ---
.pc = $0c60 "loc_0c60"

loc_0c60:
        tax

loc_0c61:
        eor $ff,x
        bmi loc_0c65

loc_0c65:
        .byte $f3,$cc                               // isc ($cc),y // ILLEGAL
        .byte $ff,$aa,$55                           // isc $55aa,x // ILLEGAL

dat_0c6a:
        .byte $ff                                   // .

// --- Region $0f0e-$0f1d ---
.pc = $0f0e "sub_0f0e"
// Referenced by: jsr from $ffd2

sub_0f0e:
        .byte $e7,$ff                               // isc $ff // ILLEGAL
        sta $9999,y
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$99                           // isc $99ff,x // ILLEGAL
        sta $9900,y
        brk

dat_0f1d:
        .byte $99                                   // .

// --- Region $1000-$1009 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $183a

sub_1000:
        jmp loc_107c

dat_1003:
        .byte $4c,$b4,$10                           // L..
// Referenced by: jsr from $17a6

sub_1006:
        jmp loc_10ba

dat_1009:
        .byte $ff                                   // .

// --- Region $107c-$1482 ---
.pc = $107c "loc_107c"

loc_107c:
        ldx #$00
        txa

loc_107f:
        lda #$00
        sta $102c,x
        sta $1063,x
        sta $d415
        lda #$f1
        sta dat_d417
        lda #$01
        sta $1029,x
        lda #$09