← #435 Top 1024 #437 →
#436

Enigma 05

Enigma

598 lines of code

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

History

Released
July 1991
Group
Enigma — Germany, founded May 1991

Released in July 1991, this Enigma intro arrived just two months after the German group's founding in May 1991. No individual credits for code, music, or graphics have been identified on CSDb. The rapid output — producing multiple intros within weeks of formation — suggests that Enigma's members were experienced sceners who had already been active under other banners. The group's primary cracker Chrysagon is documented across their other intros, and his involvement here is plausible though unconfirmed. Enigma's other ranked entries include #299 Enigma-08, which features music by Drax (Thomas Mogensen). Doc Snyder's page documents additional Enigma intros with credits for coders Frank and Trigger, and music from Reyn Ouwehand, TBB, and Diflex. The group maintained close ties to Empire and operated with the tagline "Cult of coolness." Their scrolltexts reference importing releases to the US through The Shaolin Monastery, indicating transatlantic distribution connections.

Sources: CSDb · docsnyderspage

enigma-05.asm 598 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:20
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $145f  (3424 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1000 (4096)
//
// Code: 317 bytes, Data: 3107 bytes
// Labels: 53, Subroutines: 3
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$113c ---
.pc = $1000 "main_1000"

main_1000:
        jsr $e544
        ldx #$27

loc_1005:
        lda #$94
        sta $05b8,x
        lda #$95
        sta $0658,x
        lda #$00
        sta $da80,x
        sta $05e0,x
        sta $0608,x
        sta $0630,x
        lda #$05
        sta $d9b8,x
        sta $da58,x
        dex
        bpl loc_1005
        ldx #$11

loc_102a:
        lda txt_113d,x
        sta $d9b8,x
        sta $da6e,x
        dex
        bpl loc_102a
        lda #$00
        sta $32
        sta $d020
        sta $d021
        lda #$01
        sta $34
        jsr sub_110c

loc_1047:
        sei
        lda #$8a

loc_104a:
        cmp $d012
        bne loc_104a
        lda #$13
        sta $d018
        lda $35
        sta $d016
        lda #$b4

loc_105b:
        cmp $d012
        bne loc_105b
        lda #$15
        sta $d018
        lda $35
        sec
        sbc #$04
        pha
        and #$07
        sta $35
        pla
        bpl loc_1075
        jsr sub_1092

loc_1075:
        jsr sub_1115
        jsr sub_1115
        lda $dc01
        and #$10
        beq loc_1085
        jmp loc_1047

loc_1085:
        lda #$15
        sta $d018
        lda #$28
        sta $d016
        jmp $fce2

// Referenced by: jsr from $1072
sub_1092: {
        ldx #$00
loop:
        lda $05e1,x
        sta $05e0,x
        lda $0609,x
        sta $0608,x
        lda $0631,x
        sta $0630,x
        lda $d9e1,x
        sta $d9e0,x
        lda $da09,x
        sta $da08,x
        lda $da31,x
        sta $da30,x
        inx
        cpx #$27
        bne loop
        ldy #$00
        lda ($30),y
        beq sub_110c
        cmp #$80
        bcc skip2
        sta $34
        inc $30
        bne skip1
        inc $31
skip1:
        lda ($30),y
skip2:
        sta $33
        ora $32
        tay
        lda $0d00,y
        sta $0607
        lda $0e00,y
        sta $062f
        lda $0f00,y
        sta $0657
        lda $34
        sta $da07
        sta $da2f
        sta $da57
        lda $32
        clc
        adc #$40
        ldy $33
        cmp dat_0fc0,y
        sta $32