← #96 Top 1024 #98 →
#97

Illusion [ILS] 05

Illusion [ILS]

2.756 lines of code

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

History

Released
21 February 1990
Code
Fist
Music
14 composers including Drax, Laxity, Jeroen Tel, Moon, and others
Charset
Derbyshire Ram, Bizzmo
Group
Illusion — Norway, founded 23 June 1989

CSDb catalogues this as the "Tracer" intro — a staggering fourteen-SID jukebox that rivals even #63 Bros 01 for sheer musical ambition. Fist coded while the composer list reads like a complete census of active SID musicians circa 1990: Moon (Anders Elmen), Mike (Michael Hendriks), The Syndrom (Matthias Hartung), Mateus (Ondrej Matejka), TDM (Hans Axelsson), Guy Shavitt, Jeroen Tel, Visage (Jonas Hakansson), GT (Geir Tjelta), Drax (Thomas Mogensen), Laxity (Thomas E. Petersen), and Devilock (Peter Siekmann). Illusion was a Norwegian group founded in June 1989, and by February 1990 they were already assembling productions of extraordinary scope. The international roster spans Norway, Sweden, Denmark, Netherlands, Germany, Czech Republic, and Israel — a truly pan-European collaboration. All fourteen SIDs are preserved in the HVSC.

Sources: CSDb

ils-05.asm 2.756 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:26
// 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:  $2c78 (11384)
//
// Code: 2140 bytes, Data: 61348 bytes
// Labels: 239, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $102e-$1591 ---
.pc = $102e "sub_102e"
// Referenced by: jsr from $2d72

sub_102e:
        lda #$01
        nop
        nop
        nop
        jsr sub_107f
        lda $c5
        cmp #$33
        bne loc_1041
        lda #$00
        jsr sub_1047

loc_1041:
        rts

dat_1042:
        .byte $00,$00,$00,$00,$00                   // .....
// Referenced by: jsr from $103e, $2cb5

sub_1047:
        tax
        lda $17ab,x
        sta smc_1250                                // SMC: modifies $1250
        txa
        asl
        sta $50
        asl
        clc
        adc $50
        tax
        ldy #$05

loc_1059:
        lda $17a5,x
        sta $16d9,x
        inx
        dey
        bpl loc_1059
        ldy #$02
        lda #$ff

loc_1067:
        sta $16b8,y
        sta $16eb,y
        dey
        bpl loc_1067
        sta $16ee
        sta $16ef
        rts

loc_1077:
        lda #$fe
        sta $16c1,x

loc_107c:
        jmp loc_12e7
// Referenced by: jsr from $1033

sub_107f:
        ldx #$02
        dec $16ee

loc_1084:
        bit $16ee
        bmi loc_108f
        jmp loc_12e7

loc_108c:
        jmp loc_1174

loc_108f:
        dec $16b8,x
        beq loc_1077
        bpl loc_107c
        bit $16ef
        bmi loc_108c

loc_109b:
        ldy $16bb,x
        lda txt_165e,y
        sta $50
        lda $1676,y
        sta $51
        ldy $16be,x

loc_10ab:
        lda ($50),y
        cmp #$ff
        bne loc_10b4
        jmp loc_1174

loc_10b4:
        bmi loc_10b9
        jmp loc_11bf

loc_10b9:
        cmp #$a0
        bcs loc_10c6
        and #$1f
        sta $16e8,x
        iny
        jmp loc_10ab

loc_10c6:
        cmp #$c0
        bcs loc_10d6
        and #$1f
        asl
        asl
        asl
        sta $1694,x
        iny
        jmp loc_10ab

loc_10d6:
        cmp #$e0
        bcs loc_10e7
        and #$1f
        sta $16b8,x
        lda #$00
        sta $16ca,x
        jmp loc_123f

loc_10e7:
        cmp #$fc
        bcs loc_1106
        and #$1f