← #901 Top 1024 #903 →
#902

X-Ray 14

X-Ray

1.962 lines of code

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

History

Released
April 1991
Code
Spell Productions
Music
Link (Klaus Grongaard) — "Soundwork"
Group
X-Ray — Germany, founded 1988

CSDb identifies this as the "X-Ray Sprite Intro," released in April 1991 and coded by Spell Productions. Link (Klaus Grongaard) provided the music — his composition "Soundwork" is preserved in the HVSC. The "Sprite" designation in the CSDb title likely refers to the intro's visual technique, employing hardware sprites for its display effects. X-Ray was a German group founded in 1988, operating under the tagline "Outta Schnapz!" and using the abbreviation [X]. Doc Snyder's page documents the group's extensive roster across multiple intros, with Chrysagon serving as their primary cracker. This intro joins #391 XRAY-01 and #530 XRAY-04 among the group's ranked entries. By April 1991, X-Ray had been active for three years and was well established in the German cracking hierarchy, regularly greeting major groups like Dominators, Fairlight, and Transcom in their scrolltexts.

Sources: CSDb · docsnyderspage

xray-14.asm 1.962 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $28ff  (8448 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2400 (9216)
// IRQ handler:  $0921 (irq_0921)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2237 bytes, Data: 6211 bytes
// Labels: 150, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0818-$089d ---
.pc = $0818 "loc_0818"

loc_0818:
        sei
        ldx #$18
        lda #$00

loc_081d:
        sta $d400,x
        dex
        bpl loc_081d
        lda #$15
        sta $d018
        lda #$08
        sta $d016
        lda #$1b
        sta $d011
        lda #$00
        sta $d015
        sta $d017
        sta $d01d
        sta $d01a
        lda $d019
        sta $d019
        lda #$81
        sta $dc0d
        lda #$ea
        sta $0315
        lda #$31
        sta $0314
        ldx #$00
        stx $d020
        stx $d021

loc_085d:
        lda #$20
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        lda #$00
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_085d
        jsr sub_08e7
        lda #$28
        sta $ae
        sta $2d
        lda #$76
        sta $af
        sta $2e
        lda #$00
        sta $01
        ldx #$ae

loc_0891:
        lda loc_0818,x
        sta $0300,x
        inx
        bne loc_0891
        jmp $03ae

dat_089d:
        .byte $a2                                   // .

// --- Region $08b4-$0995 ---
.pc = $08b4 "$08b4"
        lda #$00
        sta $01
        ldx #$ae

loc_08ba:
        lda loc_0818,x
        sta $0300,x
        inx
        bne loc_08ba
        jmp $03ae

dat_08c6:
        .byte $a2,$00,$8e,$ff,$28                   // ....(

loc_08cb:
        lda $28ff,x
        sta dat_0800,x
        inx
        bne loc_08cb
        inc $03b8
.label loc_08d8 = * + 1
        inc $03b5
        bne loc_08cb
        lda #$37
        sta $01
        cli
        jmp $fce2

dat_08e4:
        .byte $00,$00,$00                           // ...
// Referenced by: jsr from $087c

sub_08e7:
        ldx #$00

loc_08e9:
        lda txt_0dd0,x
        sta $0400,x
        lda #$01
        sta $d800,x
        inx
        cpx #$28
        bne loc_08e9
        rts

dat_08fa:
        .byte $00,$00,$00,$00,$00,$00               // ......
// Referenced by: jsr from $249e

sub_0900:
        sei
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$21