← #321 Top 1024 #323 →
#322

Nostalgia [NO] 23

Nostalgia [NO]

2.593 lines of code

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

History

Released
September 2004
Music
Drax (Thomas Mogensen) — "Numb"; Jeff (Soren Lund) — "Fungus Intro"
Graphics
Cupid
Group
Nostalgia — founded February 1995

Two heavyweight SID composers on a single intro — Drax (Thomas Mogensen) contributed "Numb" and Jeff (Soren Lund) provided "Fungus Intro," both preserved in the HVSC. Cupid handled the graphics. Released in September 2004, this is one of the latest-dated intros in the entire ranked collection, arriving nine years after Nostalgia's February 1995 founding and deep into the C64 revival era. No coder is credited on CSDb, though the production's polish suggests experienced hands. The dual-composer approach — pairing Drax, one of the most celebrated SID musicians in history, with Jeff — reflects the group's ability to attract top talent during the platform's second life. This is one of several Nostalgia entries in the rankings, alongside #225 NO-14 and #240 NO-11. Doc Snyder's page documents additional Nostalgia intros with coders including 6R6, Jedi, and S!R.

Sources: CSDb · Doc Snyder

no-23.asm 2.593 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: $0801  End: $2fff  (10239 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2760 (10080)
// IRQ handler:  $2876 (irq_2876)
//
// Code: 3165 bytes, Data: 7074 bytes
// Labels: 265, Subroutines: 16
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $08c9-$08d5 ---
.pc = $08c9 "Program $08c9"
        ror $f2,x
        cpy $6b6e
        pla
        ror $fc
        cpy $dc61
        plp
        rts

// --- Region $0d9a-$0f04 ---
.pc = $0d9a "sub_0d9a"
// Referenced by: jsr from $27fb

sub_0d9a:
        ldx #$05

loc_0d9c:
        lda $0d94,x
        sta $fa,x
        dex
        bpl loc_0d9c
        ldx #$00

loc_0da6:
        ldy #$00

loc_0da8:
        jsr sub_0db9
        cpy #$16
        bcc loc_0da8
        jsr sub_0e0c
        ldy #$00
        cpx #$ec
        bcc loc_0da6
        rts

// Referenced by: jsr from $0da8
sub_0db9: {
        cpx #$20
        beq skip1
        cpx #$04
        beq skip3
        cpx #$0f
        beq skip4
        cpx #$83
        beq skip3
        cpx #$c7
        beq skip2
        cpx #$dc
        beq skip5
        cpx #$e6
        bne done
        lda #$6c
        jsr sub_0e04
        lda #$e6
        jsr sub_0e04
        bne done
skip1:
        ldx #$21
        bne done
skip2:
        txa
        jsr sub_0e04
        bne done
skip3:
        lda #$20
        jsr sub_0e04
        bne done
skip4:
        lda #$08
        jsr sub_0e04
        bne done
skip5:
        lda #$6e
        jsr sub_0e04
done:
        txa
        jsr sub_0e04
        inx
        rts
}
// Referenced by: jsr from $0dd7, $0ddc, $0de6, $0ded, $0df4, $0dfb, $0dff

sub_0e04:
        sta ($fa),y
        sta ($fc),y
        sta ($fe),y
        iny
        rts

// Referenced by: jsr from $0daf
sub_0e0c: {
        ldy #$04
loop:
        lda.abs $00fa,y
        clc
        adc #$46
        sta.abs $00fa,y
        lda.abs $00fb,y
        adc #$00
        sta.abs $00fb,y
        dey
        dey
        bpl loop
        rts
}
// Referenced by: jsr from $2897

sub_0e24:
        lda $fa
        beq loc_0e30
        dec $fa
        lda #$01
        sta smc_0e42                                // SMC: modifies $0e42
        rts

loc_0e30:
        ldy #$0c
.label smc_0e33 = * + 1
        lda #$0f                                    // !SMC: modified by $0e38, $0e52
        sec
        sbc smc_0e42
        sta smc_0e33                                // SMC: modifies $0e33
        bmi loc_0e4d

loc_0e3d:
        lda $d000,y