← #821 Top 1024 #823 →
#822

Motiv 8 [M8] 03

Motiv 8 [M8]

8.741 lines of code

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

History

Released
1996
Code
Lyon
Music
MHD (Maciej Licbarski)
Group
Motiv 8 — Denmark, founded 8 January 1994

This 1996 intro from Motiv 8 features code by Lyon and music by MHD (Maciej Licbarski). The SID tune is "Hardtracker," preserved in the HVSC — its name suggesting the hard-edged electronic style that characterized mid-1990s C64 music. Motiv 8 was a Danish group founded on 8 January 1994, operating under the abbreviation M8. Despite being Danish, the group employed a Polish musician in MHD, illustrating the continued international character of the C64 scene even in the platform's later years. Another Motiv 8 intro — #490 M8-10 — also appears in the rankings. The 1996 release date places this intro firmly in the C64's post-commercial era, when groups like Motiv 8 sustained the cracking scene through dedication to the platform rather than any commercial motivation. Denmark's scene remained particularly vibrant during this period, hosting groups that continued producing new material well into the late 1990s.

Sources: CSDb

m8-03.asm 8.741 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:54
// 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:  $3c00 (15360)
// IRQ handler:  $3cc4 (irq_3cc4)
// IRQ handler:  $3cf2 (irq_3cf2)
// IRQ handler:  $3d2b (irq_3d2b)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 12323 bytes, Data: 51165 bytes
// Labels: 685, Subroutines: 18
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1060
// Referenced by: jsr from $3cdd

sub_1003:
        jmp loc_10dd

dat_1006:
        .byte $0f                                   // .

// --- Region $1060-$15cb ---
.pc = $1060 "loc_1060"

loc_1060:
        and #$07
        tax
        lda $19c4,x
        sta $100a
        lda $19dc,x
        sta $100d
        lda $19cc,x
        sta $100b
        lda $19e4,x
        sta $100e
        lda $19d4,x
        sta $100c
        lda $19ec,x
        sta $100f
        lda $170d,x
        sta smc_10e9                                // SMC: modifies $10e9
        lda #$0f
        sta dat_1006
        lda #$00
        tax

loc_1095:
        sta $d400,x
        inx
        cpx #$1d
        bne loc_1095
        ldx #$00

loc_109f:
        lda #$00
        sta $1019,x
        sta $1016,x
        sta $16f5,x
        sta $16e9,x
        sta $16e3,x
        sta $16dd,x
        sta $1701,x
        lda #$21
        sta $1010,x
        lda #$12
        sta $1013,x
        lda #$fe
        sta $16e0,x
        lda #$01
        sta $1704,x
        sta $16d4,x
        lda #$01
        sta $1707,x
        inx
        cpx #$03
        bne loc_109f
        tay
        iny
        sty smc_1100                                // SMC: modifies $1100
        rts

loc_10dd:
        lda $fb
        pha
        lda $fc
        pha
        dec smc_1100
        bpl loc_10ed
.label smc_10e9 = * + 1
        lda #$02                                    // !SMC: modified by $108a
        sta smc_1100                                // SMC: modifies $1100

loc_10ed:
        ldx #$02

loc_10ef:
        lda $16e9,x
        beq loc_10f7
        jmp loc_1583

loc_10f7:
        lda $16f5,x
        beq loc_10ff
        jmp loc_12a1

loc_10ff:
.label smc_1100 = * + 1
        lda #$02                                    // !SMC: modified by $10d9, $10ea
        beq $110d
        cmp #$01
        bne loc_110a

dat_1107:
        .byte $4c,$fc                               // L.
.label loc_110a = * + 1
        ora ($4c),y
        sbc $bd12,x
        asl
        .byte $17,$d0                               // slo $d0,x // ILLEGAL
        .byte $03,$4c                               // slo ($4c,x) // ILLEGAL
        inc $bd13
        bpl loc_1128
        sta $fb
        lda $1013,x
        sta $fc
        lda #$01
        sta $1707,x
        ldy $1019,x
.label loc_1128 = * + 1
        lda $16a3,x
        cmp #$60
        bne loc_1131
        jmp loc_1199