← #564 Top 1024 #566 →
#565

Dominators, The [DOM] 16

Dominators, The [DOM]

2.530 lines of code

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

History

Released
11 February 1991
Group
The Dominators — Denmark, founded 1986

Released 11 February 1991, this Dominators intro was coded by Animal with graphics by Gabriel of Chromance and a charset by Derbyshire Ram — the British scener who was a Dominators member from May 1990 to November 1991. The SID music is "Compleeto!" by ATOO. The presence of Derbyshire Ram's charset work directly connects this intro to Derby Ram #01, as he contributed to the Dominators during his time with the group. Gabriel's involvement brings a Hungarian connection through Chromance, one of the most respected Eastern European scene groups. CSDb records the intro being reused across cracks of Double Trouble, England Championship Special, and several other titles. Animal remained the group's primary coder throughout the early 1990s, maintaining the Dominators' reputation for technically accomplished intros.

Sources: CSDb

dom-16.asm 2.530 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: $27ff  (8192 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1ba0 (7072)
// IRQ handler:  $1be3 (irq_1be3)
//
// Code: 2265 bytes, Data: 5927 bytes
// Labels: 264, Subroutines: 15
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1081
// Referenced by: jsr from $1cc3

sub_1003:
        jmp loc_10e2

txt_1006:
        .text " "

// --- Region $1081-$164a ---
.pc = $1081 "loc_1081"

loc_1081:
.label smc_1082 = * + 1
        lda #$ff                                    // !SMC: modified by $2088
        bmi loc_10e2

dat_1085:
        .byte $f0,$4c,$0a                           // .L.

loc_1088:
        asl
        asl
        tay
        lda $171b,y
        sta $10f7
        lda $171c,y
        sta $10eb
        ldx #$00

loc_1099:
        iny
        iny
        lda $171b,y
        sta $1036,x
        lda $171c,y
        sta $1039,x
        lda #$01
        sta $101b,x
        sta $1080
        lda #$00
        sta $1033,x
        sta $1030,x
        sta $103c,x
        sta $1024,x
        inx
        cpx #$03
        bne loc_1099
        sta $107f
        sta smc_1299
        ldx #$18

loc_10ca:
        sta $d400,x
        dex
        bpl loc_10ca
        stx smc_1082
        sta $d404
        sta $d40b
        sta $d412
        lda #$0f
        sta $d418
        rts

loc_10e2:
        cld
        ldx #$02
        dec $1080
        bpl loc_10f1
        lda #$00
        sta $1080
        bne loc_1104

loc_10f1:
        dec $107f
        bpl loc_1104
        lda #$02
        sta $107f
        dec $101b
        dec $101c
        dec $101d

loc_1104:
        lda $101b,x
        beq loc_110c
        jmp loc_12bc

loc_110c:
        sta $105d,x
        sta $1021,x
        lda $1036,x
        sta $fe
        lda $1039,x
        sta $ff
        ldy $1033,x
        lda ($fe),y
        bpl loc_1163
        cmp #$fe
        bcc loc_1136
        bne loc_112c
        inc smc_1082

loc_112c:
        lda #$00
        sta $1033,x
        tay
        lda ($fe),y
        bpl loc_1163

loc_1136:
        cmp #$e0
        bcc loc_1147
        sbc #$e0
        sta $103c,x
        inc $1033,x
        iny
        lda ($fe),y
        bpl loc_1163

loc_1147:
        cmp #$c0
        bcc loc_1158
        sbc #$c0
        sta $1024,x
        inc $1033,x