← #637 Top 1024 #639 →
#638

Active 03

Active

3.429 lines of code

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

History

Released
15 June 1989
Group
Active — Sweden, founded 1 May 1989
Code
Injun
Graphics
Banshee
Music
EVS (Edwin van Santen) — Spijkerhoek
Charset
Kevin Bulmer

This crack intro from Active — a Swedish group self-styled as "Sweden's #1" — is catalogued on CSDb as release #54164, dated 15 June 1989, barely six weeks after the group's founding on 1 May 1989. Code is credited to Injun, graphics to Banshee, the charset to Kevin Bulmer, and music to Dutch SID composer EVS (Edwin van Santen) using his tune "Spijkerhoek," preserved in the HVSC. The scrolltext announces a crack of "Power Drift" from Activision, praising it as a rare good arcade conversion. Greetings go out to DCS, Cosmos, Illusion, F4CG, Dominators, Dynamix, Genesis Projects, Contex, NATO, Sharks, Abnormal, and others. Doc Snyder's archive preserves three Active intros in total, with the other two featuring coders Trasher and Artlace respectively.

Sources: CSDb · intros.c64.org · docsnyderspage

active-03.asm 3.429 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:06
// 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:  $1d00 (7424)
// IRQ handler:  $0c21 (irq_0c21)
//
// Code: 2092 bytes, Data: 61396 bytes
// Labels: 440, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0c95 ---
.pc = $0c00 "loc_0c00"

loc_0c00:
        sei
        lda #$01
        sta $d01a
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$0c
        sta $0315
        lda #$21
        sta $0314
        lda #$00
        jsr sub_1000
        cli

loc_0c1e:
        jmp loc_0c1e

irq_0c21:
        inc $d019
        lda #$18
        jsr sub_1880
        lda #$d8
        sta $d016
        ldx $40
        ldy #$30

loc_0c32:
        cpy $d012
        bne loc_0c32
        lda $d011
        clc
        adc #$01
        and #$07
        ora #$38
        sta $d011
        iny
        dex
        bne loc_0c32
        sty $41
        jsr sub_18e0
        lda #$28
        sec
        sbc $40
        tax
        lda $41
        clc
        adc #$38
        tay

loc_0c59:
        cpy $d012
        bne loc_0c59
        lda $d011
        clc
        adc #$01
        and #$07
        ora #$18
        sta $d011
        iny
        dex
        bne loc_0c59
        lda #$08
        sta $d016
        lda #$81
        sta $0314
        lda #$92
        sta $d012
        jmp loc_ea81

dat_0c81:
        .byte $ee,$19,$d0                           // ...

loc_0c84:
        lda #$13
        jsr sub_18a0
        lda #$e0
        sta $d012
        lda #$96
        sta $0314
        jmp loc_ea81

// --- Region $0cea-$0cf4 ---
.pc = $0cea "loc_0cea"

loc_0cea:
        ora #$d8
        sta $1889
        jsr sub_1cc0
        jmp loc_ea81

// --- Region $0e00-$0e29 ---
.pc = $0e00 "sub_0e00"
// Referenced by: jsr from $1d12

sub_0e00:
        lda #$00
        sta $40
        lda #$20
        sta $41
        ldx #$00

loc_0e0a:
        lda $0f00,x
        beq loc_0e1b
        ldy #$00

loc_0e11:
        lda dat_0e80,y
        sta ($40),y
        iny
        cpy #$08
        bne loc_0e11

loc_0e1b:
        lda $40
        clc
        adc #$08
        bne loc_0e24
        inc $41

loc_0e24:
        sta $40
        inx
        bne loc_0e0a
        rts