#941

Illusion [ILS] 19

Name: Illusion [ILS] 19
Availability: InStock
Author: Illusion

Illusion [ILS]

2.250 lines of code

RasterbarsRSTRMusicSIDSpritesSPRTBitmapBMAP

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

History

Released: September 1993
Code: Tronic
Music: O'Neill (Morten Kristensen) — "Victor 20"
Group: Illusion — Norway, founded 23 June 1989

CSDb catalogues this as the "Illusion Intro (Grey)," a September 1993 production coded by Tronic with music by O'Neill (Morten Kristensen). The SID tune "Victor 20" is preserved in the HVSC. Notably, O'Neill shares the same CSDb scener ID (752) as Accept — a handle associated with Starion and DCS — suggesting the same individual operated under different aliases across groups. Tronic's involvement is confirmed by the CSDb credits, and the intro is available in both PRG and D64 format. Illusion was a Norwegian group founded on 23 June 1989 that remained active through the early-to-mid 1990s. By September 1993, the group was well-established with over four years of activity behind them. Their broader catalogue in this collection includes #90 ils-09, #97 ils-05, and #938 ils-12.

Sources: CSDb

ils-19.asm 2.250 lines

// ============================================
// output - Part 1 of 2
// ============================================
// 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: $2fff  (10240 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0a3b (2619)
// IRQ handler:  $0a99 (nmi_0a99)
// IRQ handler:  $0a81 (irq_0a81)
//
// Code: 2210 bytes, Data: 8030 bytes
// Labels: 209, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $0a3b-$0a99 ---
.pc = $0a3b "main_0a3b"

main_0a3b:
        lda $3fff
        sta $0edc
        lda #$00
        sta $3fff
        jsr sub_0e25
        lda #$0f
        sta $d020
        sta $d021
        lda #$99
        sta $0318
        lda #$0a
        sta $0319
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d019
        sta $d01a
        lda #$6b
        sta $d012
        lda #$1b
        sta $d011
        lda #$81
        sta $0314
        lda #$0a
        sta $0315
        cli

loc_0a7e:
        jmp loc_0a7e

irq_0a81:
        inc $d019
        lda #$6d
        sta $d012
        lda #$9a
        sta $0314
        cli

loc_0a8f:
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        jmp loc_0a8f

nmi_0a99:
        rti

// --- Region $0af8-$0ce2 ---
.pc = $0af8 "loc_0af8"

loc_0af8:
        pla
        pla
        lda #$d8
        sta $d016
        lda #$18
        sta $d018
        ldx #$02

loc_0b06:
        dex
        bne loc_0b06
        lda #$1f
        sta $d011
        jsr sub_1203
        jsr sub_0deb
        lda $dc01
        cmp #$ef
        bne loc_0b1e
        jmp loc_0ebf

loc_0b1e:
        lda #$be

loc_0b20:
        cmp $d012
        bne loc_0b20
        ldx #$0a

loc_0b27:
        dex
        bne loc_0b27
        nop
        inc $d020
        lda #$0f
        sta $d021
        lda #$00
        ora #$d0
        nop
        sta $d016
        jsr sub_0b82
        lda $0ab3
        and #$07
        sta $d00a
        tay
        clc
        adc #$e0
        sta $d008
        tya
        clc
        adc #$58
        sta $d00c
        tya
        clc
        adc #$70
        sta $d00e
        lda #$fa

loc_0b5d:
        cmp $d012
        bne loc_0b5d
        ldx #$0b

loc_0b64:
        dex
        bne loc_0b64
        dec $d020
        lda #$0f
        sta $d021
        jsr sub_0cfa