★

Success+Ruling Company, The 02

Name: Success+Ruling Company, The 02
Availability: InStock
Author: Success+Ruling Company, The

Success+Ruling Company, The

5.988 lines of code

RasterbarsRSTRMusicSID

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

History

Released: May 1994
Code: Credo
Music: Link (Klaus Grøngaard, Vibrants) — Comic Frame
Graphics: Credo
Group: Success + The Ruling Company — Netherlands, founded 1994

SCS*TRC Intro 02, nicknamed the "Juppie cracktro," was coded and drawn by Credo, who joined the group at its founding in May 1994. The music is Comic Frame by Link of Vibrants, composed in 1989 — a tune that became a hallmark of the intro through its years of use. Success + The Ruling Company was a Dutch-German cooperative that would become one of the longest-running co-ops in C64 scene history, anchored in the Netherlands and organizers of the renowned X parties. With over thirty cracks carrying this intro, it was one of the group's most widely distributed releases.

Sources: CSDb · CSDb group

scs_trc-02.asm 5.988 lines

// ============================================
// scs_trc-02 - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 vdisasm-one 1.0 build 1, 2026-03-29 17:54:24
// 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:  $2020 (8224)
// IRQ handler:  $228b (nmi_228b)
// IRQ handler:  $2110 (irq_2110)
// IRQ handler:  $2102 (irq_2102)
//
// Code: 5420 bytes, Data: 58068 bytes
// Labels: 769, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $206c, $f743

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $210a, $2113, $f7e2, $f7eb

sub_1003:
        jmp loc_10da

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$136a ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17ef,y
        sta $174e,x
        sta $1754,x
        lda $17f0,y
        sta $1751,x
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $174d
        lda $17ef,y
        sta $100b
        sta $177b
        sta $177c
        sta $177d

loc_1073:
        sta $17d9,x
        inc $174d
        lda $100b
        clc
        adc $17ef,y
        sta $100b
        clc
        adc $174d
        inx
        cpx #$10
        bne loc_1073
        lda txt_1020
        beq loc_10bc
        ldx #$02

loc_1093:
        lda $17f0,y
        sta $174d
        and $175a,x
        sta dat_1006,x
        dex
        bpl loc_1093
        bit $174d
        bpl loc_10bc
        ldx #$00

loc_10a9:
        lda $17f1,y
        sta $1754,x
        lda $17f2,y
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_10a9

loc_10bc:
        ldy #$00
        tya

loc_10bf:
        sta $d400,y
        iny
        cpy #$1b
        bne loc_10bf
        tay

loc_10c8:
        sta $177e,y
        sta $1766,y
        iny
        cpy #$0c
        bne loc_10c8
        lda $1009
        sta $d418
        rts

loc_10da:
        ldx #$02

loc_10dc:
        lda $1769,x
        cmp #$02
        bne loc_110f
        ldy $1772,x
        lda $18ca,y
        ldy $1760,x
        sta $d405,y
        ldy $1772,x
        lda $18cb,y
        ldy $1760,x
        sta $d406,y
        lda $189e
        beq loc_1109
        lda $189d
        sta $d404,y
        jmp loc_110f

loc_1109:
        lda $1778,x
        sta $d404,y