← ★ Top 1024 ★ →
★

Raw Deal Incorporated [RDI] 03

Raw Deal Incorporated [RDI]

664 lines of code

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

History

Released
25 February 1987
Code
3469 (Jørn)
Music
None
Graphics
None (stock charset)
Group
Raw Deal Inc. — Norway, founded 1986

One of the earliest and most widely distributed Norwegian crack intros — a stripped-to-the-bone single-line scroller on a black screen, under 1 KB in size. Its simplicity was its strength: the tiny footprint made it ideal for cramming onto disk alongside cracks of Barbarian, Arkanoid, Army Moves, and dozens more. Raw Deal Inc. was founded in 1986 by 3469 and Steppenwolf, both alumni of the Wico Cracking Group, and quickly became one of Norway's most prolific cracking outfits with over 200 documented releases.

Sources: CSDb · CSDb group · Demozoo

rdi-03.asm 664 lines
// ============================================
// rdi-03 - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 vdisasm-one 1.0 build 1, 2026-03-29 17:54:22
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $cde7 (52711)
//
// Code: 522 bytes, Data: 62965 bytes
// Labels: 66, Subroutines: 2
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $288d-$288d ---
.pc = $288d "Segment $288d"
        brk

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $a7ae-$a7ae ---
.pc = $a7ae "loc_a7ae"

loc_a7ae:
        brk

// --- Region $cd00-$cda4 ---
.pc = $cd00 "loc_cd00"

loc_cd00:
        sei

loc_cd01:
        lda #$00
        sta $80
        lda #$ce
        sta $81
        ldy #$00

loc_cd0b:
        dec $90
        lda $90
        and #$07
        cmp #$07
        bne loc_cd3b
        lda ($80),y
        beq loc_cd01
        sta $0427
        iny
        sty $02a7
        lda $02a7
        beq loc_cd76
        lda #$00
        sta $d016                                   // hires, 38 cols, X-scroll=0
        nop
        ldx #$00

loc_cd2d:
        lda $0401,x
        sta $0400,x
        inx
        cpx #$28
        beq loc_cd3b
        jmp loc_cd2d

loc_cd3b:
        lda $90
        and #$07
        ora #$00
        tax

loc_cd42:
        lda $d012
        cmp #$20                                    // wait for raster line $20
        bne loc_cd42
        jsr sub_cdb8

loc_cd4c:
        lda $d012
        cmp #$3b                                    // wait for raster line $3b
        bne loc_cd4c
        lda #$00
        sta $d016                                   // hires, 38 cols, X-scroll=0

loc_cd58:
        lda $d012
        bne loc_cd58
        jmp loc_cd65

dat_cd60:
        .byte $e6,$81,$4c,$25,$cd                   // ..L%.

loc_cd65:
        cli
        lda $c5
        cmp #$3c
        beq loc_cd70
        sei
        jmp loc_cd0b

loc_cd70:
        jsr $e544
        lda #$08
.label loc_cd76 = * + 1
        sta $d016                                   // hires, 40 cols, X-scroll=0
        jmp loc_fce2

dat_cd7b:
        .byte $ea,$ea,$ea,$00,$00                   // .....
// Referenced by: jsr from $cdb8, $fdec

sub_cd80:
        sty $02a8
        stx $02a9
        sta $02aa

loc_cd89:
.label smc_cd8a = * + 1
        lda $cdc1                                   // !SMC: modified by $cdb2
        cmp #$ff
        beq loc_cdb0
        sta $d828
        ldx #$00

loc_cd95:
        lda $d801,x
        sta $d800,x
        inx
        cpx #$28
        beq dat_cda3
        jmp loc_cd95

dat_cda3:
        .byte $ee,$8a                               // ..

// --- Region $cdb0-$cdbe ---
.pc = $cdb0 "loc_cdb0"

loc_cdb0:
        lda #$c0
        sta smc_cd8a                                // SMC: modifies $cd8a