#175

Dominators, The [DOM] 01

Dominators, The [DOM]

1.242 lines of code

RasterbarsRSTRScrollerSCRL

History

Group
The Dominators — Denmark, founded 1986

The first numbered intro from The Dominators — a Danish cracking group founded in 1986 when Danish Import Team, The Twilight Zone, The Infiltrators, and Warfreak Inc. joined forces. The group was co-founded by Cosmo, Viking, Matrix, and Warfreak, and would operate until August 1993, producing over 1,100 documented releases on CSDb. As an early entry in the series, DOM-01 predates the Animal/JCH combination that would define the group's later intros such as #50 DOM-09 and #42 DOM-05. The Dominators functioned as a demo group, cracking group, magazine staff, import group, and fixing group — an unusually broad operational scope. A comment from Zoolook/DOM on intros.c64.org confirms the intro's provenance. The group's roster over their seven-year run included dozens of members spanning coders, crackers, musicians, and swappers across Denmark and beyond.

Sources: CSDb · intros.c64.org

dom-01.asm 1.242 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $0812 (via BASIC SYS 2066)
// Entry point:  $0334 (820)
// IRQ handler:  $1020 (irq_1020)
// IRQ handler:  $1428 (irq_1428)
// IRQ handler:  $ea31 (loc_ea31)
// IRQ handler:  $1043 (irq_1043)
// IRQ handler:  $101f (irq_101f)
//
// Code: 433 bytes, Data: 63055 bytes
// Labels: 156, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$10ae ---
.pc = $1000 "loc_1000"

loc_1000:
        sei
        lda #$7f
        sta $dc0d
        lda #$f1
        sta $d01a
        lda #$1b
        sta $d011
        lda #$20
        sta $0314
        lda #$10
        sta $0315
        jmp loc_1300

dat_101d:
        .byte $00,$00                               // ..

irq_101f:
.label irq_1020 = * + 1
        lda #$d8
        sta $d016
        lda #$00
        sta $d020
        sta $d021
        lda #$30
        sta $d012
        lda #$01
        sta $d019
        lda #$28
        sta $0314
        lda #$14
        sta $0315
        jmp loc_ea31

irq_1043:
        lda #$c8
        sta $d016
        lda #$00
        sta $d020
        sta $d021
        lda #$01
        sta $d019
        lda #$00
        sta $d012
        ldx $fb
        dex
        dex
        dex
        dex
        cpx #$ff
        beq loc_106c
        stx $fb
        stx $d016
        jmp loc_10a2

loc_106c:
        ldx #$07
        stx $fb
        stx $d016
        ldx #$00

loc_1075:
        lda $07c1,x
        sta $07c0,x
        inx
        cpx #$28
        bne loc_1075
        ldx $fc
        lda $1500,x
        sta $07e8
        inc $fc
        lda $fc
        cmp #$00
        bne loc_10a2
        lda $1084
        cmp #$16
        bne loc_109f
        lda #$15
        sta $1084
        jmp loc_10a2

loc_109f:
        inc $1084

loc_10a2:
        lda #$1f
        sta $0314
        lda #$10
        sta $0315
        jmp loc_ea81

// --- Region $1100-$110e ---
.pc = $1100 "loc_1100"

loc_1100:
        lda #$00
        sta $d3ff,x
        lda dat_110f,x
        sta $d3ff,x
        dex
        bne loc_1100
        rts

// --- Region $1300-$1395 ---
.pc = $1300 "loc_1300"

loc_1300:
        lda #$09
        sta $0286
        jsr $e544
        ldx #$00

loc_130a:
        lda txt_1200,x
        sta $0477,x
        inx
        bne loc_130a
        ldx #$00
        lda #$0f

loc_1317:
        sta $dbc0,x
        inx