← #514 Top 1024 #516 →
#515

Koeniglich Bayerischen Hofcrackerei [KBHC] 01

Koeniglich Bayerischen Hofcrackerei [KBHC]

5.455 lines of code

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

History

Group
Koeniglich Bayerischen Hofcrackerei [KBHC] — Germany

A crack intro from the Koeniglich Bayerischen Hofcrackerei — roughly translated as "Royal Bavarian Court Crackery" — a German group whose name playfully references Bavarian royal institutions. The abbreviation KBHC and the distinctly regional humour place this firmly in the southern German C64 scene. No CSDb release match was found, and no documentation appears on Doc Snyder's page, Demozoo, or in preserved diskmag archives. The intros.c64.org listing attracted three comments between 2008 and 2013, including from Daison, HBH-ZTH, and Speedcracker/TWG — the latter handles suggesting connections to other German scene groups. Without a confirmed CSDb entry, individual credits for code, music, and graphics cannot be reliably attributed. The elaborate Bavarian naming — reminiscent of official designations like "Koeniglich Bayerische Staatsbrauerei" — sets this group apart from the typically English-language names favoured by most cracking groups. This kind of regional cultural branding was more common in the German scene than elsewhere in Europe.

Sources: intros.c64.org

kbhc-01.asm 5.455 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:52
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0816 (2070)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $803d (irq_803d)
//
// Code: 1602 bytes, Data: 61885 bytes
// Labels: 485, Subroutines: 7
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0816-$0819 ---
.pc = $0816 "main_0816"

main_0816:
        jmp loc_0839

dat_0819:
        .byte $ea                                   // .

// --- Region $0839-$0872 ---
.pc = $0839 "loc_0839"

loc_0839:
        lda $5f44
        sta $d020
        lda $5f40
        sta $d021
        lda #$06
        sta $dd00
        lda #$80
        sta $d018
        lda #$d8
        sta $d016
        lda $5f43

loc_0857:
        sta $d800,x
        sta $d900,x
        sta spr_da00,x
        sta $db00,x
        inx
        bne loc_0857
        lda #$3b
        sta $d011
        jsr sub_2c73
        jmp loc_2cc4

dat_0871:
        // === Data block (2 bytes, $0871-$0872) ===
        .byte $ea,$ea                               // ..

// --- Region $118d-$11ac ---
.pc = $118d "Segment $118d"
        eor $55,x
        eor $15,x
        eor $55,x
        ldy $58
        lda #$95
        eor $55,x
        eor $55,x
        ora ($55,x)
        eor $55,x
        eor $55,x
        eor $55,x
        .byte $1a                                   // nop // ILLEGAL
        .byte $1a                                   // nop // ILLEGAL
        eor $5959,y
        eor $55,x
        eor $50,x
        rti

// --- Region $2800-$2844 ---
.pc = $2800 "loc_2800"

loc_2800:
        ldx #$07
        ldy #$00

loc_2804:
        lda $3f40,y
        sta dat_7e00,y
        iny
        bne loc_2804
        inc $2806
        inc $2809
        dex
        bne loc_2804
        ldx #$05

loc_2818:
        lda $4410,y
        sta $9500,y
        iny
        bne loc_2818
        inc $281a
        inc $281d
        dex
        bne loc_2818
        ldx #$05
        ldy #$00

loc_282e:
        lda $47d0,y
        sta $8500,y
        iny
        bne loc_282e
        inc $2830
        inc $2833
        dex
        bne loc_282e
        lda #$08
        ldy #$73
        rts

// --- Region $2c73-$2cee ---
.pc = $2c73 "sub_2c73"
// Referenced by: jsr from $086b

sub_2c73:
        jsr sub_8000
        lda #$3b
        sta $d011
        ldy #$27
        lda #$0e

loc_2c7f:
        sta $dbc0,y
        dey
        bpl loc_2c7f
        jmp loc_2d00

loc_2c88:
        sta $d011
        lda #$81
        sta $d01a
        cli
        jmp loc_2d00