← #499 Top 1024 #501 →
#500

Epic 13

Epic

2.834 lines of code

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

History

Released
December 1993
Code
Doom
Music
JCH (Jens-Christian Huus) — "Misjudge"
Group
Epic — Denmark, founded 15 September 1992

Coded by Doom with music from JCH (Jens-Christian Huus) — one of the C64's most celebrated SID composers — this December 1993 intro represents Epic's late contribution to the Danish cracking scene. JCH's "Misjudge" is preserved in the HVSC. Epic was a Danish group founded on 15 September 1992, placing them in the twilight era of C64 commercial activity. Doc Snyder's page documents the group's other ranked intro featuring music by Bleed into One (Rene Griebel), whose scrolltext references alliances with Dominators, Talent, Legend, Fairlight, and other major crews. The scrolltext also mentions the Epic HQ BBS "Dreamline" with a Swedish phone number, and a crack by Crossfire — suggesting Swedish connections despite the group's Danish registration on CSDb. JCH's involvement lent significant prestige to any production; his compositions appeared across dozens of the era's most prominent groups. This is the final entry in the top-500 ranking.

Sources: CSDb · Doc Snyder's Page

epic-13.asm 2.834 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:20
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $429e  (15025 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $3c00 (15360)
// IRQ handler:  $3c41 (irq_3c41)
// IRQ handler:  $3c6a (irq_3c6a)
// IRQ handler:  $3e65 (irq_3e65)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2534 bytes, Data: 12491 bytes
// Labels: 265, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3c3a

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $3cd5

sub_1003:
        jmp loc_10a1

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$170e ---
.pc = $1040 "loc_1040"

loc_1040:
        lda #$00
        asl
        tay
        ldx #$00

loc_1046:
        lda $1872,y
        sta $17cf,x
        lda $1873,y
        sta $17d2,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        lda $1872,y
        sta $1012
        lda $1873,y
        sta $101b
        ldx #$00
        txa

loc_1068:
        sta $17d5,x
        inx
        cpx #$71
        bne loc_1068
        sta $1018
        sta $1019
        ldx #$00
        lda #$01

loc_107a:
        sta $17db,x
        sta dat_1006,x
        inx
        cpx #$03
        bne loc_107a
        ldx #$00
        txa

loc_1088:
        sta $d400,x
        inx
        cpx #$18
        bne loc_1088
        lda #$08
        sta $d404
        sta $d40b
        sta $d412
        lda #$02
        sta $1842
        rts

loc_10a1:
        lda $f8
        pha
        lda $f9
        pha
        ldx #$00
        lda $1842
        beq loc_10b4
        dec $1842
        jmp loc_10d6

loc_10b4:
        dec $1013
        bpl loc_10bf
        lda $1012
        sta $1013

loc_10bf:
        jsr sub_10dd
        inx
        jsr sub_10dd
        inx
        jsr sub_10dd
        lda $1017
        sta $d415
        lda $1016
        sta $d416

loc_10d6:
        pla
        sta $f9
        pla
        sta $f8
        rts
// Referenced by: jsr from $10bf, $10c3, $10c7

sub_10dd:
        lda $1012
        cmp $1013
        bne loc_10ef
        lda dat_1006,x
        beq loc_10ef
        dec $17db,x
        beq loc_10f2

loc_10ef:
        jmp loc_1332

loc_10f2:
        lda $17cf,x
        sta $f8
        lda $17d2,x
        sta $f9
        ldy $17d5,x
        lda ($f8),y