#774

Success [SCS] 21

Success [SCS]

2.491 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
December 1991
Code
Major-X
Music
Egon Larsen (Marcel) — "Enforce" / OMP (Ole Marius Pettersen) — "Halloween Theme" / Steel (Mario Laugell) — "Mazemania Mix"
Group
Success — Germany, founded 2 September 1989

A Success intro from December 1991, coded by Major-X and featuring three SID tunes from three different composers — all preserved in the HVSC. Egon Larsen (Marcel) contributed "Enforce," OMP (Ole Marius Pettersen) provided "Halloween Theme," and Steel (Mario Laugell) supplied "Mazemania Mix." Success was a German cracking group founded on 2 September 1989, closely allied with The Ruling Company (TRC) — together operating as SCS*TRC. Doc Snyder's page documents the group under the tagline "Suckers to da Wall!" with a roster that included coders Rap, Trax, Flexible, and Stilgar. Other ranked Success entries include #152 Success-05 and #222 Success-20. The three-musician arrangement mirrors Success-05's even more expansive eight-tune setup, suggesting the group consistently favoured multi-tune intros. Success's scrolltexts greet X-Ray, Chromance, F4CG, and other German and international groups of the early 1990s.

Sources: CSDb · docsnyderspage

success-21.asm 2.491 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:47
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $3001  (10260 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0d00 (3328)
// IRQ handler:  $0d2b (irq_0d2b)
// IRQ handler:  $0c00 (irq_0c00)
//
// Code: 2992 bytes, Data: 7268 bytes
// Labels: 237, Subroutines: 36
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0835 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $2d40

sub_0814:
        ror $99
        ror
        lda #$55
        tax
        eor $59,x
        ror $55
        ror $9a
        eor $aa,x
        eor $55,x
        ror $99
        ror $99
        eor $aa,x
        eor $99,x
        ror $99
        ror
        lda #$9b
        .byte $a3,$6b                               // lax ($6b,x) // ILLEGAL
        .byte $63,$63                               // rra ($63,x) // ILLEGAL

chr_0835:
        // === Charset data (1 bytes, $0835-$0835) ===
        .byte $63                                   // char 0 (partial)

// --- Region $0b40-$0baa ---
.pc = $0b40 "loc_0b40"

loc_0b40:
        sei
        lda #$00
        sta $d011
        ldx #$00

loc_0b48:
        lda #$00
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        lda #$08
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0b48
        lda #$13
        sta $d018
        lda #$00                                    // !SMC: modified by $0d87
        sta $0314
        lda #$0c
        sta $0315                                   // !SMC: modified by $0d8c
        jsr sub_20d8
        jsr sub_21d8
        jsr sub_22d8
        jsr sub_23d8
        jsr sub_2a82
        ldx #$00
        lda #$00

loc_0b89:
        sta dat_25c0,x
        sta dat_26c0,x
        sta dat_2700,x
        inx
        bne loc_0b89
        lda #$ff
        sta $d015
        lda #$38
        sta dat_2bf4
        lda #$00
        sta dat_2bdc
        lda #$1b
        sta $d011
        cli
        rts

// --- Region $0c00-$0cb2 ---
.pc = $0c00 "irq_0c00"

irq_0c00:
        lda #$36

loc_0c02:
        cmp $d012
        bne loc_0c02
// Referenced by: jsr from $2e26

sub_0c07:
        ldx #$0a

loc_0c09:
        dex
        bne loc_0c09
        lda $20f0
        sta $d016
        lda #$04
        sta $d021
        lda #$0f
        sta $d022
        lda #$0a
        sta $d023
        jsr sub_2340
        lda #$66

loc_0c26:
        cmp $d012
        bne loc_0c26
        ldx #$0a

loc_0c2d:
        dex
        bne loc_0c2d
        lda $21f0
        sta $d016
        lda #$09
        sta $d021
        lda #$0d
        sta $d022
        lda #$05
        sta $d023
        jsr sub_2040
        lda #$96

loc_0c4a: