History
- Group
- X-Rated — Germany, founded March 1989
An intro from Germany's X-Rated, a group that CSDb records as active from March 1989 to July 1993 with over 120 members across its lifespan. No individual credits for code, music, or graphics have been identified for this specific production. The group operated as both a demo group and cracking group, with crackers Infinity, Ozymandias, L'Trimm, Accept, and Captain Future driving their release output. Doc Snyder's page documents ten of the group's intros with musicians including JCH, Drax, dEViLOCk, Brian (Balazs Farkas), and Kristian Roestoen. Comments on intros.c64.org from iAN CooG — the well-known Italian scene archivist — and X-Raffi indicate the intro was examined by both preservationists and former members. X-Rated had Elect as a sub-group and maintained a website at xr-design.de. This is one of multiple X-Rated entries in the collection, alongside #454 XR 03, #467 XR 40, and #919 XR 43.
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: $22ff (6912 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $1168 (4456) // IRQ handler: $ea31 (irq_ea31) // // Code: 1018 bytes, Data: 5894 bytes // Labels: 111, Subroutines: 9 // // Cross-references: all OK // ============================================ // --- Region $1168-$14cd --- .pc = $1168 "main_1168" main_1168: lda $d012 and #$03 sta dat_14ce sei loc_1171: lda #$00 sta $14cf sta $14d0 sta $14d1 sta $14d2 sta $14d3 sta smc_1371 // SMC: modifies $1371 sta smc_1395 // SMC: modifies $1395 lda #$0a sta smc_1432 // SMC: modifies $1432 lda #$e8 sta smc_153f // SMC: modifies $153f lda #$15 sta smc_1540 // SMC: modifies $1540 lda #$d8 sta $14d5 sta $14d4 lda #$a5 sta chr_0800 lda #$bf sta $0801 lda #$70 sta $0802 lda #$73 sta $0803 lda #$00 sta $d020 lda #$08 sta $0286 jsr $e544 ldx #$00 loc_11c2: lda $1000,x sta $0400,x ldy dat_14ce beq loc_11d4 cpy #$02 beq loc_11d4 sta $0680,x loc_11d4: lda $1068,x sta $0468,x ldy dat_14ce beq loc_11e6 cpy #$02 beq loc_11e6 sta $06e8,x loc_11e6: lda #$0b sta $d968,x inx bne loc_11c2 ldx #$27 loc_11f0: lda #$00 sta $da58,x sta $d968,x lda txt_15c0,x sta $05e0,x dex bpl loc_11f0 ldx #$07 loc_1203: lda $151b,x sta $05a0,x dex bpl loc_1203 loc_120c: lda $d011 and #$80 bne loc_120c lda dat_14ce beq loc_1226 cmp #$01 bne loc_121f jmp loc_129a loc_121f: cmp #$02 beq loc_1226 jmp loc_129a loc_1226: lda #$31 jsr sub_1565 lda $14d5 sta smc_157a // SMC: modifies $157a .label smc_1232 = * + 1 ldx #$04 // !SMC: modified by $1375 loc_1233: lda $d012 loc_1236: cmp $d012 beq loc_1236 and #$07 ora #$18 sta $d011 dex bpl loc_1233 lda #$58 clc adc smc_1232 tax lda #$38 clc adc smc_1232 jsr sub_157f lda #$7f clc adc smc_1232 jsr sub_1565 jsr sub_1523