#391

X-Ray 01

X-Ray

4.785 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
1990
Group
X-Ray [X] — Germany, CSDb group ID #1058
Code
The Excellenz
Charset
Excell
Music
A-Man (Steven Diemer) — "Space Tiger (v2)"
Music
Drax (Thomas Mogensen) — "Omonitarisulis"

This crack intro from X-Ray — a German group founded in 1988 under the tagline "Outta Schnapz!" — dates to 1990 and is catalogued on CSDb as release #59405 under the title "X-Ray Intro." The code was written by The Excellenz, the charset by Excell, and the music credits include A-Man (Steven Diemer) with "Space Tiger (v2)" and Drax (Thomas Mogensen) with "Omonitarisulis" — indicating multiple selectable tunes. Doc Snyder's page confirms the code by The Excellenz, charset by Excell, and music by A-Man for this intro and maps it to CSDb release #59405. The scrolltext describes a crack of "Hawkstorm" from Players by "The Ignorance" of X-Ray, who taunts other groups for their inability to bypass the game's freeze protection. Greetings extend to Dominators, Genesis, Illusion, Transcom, Action, Ikari+Talent, Legend, Censor, Brainbombs, and Bonzai. This is one of five X-Ray intros documented on Doc Snyder's page.

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

xray-01.asm 4.785 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:05
// 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:  $1100 (4352)
// IRQ handler:  $118c (irq_118c)
// IRQ handler:  $11fe (irq_11fe)
//
// Code: 4863 bytes, Data: 58625 bytes
// Labels: 515, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $1100-$11ea ---
.pc = $1100 "main_1100"

main_1100:
        jmp loc_1770

loc_1103:
        sei
        lda #$1a
        sta $d018
        lda #$0f
        sta smc_1c30                                // SMC: modifies $1c30
        lda #$00
        sta $0286
        sta $d021
        jsr $e544
        ldx #$01
        stx $d01a
        stx $67
        dex
        stx $dc0e

loc_1124:
        lda $0c98,x
        sta $0478,x
        lda $0d00,x
        sta $04e0,x
        lda #$0b
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $dae8,x
        inx
        bne loc_1124
        txa

loc_1142:
        sta $0400,x
        sta $05e0,x
        sta $0608,x
        sta $da80,x
        sta $daf8,x
        sta $db20,x
        inx
        cpx #$78
        bne loc_1142
        ldx #$00

loc_115b:
        lda txt_1fd8,x
        sta $0680,x
        sta $06f9,x
        ora #$40
        sta $06a8,x
        sta $06d0,x
        inx
        cpx #$28
        bne loc_115b
        jsr sub_16bc
        lda #$8c
        sta $0314
        lda #$11
        sta $0315
        lda #$31
        sta $d012
        lda #$1b
        sta $d011
        cli

loc_1189:
        jmp loc_1189

irq_118c:
        ldy #$00
        ldx #$00
        lda tbl_1040,x
        nop

loc_1194:
        nop
        bit $ea
        sta $d018
        lda $0f40,x
        sta $d020
        sta $d021
        inx
        lda tbl_1040,x
        cpy #$02
        beq dat_11e9
        nop

loc_11ac:
        pha
        lda $d012
        and #$07
        tay
        bit $ea
        nop
        nop
        nop
        pla
        cpx #$79
        bne loc_1194
        ldx #$fe

loc_11bf:
        inx
        bne loc_11bf
        lda #$00
        sta $d020
        sta $d021
        lda #$1a
        sta $d018
        jsr sub_2e11
        lda #$f9
        sta $d012
        lda #$01
        sta $d019
        lda #$fe
        sta $0314
        lda #$11
        sta $0315
        jmp loc_2f49

dat_11e9:
        .byte $8d,$18                               // ..

// --- Region $11f8-$12a7 ---
.pc = $11f8 "loc_11f8"