← #574 Top 1024 #576 →
#575

Success+Ruling Company, The 04

Success+Ruling Company, The

3.339 lines of code

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

History

Released
March 1997
Group
Success+The Ruling Company — Netherlands, founded January 1994

The fourth crack intro from Success+The Ruling Company — the Dutch cracking partnership known on CSDb (group ID 133) as "the longest running co-op in C64 scene history." This intro (CSDb release 54102) dates to 4 March 1997, coded by Burglar with graphics contributions from both Burglar and Cupid of Extacy and Hitmen. The music — "Street Wise" — is a collaborative composition by Dane and Mitch of Crest and Cyberzound Productions. SCS*TRC was founded on 1 January 1994 by Nightshade, CBA, Moren, Burglar, and Action Jackson. Burglar emerged as the alliance's most prolific intro coder, handling both code and graphics across multiple productions. This intro saw subsequent use in crack releases including Assassins, Blood Hand, Bombmania, and Skidmarks. Comments on intros.c64.org from janer/dawn and scene archivist iAN CooG confirm community engagement. Other SCS*TRC intros in this collection appear at #606 SCS_TRC-03, #673 SCS_TRC-07, #630 SCS_TRC-10, and #374 SCS_TRC-12.

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

scs_trc-04.asm 3.339 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:43
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $51ff  (19200 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $47e8 (18408)
// IRQ handler:  $4af2 (irq_4af2)
//
// Code: 3271 bytes, Data: 15929 bytes
// Labels: 361, Subroutines: 18
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $4b31

sub_1003:
        jmp loc_10c1

spr_1006:
        // === Sprite data (1 bytes, $1006-$1006) ===
        .byte $01

// --- Region $1040-$1140 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17cb,y
        sta $172e,x
        sta $1734,x
        lda $17cc,y
        sta $1731,x
        sta $1737,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        lda $17cb,y
        sta $1747
        lda txt_1020
        beq loc_1095
        ldx #$02

loc_106c:
        lda $17cc,y
        sta $100b
        and $173a,x
        sta spr_1006,x
        dex
        bpl loc_106c
        bit $100b
        bpl loc_1095
        ldx #$00

loc_1082:
        lda $17cd,y
        sta $1734,x
        lda $17ce,y
        sta $1737,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1082

loc_1095:
        ldy #$00
        tya

loc_1098:
        sta $d400,y
        iny
        cpy #$17
        bne loc_1098
        tay

loc_10a1:
        sta $1014,y
        iny
        cpy #$0c
        bne loc_10a1
        ldy #$14

loc_10ab:
        sta $1748,y
        dey
        bpl loc_10ab
        lda #$01
        sta $1794
        lda #$03
        sta $1746
        lda #$0f
        sta $1009
        rts

loc_10c1:
        lda $fb
        pha
        lda $fc
        pha
        dec $1746
        bpl loc_10e9
        lda $1747
        sta $1746
        cmp #$02
        bcs loc_10e9
        ldy $1794
        lda $191b,y
        sta $1746
        dec $1794
        bpl loc_10e9
        lda #$01
        sta $1794

loc_10e9:
        ldx #$02

loc_10eb:
        lda spr_1006,x
        bne loc_10f3
        jmp loc_1660

loc_10f3:
        lda $1746
        beq loc_1104
        cmp #$02
        bne loc_1109
        lda $175a,x
        beq loc_110f
        jmp loc_1409