← #368 Top 1024 #370 →
#369

Illusion [ILS] 03

Illusion [ILS]

2.469 lines of code

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

History

Released
11 January 1991
Group
Illusion — Norway, founded 23 June 1989

Known on CSDb as the "Screws" intro, this January 1991 production from Illusion features a two-composer musical lineup. GT (Geir Tjelta) contributed "Heavy Introtune" and Red (Jeroen Kimmel) provided "Rhaa Lovely II (tune 2)" — both preserved in the HVSC. The pairing of a Norwegian composer (Tjelta) with the Dutch Red demonstrates Illusion's international musical connections despite being a Norwegian group. Illusion was founded on 23 June 1989 and this intro also appears alongside #77 Illusion-09 in the rankings. No coder or graphic artist credits are listed in CSDb, leaving those roles unattributed. Red — Jeroen Kimmel — was a well-known Dutch SID musician whose compositions appeared across multiple groups. The intro's nickname "Screws" likely references a visual element in the design, a common practice where intros were informally named after distinctive graphical features.

Sources: CSDb · intros.c64.org

ils-03.asm 2.469 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: $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:  $199e (irq_199e)
//
// Code: 2527 bytes, Data: 60961 bytes
// Labels: 223, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0da8-$0dce ---
.pc = $0da8 "loc_0da8"

loc_0da8:
        lda #$3c

loc_0daa:
        cmp $c5
        bne loc_0daa
        sei
        jsr $fda3
        jsr $fd15
        jsr $ff5b
        ldx #$00
        stx $d020
        stx $d021
        ldx #$80

loc_0dc2:
        lda $0dcd,x
        sta $033f,x
        dex
        bne loc_0dc2
        jmp $0340

dat_0dce:
        .byte $78                                   // x

// --- Region $0e01-$0e01 ---
.pc = $0e01 "Program $0e01"
        brk

// --- Region $0f13-$0f13 ---
.pc = $0f13 "Program $0f13"
        brk

// --- Region $1147-$1147 ---
.pc = $1147 "loc_1147"

loc_1147:
        .byte $32                                   // jam // ILLEGAL

// --- Region $1180-$1410 ---
.pc = $1180 "sub_1180"
// Referenced by: jsr from $124e, $12f3, $1300, $130c, $f3f1, $f496, $f4a3, $f4af

sub_1180:
        tya
        sta $101c,x
// Referenced by: jsr from $127f, $f422

sub_1184:
        lda $106e,y
        sta $d401,x
.label loc_118c = * + 2
        sta $1033,x
        lda $10cd,y
        sta $d400,x
        sta $1032,x
        rts
// Referenced by: jsr from $1394, $f537

sub_1197:
        lda #$01
        sta $1047,x

loc_119c:
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne loc_11be
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc loc_11c8

loc_11be:
        cmp #$01
        bne loc_11c8
        lda #$00
        sta dat_1000
        rts

loc_11c8:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $102f,x
        tay
        clc
        adc #$02
        sta $102f,x
        lda ($fb),y
        cmp #$00
        bne loc_11ec
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp loc_119c

loc_11ec:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        sta $1004,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $1059,x
        sta $fb
        lda $105a
        sta $fc
        lda #$00
        sta $d404,x