← #796 Top 1024 #798 →
#797

Rowdy American Distributors [RAD] 13

Rowdy American Distributors [RAD]

1.924 lines of code

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

History

Group
Rowdy American Distributors [RAD] — United States

The thirteenth — and presumably final — numbered intro from Rowdy American Distributors, a group whose name explicitly identifies both its national identity and its distribution function within the C64 software trading network. No CSDb release data could be retrieved, and no individual credits for code, music, or graphics are documented. This is the lowest-ranked of six RAD entries in the collection, alongside #160 RAD-01, #258 RAD-03, #433 RAD-06, #497 RAD-12, and #549 RAD-07. The Atlantis Prophecy interview archive contains a piece on Radar that references the group. Having thirteen numbered intros indicates sustained operations throughout the late 1980s. American distribution groups served as vital links in the transatlantic software trading chain, importing European cracks to US bulletin board systems and postal trading networks.

Sources: intros.c64.org · Atlantis Prophecy

rad-13.asm 1.924 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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:  $c6a0 (50848)
// IRQ handler:  $c774 (irq_c774)
//
// Code: 844 bytes, Data: 62643 bytes
// Labels: 128, Subroutines: 6
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $2e8d-$2e8d ---
.pc = $2e8d "Segment $2e8d"
        brk

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

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

loc_a7ae:
        brk

// --- Region $c6a0-$c6ea ---
.pc = $c6a0 "main_c6a0"

main_c6a0:
        jmp loc_c6db
// Referenced by: jsr from $c6db, $c6e1

sub_c6a3:
        sei
        lda #$34
        sta $01
        lda #$00
        sta $02
        lda #$f0
        sta $03
        lda #$00
        sta $04
        lda #$30
        sta $05
        ldy #$00

loc_c6ba:
        lda ($04),y
        pha
        lda ($02),y
        sta ($04),y
        pla
        sta ($02),y
        inc $02
        bne loc_c6cc

dat_c6c8:
        .byte $e6,$03,$f0,$09                       // ....

loc_c6cc:
        inc $04
        bne loc_c6ba
        inc $05
        jmp loc_c6ba

dat_c6d5:
        .byte $a9,$37,$85,$01,$58,$60               // .7..X`

loc_c6db:
        jsr sub_c6a3
        jsr sub_c700
        jsr sub_c6a3
        jsr $fce2
        jmp loc_a7ae

dat_c6ea:
        .byte $00                                   // .

// --- Region $c700-$c703 ---
.pc = $c700 "sub_c700"
// Referenced by: jsr from $c6de

sub_c700:
        jmp loc_c923

dat_c703:
        .byte $00                                   // .

// --- Region $c732-$c7df ---
.pc = $c732 "sub_c732"
// Referenced by: jsr from $c9e0

sub_c732:
        sei
        lda #$7f
        sta $dc0d
        lda $d011
        and #$7f
        sta $d011
        lda #$50
        sta $d012
        lda #$81
        sta $d01a
        lda $0314
        sta dat_c703
        lda $0315
        sta $c704
        lda #$74
        sta $0314
        lda #$c7
        sta $0315
        lda #$1e
        sta $c72d
        lda #$20
        sta $02
        lda #$cc
        sta $03
        lda #$40
        sta $e574
        cli
        rts

irq_c774:
        lda $d016
        ora #$10
        sta $d016
        nop
        nop
        nop
        nop
        nop
        ldx #$00

loc_c783:
        lda $c715,x
        sta $d020
        sta $d021
        inx
        cpx #$03