← #377 Top 1024 #379 →
#378

Enigma 10

Enigma

3.328 lines of code

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

History

Released
June 1992
Group
Enigma [E] — Germany, founded May 1991

This June 1992 Enigma intro was coded by Trigger of The Wild Boys and X-Ray, with graphics and charset by his X-Ray colleague Jatagan. The intro stands out for its unusually rich music selection — four composers contributed SID tunes: JCH's "Carcrash," A-Man's "Sea of Love," Mixer's "SurSumTheme," and EVS's "Vlindertjes." The intro was deployed across 11 cracks by Enigma and associated groups. Enigma formed in May 1991 from the merger of Illusion, Paramount, and the German wing of Crazy, producing 226 releases before dissolving in 1993. The group published the diskmag Mamba and maintained multiple headquarters BBSes including Flashpoint and The Forum. Trigger's coding work appears across several Enigma intros on CSDb, making him a central technical contributor. This is one of two Enigma intros in this collection — see also Enigma #03.

Sources: CSDb — Enigma Intro · CSDb — Enigma Group · docsnyderspage · intros.c64.org

enigma-10.asm 3.328 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: $b71f  (45088 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2000 (8192)
// IRQ handler:  $2027 (irq_2027)
//
// Code: 4022 bytes, Data: 41066 bytes
// Labels: 337, Subroutines: 23
//
// Cross-references: all OK
// ============================================


// --- Region $08b0-$08be ---
.pc = $08b0 "Program $08b0"
        eor $54,x
        eor $6a,x
        adc $64
        ror $66
        ora ($55),y
        eor $44,x
        eor $00,x
        rti

// --- Region $08d0-$08d4 ---
.pc = $08d0 "Program $08d0"
        .byte $14,$54                               // nop $54,x // ILLEGAL
        .byte $14,$50                               // nop $50,x // ILLEGAL
        brk

// --- Region $0ad0-$0ad0 ---
.pc = $0ad0 "Program $0ad0"
        rti

// --- Region $1000-$100d ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $20c1

sub_1000:
        lda #$35
        sta $01
        lda #$00
        jsr sub_a803
        lda #$37
        sta $01
        rts

// --- Region $158d-$158d ---
.pc = $158d "Segment $158d"
        brk

// --- Region $15a5-$15a5 ---
.pc = $15a5 "Segment $15a5"
        brk

// --- Region $18a8-$18a8 ---
.pc = $18a8 "Segment $18a8"
        brk

// --- Region $2000-$2051 ---
.pc = $2000 "main_2000"

main_2000:
        lda #$00
        sta $d011
        jsr sub_2078
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$22
        sta $d012
        lda #$27
        sta $0314
        lda #$20
        sta $0315
        cli

loc_2023:
        jmp loc_2023

dat_2026:
        .byte $00                                   // .

irq_2027:
        lda #$01
        sta $d019
        lda #$d8
        sta $d016
        lda #$12
        sta $d013
        lda #$12
        sta $d018
        lda #$ad
        sta $d012
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        lda #$52
        sta $0314
        jmp $ea81

// --- Region $2073-$20f4 ---
.pc = $2073 "loc_2073"

loc_2073:
        nop
        nop
        jmp $ea81
// Referenced by: jsr from $2005

sub_2078:
        lda #$00
        sta $d021
        sta $d020
        lda #$0e
        jsr sub_29a6
        ldx #$00

loc_2087:
        lda #$0b
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        lda #$00
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        inx
        bne loc_2087
        ldx #$00

loc_20a8: