History
- Released
- 14 November 1996
- Code
- Wolverine
- Group
- Active — Sweden, founded 1 May 1989
Active Intro #6, released on 14 November 1996, is a crack intro from the Swedish group Active. The intro was coded by Wolverine and is notable for its use of sampling rather than a SID music track -- an uncommon choice that gives it a distinctive audio character. Active was founded on 1 May 1989 and styled themselves "Sweden's #1," operating across both C64 and Amiga platforms. The group maintained an active BBS presence, including a headquarters board called The Futurezone. Their roster over the years included coders Artlace, Trasher, and Injun, among others. This late-1996 release demonstrates Active's continued commitment to the C64 well into an era when most cracking activity had migrated to newer platforms. The group's other intros on Doc Snyder's Page feature music from prominent composers including JCH and Maduplec.
Sources: CSDb · intros.c64.org · Doc Snyder's Page
// ============================================ // output - Disassembled Source // ============================================ // 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: $5300 (19219 bytes) // Crunched with Beta Dynamic v3 — depacked by emulation // Packer entry: $080b (via BASIC SYS 2059) // Entry point: $1000 (4096) // IRQ handler: $1061 (irq_1061) // IRQ handler: $1097 (irq_1097) // IRQ handler: $10c0 (irq_10c0) // IRQ handler: $10da (irq_10da) // IRQ handler: $10f4 (irq_10f4) // IRQ handler: $1126 (irq_1126) // IRQ handler: $1141 (irq_1141) // IRQ handler: $1158 (irq_1158) // IRQ handler: $13bd (nmi_13bd) // IRQ handler: $fe47 (nmi_fe47) // // Code: 1052 bytes, Data: 18167 bytes // Labels: 266, Subroutines: 9 // // Cross-references: all OK // ============================================ // --- Region $1000-$1035 --- .pc = $1000 "main_1000" main_1000: sei jsr $ff81 jsr $ff84 jsr $ff8a jsr sub_12c6 lda #$61 sta $0314 lda #$10 sta $0315 lda #$7f sta $dc0d lda #$00 sta $d012 lda $d011 and #$7f sta $d011 lda #$01 sta $d01a sta $d019 cli jmp loc_1394 dat_1035: .byte $01 // . // --- Region $1061-$13e0 --- .pc = $1061 "irq_1061" irq_1061: lda #$1b sta $d011 inc $d019 lda $12c5 cmp #$c8 bne loc_1073 jsr sub_1224 loc_1073: ldy $12c5 jsr sub_11f0 sty $12c5 cpy #$c0 bne loc_1085 lda #$c8 sta $12c5 loc_1085: lda #$97 sta $0314 lda #$10 sta $0315 lda #$0a sta $d012 jmp loc_14d0 irq_1097: lda $1059 eor #$02 sta $1059 tay jsr sub_11d6 jsr sub_1190 lda #$18 jsr sub_11ba lda #$c0 sta $0314 lda #$10 sta $0315 lda #$38 sta $d012 inc $d019 jmp loc_14d0 irq_10c0: lda #$4b jsr sub_11ba lda #$da sta $0314 lda #$10 sta $0315 lda #$68 sta $d012 inc $d019 jmp $ea81 irq_10da: lda #$7f jsr sub_11ba lda #$f4 sta $0314 lda #$10 sta $0315 lda #$a0 sta $d012 inc $d019 jmp $ea81 irq_10f4: { lda #$b5 jsr sub_11ba lda #$1a sta $d018 lda #$c8 loop: cmp $d012 bpl loop ldy $12c5 cpy #$c8 bne skip ldy #$c0 skip: sty $d016 lda #$26 sta $0314 lda #$11 sta $0315 lda #$d0 sta $d012