← #45 Top 1024 #47 →
#46

Dominators, The [DOM] 09

Dominators, The [DOM]

2.394 lines of code

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

History

Released
March 1989
Code
Animal
Charset
Kevin Bulmer
Music
Nilfisk by JCH (Jens-Christian Huus)
Group
The Dominators — Denmark, founded 1986

Ranked #46 on intros.c64.org, this Dominators release is catalogued on CSDb as "Dominators Intro" and dated March 1989. Animal handled the code, Kevin Bulmer produced the charset, and the soundtrack is "Nilfisk" by JCH — Jens-Christian Huus — named after the Danish vacuum cleaner brand and preserved in the HVSC under Huus's composer directory. Doc Snyder's page for The Dominators exists but carries no section confirmed to match this specific intro. The Dominators were a Danish group founded in 1986; see also the later #25 DOM-10 from June 1990, which uses a four-tune SID player drawing on JCH as well.

Sources: CSDb · docsnyderspage

dom-09.asm 2.394 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:  $17c8 (6088)
// IRQ handler:  $18aa (irq_18aa)
//
// Code: 2000 bytes, Data: 61488 bytes
// Labels: 231, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $0f20-$0f2f ---
.pc = $0f20 "loc_0f20"

loc_0f20:
        sei
        ldx #$60

loc_0f23:
        lda scr_0f2f,x
        sta $0334,x
        dex
        bpl loc_0f23
        jmp $0334

scr_0f2f:
        // === Screen RAM (1 bytes, $0f2f-$0f2f) ===
        .byte $78                                   // scrcode: .

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

sub_1000:
        jmp loc_1028
// Referenced by: jsr from $199d

sub_1003:
        jmp loc_1075

dat_1006:
        .byte $0f                                   // .

// --- Region $1028-$1487 ---
.pc = $1028 "loc_1028"

loc_1028:
        asl
        asl
        asl
        tay
        ldx #$00

loc_102e:
        lda $1020,y
        sta $1547,x
        lda $1021,y
        sta $154a,x
        iny
        iny
        inx
        cpx #$03
        bne loc_102e
        lda $1020,y
        sta $15c7
        sta $15c8
        ldy #$00
        tya

loc_104d:
        sta $d400,y
        sta $1563,y
        iny
        cpy #$1b
        bne loc_104d
        lda #$88
        sta $d404
        sta $d40b
        sta $d412
        lda dat_1006
        sta $d418
        lda #$ff
        sta $156f
        sta $1570
        sta $1571
        rts

loc_1075:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02

loc_107d:
        lda $15c4,x
        bne loc_1085
        jmp loc_1466

loc_1085:
        lda $1547,x
        sta $fb
        lda $154a,x
        sta $fc
        ldy $1553,x
        lda $156f,x
        bmi loc_109a
        jmp loc_1247

loc_109a:
        lda $1578,x
        sta $156f,x
        lda $1569,x
        bne loc_10df

loc_10a5:
        ldy $1575,x

loc_10a8:
        tya
        sta $1575,x
        lda ($fb),y
        bmi loc_10c3
        tay
        lda $16ce,y
        sta $154d,x
        lda $16d7,y
        sta $1550,x
        inc $1569,x
        jmp loc_1247

loc_10c3:
        pha
        and #$e0
        cmp #$80
        bne loc_10d7
        pla
        and #$1f
        sec
        sbc #$0c
        asl