#711

Illusion [ILS] 06

Illusion [ILS]

2.448 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
April 1990
Music
Link (Klaus Grøngaard) — "Dwarf Fly"
Group
Illusion — Norway, founded June 1989

Illusion's sixth indexed intro, titled "Illusion Intro (Rasterbars)" on CSDb, was released in April 1990 and features rasterbar effects — the horizontal colour-cycling bands that became a visual staple of crack intros. The music is by Link (Klaus Grøngaard), a Danish SID composer whose "Dwarf Fly" tune is preserved in the High Voltage SID Collection. Link was a prolific figure whose work appeared in intros for several groups, including Ikari. Illusion was a Norwegian group founded on 23 June 1989, tagged ILS, and this intro arrived less than a year after the group's formation. The group has several other entries in this collection, including the higher-ranked #90 Ils-09 and #97 Ils-05, as well as #369 Ils-03. Illusion's scrolltexts from other releases mention connections to groups like Ikari, Crazy, Contex, and Blackmail, reflecting a well-networked Nordic presence in the cracking scene.

Sources: CSDb · Intros C64

ils-06.asm 2.448 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: $33ff  (11264 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0830 (2096)
// IRQ handler:  $088c (irq_088c)
// IRQ handler:  $09b9 (irq_09b9)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2728 bytes, Data: 8536 bytes
// Labels: 244, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0830-$0ba5 ---
.pc = $0830 "main_0830"

main_0830:
        lda #$98
        sta smc_0890                                // SMC: modifies $0890
        lda $d021
        sta smc_086b                                // SMC: modifies $086b
        lda #$00
        sta $50
        sei
        lda $d021
        lda #$8c
        sta $0314
        lda #$08
        sta $0315
        ldx #$01
        stx $d01a
        lda #$7f
        sta $dc0d
        lda #$ff
        sta $d015
        dex
        stx $d01c
        lda #$94
        ldx #$00
        stx $d00e
        stx $d00f
.label smc_086b = * + 1
        lda #$00                                    // !SMC: modified by $0838

loc_086c:
        sta $d027,x
        inx
        cpx #$08
        bne loc_086c
        lda #$ff
        sta $d01d
        lda #$03
        sta $d010
        lda #$30
        sta $d012
        lda #$1b
        sta $d011
        cli

loc_0889:
        jmp loc_0889

irq_088c:
        inc $d019
.label smc_0890 = * + 1
        lda #$98                                    // !SMC: modified by $0832, $090b
        sta $07f8
        sta $07f9
        sta $07fa
        sta $07fb
        sta $07fc
        sta $07fd
        sta $07fe
        lda #$32
        jsr sub_0925
        lda #$08
        sta $d000
        lda #$38
        sta $d002
        lda #$78
        sta $d004
        lda #$a8
        sta $d006
        lda #$18
        sta $d008
        lda #$48
        sta $d00a
        lda #$d8
        sta $d00c
        lda #$47
        jsr sub_0920
        lda #$5c
        jsr sub_0920
        lda #$71
        jsr sub_0920
        lda #$86
        jsr sub_0920
        lda #$9a
        jsr sub_093b
        lda #$af
        jsr sub_093b
        lda #$c5
        jsr sub_0920
        lda #$da
        jsr sub_0920
        lda #$ee
        jsr sub_093b
        inc $50
        lda $50
        cmp #$05
        bne loc_091d
        lda #$00
        sta $50
        ldx smc_0890
        inx
        stx smc_0890                                // SMC: modifies $0890
        lda smc_0890
        cmp #$a0
        bne loc_091d
        jmp loc_0959

dat_0918:
        .byte $a9,$98,$8d,$90,$08                   // .....

loc_091d:
        jmp $ea81
// Referenced by: jsr from $08d0, $08d5, $08da, $08df, $08ee, $08f3; branch from $0923

sub_0920:
        cmp $d012
        bne sub_0920
// Referenced by: jsr from $08a8

sub_0925:
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        sta $d009
        sta $d00b
        sta $d00d