← #118 Top 1024 #120 →
#119

Ikari 16

Ikari

2.523 lines of code

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

History

Released
12 July 1988
Music
JCH (Jens-Christian Huus) — "L.L.L."
Charset
The Mercenary Cracker
Group
Ikari — United Kingdom, founded July 1987

JCH's "L.L.L." — one of his more obscure compositions — provides the soundtrack for this mid-1988 Ikari intro. The Mercenary Cracker contributed the charset, the same handle appearing across #35 Beastie Boys and other German-connected groups. No coder is credited on CSDb. Released on 12 July 1988, this is one of many intros Ikari produced during their most prolific summer. Doc Snyder's page preserves the credits. The HVSC catalogues Huus's composition. By July 1988, JCH had become Ikari's most consistent musical contributor — his name appearing across the majority of their numbered intros from this period. The partnership between a Danish musician and a British cracking group, facilitated by The Mercenary Cracker's German connections, exemplifies the triangular UK-Scandinavia-Germany axis that powered the scene.

Sources: CSDb · docsnyderspage

ikari-16.asm 2.523 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:  $1900 (6400)
// IRQ handler:  $195a (irq_195a)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1947 bytes, Data: 61541 bytes
// Labels: 267, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $090b-$0915 ---
.pc = $090b "sub_090b"
// Referenced by: jsr from $ffda

sub_090b:
        .byte $1c,$1c,$00                           // nop $001c,x // ILLEGAL
        .byte $1c,$1c,$66                           // nop $661c,x // ILLEGAL
        inc.abs $00ee
        brk
        brk

// --- Region $0a10-$0a21 ---
.pc = $0a10 "Program $0a10"
        tax
        eor $ff,x
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$aa                           // isc $aaff,x // ILLEGAL
        lsr $f6,x
        inc $f6,x
        inc $f6,x
        inc $a2,x
        .byte $22                                   // jam // ILLEGAL

// --- Region $1000-$1003 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1900

sub_1000:
        jmp loc_107a

dat_1003:
        .byte $4c                                   // L

// --- Region $107a-$10af ---
.pc = $107a "loc_107a"

loc_107a:
        ldx #$00
        txa

loc_107d:
        lda #$00
        sta $102c,x
        sta $1062,x
        lda #$01
        sta $1029,x
        lda #$09
        sta $102f,x
        lda #$10
        sta $1032,x
        inx
        cpx #$03
        bcc loc_107d
        lda $1011
        sta $1013
        lda #$0f
        sta dat_d418
        lda #$01
        sta $100a
        rts

loc_10aa:
        lda #$00
        sta $100a
        rts

// --- Region $10b8-$1453 ---
.pc = $10b8 "loc_10b8"

loc_10b8:
        lda $100e,x
        sta $fb
        tay
        lda $1029,x
        beq loc_10fd
        dec $105c,x
        bpl loc_10d4
        inc $105c,x
        lda $106b,x
        sta $d404,y
        jmp loc_1220

loc_10d4:
        lda $1044,x
        and #$10
        beq loc_10fa
        lda #$81
        sta $d404,y
        lda $1012
        asl
        tay
        lda dat_1453,y
        pha
        lda $1454,y
        pha
        ldy $fb
        pla
        sta $d401,y
        pla
        sta $d400,y
        jmp loc_137f

loc_10fa:
        jmp loc_1220

loc_10fd:
        txa
        tay
        lda $102f,y
        sta $fc
        lda $1032,y
        sta $fd
        lda #$00
        sta $100d
        ldy $102c,x
        lda #$00
        sta $1023,x
        lda ($fc),y
        cmp #$ff
        bne loc_111f
        jmp loc_140c

loc_111f:
        pha
        and #$20
        beq loc_1129
        lda #$01
        sta $100d