← #99 Top 1024 #101 →
#100

Red Sector Incorporated [RSI] 11

Red Sector Incorporated [RSI]

2.393 lines of code

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

History

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

Red Sector Incorporated — the Canadian group that would later evolve into the legendary Amiga demo group Red Sector Inc. (RSI) and eventually Renaissance. Double-T coded this intro while Chotaire (Marc) composed "Technology 2," preserved in the HVSC. RSI was founded in Canada in 1985, making them one of the oldest North American cracking groups alongside #1 Eagle Soft Incorporated. Released in 1992, this represents RSI's late C64 period — by then the group's focus had already shifted significantly toward the Amiga demoscene where they would achieve greater fame. The "#11" numbering indicates a substantial back-catalogue. RSI's evolution from C64 crackers to celebrated Amiga demo coders is one of the scene's most successful platform transitions.

Sources: CSDb

rsi-11.asm 2.393 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: $0700  End: $3a3f  (13120 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2a00 (10752)
// IRQ handler:  $32ce (irq_32ce)
//
// Code: 2242 bytes, Data: 10878 bytes
// Labels: 215, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$08a7 ---
.pc = $0810 "loc_0810"

loc_0810:
        sei
        ldx #$fb
        txs
        inc $01

loc_0816:
        lda $0823,x
        sta $0100,x
        dex
        bne loc_0816
        ldx #$80
        jmp $fce2

loc_0824:
        ldy #$00

loc_0826:
        lda $8730,y
        sta $ff00,y
        iny
        bne loc_0826
        dec $0105
        dec $0108
        dex
        bne loc_0826
        lda #$7a
        sta $fb
        lda #$80
        sta $fc

loc_0840:
        ldx #$00
        lda $0183,x
        sta $fd
        inx
        lda $0183,x
        sta $fe
        inx
        stx $011e
        ldx #$00

loc_0853:
        lda ($fb,x)
        cmp #$7b
        bne loc_088e
        inc $fb
        bne loc_085f

loc_085d:
        inc $fc

loc_085f:
        lda ($fb,x)
        bne loc_0868
        lda #$7b
        clc
        bcc loc_088e

loc_0868:
        inc $fb
        bne loc_086e
        inc $fc

loc_086e:
        cmp #$01
        beq loc_0840
        pha
        sta $015b
        ldy #$00
        lda ($fb,x)

loc_087a:
        sta ($fd),y
        iny
        cpy #$ff
        bne loc_087a
        clc
        pla
        adc $fd
        sta $fd
        bcc loc_0896
        inc $fe
        clc
        bcc loc_0896

loc_088e:
        sta ($fd,x)
        inc $fd
        bne loc_0896
        inc $fe

loc_0896:
        inc $fb
        bne loc_0853
        inc $fc
        bne loc_0853
        lda #$37
        sta $01
        cli
        jmp $fce2

dat_08a6:
        .byte $00,$0b                               // ..

// --- Region $108a-$1096 ---
.pc = $108a "loc_108a"

loc_108a:
        lda #$10
        ora #$0f
        sta $d418
        lda #$e8
        sta $d416
        rts

// --- Region $2a00-$2e81 ---
.pc = $2a00 "main_2a00"

main_2a00:
        jmp loc_2a09

bmp_2a03:
        // === Bitmap data (6 bytes, $2a03-$2a08) ===
        .byte $a2,$02,$ca,$d0,$fd,$60               // .....`

loc_2a09: