← #798 Top 1024 #800 →
#799

Success [SCS] 15

Success [SCS]

2.439 lines of code

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

History

Released
November 1993
Code
Hi-Lite
Music
Arne (Arne Puszelski) — "Xenox's Intro Tune"; Drax (Thomas Mogensen) — "Drudgery"
Group
Success [SCS] — Germany, founded 2 September 1989

Success's fifteenth intro, released in November 1993, with code by Hi-Lite and a dual-composer music setup featuring both Arne (Arne Puszelski) and Drax (Thomas Mogensen). Arne's contribution is titled "Xenox's Intro Tune" while Drax provided "Drudgery" — both preserved in the HVSC. Drax was one of the most celebrated SID composers in C64 history, and his involvement lends this intro notable musical pedigree. Hi-Lite also coded the seventeenth Success intro at #200 Success-17 with music by PRI. Other Success entries appear at #222 Success-20, #397 Success-05, and #789 Success-22. Founded in Germany on 2 September 1989, Success maintained a website at scs-trc.net reflecting their long alliance with The Ruling Company. Doc Snyder's page documents the group's rotating cast of musicians, including PRI, Kopkilla, A-Man, and Diflex alongside the Arne and Drax pairing seen here.

Sources: CSDb · docsnyderspage · HVSC

success-15.asm 2.439 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:46
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $32ff  (11264 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2a00 (10752)
// IRQ handler:  $2ad4 (irq_2ad4)
//
// Code: 2411 bytes, Data: 8853 bytes
// Labels: 239, Subroutines: 15
//
// Cross-references: all OK
// ============================================


// --- Region $08af-$08b6 ---
.pc = $08af "loc_08af"

loc_08af:
        ora $dd
        adc $76,x
        cmp.abs $0003
        brk

// --- Region $08c5-$08cf ---
.pc = $08c5 "loc_08c5"

loc_08c5:
        bpl loc_08f7
        bpl loc_08af
        cmp $da6a,y
        sbc $4f,x
        rti

dat_08cf:
        .byte $c0                                   // .

// --- Region $08f7-$08fe ---
.pc = $08f7 "loc_08f7"

loc_08f7:
        cpy #$f7
        adc $76,x
        cmp.abs $0003
        brk

// --- Region $0e00-$0e36 ---
.pc = $0e00 "loc_0e00"

loc_0e00:
        sei
        jsr $fda3
        jsr $fd15
        jsr $ff5b
        lda #$00
        sta $d020
        sta $d021
        ldx #$00

loc_0e14:
        lda txt_0e80,x
        sta $0400,x
        lda #$0f
        sta $d800,x
        inx
        cpx #$28
        bne loc_0e14
        ldx #$00

loc_0e26:
        lda dat_0e36,x
        sta $0100,x
        inx
        cpx #$28
        bne loc_0e26
        inc $01
        jmp $0100

dat_0e36:
        .byte $a9                                   // .

// --- Region $1000-$100d ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2a1c

sub_1000:
        jmp loc_1066

dat_1003:
        .byte $4c,$ea,$10,$4c,$fe,$10               // L..L..
// Referenced by: jsr from $2b50

sub_1009:
        jmp loc_1fe0

txt_100c:
        .text "-M"

// --- Region $101e-$10fd ---
.pc = $101e "sub_101e"
// Referenced by: jsr from $1fe0

sub_101e:
        bit dat_15f1
        bmi loc_1065
        bvs loc_106e
        lda #$00
        ldx #$00
        ldy #$00
        jsr sub_1107
        lda #$01
        ldx #$07
        ldy #$25
        jsr sub_1107
        lda #$02
        ldx #$0e
        ldy #$4a
        jsr sub_1107
        dec $15f6
        bpl loc_104b
        lda $15f2
        sta $15f6

loc_104b:
        lda $15f8
        sta $d416
        lda $15f9
        ora #$f0
        sta $d417
        lda $dd0e
        cmp #$01
        beq loc_1065
        lda #$1f
        sta $d418

loc_1065:
        rts

loc_1066:
        and #$3f
        ora #$40
        sta dat_15f1
        rts

loc_106e: