History
- Code
- Frank
- Graphics
- Frank
- Music
- Reyn Ouwehand
- Released
- January 1992
- Group
- Enigma -- CSDb group ID #601, Germany, founded May 1991
Enigma Crack Intro #03 is a January 1992 release from the German cracking group Enigma, preserved on CSDb as entry #65712. The intro was coded and illustrated by Frank, with music by the Dutch composer Reyn Ouwehand, whose SID track "MoN Demo Tune II" is preserved in the High Voltage SID Collection. Doc Snyder confirms Frank's dual role and Reyn Ouwehand's music credit for this specific intro. The scrolltext announces a crack of "The Jetsons" from Hitec by Chrysagon, imported to the United States by The Shaolin Monastery. Enigma was a German group founded in May 1991 under the tagline "Cult of coolness." This is one of three Enigma intros documented on Doc Snyder's page, each featuring different personnel -- Trigger codes #02, Frank codes #03, and Diflex provides music for #01. The January 1992 date places this production early in Enigma's active period, which lasted until approximately 1993.
Sources: CSDb Release · Doc Snyder · intros.c64.org
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:19 // 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: $0820 (2080) // IRQ handler: $18d5 (irq_18d5) // IRQ handler: $087b (irq_087b) // IRQ handler: $08c2 (irq_08c2) // IRQ handler: $08f9 (irq_08f9) // IRQ handler: $0930 (irq_0930) // IRQ handler: $0967 (irq_0967) // IRQ handler: $099e (irq_099e) // IRQ handler: $09d5 (loc_09d5) // IRQ handler: $09f5 (irq_09f5) // // Code: 4317 bytes, Data: 59171 bytes // Labels: 540, Subroutines: 26 // // Cross-references: all OK // ============================================ // --- Region $0820-$0ac3 --- .pc = $0820 "main_0820" main_0820: lda #$00 sta $d021 sta $d020 sta $d011 ldx #$00 lda #$00 loc_082f: sta $d800,x sta $d900,x sta $da00,x sta $db00,x inx bne loc_082f jsr sub_3d80 lda #$00 tax tay jsr sub_1000 nop nop nop sei lda #$7f sta $dc0d lda #$01 sta $d01a lda #$01 sta $d019 lda #$20 sta $d012 ldx #$7b ldy #$08 stx $0314 sty $0315 cli jmp loc_2600 // Referenced by: jsr from $0ae0 sub_086e: { pha loop: lda $0810 beq loop lda #$00 sta $0810 pla rts } irq_087b: inc $d019 lda $0811 eor #$07 .label smc_0884 = * + 1 ora #$10 // !SMC: modified by $2618, $26de, $3dc6 sta $d011 lda #$03 sta $dd00 ldx $0fe0 ldy $0fe1 lda $0fe2 ora $0812 sta $d018 sty $d016 stx $d021 inc $0810 nop nop nop nop nop lda $0fe3 beq loc_08f6 clc adc #$30 ldx #$c2 ldy #$08 stx $0314 sty $0315 sta $d012 jmp loc_ea81 irq_08c2: inc $d019 bit $fc ldx $0fe4 ldy $0fe5 lda $0fe6 ora $0812 sty $d016 stx $d021 sta $d018 nop lda $0fe7 beq loc_08f6 clc adc $d012 ldx #$f9 ldy #$08 stx $0314 sty $0315 sta $d012 jmp loc_ea81 loc_08f6: jmp loc_09d5 irq_08f9: inc $d019 ldx $0fe8 ldy $0fe9 lda $0fea ora $0812 sta $d018 sty $d016 stx $d021 nop