#566

Red Sector Incorporated [RSI] 15

Red Sector Incorporated [RSI]

2.491 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
1992
Code
Double-T
Music
Chotaire (Marc) — "Technology 2"
Group
Red Sector Inc. — Canada, founded 1985

CSDb catalogues this as "RSI Intro #11" — a numbering discrepancy with its intros.c64.org designation as the fifteenth RSI intro, likely reflecting different cataloguing methodologies between the two archives. Released in 1992, it was coded by Double-T with music from Chotaire performing "Technology 2." Red Sector Inc. was founded in 1985 in Canada and became one of the most recognized names in the C64 cracking scene, later expanding to the Amiga platform where they gained further notoriety. RSI is well represented in the rankings, with #100 RSI-11 placing in the top 100, alongside #167 RSI-09 and #231 RSI-06. Chotaire's "Technology 2" reflects the SID music scene's evolution into more sophisticated compositions by the early 1990s. Red Sector Inc. later expanded to the Amiga platform, where members went on to form the legendary demo group Tristar & Red Sector Inc. (TRSI). The group's longevity — active from 1985 into the 1990s — spans nearly the entire commercial lifespan of the C64.

Sources: CSDb

rsi-15.asm 2.491 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:41
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $49c1  (16834 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1f00 (7936)
// IRQ handler:  $1e00 (irq_1e00)
//
// Code: 1798 bytes, Data: 15036 bytes
// Labels: 283, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0fa0-$0fe9 ---
.pc = $0fa0 "sub_0fa0"
// Referenced by: jsr from $1e61

sub_0fa0:
        lda $03ff
        sec
        sbc #$02
        and #$07
        sta $03ff
        bcc loc_0fae
        rts

loc_0fae:
        ldx #$00

loc_0fb0:
        lda $05e1,x
        sta $05e0,x
        inx
        cpx #$50
        bne loc_0fb0
.label smc_0fbc = * + 1
.label smc_0fbd = * + 2
        lda txt_4740                                // !SMC: modified by $0fdc, $0fe1, $1f98, $1f9d
        cmp #$00
        beq loc_0fda
        sta $0607
        clc
        adc #$80
        sta $062f
        inc smc_0fbc
        lda smc_0fbc
        cmp #$00
        beq loc_0fd6
        rts

loc_0fd6:
        inc smc_0fbd
        rts

loc_0fda:
        lda #$40
        sta smc_0fbc                                // SMC: modifies $0fbc
        lda #$47
        sta smc_0fbd                                // SMC: modifies $0fbd
        lda #$20
        sta $0607
        rts

// --- Region $1021-$1080 ---
.pc = $1021 "sub_1021"
// Referenced by: jsr from $1e67

sub_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $ff,$ff,$ff                           // ...

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226
// Referenced by: jsr from $1f72

sub_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1: