← #496 Top 1024 #498 →
#497

Rowdy American Distributors [RAD] 12

Rowdy American Distributors [RAD]

1.722 lines of code

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

History

Group
Rowdy American Distributors [RAD] — United States

The twelfth numbered intro from Rowdy American Distributors — an American group whose name explicitly identifies its role as a distribution operation in the transatlantic C64 software trading network. No individual credits for code, music, or graphics have been identified, and the CSDb search failed to return release data. An Atlantis Prophecy interview with Radar provides documentary context on the group. Comments on intros.c64.org from Rough and Changeling of Abyss confirm community recognition. This is one of six RAD entries in the collection, alongside #160 RAD-01, #258 RAD-03, #433 RAD-06, #549 RAD-07, and #797 RAD-13. RAD's output of at least thirteen numbered intros demonstrates sustained activity, and the group's abbreviation — doubling as 1980s slang for something impressive — was a deliberate branding choice common in scene culture of that era.

Sources: intros.c64.org · Atlantis Prophecy

rad-12.asm 1.722 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:34
// 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:  $ca00 (51712)
// IRQ handler:  $cc6c (irq_cc6c)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1530 bytes, Data: 61957 bytes
// Labels: 159, Subroutines: 6
//
// 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 $ca00-$cad5 ---
.pc = $ca00 "main_ca00"

main_ca00:
        lda #$36
        sta $01
        ldx #$00

loc_ca06:
        lda $0800,x
        sta $b800,x
        lda $0900,x
        sta $b900,x
        lda $0a00,x
        sta $ba00,x
        lda $0b00,x
        sta $bb00,x
        lda $0c00,x
        sta $bc00,x
        lda $0d00,x
        sta $bd00,x
        lda $0e00,x
        sta $be00,x
        lda $0f00,x
        sta $bf00,x
        dex
        bne loc_ca06
        lda #$37
        sta $01
        jmp loc_ca83

loc_ca40:
        lda #$36
        sta $01
        ldx #$00

loc_ca46:
        lda $b800,x
        sta $0800,x
        lda $b900,x
        sta $0900,x
        lda $ba00,x
        sta $0a00,x
        lda $bb00,x
        sta $0b00,x
        lda $bc00,x
        sta $0c00,x
        lda $bd00,x
        sta $0d00,x
        lda $be00,x
        sta $0e00,x
        lda $bf00,x
        sta $0f00,x
        dex
        bne loc_ca46
        lda #$37
        sta $01
        jmp loc_fce2

dat_ca80:
        .byte $4c,$ae,$a7                           // L..

loc_ca83:
        ldx #$00

loc_ca85:
        lda dat_c000,x
        sta $0800,x
        lda $c100,x
        sta $0900,x
        lda $c200,x
        sta $0a00,x
        lda $c300,x
        sta $0b00,x
        lda $c400,x
        sta $0c00,x
        lda $c500,x
        sta $0d00,x
        lda $c600,x
        sta $0e00,x
        lda $c700,x
        sta $0f00,x
        dex
        bne loc_ca85
        jmp loc_cc00

dat_cabb:
        .byte $00,$00,$00,$00,$00                   // .....
// Referenced by: jsr from $cf52, $ffde

sub_cac0:
        lda #$36
        sta $01
        ldx #$00

loc_cac6:
        lda dat_b6f8,x
        sta $06f8,x
        inx
        cpx #$f0
        bne loc_cac6
        lda #$37
        sta $01
        rts

// --- Region $cc00-$cc04 ---
.pc = $cc00 "loc_cc00"

loc_cc00:
        jmp loc_cf4f

dat_cc03:
        .byte $71,$a8                               // q.

// --- Region $cc2c-$ccd2 ---
.pc = $cc2c "sub_cc2c"
// Referenced by: jsr from $cf4f, $ffdb

sub_cc2c: