#903

Raw Deal Incorporated [RDI] 08

Raw Deal Incorporated [RDI]

3.067 lines of code

MusicSIDSpritesSPRT

History

Group
Raw Deal Incorporated [RDI]

A crack intro from Raw Deal Incorporated — abbreviated RDI — a group with minimal archival documentation across the major C64 scene databases. The CSDb search failed to return any matching release data, and no entries were found on Demozoo, Doc Snyder's Page, Atlantis Prophecy, Hugi, or Freeze64. No individual credits for code, music, or graphics have been identified, and the group's country of origin and founding date remain unrecorded. The name "Raw Deal Incorporated" follows the common scene convention of combining aggressive terminology with a corporate-sounding suffix — a naming pattern shared by numerous other "Incorporated" crews of the era. The intros.c64.org listing has attracted comments from iAN CooG and Conrad, both experienced scene archivists. Without CSDb cataloguing or corroborating data from any archival source, this intro exists primarily as a standalone artifact on intros.c64.org. The complete absence of cross-referenced data suggests either a very short-lived group or one whose productions were poorly preserved.

Sources: intros.c64.org

rdi-08.asm 3.067 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:37
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $39ff  (12800 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $25c0 (9664)
// IRQ handler:  $2063 (irq_2063)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2667 bytes, Data: 10133 bytes
// Labels: 346, Subroutines: 25
//
// Cross-references: all OK
// ============================================


// --- Region $10ce-$10d2 ---
.pc = $10ce "sub_10ce"
// Referenced by: jsr from $2224

sub_10ce:
.label smc_10cf = * + 1
        ldy #$ff                                    // !SMC: modified by $1e02
        bmi loc_1136

dat_10d2:
        .byte $f0                                   // .

// --- Region $10f5-$13a4 ---
.pc = $10f5 "loc_10f5"

loc_10f5:
        iny
        iny
        lda $18f5,y
        sta $105d,x
        lda $18f6,y
        sta $1060,x
        lda #$00
        sta $1057,x
        sta $105a,x
        sta $1063,x
        sta $1048,x
        sta $1066,x
        lda #$01
        sta $103f,x
        sta $1045,x
        sta $1075,x
        inx
        cpx #$03
        bne loc_10f5
        sta $fd
        lda #$0f
        sta $d418
        rts

loc_112c:
        sty $d404
        sty $d40b
        sty $d412
        rts

loc_1136:
        cld
        ldx #$02
        dec $fd
        bpl loc_1143
        lda #$00
        sta $fd
        bne loc_1154

loc_1143:
        dec $fc
        bpl loc_1154
        lda #$02
        sta $fc
        dec $103f
        dec $1040
        dec $1041

loc_1154:
        jsr sub_115b
        dex
        bpl loc_1154
        rts
// Referenced by: jsr from $1154

sub_115b:
        ldy $104e,x
        sty $f9
        lda $1045,x
        sta $fa
        bne loc_11e3
        sta $108a,x
        sta $108d,x
        sta $10bd,x
        sta $107b,x
        sta $107e,x
        sta $10a8,x
        sta $106f,x
        sta $1072,x
        lda $198c,y
        sta $1066,x
        lda $1990,y
        and #$0f
        sta $10c0,x
        lda $1991,y
        sta $1078,x
        lda $1992,y
        sta $1075,x
        lda $198e,y
        ldy $18ef,x
        sta $d405,y
        ldy $f9
        lda $198f,y
        ldy $18ef,x
        sta $d406,y
        lda $1078,x
        and #$20
        beq loc_11b9
        lda #$00
        sta $d404,y

loc_11b9:
        ldy $f9
        lda $1993,y
        and #$0f
        beq loc_11e3
.label smc_11c3 = * + 1
        ldy #$00                                    // !SMC: modified by $1766, $1774
        bne loc_11e3
        asl
        asl
        asl
        tay
        lda $19f1,y
        sta $d418
        lda $19f2,y
        clc
        adc $18f2,x
        sta $d417
        lda $19f3,y
        sta $10cc
        sta $d416