← #837 Top 1024 #839 →
#838

Drive 07

Drive

2.619 lines of code

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

History

Released
10 August 1988
Code
The Neon Judgement
Music
Future Freak (Kim Christensen) — "Dexion Intro"
Group
Drive — Germany, founded June 1988

CSDb catalogues this as "Drive Intro 07," released on 10 August 1988 — barely two months after the group's June 1988 founding in Germany. The Neon Judgement coded the intro while Future Freak (Kim Christensen) contributed the music with "Dexion Intro," preserved in the HVSC. The tune's name suggests it was originally composed for the group Dexion and subsequently reused. Drive's tagline was "Mess with the Best, die like the Rest" — documented on Doc Snyder's page, which also preserves credits and scrolltexts for other Drive intros. The group is also represented in this collection with #355 Drive 01. Drive used the short tag "DVE" and was part of the competitive German cracking scene of the late 1980s, trading releases with groups like Ikari, Pulsar, Fairlight, and Demolition.

Sources: CSDb · Doc Snyder's Page

drive-07.asm 2.619 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:46
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2fff  (10240 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1400 (5120)
// IRQ handler:  $1027 (irq_1027)
// IRQ handler:  $16dd (irq_16dd)
// IRQ handler:  $1521 (irq_1521)
// IRQ handler:  $19c0 (irq_19c0)
//
// Code: 2245 bytes, Data: 7995 bytes
// Labels: 331, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0830-$0b4e ---
.pc = $0830 "sub_0830"
// Referenced by: jsr from $0923, $09c5, $09d2, $09de

sub_0830:
        tya
        sta $0b6c,x
// Referenced by: jsr from $0951

sub_0834:
        lda $0bbe,y
        sta $d401,x
        sta $0b83,x
        lda $0c1e,y
        sta $d400,x
        sta $0b82,x
        rts

// Referenced by: jsr from $0a6c
sub_0847: {
        lda #$01
        sta $0b97,x
        lda $0b6e,x
        sta $fb
        lda $0b6f,x
        sta $fc
        lda $0b6d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne skip1
        lda #$00
        sta $0b6d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc skip2
skip1:
        cmp #$01
        bne skip2
        lda #$00
        sta $0b50
        rts
skip2:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $0b7f,x
        tay
        clc
        adc #$02
        sta $0b7f,x
        lda ($fb),y
        cmp #$00
        beq skip3
        lda $0b7f,x
        cmp #$22
        bne skip5
skip3:
        lda #$00
        sta $0b7f,x
        inc $0b6d,x
        lda $0b6d,x
        cmp $0cf6
        bne skip4
        lda #$00
        sta $0b6d
        sta $0b74
        sta $0b7b
        sta $0b7f
        sta $0b86
        sta $0b8d
skip4:
        jmp $084c
skip5:
        lda ($fb),y
        sta $0b6c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        sta $0b54,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $0ba9,x
        sta $fb
        lda $0baa
        sta $fc
        lda #$00
        sta $d404,x
        sta $d402,x
        sta $0b84,x
        lda ($fb),y
        iny
        sta $d403,x
        sta $0b85,x
        and #$f0
        sta $0b53,x
        lda ($fb),y
        iny
        sta $0b55,x
        lda ($fb),y
        iny
        sta $d405,x
        lda ($fb),y
        iny
        sta $d406,x
        lda ($fb),y
        iny
        sta $0b6a,x
        lda ($fb),y
        iny
        sta $0b57,x
        lda ($fb),y
        iny
        sta $0b96,x
        lda ($fb),y
        iny
        sta $0b58,x