← #24 Top 1024 #26 →
#25

Dominators, The [DOM] 10

Dominators, The [DOM]

5.202 lines of code

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

History

Released
29 June 1990
Code
Jade
Graphics
DMC
Charset
Deek
Music
Oxygene IV by Stein Pedersen; Wonderland and Weekend by Antti Hannula; Glider Pilot by JCH
Group
The Dominators — Denmark, founded 1986

Ranked #25 on intros.c64.org, this is the highest-placed Dominators release in the archive. CSDb catalogues it as "Dominators Intro" and dates it 29 June 1990. Jade coded the intro, DMC provided graphics and Deek produced the charset. The soundtrack is a four-tune SID player: "Oxygene IV" by Stein Pedersen, "Wonderland" and "Weekend" both by Antti Hannula, and "Glider Pilot" by JCH (Jens-Christian Huus). All four tunes are preserved in the HVSC under their composer directories. The Dominators were founded in Denmark in 1986. Doc Snyder's page for the group exists but carries no section confirmed to map to this specific release. See also #46 The Dominators.

Sources: CSDb · docsnyderspage

dom-10.asm 5.202 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 v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $2b70 (11120)
// IRQ handler:  $2bca (irq_2bca)
// IRQ handler:  $2a0d (irq_2a0d)
//
// Code: 5359 bytes, Data: 58129 bytes
// Labels: 540, Subroutines: 19
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2c24, $fd86

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $1cd6, $2c29, $f261

sub_1003:
        jmp loc_1090

dat_1006:
        .byte $01                                   // .

// --- Region $1048-$151c ---
.pc = $1048 "loc_1048"

loc_1048:
        asl
        asl
        asl
        tay
        ldx #$00

loc_104e:
        lda $1020,y
        sta $15dc,x
        sta $15e2,x
        lda $1021,y
        sta $15df,x
        sta $15e5,x
        iny
        iny
        inx
        cpx #$03
        bne loc_104e
        lda $1020,y
        sta $166b
        sta $166c
        ldy #$00
        tya

loc_1073:
        sta $d400,y
        sta $15f8,y
        iny
        cpy #$1b
        bne loc_1073
        lda $1009
        sta $d418
        lda #$ff
        sta $160a
        sta $160b
        sta $160c
        rts

loc_1090:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02
        dec $166b
        bpl loc_10a3
        lda $166c
        sta $166b

loc_10a3:
        bne loc_10b2
        lda dat_1006,x
        bne loc_10ad
        jmp loc_150c

loc_10ad:
        dec $160a,x
        bmi loc_10bd

loc_10b2:
        lda $1604,x
        bne loc_10ba
        jmp loc_12a3

loc_10ba:
        jmp loc_11d2

loc_10bd:
        lda $1610,x
        sta $160a,x
        lda #$00
        sta $160d,x

loc_10c8:
        lda $15dc,x
        sta $fb
        lda $15df,x
        sta $fc

loc_10d2:
        ldy #$00
        lda ($fb),y
        bpl loc_10ff
        cmp #$ff
        bne loc_10ef
        lda $15e2,x
        sta $15dc,x
        sta $fb
        lda $15e5,x
        sta $15df,x
        sta $fc
        jmp loc_10d2

loc_10ef:
        and #$7f
        asl
        sta $15fb,x
        inc $15dc,x
        bne loc_10c8
        inc $15df,x
        bne loc_10c8

loc_10ff:
        tay
        lda $19bd,y
        sta $fb
        lda $19d1,y
        sta $fc

loc_110a:
        ldy $15fe,x