← #989 Top 1024 #991 →
#990

X-Rated 70

X-Rated

2.670 lines of code

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

History

Group
X-Rated — Germany, founded March 1989

Crack intro #70 from X-Rated — a German demo and cracking group active from March 1989 to July 1993. The number seventy places this among the highest-numbered intros in the entire collection, reflecting an output volume that few groups matched. CSDb documents X-Rated with over 120 members and notes their website at xr-design.de. No individual credits for code, music, or graphics have been identified for this specific release. The group's graphicians included Angelfuck, Deathbird, Neon, Salem, Tequila, and Crop, while their coders ranged from Anonym and Greenfrog to Infinity and Pigeon. The intros.c64.org entry attracted comments from iAN CooG, Xraffi, Changeling, and CenTraX!, indicating active community interest in identifying the release. The page also contains an external link to CSDb group page 452, confirming the group's catalogued presence. Other X-Rated entries in this collection include #454 XR 03 and #467 XR 40. CSDb records that X-Rated declared war on Vagabonds in May 1992 — a late-era scene conflict.

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

xr-70.asm 2.670 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:05
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3700  (12033 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2200 (8704)
// IRQ handler:  $2300 (irq_2300)
// IRQ handler:  $1c30 (loc_1c30)
//
// Code: 2467 bytes, Data: 9566 bytes
// Labels: 282, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1009 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1c24, $223b

sub_1000:
        jmp loc_107a

dat_1003:
        .byte $4c,$aa,$10                           // L..
// Referenced by: jsr from $1c39, $23c0

sub_1006:
        jmp loc_10b0

dat_1009:
        .byte $ff                                   // .

// --- Region $107a-$1453 ---
.pc = $107a "loc_107a"

loc_107a:
        ldx #$00
        txa

loc_107d:
        lda #$00
        sta $102c,x
        sta $1062,x
        lda #$01
        sta $1029,x
        lda #$09
        sta $102f,x
        lda #$10
        sta $1032,x
        inx
        cpx #$03
        bcc loc_107d
        lda $1011
        sta $1013
        lda #$0f
        sta $d418
        lda #$01
        sta $100a
        rts

loc_10aa:
        lda #$00
        sta $100a
        rts

loc_10b0:
        lda $100a
        bne loc_10b6
        rts

loc_10b6:
        ldx #$02

loc_10b8:
        lda $100e,x
        sta $fb
        tay
        lda $1029,x
        beq loc_10fd
        dec $105c,x
        bpl loc_10d4
        inc $105c,x
        lda $106b,x
        sta $d404,y
        jmp loc_1220

loc_10d4:
        lda $1044,x
        and #$10
        beq loc_10fa
        lda #$81
        sta $d404,y
        lda $1012
        asl
        tay
        lda dat_1453,y
        pha
        lda $1454,y
        pha
        ldy $fb
        pla
        sta $d401,y
        pla
        sta $d400,y
        jmp loc_137f

loc_10fa:
        jmp loc_1220

loc_10fd:
        txa
        tay
        lda $102f,y
        sta $fc
        lda $1032,y
        sta $fd
        lda #$00
        sta $100d
        ldy $102c,x
        lda #$00
        sta $1023,x
        lda ($fc),y
        cmp #$ff
        bne loc_111f
        jmp loc_140c

loc_111f:
        pha
        and #$20
        beq loc_1129
        lda #$01
        sta $100d

loc_1129:
        pla
        cmp #$80
        bcc loc_1131
        jmp loc_139a

loc_1131:
        and #$1f
        clc
        adc #$01
        sta $1029,x