← #971 Top 1024 #973 →
#972

X-Rated 22

X-Rated

1.959 lines of code

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

History

Group
X-Rated — Germany, founded March 1989

An intro from X-Rated, the German cracking group founded in March 1989 and dissolved in July 1993 after four years of prolific output. CSDb documents the group with over 120 members and notes their declaration of war on Vagabonds in May 1992 — a characteristic episode of scene rivalry. No individual credits have been identified for this specific production. Doc Snyder's page reveals the group's extensive roster across their catalogue, with coders including Roy, Ollie, Mark, Doom, and Jack Alien, and musicians spanning JCH, Drax, dEViLOCk, Brian, and The Noise Art. Comments on intros.c64.org from Doc Snyder and X-Raffi — the latter identifying himself as a group member — confirm continued community engagement with the archived work. The group's greetings across their scrolltexts reference Illusion, WOW, Genetix, Mayhem, Faces, Chromance, TRC, and Fairlight. This sits alongside #959 XR 25 and earlier entries such as #454 XR 03 in this collection.

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

xr-22.asm 1.959 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:04
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $27ff  (8192 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2200 (8704)
// IRQ handler:  $22be (irq_22be)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1507 bytes, Data: 6685 bytes
// Labels: 233, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $1020-$1080 ---
.pc = $1020 "sub_1020"
// Referenced by: jsr from $2334

sub_1020:
        nop
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $fe,$ff,$ff                           // ...

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226
// Referenced by: jsr from $2202

sub_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda dat_174c,y
        sta $fa
        lda dat_1741,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f
        sta $108a,x
        lda #$fe
        sta dat_1031,x
        jsr sub_1098

loc_10c3:
        jmp loc_1187

dat_10c6:
        .byte $00                                   // .

// --- Region $10d2-$10dd ---
.pc = $10d2 "loc_10d2"

loc_10d2:
        cmp #$a0
        bcc loc_10ec
        and #$1f
        sta $108a,x
        bcs loc_10c3
        brk

// --- Region $10ec-$1141 ---
.pc = $10ec "loc_10ec"

loc_10ec:
        asl
        asl
        asl
        sta dat_13d9,x
        iny
        lda ($fa),y
        cmp #$60
        bcs loc_10b6

loc_10f9: