#467

X-Rated 40

X-Rated

1.762 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Group
X-Rated — Germany, founded March 1989

Coded and visually designed by Ollie, this intro from X-Rated features music by Brian (Balazs Farkas) with the tune "Turmoil." Doc Snyder's page catalogues it as "Crack Intro #08" and preserves the scrolltext by L'Trimm, who describes cracking "World Rugby" from Zeppelin Games and thanks "Ollie/Pride" — revealing that Ollie was a member of the group Pride who contributed work to X-Rated. X-Rated was a German demo and cracking group founded in March 1989 and dissolved in July 1993. CSDb documents them with over 120 members, including crackers Infinity, Ozymandias, L'Trimm, Accept, and Captain Future. The group had Elect as a sub-group and maintained a website at xr-design.de. X-Rated is extensively represented in this collection, with entries including #454 XR 03, #879 XR 15, and #990 XR 70. The group's numbered intros reached at least seventy entries — a substantial catalogue reflecting their prolific output.

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

xr-40.asm 1.762 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: $288f  (8336 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0fd0 (4048)
// IRQ handler:  $1a5b (irq_1a5b)
//
// Code: 1408 bytes, Data: 6928 bytes
// Labels: 149, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $0f90-$0fa9 ---
.pc = $0f90 "sub_0f90"
// Referenced by: jsr from $1a11

sub_0f90:
        lda #$f8
        sta $1bd9
        lda #$03
        sta smc_1b45                                // SMC: modifies $1b45
        jsr $e544
        jsr sub_1d78
        lda #$c0
        sta $ae
        sta $da2f
        ldx #$01
        rts

// --- Region $0fd0-$0fd7 ---
.pc = $0fd0 "main_0fd0"

main_0fd0:
        lda #$ff
        sta chr_0800
        jmp loc_1a00

// --- Region $0ff0-$0ff7 ---
.pc = $0ff0 "sub_0ff0"
// Referenced by: jsr from $1a7f

sub_0ff0:
        jsr sub_1003
        jmp loc_1b40

chr_0ff6:
        // === Charset data (2 bytes, $0ff6-$0ff7) ===
        .byte $00,$00                               // char 0 (partial)

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1a03

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $0ff0

sub_1003:
        jmp loc_1021

txt_1006:
        .text " "

// --- Region $1021-$1080 ---
.pc = $1021 "loc_1021"

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

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

loc_1034:
        lda #$05
        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

loc_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 $17f2,y