← #734 Top 1024 #736 →
#735

Crypt 01

Crypt

2.056 lines of code

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

History

Music
MSK (Morten Kristensen), JCH (Jens-Christian Huus)
Released
2007
Group
Crypt -- CSDb group ID #683, Germany, founded 2 April 1988

Crypt Crack Intro #01 is a 2007 release from the German cracking group Crypt, founded on 2 April 1988 under the tagline "The unstoppable cracking force." The intro features music credited to both MSK (Morten Kristensen) and JCH (Jens-Christian Huus), with the SID track "Termianal" -- a joint composition -- preserved in the High Voltage SID Collection. Doc Snyder credits only JCH for this specific intro, while CSDb release #164418 lists both composers. No code or graphics credits are recorded on CSDb for this particular entry. The scrolltext reveals the intro accompanied a crack of "Gridder" with trainer by Troublemaker of Crypt. The 2007 release date demonstrates Crypt's remarkable longevity -- nearly two decades of activity on the C64 platform. Doc Snyder's page catalogues five Crypt intros in total, with code contributions from Thorn, Chico, and Scout across different productions.

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

crypt-01.asm 2.056 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:15
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $31ff  (10752 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1d00 (7424)
// IRQ handler:  $1d00 (main_1d00)
//
// Code: 1991 bytes, Data: 8761 bytes
// Labels: 196, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1004 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1d4f

sub_1000:
        jmp loc_1908

dat_1003:
        .byte $4c,$17                               // L.

// --- Region $102a-$1563 ---
.pc = $102a "sub_102a"
// Referenced by: jsr from $1f0a

sub_102a:
        inc $1942
        inc $1943
        inc $1944
        lda #$1f
        sta $d418
        ldx #$02
        dec $1973
        bpl loc_1045
        lda $191d
        sta $1973

loc_1045:
        bit $d020
        stx $ff
        lda $191e,x
        sta $1956
        tay
        lda $1973
        cmp $191d
        bne loc_106b
        lda dat_1749,x
        sta $fb
        lda $174c,x
        sta $fc
        dec $1927,x
        bmi loc_106e
        jmp loc_11fa

loc_106b:
        jmp loc_120a

loc_106e:
        ldy $1921,x
        lda ($fb),y
        cmp #$fe
        beq loc_108c
        cmp #$ff
        bne loc_1094
        lda #$00
        sta $1927,x
        sta $1921,x
        sta $1924,x
        sta $1972
        jmp loc_106e

loc_108c:
        lda #$02
        sta $1974
        jmp loc_190b

loc_1094:
        sta $1967
        and #$80
        beq loc_10a9
        lda $1967
        and #$1f
        sta $194f,x
        inc $1921,x
        jmp loc_106e

loc_10a9:
        lda $1967
        and #$40
        beq loc_10be
        lda $1967
        and #$3f
        sta $1976,x
        inc $1921,x
        jmp loc_106e

loc_10be:
        lda $1967
        asl
        tay
        lda $174f,y
        sta $fd
        lda $1750,y
        sta $fe
        lda #$00
        sta $193f,x
        ldy $1924,x
        sta $1942,x
        lda #$03
        sta $1961,x

loc_10dd:
        lda ($fd),y
        sta $f8
        and #$f0
        cmp #$f0
        bne loc_10f7
        lda #$01
        sta dat_1980,x
        inc $1924,x
        iny
        lda ($fd),y
        sta $f8
        jmp loc_1157

loc_10f7:
        lda #$00
        sta dat_1980,x
        lda $f8
        and #$f0
        cmp #$e0
        bne loc_1130
        lda $f8
        and #$01
        clc
        adc #$01
        sta $193f,x
        lda $f8
        and #$0e
        lsr
        sta $1965