← #787 Top 1024 #789 →
#788

Xenon (NL) 02

Xenon (NL)

1.967 lines of code

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

History

Released
1995
Group
Xenon (NL) [XEN] — Netherlands, CSDb group ID #153
Code
Calypso (Terry Wentinck)
Graphics
Calypso (Terry Wentinck)
Music
JCH (Jens-Christian Huus) — "Carcrash"

This crack intro from Xenon — a Dutch cracking group distinct from the identically named Swedish outfit — dates to 1995 and is catalogued on CSDb as release #164924 under the title "Xenon Intro." The code and graphics were by Calypso (Terry Wentinck), and the music is by JCH (Jens-Christian Huus), using the SID tune "Carcrash" from the HVSC. Doc Snyder's page confirms the code by Calypso and music by JCH for Crack Intro #02 and maps it to CSDb release #164924. The scrolltext describes a five-level preview crack of "Misfortune" — provided by Sonar and cracked and trained by Crazy Bird — positioning it as a statement release aimed at Onslaught. Greetings extend to Hardcore+Onslaught, SCS+TRC, Avantgarde, F4CG, AFL, Chromance, Demonix, Empire, and Cyborg. Doc Snyder's page documents two Xenon (NL) intros, with the first featuring code by Megabrain (Martijn Struylaart), art by Oxbow, and music by Laxity.

Sources: CSDb Release · Doc Snyder · intros.c64.org

xenon_nl-02.asm 1.967 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:03
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $261f  (7968 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0f00 (3840)
// IRQ handler:  $0c20 (irq_0c20)
//
// Code: 2537 bytes, Data: 5431 bytes
// Labels: 186, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0cc9 ---
.pc = $0c00 "loc_0c00"

loc_0c00:
        sei
        lda #$01
        sta $d012
        sta $d01a
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$20
        ldx #$0c
        sta $0314
        stx $0315
        cli

loc_0c1c:
        jmp loc_0c1c

chr_0c1f:
        // === Charset data (1 bytes, $0c1f-$0c1f) ===
        .byte $00                                   // char 0 (partial)

irq_0c20:
        jsr sub_0e50
        lda #$18
        sta $d018
        lda $a7
        and #$07
        eor #$17
        sta $d016
        lda #$0f
        sta $d021
        lda #$0a
        sta $d022
        lda #$04
        sta $d023
        jsr sub_1003

loc_0c43:
        lda $d012
        cmp #$78
        bne loc_0c43
        lda #$12
        sta $d018
        lda #$00
        sta $d016
        lda #$0f
        sta $d021

loc_0c59:
        lda $d012
        cmp #$8b
        bne loc_0c59
        lda $50
        sta $d016
.label smc_0c66 = * + 1
        lda #$0a                                    // !SMC: modified by $0dda
        sta $d021

loc_0c6a:
        lda $d012
        cmp #$a5
        bne loc_0c6a
        lda #$00
        sta $d016
        lda #$0f
        sta $d021

loc_0c7b:
        lda $d012
        cmp #$bb
        bne loc_0c7b
        lda #$18
        sta $d018
        lda $a8
        and #$07
        eor #$17
        sta $d016
        lda #$0f
        sta $d021
        lda #$0e
        sta $d022
        lda #$06
        sta $d023
        jsr sub_0dc0

loc_0ca2:
        lda $d012
        cmp #$ff
        bne loc_0ca2
        jsr sub_0e00
        jsr sub_0cb5
        jmp $ea31

chr_0cb2:
        // === Charset data (3 bytes, $0cb2-$0cb4) ===
        .byte $00,$00,$00                           // char 0 (partial)
// Referenced by: jsr from $0cac

sub_0cb5:
        lda $dc01
        cmp #$ef
        beq loc_0cbd
        rts

loc_0cbd:
        sei
        jsr $fda3
        jsr $fd15
        jsr $ff5b
        jmp loc_0f30

// --- Region $0d00-$0d5a ---
.pc = $0d00 "loc_0d00"

loc_0d00:
        lda #$00
        sta $d020
        sta $d021
        lda #$08
        sta $0286
        jsr $e544
        lda #$00
        jsr sub_1000
        ldx #$28

loc_0d17:
        lda txt_2450,x