#454

X-Rated 03

Name: X-Rated 03
Availability: InStock
Author: X-Rated

X-Rated

5.546 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

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

History

Released: 1993
Group: X-Rated [XR] — Germany, CSDb group ID #452
Code: Doom
Music: Kristian Rostoen — "Ginger"

This crack intro from X-Rated — a German cracking group founded in 1988 — dates to 1993 and is catalogued on CSDb as release #164190 under the title "X-Rated Intro." The code was written by Doom, and the music is by Kristian Rostoen, using the SID tune "Ginger" from the HVSC. Doc Snyder's page confirms these credits for Crack Intro #03, with the music attributed to Kristian Roestoen, and maps it to CSDb release #164190. The scrolltext describes a crack of "Subbuteo" from Goliath/Electronic Zoo by Chrysagon and invites listeners to call a contact number. Greetings extend to Transcom, Dominators, F4CG, Crazy, Ikari+Talent, Legend, Action, Class, and others. X-Rated was a prolific German group with ten intros documented on Doc Snyder's page, featuring a diverse roster of coders including Doom, Ollie, Trigger, The Fleet, The Excellenz, Jack Alien, Mark, Roy, and Darklord. The group's signature motto — "Outta Schnapz!" — appears frequently in their scrolltexts.

Sources: CSDb Release · Doc Snyder · intros.c64.org

xr-03.asm 5.546 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: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0fa0 (4000)
// IRQ handler:  $0e1a (irq_0e1a)
//
// Code: 3392 bytes, Data: 60096 bytes
// Labels: 569, Subroutines: 49
//
// Cross-references: all OK
// ============================================


// --- Region $098d-$0994 ---
.pc = $098d "Program $098d"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0993:
        // === Fill data (2 bytes, $0993-$0994) ===
        .byte $ff,$ff                               // ..

// --- Region $0a0a-$0a11 ---
.pc = $0a0a "Program $0a0a"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0a10:
        // === Fill data (2 bytes, $0a10-$0a11) ===
        .byte $ff,$ff                               // ..

// --- Region $0dc0-$0dde ---
.pc = $0dc0 "sub_0dc0"
// Referenced by: jsr from $23fc

sub_0dc0:
        lda #$c4
        sta $d006
.label smc_0dc6 = * + 1
        lda #$02                                    // !SMC: modified by $3fcf
        sta $d007
        lda #$df
        sta $d008
.label smc_0dd0 = * + 1
        lda #$02                                    // !SMC: modified by $3fd2
        sta $d009
        lda #$fc
        sta $d00a
.label smc_0dda = * + 1
        lda #$02                                    // !SMC: modified by $3fd5
        sta $d00b
        rts

// --- Region $0e00-$0ed4 ---
.pc = $0e00 "sub_0e00"
// Referenced by: jsr from $0fa0

sub_0e00:
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$0e
        sta $0315
        lda #$1a
        sta $0314
        jsr sub_0f00
        cli
        rts

irq_0e1a:
        lda #$01
        sta $d019
        lda #$00

loc_0e21:
        cmp $d012
        bne loc_0e21
        lda #$18
        sta $d011
        jsr sub_1f89
        lda #$32

loc_0e30:
        cmp $d012
        bne loc_0e30
        jsr sub_1db1
        lda #$1e
        sta $d018
        jsr sub_1e9e
        jsr sub_1f79
        jsr sub_3f40
        jsr sub_3f00
        jsr sub_4400
        jsr sub_1f82
        nop
        lda #$7b

loc_0e52:
        cmp $d012
        bne loc_0e52
        jsr sub_1dcc
        jsr sub_1de7
        lda #$d8
        sta $d016
        lda #$1c
        sta $d018
        ldx #$0a
        ldy #$09
        stx $d022
        sty $d023
        lda #$a0

loc_0e73:
        cmp $d012
        bne loc_0e73
        lda #$1a
        sta $d018
        jsr sub_1f0c
        lda #$be

loc_0e82:
        cmp $d012
        bne loc_0e82
        lda #$1a
        sta $d018
        jsr sub_1f5a
        jsr sub_4480
        nop
        nop
        nop
        lda #$d0

loc_0e97:
        cmp $d012
        bne loc_0e97
        lda smc_4581
        sta $d016
        lda #$d9

loc_0ea4:
        cmp $d012