← #825 Top 1024 #827 →
#826

Holocaust 01

Holocaust

1.833 lines of code

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

History

Released
August 1990
Music
Ward Selles — "Jippie"
Group
Holocaust — Denmark, founded 1990

This crack intro from Holocaust was released in August 1990 — the same year the Danish group was founded. Ward Selles provided the music with "Jippie," preserved in the HVSC at /MUSICIANS/S/Selles_Ward/Jippie.sid. Holocaust operated under the short tag "H" and was based in Denmark, a country that produced a disproportionate number of cracking groups relative to its population. The group's CSDb entry lists no additional members beyond the credited musician, suggesting a small or loosely documented outfit. No scrolltext or additional credits have been recovered from scene archives such as Doc Snyder's page, Demozoo, or Freeze64. The intro represents the kind of compact, functional release that smaller groups used to establish their presence in the European trading networks of the early 1990s.

Sources: CSDb

holocaust-01.asm 1.833 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:47
// 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:  $0900 (2304)
// IRQ handler:  $08a0 (irq_08a0)
//
// Code: 1639 bytes, Data: 61849 bytes
// Labels: 201, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0820-$086d ---
.pc = $0820 "sub_0820"
// Referenced by: jsr from $08d3

sub_0820:
        lda $30
        sec
.label smc_0824 = * + 1
        sbc #$03                                    // !SMC: modified by $084c
        and #$07
        sta $30
        bcc loc_082c
        rts

loc_082c:
        ldx #$00

loc_082e:
        lda $05e1,x
        sta $05e0,x
        inx
        cpx #$28
        bne loc_082e
        ldx #$00
        lda ($31,x)
        cmp #$00
        beq sub_0865
        cmp #$b1
        bmi loc_0852
        cmp #$b9
        bpl loc_0852
        sec
        sbc #$b0
        sta smc_0824                                // SMC: modifies $0824
        jmp loc_085c

loc_0852:
        sta $0607

loc_0855:
        inc $31
        bne loc_085b
        inc $32

loc_085b:
        rts

loc_085c:
        lda #$20
        sta $0607
        jmp loc_0855

dat_0864:
        .byte $60                                   // `
// Referenced by: jsr from $0921; branch from $083f

sub_0865:
        ldx #$0c
        ldy #$20
        stx $32
        sty $31
        rts

// --- Region $0880-$08f6 ---
.pc = $0880 "loc_0880"

loc_0880:
        sei
        lda #$01
        sta $d012
        sta $d01a
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$a0
        sta $0314
        lda #$08
        sta $0315
        cli

loc_089c:
        jmp loc_089c

dat_089f:
        .byte $00                                   // .

irq_08a0:
        lda #$14
        sta $d018
        lda #$00
        sta $d016

loc_08aa:
        lda $d012
        cmp #$84
        bne loc_08aa
        lda #$16
        sta $d018
        lda $30
        sta $d016

loc_08bb:
        lda $d012
        cmp #$a8
        bne loc_08bb
        lda #$14
        sta $d018
        lda #$00
        sta $d016

loc_08cc:
        lda $d012
        cmp #$f0
        bne loc_08cc
        jsr sub_0820
        jsr sub_08e3
        inc $d019
        jsr sub_1003
        jmp loc_ea31

dat_08e2:
        .byte $00                                   // .
// Referenced by: jsr from $08d6

sub_08e3:
        jsr $ffe4
        cmp #$20
        beq loc_08eb
        rts