History
- Group
- X-Rated — Germany, founded March 1989
An intro from X-Rated, a German demo and cracking group active from March 1989 to July 1993. CSDb catalogues them with over 120 members and classifies the group as both a demo group and cracking group, with a website at xr-design.de. No individual credits have been identified for this specific production. The group's scrolltexts — preserved on Doc Snyder's page — name Infinity and Ozymandias as primary crackers and reveal a broad network of scene contacts. X-Rated's intro catalogue employed a deep bench of contributors, with Doc Snyder documenting coders Roy, Ollie, Mark, Doom, Jack Alien, and Darklord alongside musicians JCH, Drax, dEViLOCk, Brian, and Stefan Hartwig. A comment on intros.c64.org from X-Raffi in 2009 provides a direct member connection. X-Rated is one of the most frequently represented groups in the lower half of this collection, with entries at #454 XR 03, #467 XR 40, and #919 XR 43 among others.
Sources: CSDb · Doc Snyder's Page · intros.c64.org
// ============================================ // 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: $1bff (5120 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0f80 (3968) // IRQ handler: $1573 (irq_1573) // // Code: 1099 bytes, Data: 4021 bytes // Labels: 126, Subroutines: 4 // // Cross-references: all OK // ============================================ // --- Region $0f80-$1006 --- .pc = $0f80 "main_0f80" main_0f80: sei jsr $e544 lda #$00 sta $d020 sta $d021 sta smc_1606 // SMC: modifies $1606 sta chr_0800 lda #$01 sta $d01a sta $dc0d lda #$73 sta $0314 lda #$15 sta $0315 ldx #$00 loc_0fa6: lda #$08 sta $d800,x sta $d900,x sta $da00,x sta $db00,x inx bne loc_0fa6 lda #$13 sta $d018 ldx #$00 loc_0fbe: lda #$40 sta $0608,x lda #$01 sta $d9e0,x lda #$00 sta $da08,x inx cpx #$28 bne loc_0fbe jsr sub_1000 lda #$c0 sta smc_161a // SMC: modifies $161a lda #$e0 sta smc_167f // SMC: modifies $167f lda #$09 sta $d9e0 sta $da07 lda #$02 sta $d9e1 sta $da06 lda #$08 sta $d9e2 sta $da05 lda #$0a sta $d9e3 jmp loc_17e9 chr_0fff: // === Charset data (1 bytes, $0fff-$0fff) === .byte $00 // char 0 (partial) // Referenced by: jsr from $0fd2 sub_1000: jmp loc_11df // Referenced by: jsr from $15d1 sub_1003: jmp loc_103b txt_1006: .text "M" // --- Region $103b-$11f6 --- .pc = $103b "loc_103b" loc_103b: ldx #$02 loc_103d: lda $1029,x clc adc $102c,x lda $1029,x adc $102c,x sta $1029,x ldy $100e,x sta $d402,y sta $d403,y ldy $101a,x inc $101a,x lda $1373,y cmp #$ff bne loc_106d lda $133f,y sta $101a,x tay lda $1373,y loc_106d: pha lda $133f,y bmi loc_1077 clc adc $1014,x loc_1077: and #$7f tay lda $1257,y pha lda dat_11f7,y ldy $100e,x sta $d400,y pla sta $d401,y pla sta $d404,y dex bpl loc_103d .label smc_1093 = * + 1 ldx #$01 // !SMC: modified by $10a4, $11ee dex beq loc_10a2 loc_1097: stx smc_1093 cpx #$04