← #937 Top 1024 #939 →
#938

Illusion [ILS] 12

Illusion [ILS]

3.883 lines of code

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

History

Released
20 August 1989
Code
Rocky
Graphics
PK
Music
Laxity (Thomas E. Petersen) — "Ikari Intro Song"
Charset
Unitrax
Group
Illusion — Norway, founded 23 June 1989

CSDb catalogues this as the "Illusion Intro (Arrows)," released on 20 August 1989 — less than two months after the Norwegian group's founding on 23 June. Rocky coded the intro, PK provided the graphics, and Unitrax contributed the charset. The soundtrack is Laxity's ubiquitous "Ikari Intro Song" by Thomas E. Petersen, one of the most frequently reused SID tunes in the cracking scene's history. The tune was originally composed for Ikari but became a de facto standard borrowed by dozens of groups. Illusion was a prolific Norwegian crew whose broader catalogue in this collection includes higher-ranked entries such as #90 ils-09, #97 ils-05, and #369 ils-03. This intro also appears alongside #941 ils-19 in the current batch, demonstrating the group's prolific output.

Sources: CSDb

ils-12.asm 3.883 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:51
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0334  End: $ffff  (64716 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1a80 (6784)
// IRQ handler:  $19ff (irq_19ff)
//
// Code: 3550 bytes, Data: 61166 bytes
// Labels: 384, Subroutines: 23
//
// Cross-references: all OK
// ============================================


// --- Region $08da-$08da ---
.pc = $08da "loc_08da"

loc_08da:
        brk

// --- Region $0916-$091a ---
.pc = $0916 "sub_0916"
// Referenced by: jsr from $ff7b

sub_0916:
        cpy #$3c
        bmi loc_08da
        brk

// --- Region $0f03-$0f04 ---
.pc = $0f03 "sub_0f03"
// Referenced by: jsr from $ff60

sub_0f03:
        brk
        brk

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

sub_0f0e:
        brk

chr_0f0f:
        // === Charset data (3 bytes, $0f0f-$0f11) ===
        .byte $00,$c3,$0e                           // char 0 (partial)
// Referenced by: jsr from $ff68

sub_0f12:
.label sub_0f14 = * + 2
        .byte $0f,$00,$00                           // slo $0000 // ILLEGAL
        brk

// --- Region $1000-$100e ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $182d, $1a83, $f44f, $f68b

sub_1000:
        jmp loc_107a
// Referenced by: jsr from $1a86, $f68e

sub_1003:
        jmp loc_10aa
// Referenced by: jsr from $19b2

sub_1006:
.label sub_1007 = * + 1
        jmp loc_10b0
.label smc_100a = * + 1
.label smc_100b = * + 2
        .byte $ff,$01,$00                           // isc $0001,x // ILLEGAL

smc_100c:
.label smc_100d = * + 1
        ora ($00,x)                                 // !SMC: modified by $110b, $1126, $1183
        brk

// --- Region $1019-$101b ---
.pc = $1019 "loc_1019"

loc_1019:
        cpx #$00
        brk

// --- Region $107a-$1453 ---
.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 $d418
        lda #$01
        sta smc_100a                                // SMC: modifies $100a
        rts

loc_10aa:
        lda #$00
        sta smc_100a                                // SMC: modifies $100a
        rts

loc_10b0:
        lda smc_100a
        bne loc_10b6
        rts

loc_10b6:
        ldx #$02

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