← #845 Top 1024 #847 →
#846

React 01

React

2.161 lines of code

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

History

Released
10 April 1994
Code
Bimbas
Music
Greg (Gergely Erdélyi) — "Twilight Zone"; Yoko (Simon Andreasen) — "Final Lafayette"
Group
React — Slovakia

CSDb dates this intro to 10 April 1994, released by React — a Slovakian group using the short tag "RCT." Bimbas coded the intro, and two musicians contributed tunes — Greg (Gergely Erdélyi) with "Twilight Zone" and Yoko (Simon Andreasen) with "Final Lafayette." Both SIDs are preserved in the HVSC. The dual-tune format allowed users to select between different musical accompaniments. React's founding date is unrecorded on CSDb, though the 1994 release date places the group firmly in the later era of C64 cracking. Slovakia — having become an independent nation only in January 1993 — had a small but active C64 scene that overlapped with the broader Central European demoscene community. No scrolltext or additional historical context has been recovered from Doc Snyder's page, Demozoo, or Freeze64.

Sources: CSDb

react-01.asm 2.161 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:38
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $24ff  (7424 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0da0 (3488)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $201b (irq_201b)
//
// Code: 2536 bytes, Data: 4888 bytes
// Labels: 257, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $09ba-$09be ---
.pc = $09ba "loc_09ba"

loc_09ba:
        bvc loc_0a0c
        bvc loc_0a1e
        rts

// --- Region $0a0c-$0a1e ---
.pc = $0a0c "loc_0a0c"

loc_0a0c:
        eor $55,x
        eor $95,x
        eor $55,x
        eor $55,x
        lsr $54,x
        cli
        rts

dat_0a18:
        .byte $40,$80,$00,$00,$00,$00               // @.....

loc_0a1e:
        brk

// --- Region $0c80-$0cb3 ---
.pc = $0c80 "loc_0c80"

loc_0c80:
        lda $d012
        eor $a0
        eor $a1
        eor $a2
        clc
        adc $d800
        sbc $de00
        and #$03
        tax
        lda $0cb4,x
        sta $40
        lda $0cb8,x
        sta $41
        lda $0cbc,x
        sta $21b2
        lda $0cc0,x
        sta $21b3
        lda $0cbc,x
        sta smc_0cd4                                // SMC: modifies $0cd4
        jmp loc_0cd0

dat_0cb2:
        .byte $00,$00                               // ..

// --- Region $0cd0-$0da7 ---
.pc = $0cd0 "loc_0cd0"

loc_0cd0:
        jsr sub_2290
.label smc_0cd4 = * + 1
        lda #$00                                    // !SMC: modified by $0cac
        sta $0286
        jsr $e544
        lda #$08
        ldx #$f0

loc_0cdf:
        sta $d827,x
        dex
        bne loc_0cdf
        lda #$00
        sta smc_2220                                // SMC: modifies $2220
        lda #$23
        sta smc_2221                                // SMC: modifies $2221
        lda #$00
        jsr sub_1000
        lda $3fff
        sta $42
        lda #$00
        sta $3fff
        ldx #$00

loc_0d00:
        lda $0f00,x
        sta $0540,x
        inx
        cpx #$f0
        bne loc_0d00
        jsr sub_2000

loc_0d0e:
        lda $dc01
        and #$10
        bne loc_0d0e
        lda $a2

loc_0d17:
        cmp $a2
        beq loc_0d17
        ldx #$00

loc_0d1d:
        lda dat_0e00,x
        sta $0540,x
        inx
        cpx #$f0
        bne loc_0d1d
        lda #$00
        sta smc_0d3a                                // SMC: modifies $0d3a
        lda #$02
        sta smc_0d38                                // SMC: modifies $0d38
        nop
        nop

loc_0d34:
        jsr sub_0d80
.label smc_0d38 = * + 1
        sta $02                                     // !SMC: modified by $0d2f
.label smc_0d3a = * + 1
        ldx #$00                                    // !SMC: modified by $0d2a, $0d44
        jsr sub_0d8e
        lda smc_0d3a
        clc
        adc #$28
        sta smc_0d3a                                // SMC: modifies $0d3a
        inc smc_0d38
        lda smc_0d38
        cmp #$05
        bne loc_0d34