← #97 Top 1024 #99 →
#98

Dominators, The [DOM] 02

Dominators, The [DOM]

1.074 lines of code

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

History

Released
March 1989
Code
Animal
Charset
Kevin Bulmer
Group
The Dominators — Denmark, founded 1986

The third Dominators intro in the top 100 — alongside #46 DOM-09 and #89 DOM-05. Animal coded the intro while Kevin Bulmer provided the charset. Despite external credits in databases, disassembly of this particular binary reveals no SID register writes — it runs as a silent visual presentation. The multiple highly-ranked entries from The Dominators with shared production credits but different visual configurations suggest the group produced a series of intro variants to accompany their prolific cracking output during March 1989. Each variant featured different graphics or scrolltext while maintaining the same coding foundation. The approach was efficient — one core template could serve dozens of different cracks. The Dominators were a Danish group founded in 1986 whose prolific output and consistent visual quality earned them lasting recognition in the crack intro canon.

Sources: CSDb

dom-02.asm 1.074 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:18
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $c000 (49152)
// IRQ handler:  $c080 (irq_c080)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 458 bytes, Data: 63029 bytes
// Labels: 96, Subroutines: 7
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $68c1-$68c1 ---
.pc = $68c1 "Segment $68c1"
        brk

// --- Region $98c1-$98c1 ---
.pc = $98c1 "Segment $98c1"
        brk

// --- Region $c000-$c0a4 ---
.pc = $c000 "main_c000"

main_c000:
        jsr sub_c4c0
        lda #$08
        jsr $ffd2
        sei
        lda #$c4
        sta $dd00
        lda #$86
        sta $d018
        lda #$01
        sta $d01a
        sta $d019
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$c0
        sta $0315
        lda #$80
        sta $0314
        jsr sub_c290
        inc $01
        ldy #$00

loc_c036:
        lda $c2b0,y
        sta scr_e000,y
        lda $c2bf,y
        sta $e00f,y
        iny
        bne loc_c036
        dec $01
        nop
        cli

loc_c049:
        jsr $ffe4
        beq loc_c049
        lda #$aa
        sta $2e
        sta $af
        lda #$7b
        sta $2d
        sta $ae
        sei
        lda #$ea
        sta $0315
        lda #$31
        sta $0314
        lda #$00
        sta $d01a
        nop
        nop
        jsr $ff84
        lda #$1b
        jsr sub_c508
        cli
        jmp loc_fce2

bmp_c078:
        // === Bitmap data (8 bytes, $c078-$c07f) ===
        .fill 8, $00

irq_c080:
        lda $d019
        and #$01
        bne loc_c08a
        jmp loc_febc

loc_c08a:
        lda $07c1
        ldy $07c2
        ldx $07c3
.label smc_c094 = * + 1
        jmp loc_c0b0                                // !SMC: modified by $c0ea, $c0fb

loc_c096:
        lda #$60
        sta $d012
        lda #$01
        sta $d019
        jmp loc_febc

bmp_c0a3:
        // === Bitmap data (2 bytes, $c0a3-$c0a4) ===
        .byte $00,$00                               // ..

// --- Region $c0b0-$c184 ---
.pc = $c0b0 "loc_c0b0"

loc_c0b0:
        ldx #$00

loc_c0b2:
        jsr sub_c101
        dec $02
        inx
        cpx #$20
        bne loc_c0b2
        inc $02
        dec $3f
        bne loc_c0da
        lda #$00
        sta $02
        inc $03
        lda $03
        sta $07c0
        lda $40
        sta $3f
        dec $40
        bne loc_c0f0
        lda #$c1
        jsr sub_c550

loc_c0da:
        lda #$90