#756

Nuclear 01

Nuclear

2.624 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
November 1989
Code
Kreator
Graphics
Hein
Charset
The Fat Boy
Music
EVS (Edwin van Santen) — "Cyberfunk" / Chris (Chris Ammermuller) — "Street Skater"
Group
Nuclear — Netherlands, founded August 1989

The first numbered intro from Nuclear, a Dutch group founded in August 1989. Released just three months after the group's formation, this intro features code by Kreator, graphics by Hein, and a charset by The Fat Boy. Two SID tunes provide the soundtrack — EVS (Edwin van Santen) contributed "Cyberfunk" and Chris (Chris Ammermuller) supplied "Street Skater," both preserved in the HVSC. The presence of EVS places Nuclear firmly within the Dutch scene network, as Van Santen was one of the Netherlands' most prolific SID composers and contributed to intros by multiple Dutch groups including Hotline and 20CC. Nuclear operated during the peak of Dutch C64 activity in the late 1980s, when the Netherlands was home to a dense cluster of cracking groups. The dual-musician setup suggests an intro with selectable tunes — a common feature in more elaborate productions of the era.

Sources: CSDb

nuclear-01.asm 2.624 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:20
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $3801  (12308 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2e38 (11832)
// IRQ handler:  $2ec9 (irq_2ec9)
// IRQ handler:  $2ef8 (irq_2ef8)
// IRQ handler:  $2f5b (irq_2f5b)
// IRQ handler:  $2f80 (irq_2f80)
//
// Code: 2952 bytes, Data: 9356 bytes
// Labels: 255, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $0e10-$0ed3 ---
.pc = $0e10 "sub_0e10"
// Referenced by: jsr from $2eef

sub_0e10:
        ldx $0fd5
        cpx #$02
        beq loc_0e81
        cpx #$01
        beq loc_0e6d
        ldx $0fd8
        dex
        stx $0fd8
        bne loc_0e5f
        ldx #$04
        stx $0fd8
        ldx $0fd6
        dex
        stx $0fd6
        bne loc_0e60
        lda #$02
        sta $0fd5
        lda #$04
        sta $0fd6
        lda #$11
        ldx #$27

loc_0e40:
        sta $0608,x
        sta $0630,x
        sta $0658,x
        sta $0680,x
        sta $06a8,x
        sta $06d0,x
        dex
        bpl loc_0e40
        lda #$0f
        sta $1ffe
        lda #$0b
        sta $1fff

loc_0e5f:
        rts

loc_0e60:
        lda $0fcd,x
        sta $1fff
        lda $0fd1,x
        sta $1ffe
        rts

loc_0e6d:
        ldx $0fd7
        dex
        stx $0fd7
        bne loc_0e80
        lda #$00
        sta $0fd5
        lda #$4f
        sta $0fd7

loc_0e80:
        rts

loc_0e81:
        lda $0fcc
        beq loc_0eb5
        jsr sub_0f77
        ldx $0fcc
        dex
        lda scr_0fbe,x
        sta $062f
        lda $0fc0,x
        sta $0657
        lda $0fc2,x
        sta $067f
        lda $0fc4,x
        sta $0680
        lda $0fc6,x
        sta $06a8
        lda $0fc8,x
        sta $06d0
        dec $0fcc
        rts

loc_0eb5:
        inc smc_0ebe
        bne loc_0ebd
        inc smc_0ebf

loc_0ebd:
.label smc_0ebe = * + 1
.label smc_0ebf = * + 2
        lda $30ff                                   // !SMC: modified by $0ec6, $0ecb
        cmp #$ff
        bne loc_0ed0
        lda #$00
        sta smc_0ebe                                // SMC: modifies $0ebe
        lda #$31
        sta smc_0ebf                                // SMC: modifies $0ebf
        bne loc_0ebd

loc_0ed0:
        cmp #$fe
        bne loc_0edc

// --- Region $0edc-$0fbd ---
.pc = $0edc "loc_0edc"

loc_0edc:
        sta smc_0ee9                                // SMC: modifies $0ee9
        jsr sub_0f77
        lda smc_0ee9
        clc
        asl
        clc
.label smc_0ee9 = * + 1
        adc #$1a                                    // !SMC: modified by $0edc
        sec
        sbc #$03
        tax
        lda $0c58,x
        sta $062f
        lda $0cd0,x
        sta $0657
        lda txt_0d48,x
        sta $067f