← #763 Top 1024 #765 →
#764

Red Sector Incorporated [RSI] 08

Red Sector Incorporated [RSI]

4.192 lines of code

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

History

Released
7 April 1989
Code
Mr. President
Music
Jeroen Tel — "Savage"
Group
Red Sector Inc. — Canada, founded 1985

CSDb catalogues this as "RSI Intro #03," coded by Mr. President with music from Jeroen Tel — one of the most celebrated SID composers in C64 history. Tel's "Savage" provides the soundtrack, preserved in the HVSC. Released on 7 April 1989, this came during Red Sector Inc.'s peak C64 period before their celebrated transition to the Amiga demoscene. RSI was founded in Canada in 1985, making them one of the earliest North American groups. Securing a Jeroen Tel composition — the Dutch musician behind countless iconic game soundtracks — demonstrates the group's international standing despite their Canadian base. Other ranked RSI entries include #193 RSI-01 and #167 RSI-09. Mr. President's coding role connects him to the group's C64 output, which laid the groundwork for RSI's later Amiga achievements. The combination of Canadian code and Dutch music exemplifies the transatlantic connections that defined the late-1980s scene.

Sources: CSDb

rsi-08.asm 4.192 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:40
// 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:  $0ec0 (3776)
// IRQ handler:  $0ecb (nmi_0ecb)
//
// Code: 3133 bytes, Data: 60355 bytes
// Labels: 431, Subroutines: 17
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0a20-$0a2a ---
.pc = $0a20 "Program $0a20"
        .byte $ff,$ff,$01                           // isc $01ff,x // ILLEGAL
        sbc $f3f9,y
        .byte $f3,$e7                               // isc ($e7),y // ILLEGAL
        .byte $c7,$c7                               // dcp $c7 // ILLEGAL

dat_0a2a:
        .byte $c7                                   // .

// --- Region $0ec0-$0f38 ---
.pc = $0ec0 "main_0ec0"

main_0ec0:
        sei
        lda #$05
        sta $01
        lda $3fff
        sta smc_29e1                                // SMC: modifies $29e1

nmi_0ecb:
        ldx #$ff
        txs
        stx $0800
        stx $3fff
        lda #$7f
        sta $dc0d
        sta $dd0d
        bit $dc0d
        bit $dd0d
        lda #$b8
        sta $dd04
        lda #$08
        sta $dd05
        ldx #$01
        stx $d011
        jsr sub_2a0a
        ldx #$00

loc_0ef6:
        and #$00
        sta $d000,x
        sta $d400,x
        sta $0518,x
        sta $0600,x
        sta $d918,x
        sta $da00,x
        lda #$08
        sta $0400,x
        sta $0418,x
        sta $d800,x
        sta $d818,x
        inx
        bne loc_0ef6
        stx $32
        stx $33
        stx $34
        stx $35
        stx $36
        stx $38
        stx dat_2681
        ldx #$27

loc_0f2c:
        lda #$96
        sta $0540,x
        sta $05b8,x
        cpx #$1a
        bcs loc_0f7c

dat_0f38:
        .byte $bd                                   // .

// --- Region $0f7c-$0fa0 ---
.pc = $0f7c "loc_0f7c"

loc_0f7c:
        dex
        bpl loc_0f2c
        jsr sub_28c0
        jsr sub_296e
        jsr sub_1000
        lda #$32
        ldx #$20
        ldy #$24
        jsr sub_26f0
        ldx #$20
        jsr sub_2a0a
        lda #$7f
        sta $dc00
        cli

smc_0f9c:
        jmp smc_0f9c                                // !SMC: modified by $24ec

dat_0f9f:
        .byte $a9,$4c                               // .L

// --- Region $1000-$1003 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $0f85

sub_1000:
        jmp loc_1075

dat_1003:
        .byte $4c                                   // L

// --- Region $1075-$12d8 ---
.pc = $1075 "loc_1075"

loc_1075:
        lda #$01
        sta $10b9
        ldy #$ff
        sty $d416
        iny
        sty $d417
        lda #$1f
        sta $d418
        lda #$00
        ldx #$61

loc_108c:
        sta $100c,x
        dex
        bne loc_108c
        ldx #$2d