#539

Xenon (SE) 01

Xenon (SE)

1.604 lines of code

RasterbarsRSTRScrollerSCRL

History

Group
Xenon — Sweden, founded 1987

A crack intro from Xenon, a Swedish demo group founded in 1987 by Tronic. CSDb documents the group under ID 1954 and explicitly notes it "is not to be confused with the Dutch group Xenon that surfaced a few years later with the same name." Members included coders Tronic, Crusher D, Mix, Saboteur, and Baze, alongside swappers Megatron, Petrof, and Xarq, and graphician Zion. The group produced 46 releases — primarily demos, cracks, and music compilations — concentrated in 1987 and 1988. No individual credits for code, music, or graphics have been identified for this specific intro. The intros.c64.org listing attracted comments from Doc Snyder, Tronic (the group's founder), Pudwerx, and Twoflower, confirming direct founder engagement with the archival record. Sweden was home to some of the C64 scene's most celebrated groups, and while Xenon did not achieve the fame of Fairlight or Triad, their 1987 founding places them among the country's earlier scene formations.

Sources: CSDb · intros.c64.org

xenon-01.asm 1.604 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:22
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $c000 (49152)
// IRQ handler:  $c059 (irq_c059)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 634 bytes, Data: 62853 bytes
// Labels: 144, Subroutines: 3
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0819 ---
.pc = $0814 "Program $0814"
        ora ($a2,x)
        ora $bd
        .byte $42                                   // jam // ILLEGAL

dat_0819:
        .byte $08                                   // .

// --- Region $08f7-$0922 ---
.pc = $08f7 "loc_08f7"

loc_08f7:
        lda ($2f),y
        sta ($2d),y
        iny
        cpy $ff
        bne loc_08f7
        clc
        lda $2d
        adc $ff
        sta $2d
        lda $2e
        adc #$00
        sta $2e
        ldy #$00
        dex
        bne loc_08f7
        clc
        lda $2f
        adc $ff
        sta $2f
        lda $30
        adc #$00
        sta $30
        jmp $0100

dat_0922:
        .byte $b9                                   // .

// --- Region $0f0e-$0f12 ---
.pc = $0f0e "sub_0f0e"
// Referenced by: jsr from $1208

sub_0f0e:
        .byte $3c,$3c,$7c                           // nop $7c3c,x // ILLEGAL

dat_0f11:
        .byte $7c,$e4                               // |.

// --- Region $1206-$1247 ---
.pc = $1206 "Segment $1206"
        asl $14
        jsr sub_0f0e
        .byte $17,$29                               // slo $29,x // ILLEGAL
        sbc $20
        .byte $23,$02                               // rla ($02,x) // ILLEGAL
        ora $e305,y
        and ($f2,x)
        jsr $0731
        php
        ora #$0b
        .byte $0b,$05                               // anc #$05 // ILLEGAL
        ora $0d
        ora $0101
        ora $050d
        ora $0b
        .byte $0b,$e3                               // anc #$e3 // ILLEGAL
        asl $26
        asl $030e
        .byte $03,$01                               // slo ($01,x) // ILLEGAL
        .byte $03,$e3                               // slo ($e3,x) // ILLEGAL
        asl $06e4
        rol
        ora #$09
        php
        php
        .byte $07,$07                               // slo $07 // ILLEGAL
        ora ($01,x)
        .byte $07,$07                               // slo $07 // ILLEGAL
        lda $35,x
        .byte $07,$07                               // slo $07 // ILLEGAL
        asl
        asl
        .byte $02                                   // jam // ILLEGAL

// --- Region $1409-$1409 ---
.pc = $1409 "Segment $1409"
        brk

// --- Region $1413-$1413 ---
.pc = $1413 "Segment $1413"
        brk

// --- Region $2001-$2001 ---
.pc = $2001 "Segment $2001"
        brk

// --- Region $2021-$2021 ---
.pc = $2021 "sub_2021"
// Referenced by: jsr from $fcf9

sub_2021:
        brk

// --- Region $202c-$202c ---
.pc = $202c "Segment $202c"
        brk

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $989d-$989d ---
.pc = $989d "Segment $989d"
        brk

// --- Region $a9d0-$a9d0 ---
.pc = $a9d0 "Segment $a9d0"
        brk

// --- Region $c000-$c172 ---
.pc = $c000 "main_c000"

main_c000:
        sei
        jsr $e544