← #788 Top 1024 #790 →
#789

Success [SCS] 22

Success [SCS]

2.337 lines of code

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

History

Released
May 1992
Code
Rap
Graphics
Extreme Efforts
Music
Kopkilla (Michael Kugel) — "SCS Intro"
Group
Success [SCS] — Germany, founded 2 September 1989

Success's twenty-second intro, released in May 1992, with code by Rap, graphics by Extreme Efforts, and music by Kopkilla — Michael Kugel's composition titled simply "SCS Intro," preserved in the HVSC. Founded in Germany on 2 September 1989, Success had reached twenty-two numbered intros within roughly three years — a prolific pace. Rap also coded the sixth Success intro documented on Doc Snyder's page, again paired with Extreme Efforts on graphics and Kopkilla on music, suggesting this was a stable working trio. Other Success intros appear at #200 Success-17, #222 Success-20, and #397 Success-05. The group maintained a website at scs-trc.net, reflecting their long alliance with The Ruling Company. A 2026 comment on intros.c64.org from The Arrogance — another Success member — confirms ongoing community engagement decades after the intro's release.

Sources: CSDb · docsnyderspage · HVSC

success-22.asm 2.337 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: $0800  End: $333f  (11072 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $18db (6363)
//
// Code: 2007 bytes, Data: 9065 bytes
// Labels: 225, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $0fba-$0fc5 ---
.pc = $0fba "loc_0fba"

loc_0fba:
        eor ($51),y
        eor ($51),y
        eor ($72),y
        sei
        jmp $fce2

dat_0fc4:
        .byte $01,$a2                               // ..

// --- Region $1021-$1080 ---
.pc = $1021 "loc_1021"

loc_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

spr_1031:
        // === Sprite data (3 bytes, $1031-$1033) ===
        .byte $ff,$ff,$ff                           // ########################

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226
// Referenced by: jsr from $18f5

sub_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda $16f6,y
        sta $fa
        lda $16e4,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f
        sta $108a,x
        lda #$fe
        sta spr_1031,x
        jsr sub_1098

loc_10c3:
        jmp loc_1187

dat_10c6:
        .byte $00                                   // .

// --- Region $10d2-$10df ---
.pc = $10d2 "loc_10d2"

loc_10d2:
        cmp #$a0
        bcc loc_10ec
        and #$1f
        sta $108a,x
        bcs loc_10c3
        ora ($01,x)
        brk

// --- Region $10ec-$1141 ---
.pc = $10ec "loc_10ec"