← #634 Top 1024 #636 →
#635

Elysium 05

Elysium

2.469 lines of code

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

History

Group
Elysium — Poland

The fifth numbered intro from Elysium, a Polish cracking and demo group with roots in the Eastern European C64 scene. CSDb catalogues Elysium under group ID 197 with an extensive release history spanning crack intros, disk covers, the "Cruel" packer tool in multiple versions, and demo productions like "Awesome Elysium" and "Voxelysium." No individual credits for code, music, or graphics have been identified for this particular production. The group co-organized the Elysium and Antia Demo Party — a gathering that connected Polish sceners with the broader European community. CSDb documents at least eight distinct Elysium crack intros alongside standalone demos and tools, confirming sustained creative output. This entry ranks 635th overall — nearly identical to #634 ESM-01 — while #710 ESM-02 trails slightly behind. The tight clustering of all three Elysium entries suggests comparable distribution and recognition within the scene.

Sources: CSDb group · intros.c64.org

esm-05.asm 2.469 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:21
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $45ff  (16128 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2000 (8192)
// IRQ handler:  $2100 (irq_2100)
//
// Code: 1778 bytes, Data: 14350 bytes
// Labels: 240, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1003 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $279b

sub_1000:
        jmp loc_1041

dat_1003:
        .byte $4c                                   // L

// --- Region $1041-$1046 ---
.pc = $1041 "loc_1041"

loc_1041:
        lda #$40
        sta $fb
        rts

dat_1046:
        .byte $a2                                   // .

// --- Region $10b0-$10bd ---
.pc = $10b0 "loc_10b0"

loc_10b0:
        sta $fb
        lda #$08
        sta $d404
        sta $d40b
        sta $d412
        rts

// --- Region $1107-$1722 ---
.pc = $1107 "loc_1107"

loc_1107:
        ldy $17ff,x
        sty $ff
.label smc_110d = * + 1
        lda #$00                                    // !SMC: modified by $11c4
        beq loc_1114

dat_1110:
        .byte $a9,$00,$f0,$3a                       // ...:

loc_1114:
        lda $17f9,x
        beq loc_112a
        bpl loc_114e
        lda #$01
        cmp #$02
        beq $1134
        cmp #$01
        beq loc_1151

dat_1125:
        .byte $10,$27,$4c,$f5,$12                   // .'L..

loc_112a:
        lda smc_110d
        beq loc_114e
        lda $111c
        bne loc_114e
        lda $1cc8,y
        and #$80
        beq loc_114e
        lda $17fe,x
        bmi loc_114e
        lda $1ca6,y
        and #$f0
        sta $d405,x
        ora $183a,x
        sta $d406,x

loc_114e:
        jmp loc_1456

loc_1151:
        lda $17e5,x
        lsr
        ora #$00
        tay
        lda $1c5a,y
        sta $fc
        lda $1c5d,y
        sta $fd
        ldy $17fc,x

loc_1165:
        tya
        sta $17fc,x
        lda ($fc),y
        bpl loc_11e0
        iny
        cmp #$fd
        bne loc_117f
        lda ($fc),y
        sta $17f9,x
        iny
        tya
        sta $17fc,x
        jmp loc_15ba

loc_117f:
        cmp #$fe
        beq loc_1194
        bcc loc_1197
        ldy #$00
        txa
        bne loc_1165
        sta $10c7
        lda #$0f
        sta $10bf
        bpl loc_1165

loc_1194:
        jmp loc_10b0

loc_1197:
        cmp #$fb
        bcc loc_11b3
        beq loc_11ab
        lda ($fc),y
        sta $10ca
        iny
        lda ($fc),y
        sta $10c7
        iny
        bne loc_1165