#959

X-Rated 25

X-Rated

2.576 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Group
X-Rated — Germany, founded March 1989

An intro from X-Rated, the German demo and cracking group founded in March 1989. CSDb records the group's dissolution in July 1993, placing their total active period at just over four years — during which they amassed over 120 members and a massive release catalogue. No individual credits have been identified for this specific production. The group's numbered intros employed a rotating team spanning coders Roy, Ollie, Mark, Doom, Jack Alien, and Darklord on code, with musicians including JCH, Drax, dEViLOCk, Brian, Stefan Hartwig, and The Noise Art. X-Rated's scrolltexts reveal crackers Infinity and Ozymandias as the group's most active operators, with dated references concentrated in 1990 through 1992. The group maintained connections across German, Dutch, and Scandinavian scene networks, as reflected in their greeting lists. This sits alongside #972 XR 22 and earlier entries such as #454 XR 03 and #467 XR 40.

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

xr-25.asm 2.576 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: $2dff  (9728 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0c00 (3072)
// IRQ handler:  $0c1f (irq_0c1f)
//
// Code: 2069 bytes, Data: 7659 bytes
// Labels: 246, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0dfa ---
.pc = $0c00 "main_0c00"

main_0c00:
        jsr sub_0c8b
        sei
        lda #$1f
        ldx #$0c
        ldy #$01
        sta $0314
        stx $0315
        sty $d01a
        sty $dc0d
        lda #$1b
        sta $d011
        cli

loc_0c1c:
        jmp loc_0c1c

irq_0c1f:
        lda #$00
        sta $d012
.label smc_0c25 = * + 1
        lda #$d5                                    // !SMC: modified by $0d11
        sta $d016
        lda #$18
        sta $d018
        jsr sub_1003
        jsr sub_0f90

loc_0c34:
        lda $d012
        cmp #$92
        bne loc_0c34
        ldx #$09

loc_0c3d:
        dex
        bne loc_0c3d
        lda #$c8
        sta $d016
        lda #$13
        sta $d018
        jsr sub_0db4

loc_0c4d:
        lda $d012
        cmp #$c2
        bne loc_0c4d
        ldx #$09

loc_0c56:
        dex
        bne loc_0c56
.label smc_0c5a = * + 1
        lda #$03                                    // !SMC: modified by $0d77
        sta $d016

loc_0c5e:
        lda $d012
        cmp #$da
        bne loc_0c5e
        ldx #$09

loc_0c67:
        dex
        bne loc_0c67
.label smc_0c6b = * + 1
        lda #$00                                    // !SMC: modified by $0dbc
        sta $d016
        inc $d019
        jsr sub_0d6f
        jsr sub_0d00
        jsr sub_0ee0
        jsr sub_0f38
        lda $dc01
        cmp #$ef
        beq loc_0c88
        jmp $ea7e

loc_0c88:
        jmp loc_2b80
// Referenced by: jsr from $0c00

sub_0c8b:
        ldx #$01
        stx $0286
        dex
        stx $d020
        stx $d021
        stx $d011
        stx smc_0d91                                // SMC: modifies $0d91
        stx smc_0dd6                                // SMC: modifies $0dd6
        jsr $e544
        lda #$00
        jsr sub_1000
        ldx #$00

loc_0caa:
        lda #$40
        sta $0400,x
        inx
        cpx #$50
        bne loc_0caa
        lda #$09
        sta $d023
        ldx #$00

loc_0cbb:
        lda #$0d
        sta $d022
        sta $d850,x
        sta $d918,x
        inx
        cpx #$c8
        bne loc_0cbb
        ldx #$00

loc_0ccd:
        lda txt_2160,x
        sta $0608,x
        clc
        adc #$40
        sta $0630,x
        lda $2188,x
        sta $0658,x
        clc
        adc #$40
        sta $0680,x