← #298 Top 1024 #300 →
#299

Enigma 08

Enigma

2.563 lines of code

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

History

Released
28 May 1991
Code
Sting
Music
Drax (Thomas Mogensen)
Group
Enigma — Germany, founded May 1991

Enigma Intro #8, released on 28 May 1991, is a crack intro from the German group Enigma. The code is by Sting, and the music is a "Ghost'n'Goblins Remix" by Drax -- the celebrated Danish SID composer Thomas Mogensen. Enigma was founded in May 1991 with the tagline "Cult of coolness" and maintained close ties to Empire, with Tristan of Empire commenting on the intro at intros.c64.org. The group's key cracker Chrysagon handled many of their releases, which were often imported to the United States through The Shaolin Monastery (TSM). Enigma also appears at #196 Enigma Intro #1 in this ranking. Doc Snyder's Page documents additional Enigma intros featuring music from Reyn Ouwehand, TBB (Tero Hilpinen), and Diflex (Markus Schneider), showing the group's access to prominent European SID composers.

Sources: CSDb · intros.c64.org · Doc Snyder's Page

enigma-08.asm 2.563 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: $2f3f  (10304 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2588 (9608)
// IRQ handler:  $259d (nmi_259d)
// IRQ handler:  $24ac (irq_24ac)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2147 bytes, Data: 8157 bytes
// Labels: 256, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $0e30-$0ea2 ---
.pc = $0e30 "sub_0e30"
// Referenced by: jsr from $2566

sub_0e30:
.label smc_0e31 = * + 1
        lda $0f03                                   // !SMC: modified by $0e5f
        tay
        and #$07
        eor #$c7
        sta $30
        tya
        lsr
        lsr
        lsr
        tay
        ldx #$00

loc_0e41:
        lda txt_0f80,y
        sta $0630,x
        eor #$80
        sta $0658,x
        inx
        iny
        cpx #$28
        bne loc_0e41
        inc smc_0e31
        lda smc_0e31
        cmp #$64
        beq loc_0e5d
        rts

loc_0e5d:
        lda #$00
        sta smc_0e31                                // SMC: modifies $0e31
        rts
// Referenced by: jsr from $2569, $256c

sub_0e63:
        dec $36
        lda $36
        cmp #$ff
        beq loc_0e6c
        rts

loc_0e6c:
        lda #$07
        sta $36
        ldx #$00

loc_0e72:
        lda $06a9,x
        sta $06a8,x
        clc
        adc #$80
        sta $06d0,x
        inx
        cpx #$28
        bne loc_0e72

loc_0e83:
.label smc_0e84 = * + 1
.label smc_0e85 = * + 2
        lda dat_1d00                                // !SMC: modified by $0e98, $0e9d
        cmp #$00
        beq loc_0e96
        sta $06cf
        inc smc_0e84
        bne loc_0e95
        inc smc_0e85

loc_0e95:
        rts

loc_0e96:
        lda #$00
        sta smc_0e84                                // SMC: modifies $0e84
        lda #$1d
        sta smc_0e85                                // SMC: modifies $0e85
        jmp loc_0e83

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $25a2

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $24fc

sub_1003:
        jmp loc_10da

dat_1006:
        .byte $01                                   // .

// --- Region $1040-$1291 ---
.pc = $1040 "loc_1040"

loc_1040:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1046:
        lda $17ef,y
        sta $174e,x
        sta $1754,x
        lda $17f0,y
        sta $1751,x
        sta $1757,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1046
        ldx #$00
        stx $174d
        lda $17ef,y
        sta $100b
        sta $177b
        sta $177c
        sta $177d

loc_1073:
        sta $17d9,x