← #878 Top 1024 #880 →
#879

X-Rated 15

X-Rated

2.151 lines of code

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

History

Group
X-Rated — Germany, founded March 1989

The fifteenth numbered intro from X-Rated, a German demo and cracking group founded in March 1989 and dissolved in July 1993. CSDb documents the group with over 120 members across their four-year run, classifying them as both a demo group and cracking group. No individual credits have been identified for this specific production. Doc Snyder's page catalogues ten X-Rated intros with a rotating cast of coders — Roy, Ollie, Mark, Doom, Jack Alien, and Darklord — alongside musicians including Drax, JCH, dEViLOCk, Brian, and The Noise Art. The group's primary crackers were Infinity and Ozymandias, with L'Trimm, Accept, and Captain Future also contributing. A 2007 comment from X-Raffi on intros.c64.org confirms a member's ongoing connection to the archived work. Other X-Rated entries in this collection include #454 XR 03 and #467 XR 40. The group maintained a website at xr-design.de, extending their presence beyond the original C64 era.

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

xr-15.asm 2.151 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: $07ee  End: $2d41  (9556 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2200 (8704)
// IRQ handler:  $2203 (irq_2203)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 1968 bytes, Data: 7588 bytes
// Labels: 216, Subroutines: 19
//
// Cross-references: all OK
// ============================================


// --- Region $0ffe-$1080 ---
.pc = $0ffe "loc_0ffe"

loc_0ffe:
.label sub_1000 = * + 2
        jsr $4c20
        pha
.label sub_1003 = * + 1
        bpl loc_1050
        and ($10,x)
        sei
        jsr sub_1000

loc_100a:
        lda #$ff

loc_100c:
        cmp $d012
        bne loc_100c
        jsr sub_1003
        lda $dc01
        and #$10
        bne loc_100a
        sta $d418
        cli
        rts

dat_1020:
        .byte $00                                   // .
// Referenced by: jsr from $2266

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

dat_1031:
        .byte $ff,$fe,$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 $2702

sub_1048:
        lda #$1f
        sta $d418
        lda #$f0
.label loc_1050 = * + 1
        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 $1b4c,y
        sta $fa
        lda $1b0e,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: