← #618 Top 1024 #620 →
#619

Random 01

Random

4.528 lines of code

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

History

Released
25 October 1990
Code
Excell
Graphics
Excell
Music
JCH (Jens-Christian Huus) — "Feel It," "Super Oswald," "Stopform+," "Craptune"
Group
Random — United States, founded October 1990

CSDb catalogues this as the Random Intro, released 25 October 1990. Excell — credited for both code and graphics — was a member of Ikari+Talent, and the scrolltext includes explicit thanks to him for the intro. JCH (Jens-Christian Huus) contributed no fewer than four SID tunes, all preserved in the HVSC: "Feel It," "Super Oswald," "Stopform+," and "Craptune." The scrolltext reveals Random importing a Genesis Project crack of "Sidewinder II" and adding additional trainers, demonstrating the transatlantic supply chain between European crackers and American distributors. Random's membership included Blue Devil, The Cure, Pudwerx, and Stormbringer. Doc Snyder's page documents the intro with full credits. Greetings reach NEC, XDS in the States, and Dominators, Genesis Project, Illusion, and Ikari+Talent overseas. Founded in October 1990, Random was a short-lived but well-connected American outfit.

Sources: CSDb · intros.c64.org · docsnyderspage

random-01.asm 4.528 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:36
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $2960 (10592)
// IRQ handler:  $2997 (nmi_2997)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 4418 bytes, Data: 59070 bytes
// Labels: 494, Subroutines: 22
//
// Cross-references: all OK
// ============================================


// --- Region $1003-$1006 ---
.pc = $1003 "sub_1003"
// Referenced by: jsr from $f756

sub_1003:
        jmp loc_1070

dat_1006:
        .byte $01                                   // .

// --- Region $1070-$126d ---
.pc = $1070 "loc_1070"

loc_1070:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02
        dec $1673
        bpl loc_1083
        lda $1674
        sta $1673

loc_1083:
        bne loc_1092
        lda dat_1006,x
        bne loc_108d
        jmp loc_150d

loc_108d:
        dec $1611,x
        bmi loc_109d

loc_1092:
        lda $160b,x
        bne loc_109a
        jmp loc_129f

loc_109a:
        jmp loc_11b9

loc_109d:
        lda $1617,x
        sta $1611,x
        lda #$00
        sta $1614,x

loc_10a8:
        lda $15dd,x
        sta $fb
        lda $15e0,x
        sta $fc
        ldy #$00
        lda ($fb),y
        bpl loc_10e6
        cmp #$ff
        bne loc_10d6
        lda $15e3,x
        sta $15dd,x
        sta $fb
        lda $15e6,x
        sta $15e0,x
        sta $fc
        ldy #$00
        lda ($fb),y
        bpl loc_10e6
        cmp #$ff
        beq loc_10e7

loc_10d6:
        and #$7f
        asl
        sta $1602,x
        inc $15dd,x
        bne loc_10a8
        inc $15e0,x
        bne loc_10a8

loc_10e6:
        tay

loc_10e7:
        lda $18da,y
        sta $fb
        lda $18e3,y
        sta $fc

loc_10f1:
        ldy $1605,x
        lda ($fb),y
        bmi loc_113a
        beq loc_112f
        cmp #$7e
        beq loc_1124
        sta $161a,x
        asl
        clc
        adc $1602,x
        tay
        lda dat_151d,y
        clc
        adc $1670,x
        sta $1635,x
        lda $151e,y
        adc #$00
        sta $1638,x
        lda $166d,x
        beq loc_1127
        dec $166d,x
        jmp loc_1127

loc_1124:
        inc $1614,x

loc_1127:
        lda #$ff
        sta $15f9,x
        jmp loc_1195

loc_112f:
        lda #$fe
        sta $15f9,x
        inc $1614,x
        jmp loc_1195

loc_113a:
        pha
        and #$e0