← ★ Top 1024 ★ →
★

Active 02

Active

4.188 lines of code

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

History

Released
September 1992
Code
Trasher
Music
Reyn Ouwehand — GP Tune
Graphics
Trasher
Group
Active — Sweden, founded 1 May 1989

Active Intro 02 is the workhorse intro of Active's breakthrough year: Trasher, who had joined the Swedish crew just months earlier, handled both the code and the graphics, while Dutch composer Reyn Ouwehand supplied the GP Tune — an unusually accomplished SID from a composer also known for Last Ninja 3 and Flimbo's Quest. The intro was attached to 25 separate cracks in quick succession. Trasher would go on to be the backbone of Active for the next two and a half decades before finally crossing over to #1 Fairlight in 2017, making this intro an early milestone in one of the scene's longest individual careers.

Sources: CSDb · docsnyderspage

active-02.asm 4.188 lines
// ============================================
// active-02 - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 vverify-cli 1.0 build 1, 2026-03-29 18:08:36
// 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:  $1880 (6272)
//
// Code: 3572 bytes, Data: 59916 bytes
// Labels: 379, Subroutines: 26
//
// Cross-references: all OK
// ============================================


// --- Region $0b0f-$0b10 ---
.pc = $0b0f "sub_0b0f"
// Referenced by: jsr from $fff2

sub_0b0f:
        sed
        brk

// --- Region $0e0f-$0e33 ---
.pc = $0e0f "sub_0e0f"
// Referenced by: jsr from $ff9a, $ffed

sub_0e0f:
        .byte $ff,$fc,$fe                           // isc $fefc,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc dat_ffff,x // ILLEGAL
        inc $f8fe,x
.label loc_0e19 = * + 1
        cpy #$e0
        sed
        inc $fcfe,x
        sed
        cpx #$7f
        .byte $ff,$ff,$ff                           // isc dat_ffff,x // ILLEGAL
        inc $fcfe,x
        beq loc_0e19
        beq loc_0e2b

loc_0e2b:
        .byte $ff,$ff,$ff                           // isc dat_ffff,x // ILLEGAL
        .byte $ff,$ff,$c0                           // isc $c0ff,x // ILLEGAL
        cpy #$c0
        brk

// --- Region $0f04-$0f04 ---
.pc = $0f04 "sub_0f04"
// Referenced by: jsr from $ffd8

sub_0f04:
        brk

// --- Region $1000-$100b ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1893, $eec0

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $1981, $efae

sub_1003:
        lda #$1f
        sta $d418
        jmp loc_1021

dat_100b:
        .byte $8c                                   // .

// --- Region $101d-$1080 ---
.pc = $101d "loc_101d"

loc_101d:
        bpl loc_106b
        and ($ea),y

loc_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $ff,$ff,$ff                           // ...

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c, $e6f7

sub_103f:
        inx
// Referenced by: jsr from $1039, $e6f4

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226

loc_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb

loc_106b:
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1