← #219 Top 1024 #221 →
#220

Excalibur 04

Excalibur

5.132 lines of code

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

History

Released
6 January 1990
Code
Deejay
Graphics
Gotcha
Music
Drax (Thomas Mogensen) — "Dacapo"
Group
Excalibur — USA

Excalibur's fourth intro, released on 6 January 1990, with code by Deejay, graphics by Gotcha, and music by Drax (Thomas Mogensen) — the Danish SID composer whose work appeared across dozens of scene productions. Drax's "Dacapo" is preserved in the HVSC. Doc Snyder's page describes Excalibur as a US-based group with the motto "Glory is for the few," and documents two other intros with credits to Eclipse, Burglar, and Artix. Comments on intros.c64.org from Gotcha and Druid of Agony Design in 2004 and 2006 confirm community awareness of the release. CSDb links this intro to the Swiss group Crazy — suggesting either a data association error or a cooperative release between Excalibur and Crazy, whose founding date of 6 December 1988 aligns with the era. Excalibur's scrolltexts on other intros greet Success, Legend, and Offense, placing them in the American-European cracking network of the early 1990s.

Sources: CSDb · docsnyderspage · intros.c64.org

exc-04.asm 5.132 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:19
// 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:  $0f00 (3840)
// IRQ handler:  $1c1a (irq_1c1a)
//
// Code: 3025 bytes, Data: 60463 bytes
// Labels: 482, Subroutines: 33
//
// Cross-references: all OK
// ============================================


// --- Region $0803-$0803 ---
.pc = $0803 "Program $0803"
        brk

// --- Region $0814-$0818 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $0e98, $e568

sub_0814:
        ror $7c7e,x
        brk

dat_0818:
        .byte $3c                                   // <

// --- Region $090c-$0914 ---
.pc = $090c "sub_090c"
// Referenced by: jsr from $0e93

sub_090c:
        clc
        brk

dat_090e:
        .byte $18,$00,$6c,$6c,$6c,$00               // ..lll.
// Referenced by: jsr from $e56d

sub_0914:
        brk

// --- Region $0a00-$0a0e ---
.pc = $0a00 "sub_0a00"
// Referenced by: jsr from $1c2a

sub_0a00:
        lda $163e
        cmp #$21
        beq loc_0a08
        rts

loc_0a08:
        lda #$40
        sta smc_1c2b                                // SMC: modifies $1c2b
        rts

dat_0a0e:
        .byte $00                                   // .

// --- Region $0aa0-$0ab7 ---
.pc = $0aa0 "sub_0aa0"
// Referenced by: jsr from $1c75

sub_0aa0:
        ldx $033f
        inx
        stx $033f
        cpx #$04
        beq loc_0aac
        rts

loc_0aac:
        lda #$00
        sta $033f
        lda #$70
        sta smc_1c76                                // SMC: modifies $1c76
        rts

dat_0ab7:
        .byte $00                                   // .

// --- Region $0ac0-$0ad4 ---
.pc = $0ac0 "sub_0ac0"
// Referenced by: jsr from $1c34

sub_0ac0:
        ldx #$00

loc_0ac2:
        ldy dat_0ad4,x

loc_0ac5:
        dey
        bne loc_0ac5
        lda $0ad6,x
        sta $d021
        inx
        cpx #$02
        bne loc_0ac2
        rts

dat_0ad4:
        .byte $01                                   // .

// --- Region $0ae0-$0afa ---
.pc = $0ae0 "sub_0ae0"
// Referenced by: jsr from $1c24, $1c6b

sub_0ae0:
        lda $d011
        ora #$22
        sta $d011
        lda $d016
        and #$df
        ora #$10
        sta $d016
        lda $d018
        ora #$08
        sta $d018
        rts

// --- Region $0b09-$0b0b ---
.pc = $0b09 "Program $0b09"
        ora #$05
        .byte $12                                   // jam // ILLEGAL

// --- Region $0b28-$0b42 ---
.pc = $0b28 "sub_0b28"
// Referenced by: jsr from $1c78

sub_0b28:
        ldx $0343
        lda $0b45,x
        sta smc_1d5b                                // SMC: modifies $1d5b
        sta smc_1d5b                                // SMC: modifies $1d5b
        inx
        stx $0343
        cpx #$16
        beq loc_0b3d
        rts