← #765 Top 1024 #767 →
#766

Krabat Crew 01

Krabat Crew

8.267 lines of code

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

History

Released
c. 1986-1988
Group
The Krabat Crew (TKC) — Germany, founded 1986

This intro was produced by The Krabat Crew, a German demo, cracker, and swapping group founded in 1986 and dissolved in 1988. CSDb lists the group under the abbreviation TKC with five documented members — CI5, ICI (cracker), Krabat (organizer, original supplier, swapper), Master Hoko, and Phoenix — all joining at the group's founding. During its brief two-year existence, the group released 56 titles including cracks, intros, and music. The name "Krabat" references a figure from Sorbian folklore, particularly well-known in the Lusatia region of eastern Germany. A separate CSDb entry titled "Krabat Crew 1986" catalogues a one-file demo featuring Jonathan Dunn's "Forever Autumn" performed by Choroid, though it is unclear whether this corresponds to the intro archived here. The specific credits for code and music in this particular intro remain unattributed.

Sources: CSDb · intros.c64.org

krabat-01.asm 8.267 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:53
// 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:  $3800 (14336)
// IRQ handler:  $3855 (irq_3855)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $fe47 (nmi_fe47)
//
// Code: 4278 bytes, Data: 59209 bytes
// Labels: 668, Subroutines: 32
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $1179-$1181 ---
.pc = $1179 "loc_1179"

loc_1179:
        .byte $c3,$24                               // dcp ($24,x) // ILLEGAL
        ldx $68
        .byte $83,$3f                               // sax ($3f,x) // ILLEGAL
        .byte $c3,$25                               // dcp ($25,x) // ILLEGAL

dat_1181:
        .byte $f3                                   // .

// --- Region $118d-$11b2 ---
.pc = $118d "Segment $118d"
        bit $65
        adc $5a
        bvc loc_1179
        .byte $4f,$23,$a5                           // sre $a523 // ILLEGAL
        rol
        cpy #$c4
        bit $f3
        .byte $5a                                   // nop // ILLEGAL
        ldy #$0f
        cmp $22
        .byte $83,$3f                               // sax ($3f,x) // ILLEGAL
        dec $29
        dex
        iny
        iny
        cmp #$29
        and $29
        and #$00
        .byte $c2,$e5                               // nop #$e5 // ILLEGAL
        .byte $3f,$22,$aa                           // rla $aa22,x // ILLEGAL
        brk

// --- Region $20a5-$20a7 ---
.pc = $20a5 "$20a5"
        .byte $80,$0a                               // nop #$0a // ILLEGAL
        rti

// --- Region $3800-$3987 ---
.pc = $3800 "main_3800"

main_3800:
        jsr sub_3c62
        sei
        lda #$00
        sta $d020
        sta $d021
        jsr sub_3b3f
        jsr sub_3ebb
        jsr sub_3bf0
        lda #$fe
        sta $d012
        lda $d011
        and #$7f
        sta $d011
        lda #$81
        sta $d01a
        lda #$55
        sta $0314
        lda #$38
        sta $0315
        lda $d016
        and #$f7
        ora #$10
        sta $d016
        lda #$02
        sta $dd00
        lda #$82
        sta $d018
        lda #$60
        sta $0288

loc_384a:
        lda $d012
        cmp #$b4
        bne loc_384a
        cli
        jmp loc_3cd5

irq_3855:
        lda $d019
        sta $d019
        and #$01
        bne loc_3862
        jmp loc_38a0

loc_3862:
        lda $d012
        cmp #$fe
        bcs loc_38a3
        cmp #$e9
        bcs loc_388a
        lda $d011
        and #$df
        sta $d011
        lda $d016
        and #$ef
        sta $d016
        lda #$8e
        sta $d018
        lda #$e9
        sta $d012
        jmp loc_38a0

loc_388a:
        lda $d011
        and #$df
        sta $d011
        lda $d016
        ora scr_3ec8
        sta $d016
        lda #$fe
        sta $d012

loc_38a0:
        jmp loc_ea7e

loc_38a3:
        lda #$80
        sta $d018
        lda #$d1
        sta $d012
        lda $d011