← #767 Top 1024 #769 →
#768

X-Ray 07

X-Ray

3.795 lines of code

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

History

Released
September 1990
Music
Antti Hannula — "Russian" / Hithouse (Marco de Jong) — "Das Omen" / EVS (Edwin van Santen) — "I Just Don't Have the Heart"
Group
X-Ray — Germany, founded 1988

An X-Ray intro from September 1990 featuring three SID tunes from three different composers — all preserved in the HVSC. Antti Hannula contributed "Russian," Hithouse (Marco de Jong) provided "Das Omen," and EVS (Edwin van Santen) supplied "I Just Don't Have the Heart." CSDb lists no coder or graphician, but Doc Snyder's page documents Trigger and Jatagan as the typical code/art team for X-Ray intros of this period. X-Ray was a German cracking group founded in 1988 under the tagline "Outta Schnapz!" Their primary cracker was Chrysagon, whose cracks accompanied these intros. The other ranked entry, #200 Xray-01, similarly featured EVS, confirming his ongoing relationship with the group. The trio of musicians — Finnish, Dutch, and Dutch respectively — demonstrates X-Ray's international connections. Doc Snyder's page also documents a joint X-Ray and Success intro, reflecting the German groups' close cooperation.

Sources: CSDb · docsnyderspage

xray-07.asm 3.795 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: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0908 (2312)
// IRQ handler:  $096d (irq_096d)
// IRQ handler:  $090c (irq_090c)
// IRQ handler:  $1018 (loc_1018)
//
// Code: 3756 bytes, Data: 59732 bytes
// Labels: 386, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $080b-$080b ---
.pc = $080b "loc_080b"

loc_080b:
        brk

// --- Region $0908-$0b5f ---
.pc = $0908 "main_0908"

main_0908:
        jmp loc_0bd5

dat_090b:
        .byte $00                                   // .

irq_090c:
        lda #$31
        sta $d012
        lda $0810
        and #$7f
        tax
        ldy #$00

loc_0919:
        lda $0f80,x
        sta $0811,y
        txa
        clc
        adc #$09
        and #$7f
        tax
        iny
        cpy #$07
        bne loc_0919
        jsr sub_0cc1
        nop
        jsr sub_0a61
        jsr sub_1021
        ldx $e4
        lda $0f00,x
        and #$07
        ora #$b0
        sta $d016
        lda #$18
        sta $d018
        jsr sub_0c5d
        jsr sub_0c98
        lda #$6d
        ldy #$09
        sta $0314
        sty $0315
        lda #$01
        sta $d019
        lda $dc01
        and #$10
        beq loc_0965
        jmp loc_ea7e

loc_0965:
        lda $a2
        sta $3fff
        jmp loc_0cc8

irq_096d:
        lda #$ea
        sta $d012
        ldy #$07

loc_0974:
        dey
        bne loc_0974
        bit $ea
        nop
        ldx #$00
        stx $02

loc_097e:
        stx $03
        lda $0811,x
        beq loc_09b1
        tay

loc_0986:
        lda $d012
        sec
        sbc #$01
        and #$07
        ora #$10
        sta $d011
        ldx $02
        lda txt_0818,x
        sta $d021
        sta $d020
        inx
        stx $02
        dey
        beq loc_09b1
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        jmp loc_0986

loc_09b1:
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        ldy #$05
        ldx $02
        txa
        clc
        adc #$07
        sta smc_09d7                                // SMC: modifies $09d7
        jmp loc_09c9

loc_09c6:
        ldy #$07
        inx