← #737 Top 1024 #739 →
#738

Hardcore 01

Hardcore

4.707 lines of code

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

History

Code
Calypso (Terry Wentinck)
Graphics
Calypso (Terry Wentinck)
Music
Jeroen Tel
Released
1998
Group
Hardcore [HC] -- Germany, founded September 1994

Hardcore Crack Intro #01 is a C64 crack intro released in 1998 by the German cracking group Hardcore. The CSDb release credits Calypso (Terry Wentinck) for graphics and Jeroen Tel for the music -- specifically his "Looking Around" SID composition. Doc Snyder's page confirms all three credits: code by Calypso, artwork by Calypso, and music by Jeroen Tel. CSDb lists the coder as uncredited, but Doc Snyder explicitly attributes the code to Calypso as well. The scrolltext announces a release of "Target 2 PRV" by Calypso, with greetings to AFL'70, SCS+TRC, Hitmen, Chromance, Excess, Triad, Laxity, Fairlight, F4CG, Cyberpunx, and Onslaught. Hardcore was founded in September 1994 in Germany. The release is preserved on CSDb as release #185393, verified through the Doc Snyder link.

Sources: CSDb · CSDb Group · intros.c64.org · Doc Snyder

h-01.asm 4.707 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:46
// 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:  $2c80 (11392)
// IRQ handler:  $2d2d (irq_2d2d)
//
// Code: 4972 bytes, Data: 58516 bytes
// Labels: 514, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $08c9-$08c9 ---
.pc = $08c9 "Program $08c9"
        brk

// --- Region $0f03-$0f07 ---
.pc = $0f03 "Program $0f03"
        .byte $f3,$f3                               // isc ($f3),y // ILLEGAL
        .byte $03,$f3                               // slo ($f3,x) // ILLEGAL

dat_0f07:
        .byte $f3                                   // .

// --- Region $0f13-$0f17 ---
.pc = $0f13 "Program $0f13"
        .byte $f3,$f3                               // isc ($f3),y // ILLEGAL
        .byte $f3,$f3                               // isc ($f3),y // ILLEGAL

dat_0f17:
        .byte $f3                                   // .

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

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $2df2, $fe1a

sub_1003:
        jmp loc_10c1

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$1277 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17cb,y
        sta $172e,x
        sta $1734,x
        lda $17cc,y
        sta $1731,x
        sta $1737,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        lda $17cb,y
        sta $1747
        lda $1020
        beq loc_1095
        ldx #$02

loc_106c:
        lda $17cc,y
        sta $100b
        and $173a,x
        sta dat_1006,x
        dex
        bpl loc_106c
        bit $100b
        bpl loc_1095
        ldx #$00

loc_1082:
        lda $17cd,y
        sta $1734,x
        lda $17ce,y
        sta $1737,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1082

loc_1095:
        ldy #$00
        tya

loc_1098:
        sta $d400,y
        iny
        cpy #$17
        bne loc_1098
        tay

loc_10a1:
        sta $1014,y
        iny
        cpy #$0c
        bne loc_10a1
        ldy #$14

loc_10ab:
        sta $1748,y
        dey
        bpl loc_10ab
        lda #$01
        sta $1794
        lda #$03
        sta $1746
        lda #$0f
        sta $1009
        rts

loc_10c1:
        lda $fb
        pha
        lda $fc
        pha
        dec $1746
        bpl loc_10e9
        lda $1747
        sta $1746
        cmp #$02
        bcs loc_10e9
        ldy $1794
        lda $18d3,y
        sta $1746
        dec $1794
        bpl loc_10e9