← #871 Top 1024 #873 →
#872

X-Ray 13

X-Ray

393 lines of code

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

History

Released
June 1990
Group
X-Ray — Germany, founded 1988

This June 1990 crack intro from the German group X-Ray, abbreviated "[X]," has no individual credits for code or music recorded on its CSDb release page. However, Doc Snyder's page extensively documents X-Ray's intro catalogue, listing coders such as Trigger, The Fleet, and The Excellenz alongside musicians including Diflex, Scortia, JCH, and A-Man. The group's primary cracker was Chrysagon, who is referenced in scrolltexts across multiple X-Ray releases. X-Ray, founded in 1988, operated from Germany under the tagline "Outta Schnapz!" and maintained connections with American groups — particularly TSM (The Shaolin Monastery). The group is also represented at #391 X-Ray Intro #1 and #475 X-Ray Intro #8 in this collection. X-Ray cooperated with Success for joint releases and greeted groups including Dominators, Enigma, Legend, and Censor in their scrolltexts.

Sources: CSDb · intros.c64.org · Doc Snyder's Page

xray-13.asm 393 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: $0801  End: $0c07  (1031 bytes)
// Entry point:  $0c00 (via BASIC SYS 3072)
// IRQ handler:  $089a (irq_089a)
//
// Code: 515 bytes, Data: 516 bytes
// Labels: 43, Subroutines: 3
//
// Cross-references: all OK
// ============================================


// --- Region $0849-$0876 ---
.pc = $0849 "sub_0849"
// Referenced by: jsr from $08d8

sub_0849:
        lda #$c0

loc_084b:
        cmp $d012
        bne loc_084b
        ldx #$07

loc_0852:
        dex
        bne loc_0852
        bit $ea
        ldx #$00
        ldy #$00
        lda $0820,x
        nop

loc_085f:
        nop
        bit $ea
        sta $d021
        lda $0820,x
        sta $d021
        sta $d021
        inx
        lda $0820,x
        cpy #$02
        bne loc_0887

dat_0876:
        .byte $8d                                   // .

// --- Region $0887-$0a59 ---
.pc = $0887 "loc_0887"

loc_0887:
        nop
        pha
        lda $d012
        and #$07
        tay
        bit $ea
        nop
        nop
        nop
        pla
        cpx #$21
        bne loc_085f
        rts

irq_089a:
        lda #$4a

loc_089c:
        cmp $d012
        bne loc_089c
        ldx #$00

loc_08a3:
        lda $0841,x
        sta $d016
        ldy #$f6

loc_08ab:
        iny
        bne loc_08ab
        inx
        cpx #$08
        bne loc_08a3
        lda #$b8
        sta $d016
        lda #$12
        sta $d018
        lda #$09
        sta $d022
        lda #$07
        sta $d023
        lda #$ba

loc_08c9:
        cmp $d012
        bne loc_08c9
        lda $68
        sta $d016
        lda #$15
        sta $d018
        jsr sub_0849
        jsr sub_09b4
        lda $dc01
        and #$10
        bne loc_0910
        sei
        ldx #$00
        stx $d01a
        stx $d011
        stx $d020
        ldx #$ff
        txs
        jsr $fda3
        jsr $fd15
        jsr $ff5b
        ldx #$00
        stx $d011

loc_0902:
        lda dat_0913,x
        sta $0340,x
        inx
        cpx #$38
        bne loc_0902
        jmp $0340

loc_0910:
        jmp $febc

dat_0913:
        .byte $78,$a2,$30,$86,$01                   // x.0..

loc_0918:
        ldx #$00

loc_091a:
        lda $0c08,x

loc_091d:
        sta dat_0801,x
        inx
        bne loc_091a