#606

Success+Ruling Company, The 03

Success+Ruling Company, The

3.530 lines of code

MusicSIDScrollerSCRL

History

Released
November 1996
Group
Success+The Ruling Company — Netherlands, founded January 1994

The third crack intro from the joint alliance of Success and The Ruling Company — commonly abbreviated SCS*TRC and described on CSDb as "the longest running co-op in C64 scene history." This intro (CSDb release 53426) dates to November 1996 and was coded by Burglar, with graphics by RRR of Oxyron and charset work by Nikaj Eijk of Electric Brains. The music is by Shark of The Freaks. Founded on 1 January 1994 by Nightshade, CBA, Moren, Burglar, and Action Jackson, SCS*TRC (CSDb group ID 133) functioned as a cracker group and fixing group based in the Netherlands. The partnership produced approximately 367 releases spanning 1994 to 2025 and hosted the long-running X parties. This intro was reused across 14 different game cracks. Other SCS*TRC intros appear at #575 SCS_TRC-04, #673 SCS_TRC-07, #630 SCS_TRC-10, and #374 SCS_TRC-12.

Sources: CSDb · CSDb — Group · intros.c64.org

scs_trc-03.asm 3.530 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:45
// 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:  $3f40 (16192)
// IRQ handler:  $4065 (irq_4065)
// IRQ handler:  $4089 (nmi_4089)
// IRQ handler:  $408a (irq_408a)
// IRQ handler:  $40f1 (irq_40f1)
// IRQ handler:  $411f (irq_411f)
//
// Code: 2392 bytes, Data: 61096 bytes
// Labels: 313, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3f55

sub_1000:
        jmp loc_103a

smc_1003:
        jmp loc_1071                                // !SMC: modified by $1072

txt_1006:
        .text "-"

// --- Region $103a-$1481 ---
.pc = $103a "loc_103a"

loc_103a:
        lda #$01
        sta $038d
        lda #$0f
        sta smc_1422                                // SMC: modifies $1422
        ldx #$02

loc_1046:
        lda #$ff
        sta $0343,x
        lda #$00
        sta $0340,x
        sta $0334,x
        sta $0337,x
        sta $033a,x
        dex
        bpl loc_1046
        sta dat_1482
        sta $038c
        ldx #$14

loc_1064:
        sta $d400,x
        dex
        bpl loc_1064
        lda $1896
        sta smc_1077                                // SMC: modifies $1077
        rts

loc_1071:
        dec $038d
        bpl loc_107b
.label smc_1077 = * + 1
        lda #$01                                    // !SMC: modified by $106d
        sta $038d

loc_107b:
        ldx #$02

loc_107d:
        jsr sub_1086
        dex
        bpl loc_107d
        jmp loc_1407
// Referenced by: jsr from $107d

sub_1086:
        lda $038d
        bne loc_1093
        lda $0340,x
        beq loc_1096
        dec $0340,x

loc_1093:
        jmp loc_123c

loc_1096:
        lda $033d,x
        sta $0340,x
        lda $1890,x
        sta $fb
        lda $1893,x
        sta $fc
        ldy $0334,x

loc_10a9:
        lda ($fb),y
        bpl loc_10e5
        cmp #$ff
        bne loc_10d7
        lda #$0f
        sta smc_1422                                // SMC: modifies $1422
        ldy #$00
        sty $0337
        sty $0338
        sty $0339
        ldy #$01
        sty $0334
        sty $0335
        sty $0336
        sty $0343
        sty $0344
        sty $0345
        beq loc_10a9

loc_10d7:
        lda ($fb),y
        clc
        adc #$20
        sta $0337,x
        iny
        inc $0334,x
        lda ($fb),y

loc_10e5:
        tay
        lda $18d8,y
        sta $fb
        lda $18e9,y
        sta $fc
        ldy $033a,x
        inc $033a,x
        lda ($fb),y
        iny
        cmp #$80
        bcc loc_111f
        cmp #$c0
        bcs loc_111f
        adc #$80
        sta $033d,x