#167

Red Sector Incorporated [RSI] 09

Red Sector Incorporated [RSI]

1.984 lines of code

RasterbarsRSTR

History

Released
1993
Group
Red Sector Inc. — Canada, founded 1985

The ninth crack intro from Red Sector Inc. — a Canadian cracking group founded in 1985 and active until the end of 1993. CSDb (group ID 602) classifies RSI as a demo group, cracker group, and fixing group, with a roster exceeding 80 members across its eight-year lifespan. The group was established by Billy Best, Greg, and Kangol Kid, and was rebuilt on the C64 in August 1992 by Irata, Mr. President, Psychobilly, Benson, and Termo. RSI earned a reputation as "the best 1st release group on the C64" during 1993 and produced approximately 280 releases over its full span. This intro features a modified version of O. Klaewer's "Zero Gravity" and was noted on intros.c64.org for containing anti-rip protection that caused crashes after extended runtime. RSI should not be confused with the better-known Tristar & Red Sector Inc. (TRSI), a separate German entity listed under CSDb group ID 915. Key members included coders Count Zero and Psychobilly, alongside crackers Irata, Mr Zero Page, and Dense.

Sources: CSDb — Group · intros.c64.org

rsi-09.asm 1.984 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:30
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3cba  (13499 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0800 (2048)
// IRQ handler:  $08ac (nmi_08ac)
// IRQ handler:  $0875 (irq_0875)
//
// Code: 1992 bytes, Data: 11507 bytes
// Labels: 225, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0800-$0803 ---
.pc = $0800 "main_0800"

main_0800:
        jmp loc_0a8f

dat_0803:
        // === Sine/lookup table (32 bytes, range $02-$5a) ===
        .byte $5a                                   // Z

// --- Region $0843-$08ac ---
.pc = $0843 "loc_0843"

loc_0843:
        dex
        bne loc_0843
        sta $d021
        rts

loc_084a:
        sei
        ldx #$3f

loc_084d:
        lda $02c0,x
        sta $02,x
        dex
        bpl loc_084d
        lda #$0b
        sta $d011
        ldx #$00
        txa
        sta $d020
        sta $d418

loc_0863:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0863
        jmp loc_3ca9

irq_0875:
        sta $17
        stx $18
        sty $19
        ldx $02
        lda dat_08ad,x
        sta smc_088a                                // SMC: modifies $088a
        lda $08ae,x
        sta smc_088b                                // SMC: modifies $088b
.label smc_088a = * + 1
.label smc_088b = * + 2
        jsr $ffff                                // !SMC: modified by $0880, $0886
        clc
        lda $02
        adc #$02
        cmp #$0a
        bcc loc_08a1
        lda $dc01
        and $dc00
        and #$10
        beq loc_084a
        lda #$00

loc_08a1:
        sta $02
        ldy $19
        ldx $18
        lda $17
        lsr $d019

nmi_08ac:
        rti

// --- Region $08d0-$08d3 ---
.pc = $08d0 "Program $08d0"
        ora $bd
        brk

dat_08d3:
        .byte $1a                                   // .

// --- Region $0a8f-$0be4 ---
.pc = $0a8f "loc_0a8f"

loc_0a8f:
        sei
        ldx #$3f

loc_0a92:
        lda $02,x
        sta $02c0,x
        dex
        bpl loc_0a92
        ldx #$ff
        txs
        lda #$05
        sta $01
        lda #$ac
        sta $fffa
        lda #$08
        sta $fffb
        lda #$75
        sta $fffe
        lda #$08
        sta $ffff                                // SMC: modifies $ffff
        ldy #$00
        sty $d020
        sty $d021
        lda #$0b
        sta $d011
        lda #$07
        sta $dd00

loc_0ac7:
        inx
        bne loc_0ac7
        iny
        bne loc_0ac7
        ldx #$00

loc_0acf:
        lda #$00
        sta $d000,x
        sta $d400,x
        lda #$08