← #256 Top 1024 #258 →
#257

Active 08

Active

2.111 lines of code

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

History

Released
October 1996
Code
Artlace
Group
Active — Sweden, founded 1 May 1989

Active's eighth numbered crack intro, released in October 1996, was coded by Artlace — who also coded the group's first intro documented on Doc Snyder's page. This silent production relies entirely on its visual presentation, with no SID playback routines in the code. Active was a Swedish group founded on 1 May 1989, carrying the tagline "Sweden's #1." Doc Snyder's page documents three intros from the group with credits including coders Injun and Trasher. The group's scrolltexts show them greeting a broad range of contemporaries including Demonix, F4CG, Fairlight, Palace, Avantgarde, and SCS+TRC. By October 1996, the C64 cracking scene had contracted significantly from its late-1980s peak, and groups like Active that continued releasing demonstrated genuine dedication to the platform. Artlace's continued coding work seven years after the group's founding speaks to the loyalty that characterized Sweden's tightly-knit scene.

Sources: CSDb · docsnyderspage

active-08.asm 2.111 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:15
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $4780  (16275 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1c00 (7168)
// IRQ handler:  $1dc1 (loc_1dc1)
// IRQ handler:  $1dfd (loc_1dfd)
// IRQ handler:  $1d81 (loc_1d81)
//
// Code: 1212 bytes, Data: 15063 bytes
// Labels: 232, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $1c00-$1d17 ---
.pc = $1c00 "main_1c00"

main_1c00:
        lda #$0b
        sta $d020
        sta $d021
        sta $0286
        lda #$93
        jsr $ffd2
        lda $1c01
        ldx #$00
        lda $d020

loc_1c18:
        sta $db20,x
        inx
        cpx #$c8
        bne loc_1c18
        ldx #$00

loc_1c22:
        sta $da80,x
        inx
        cpx #$28
        bne loc_1c22
        ldx #$00

loc_1c2c:
        lda #$20
        sta $0400,x
        lda #$ef
        sta $0658,x
        inx
        cpx #$28
        bne loc_1c2c
        jsr sub_3200
        ldx #$00
        lda #$00

loc_1c42:
        sta dat_0800,x
        sta $0900,x
        sta $0a00,x
        sta $0b00,x
        sta spr_0c00,x
        sta chr_2000,x
        sta $2100,x
        sta $2200,x
        sta $2300,x
        sta $2400,x
        sta $2500,x
        sta $2600,x
        sta $2700,x
        sta $2800,x
        sta $2900,x
        sta $2a00,x
        sta $2b00,x
        sta $2c00,x
        sta $2d00,x
        sta $2e00,x
        sta $2f00,x
        inx
        bne loc_1c42
        ldx #$00
        lda #$03

loc_1c88:
        sta spr_0c00,x
        inx
        inx
        inx
        cpx #$3f
        bne loc_1c88
        lda #$ff
        sta $d015
        sta $d017
        lda #$72
        sta $d000
        sta $d002
        sta $d004
        sta $d006
        lda #$f0
        sta $d008
        sta $d00a
        sta $d00c
        sta $d00e
        lda #$08
        sta $d001
        sta $d009
        lda #$b2
        sta $d003
        sta $d00b
        clc
        adc #$2a
        sta $d005
        sta $d00d
        lda #$30
        sta $07f8
        sta $07f9
        sta $07fa
        sta $07fb
        lda #$30
        sta $07fc
        sta $07fd
        sta $07fe
        sta $07ff
        ldx #$00

loc_1ced:
        lda #$0d
        sta $daa8,x
        sta $dad0,x
        sta $daf8,x
        inx
        cpx #$28
        bne loc_1ced
        ldx #$00
        lda #$00
        sta $40
        lda #$20
        sta $41

loc_1d07:
        ldy #$00
        lda #$ff
        sta ($40),y
        ldy #$7f