#468

Red Sector Incorporated [RSI] 17

Name: Red Sector Incorporated [RSI] 17
Availability: InStock
Author: Red Sector Incorporated

Red Sector Incorporated [RSI]

1.830 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

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

History

Released: 23 November 1993
Code: Mr. President
Music: Rob Hubbard — "Zoids" (ripped)
Group: Red Sector Incorporated — Canada, founded 1985

CSDb catalogues this as "RSI Intro #19" — released on 23 November 1993, deep into the C64's twilight years. Mr. President coded the intro while the music draws on Rob Hubbard's iconic "Zoids" theme, preserved in the HVSC. Red Sector Incorporated was founded in Canada in 1985 and became one of North America's most important cracking groups. The group later evolved into the legendary Amiga demo outfit RSI and eventually Renaissance — one of the scene's most celebrated platform transitions. Another RSI entry appears at #167 RSI-09. By November 1993, most C64 groups had long since disbanded or migrated to the Amiga, making this a notably late release. The choice of Hubbard's "Zoids" — a tune from 1986 — reflects the reverence for classic SID compositions that characterised late-era productions. The graphics credit on CSDb lists no specific handle, suggesting the visual elements were either uncredited or created by the coder himself.

Sources: CSDb

rsi-17.asm 1.830 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: $0700  End: $2431  (7474 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1a68 (6760)
// IRQ handler:  $1a7f (nmi_1a7f)
// IRQ handler:  $1a84 (irq_1a84)
//
// Code: 2413 bytes, Data: 5061 bytes
// Labels: 187, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1382 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1e70

sub_1000:
        jmp loc_1a31
// Referenced by: jsr from $1087

sub_1003:
        jmp loc_1a62

loc_1006:
        inc $147d
        bit $1471
        bmi loc_102c
        bvc loc_1046
        lda #$00
        sta $147d
        ldx #$02

loc_1017:
        sta $1447,x
        sta $144a,x
        sta $144d,x
        sta $1456,x
        dex
        bpl loc_1017
        sta $1471
        jmp loc_1046

loc_102c:
        bvc loc_1043
        lda #$00
        sta $d404
        sta $d40b
        sta $d412
        lda #$0f
        sta $d418
        lda #$80
        sta $1471

loc_1043:
        jmp loc_1382

loc_1046:
        ldx #$02
        dec $146e
        bpl loc_1053
        lda $146f
        sta $146e

loc_1053:
        lda $1443,x
        sta $1446
        tay
        lda $146e
        cmp $146f
        bne loc_1077
        lda $14f6,x
        sta $fb
        lda $14f9,x
        sta $fc
        dec $144d,x
        bmi loc_107a
        jmp loc_116d

dat_1074:
        .byte $4c,$7c,$13                           // L|.

loc_1077:
        jmp loc_118c

loc_107a:
        ldy $1447,x
        lda ($fb),y
        cmp #$ff
        beq loc_108d
        cmp #$fe
        bne loc_109e
        jsr sub_1003
        jmp loc_1382

loc_108d:
        lda #$00
        sta $144d,x
        sta $1447,x
        sta $144a,x
        jmp loc_107a

spr_109b:
        // === Sprite data (3 bytes, $109b-$109d) ===
        .byte $4c,$7c,$13                           // .#..##...#####.....#..##

loc_109e:
        tay
        lda $150e,y
        sta $fd
        lda $152d,y
        sta $fe
        lda #$00
        sta $1478,x
        ldy $144a,x
        lda #$ff
        sta $145c
        lda ($fd),y
        sta $1450,x
        sta $145d
        and #$1f
        sta $144d,x
        lda #$4c
        sec
        sbc $1449
        cmp #$0f
        bcc loc_10cf
        lda #$0f

loc_10cf:
        sta $d418
        bit $145d
        bvs loc_1116
        inc $144a,x
        lda $145d
        bpl loc_10f0
        iny
        lda ($fd),y
        bpl loc_10ea
        sta $1478,x
        jmp loc_10ed