#419

Active 05

Active

2.140 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
April 1992
Code
Trasher
Charset
Fox
Graphics
Riddler
Music
Moon (Anders Elmen) — "The Techno"
Group
Active — Sweden, founded 1 May 1989

Active styled themselves "Sweden's #1" — a bold claim documented on Doc Snyder's page. Trasher coded this April 1992 intro while Riddler contributed the graphics, Fox designed the charset, and Moon (Anders Elmen) composed "The Techno," preserved in the HVSC. The full four-person credit list represents a well-staffed production during Active's prime years. Active was founded on 1 May 1989 in Sweden. Trasher was the group's most prominent coder, also responsible for the higher-ranked intro on Doc Snyder's page. Moon's techno-influenced SID composition reflects the early 1990s shift in electronic music taste that filtered into scene productions. Riddler also appears in other Active scrolltexts as a supplier of originals. The group maintained connections across the European scene, greeting Coderz, Red Sector, Illusion, and Fairlight in their scrolltexts. This sits alongside other Active entries in the rankings.

Sources: CSDb · Doc Snyder

active-05.asm 2.140 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: $07ee  End: $2fbf  (10194 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0810 (2064)
//
// Code: 2194 bytes, Data: 8000 bytes
// Labels: 215, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0852 ---
.pc = $0810 "main_0810"

main_0810:
        sei
        jsr sub_0c08
        jsr sub_0ae6
        sei
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda $d011
        and #$7f
        sta $d011
        ldx #$fb
        lda #$51
        ldy #$08
        jsr sub_0bf9
        lda #$00
        jsr sub_1048
        lda #$37
        sta $01
        cli

loc_083d:
        lda $dc01
        cmp #$ef
        bne loc_083d
        sei
        jsr $ff5b
        jsr $fda3
        jsr $fd15
        jmp loc_1d00

dat_0851:
        .byte $20,$79                               //  y

// --- Region $085e-$0a78 ---
.pc = $085e "loc_085e"

loc_085e:
        sbc $4c0b,y
        sta ($ea,x)
        lda $0d93
        ora #$10
        sta $d016
        ora #$10
        sta $d011
        lda #$1a
        sta $d018
        jsr sub_1021
        jsr sub_09e6
        lda $d012
        sta $5000
        lda #$91

loc_0883:
        cmp $d012
        bne loc_0883
        lda #$58
        sta $d000
        lda #$00
        sta $d00e
        inc $0d9a
        lda $0d9a
        cmp #$28
        bne loc_08a1
        lda #$00
        sta $0d9a

loc_08a1:
        tax
        lda dat_19d6,x
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        sta $d009
        sta $d00b
        sta $d00d
        sta $d00f
        ldx #$90
        stx $07f8
        inx
        stx $07f9
        inx
        stx $07fa
        inx
        stx $07fb
        inx
        stx $07fc
        inx
        stx $07fd
        inx
        stx $07fe
        inx
        stx $07ff
        ldx $0da0
        lda $0e00,x
        sta $d027
        sta $d028
        sta $d029
        sta $d02a
        sta $d02b
        sta $d02c
        sta $d02d
        sta $d02e
        lda #$c4

loc_08fe:
        cmp $d012
        bne loc_08fe
        lda #$ce
        sta $d001
        sta $d003
        sta $d005
        sta $d007
        sta $d009
        sta $d00b
        sta $d00d
        lda #$c7

loc_091c:
        cmp $d012
        bne loc_091c
        and #$07
        ora #$70
        sta $d011
        lda #$18
        sta $d018