← #85 Top 1024 #87 →
#86

Black Reign 01

Black Reign

5.687 lines of code

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

History

Released
23 September 1991
Code
Scrap
Music
Deek (Richard Rinn) — "Toccata"
Group
Black Reign — founded 1986

Deek (Richard Rinn) contributed "Toccata" — the classical music reference suggesting a compositional ambition beyond typical crack intro fare. Scrap coded the intro for Black Reign, a group founded in 1986 whose country of origin is not recorded on CSDb. The HVSC preserves Rinn's composition. Doc Snyder's page documents the group's output. Released on 23 September 1991, this arrived during the era when C64 cracking was contracting but the remaining groups maintained high production standards. Rinn's work as Deek appears across multiple groups of this period — his compositions also feature in Chromance and other late-era operations. The classical "Toccata" connection — whether the piece is inspired by Bach or simply named evocatively — signals the growing artistic self-consciousness of late C64 scene productions.

Sources: CSDb · docsnyderspage

br-01.asm 5.687 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:16
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $4100 (16640)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1070 (irq_1070)
// IRQ handler:  $1130 (loc_1130)
//
// Code: 5556 bytes, Data: 57932 bytes
// Labels: 562, Subroutines: 30
//
// Cross-references: all OK
// ============================================


// --- Region $0f90-$0f96 ---
.pc = $0f90 "Program $0f90"
        ldy $88cc
        sty $8808
        brk

// --- Region $1000-$1220 ---
.pc = $1000 "loc_1000"

loc_1000:
        lda #$ff
        sta $d015
        sta $d01c
        lda #$00
        sta $d01b
        sta $d01d
        sta $d017
        lda #$00
        sta $d025
        lda #$00
        sta $d026
        lda #$00
        sta $d027
        sta $d028
        sta $d029
        sta $d02a
        lda #$f0
        sta $d01b
        lda #$0b
        sta $d011
        nop
        nop
        lda #$0c
        sta $d010
        lda #$18
        sta dat_d000
        lda #$30
        sta $d002
        lda #$28
        sta $d004
        lda #$40
        sta $d006
        sei
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$10
        sta $0315
        lda #$70
        sta $0314
        jsr sub_13a0
        cli
        jmp loc_11a0

dat_106c:
        .byte $00,$00,$00,$00                       // ....

irq_1070:
        lsr $d019
        lda #$1b
        sta $d011
        lda #$00
        sta txt_d020
        sta $d021
        lda #$1e
        sta $d018
        jsr sub_1280
        lda #$70
        sta $d012
        lda #$95
        sta $0314
        jmp loc_ea81

loc_1095:
        lsr $d019
        lda #$9a
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        lda #$a4
        sta $07f9
        lda #$a5
        sta $07f8
        lda #$80
        sta $07fa
        lda #$81
        sta $07fb
        lda #$ae
        sta $d012
        lda #$c7
        sta $0314
        jmp loc_ea81

loc_10c7:
        lsr $d019
        lda #$af
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        lda #$a6
        sta $07f9
        lda #$a7
        sta $07f8
        lda #$82
        sta $07fa
        lda #$83
        sta $07fb
        lda #$c2
        sta $d012
        lda #$f9
        sta $0314
        jmp loc_ea81

loc_10f9:
        lsr $d019
        lda #$c4
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        lda #$c0
        sta $07f9
        lda #$c1
        sta $07f8
        lda #$9c