← #959 Top 1024 #961 →
#960

Ikari 23

Ikari

660 lines of code

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

History

Released
29 July 1988
Code
Aze
Group
Ikari / Agile — United Kingdom / Sweden

CSDb catalogues this as a joint intro between Ikari and Agile, released on 29 July 1988. Aze of Agile — a Swedish group founded in March 1988 — is credited with the code. Graphics are credited but no artist is named. No SID data is listed, suggesting the intro either uses a simple sound routine or an unidentified ripped tune. Ikari was a prominent British cracking group founded in 1987, and their cooperation with the Swedish Agile reflects the cross-border partnerships common among European cracking groups. This is one of many Ikari entries in the ranking, sitting well below the group's highest-placed #6 Ikari-02. Doc Snyder's page documents Ikari's extensive catalogue, with coders including Tri-Dos, Fletch, Excell, and Einstein, and musicians such as Laxity, JCH, Drax, and Jeroen Tel. A comment from Twoflower on intros.c64.org in 2008 attests to the production's preservation.

Sources: CSDb · docsnyderspage

ikari-23.asm 660 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: $106f  (2160 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// IRQ handler:  $0969 (irq_0969)
//
// Code: 726 bytes, Data: 1434 bytes
// Labels: 57, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$099b ---
.pc = $080d "main_080d"

main_080d:
        jsr $fd15
        jsr $ff5b
        jsr $fda3
        sei
        lda #$31
        sta $01
        ldx #$00

loc_081d:
        lda $2000,x
        sta $e000,x
        lda $2100,x
        sta $e100,x
        lda $2200,x
        sta $e200,x
        lda $2300,x
        sta $e300,x
        lda $2400,x
        sta $e400,x
        lda $2500,x
        sta $e500,x
        lda $2600,x
        sta $e600,x
        lda $2700,x
        sta $e700,x
        inx
        bne loc_081d
        txa

loc_0851:
        sta $2100,x
        sta $2600,x
        sta $2700,x
        inx
        bne loc_0851
        lda #$ff

loc_085f:
        sta $2200,x
        sta $2300,x
        sta $2400,x
        sta $2500,x
        inx
        bne loc_085f
        ldy #$00

loc_0870:
        lda $d400,x
        sta $2200,y
        lda $d480,x
        sta $2300,y
        lda $d500,x
        sta $2400,y
        lda $d580,x
        sta $2500,y
        inx
        iny
        iny
        bne loc_0870

loc_088d:
        lda $0e20,y
        sta $2000,y
        iny
        bne loc_088d
        ldx #$00

loc_0898:
        lda dat_0ab7,x
        sta $51
        lda $0ab8,x
        sta $50
        lda $0ab9,x
        sta $53
        lda $0aba,x
        sta $52
        txa
        pha
        ldx #$00
        ldy #$00

loc_08b2:
        lda ($50,x)
        sta ($52,x)
        inc $52
        inc $52
        inc $52
        inc $50
        iny
        cpy #$08
        bne loc_08b2
        pla
        clc
        adc #$04
        tax
        cpx #$40
        bne loc_0898
        ldx #$00
        txa

loc_08cf:
        sta $50,x
        inx
        cpx #$08
        bne loc_08cf
        lda #$37
        sta $01
        cli
        lda #$94
        sta $51
        nop
        lda #$0e
        sta $d023
        ldx #$00

loc_08e7:
        lda #$3e
        sta $da00,x
        sta $db00,x
        lda #$00
        sta $d800,x
        inx
        bne loc_08e7

loc_08f7:
        lda #$02
        sta $0658,x