#724

Dominators, The [DOM] 15

Dominators, The [DOM]

2.325 lines of code

RasterbarsRSTRScrollerSCRLSpritesSPRT

History

Released
December 1989
Group
The Dominators — Denmark, founded 1986

The fifteenth Dominators intro was coded by Mitch with graphics by Animal and music by EVS of 20th Century Composers performing "So-Phisticated III (part 3)." Released in December 1989, it arrived at the close of the group's most productive year. EVS's contributions to The Dominators span multiple intros from late 1989, establishing a brief but fruitful collaboration between the Dutch composer and the Danish crew. CSDb records the intro being reused across cracks of 3D Pinball, Compunet +2, Cowboy Kidz, The Race, and two versions of Thomas the Tank Engine. The Mitch/Animal combination appears in several Dominators intros alongside the better-known Animal/JCH pairing, with Mitch also coding the October 1989 entry that featured Laxity's music. A comment from Zoolook/DOM on intros.c64.org confirms the intro's provenance within the group's catalogue. The Dominators' deep roster of coders, musicians, and graphic artists allowed them to vary their creative teams across productions rather than relying on a single lineup.

Sources: CSDb

dom-15.asm 2.325 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:16
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1000 (4096)
// IRQ handler:  $1220 (irq_1220)
// IRQ handler:  $1240 (irq_1240)
// IRQ handler:  $12d0 (irq_12d0)
//
// Code: 1325 bytes, Data: 62163 bytes
// Labels: 262, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $0e00-$0ec2 ---
.pc = $0e00 "sub_0e00"
// Referenced by: jsr from $128b

sub_0e00:
        lda #$00
        sta $8e
        lda #$d0
        sta $8f
        ldy #$00
        lda ($3a),y
        tax

loc_0e0d:
        cpx #$00
        beq loc_0e1f
        lda $8e
        clc
        adc #$08
        sta $8e
        bcc loc_0e1c
        inc $8f

loc_0e1c:
        dex
        bne loc_0e0d

loc_0e1f:
        ldx #$00

loc_0e21:
        lda $06a9,x
        sta $06a8,x
        lda $06d1,x
        sta $06d0,x
        lda $06f9,x
        sta $06f8,x
        lda $0721,x
        sta $0720,x
        lda $0749,x
        sta $0748,x
        lda $0771,x
        sta $0770,x
        lda $0799,x
        sta $0798,x
        lda $07c1,x
        sta $07c0,x
        inx
        cpx #$27
        bne loc_0e21
        ldy #$07

loc_0e58:
        jsr sub_0ed0
        nop
        and $0ee0,x
        cmp $0ee0,x
        bne loc_0e68
        lda #$2a
        bne loc_0e6a

loc_0e68:
        lda #$20

loc_0e6a:
        sta $0340,y
        dey
        bpl loc_0e58
        lda $0340
        sta $06cf
        lda $0341
        sta $06f7
        lda $0342
        sta $071f
        lda $0343
        sta $0747
        lda $0344
        sta $076f
        lda $0345
        sta $0797
        lda $0346
        sta $07bf
        lda $0347
        sta $07e7
        inc $3e
        lda $3e
        cmp #$08
        bne loc_0ec1
        lda #$00
        sta $3e
        inc $3a
        bne loc_0eb2
        inc $3b

loc_0eb2:
        lda $3a
        cmp $3c
        bcc loc_0ec1
        lda $3b
        cmp $3d
        bcc loc_0ec1
        jsr sub_0f00

loc_0ec1:
        rts

chr_0ec2:
        // === Charset data (1 bytes, $0ec2-$0ec2) ===
        .byte $08                                   // char 0 (partial)

// --- Region $0ed0-$0edf ---
.pc = $0ed0 "sub_0ed0"
// Referenced by: jsr from $0e58

sub_0ed0:
        lda #$33
        sta $01
        lda ($8e),y
        pha
        lda #$37
        sta $01
        pla
        ldx $3e
        rts

chr_0edf:
        // === Charset data (1 bytes, $0edf-$0edf) ===
        .byte $00                                   // char 0 (partial)