← #627 Top 1024 #629 →
#628

Frantic 01

Frantic

4.442 lines of code

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

History

Released
January 1989
Code
Phase II
Charset
Tob
Music
Mixer (Jouni Ikonen), Link (Klaus Grongaard)
Group
Frantic — Germany, founded September 1988

The debut crack intro from Frantic, a German group founded in September 1988 with the motto Smart People Think Smart Ideas. Released in January 1989, the intro features code and artwork by Phase II, with a custom charset by Tob. Music comes from two composers — Mixer (Jouni Ikonen) and Link (Klaus Grongaard). The HVSC preserves six SID files tied to this release, including Mixer's Tune 14 and several Link compositions. The scrolltext announces a crack of Dalto and extends greetings to Ikari, Elite, Dominators, Bros, Hotline, Sphinx, Cosmos, and others. An interview with Frantic exists in the Atlantis/Recollection archive. Doc Snyder's page confirms this as the group's only catalogued intro, suggesting a relatively brief active period on the German scene.

Sources: CSDb · docsnyderspage

frantic-01.asm 4.442 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:42
// 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:  $1000 (4096)
// IRQ handler:  $2024 (irq_2024)
//
// Code: 4382 bytes, Data: 59106 bytes
// Labels: 482, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0819 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $15b0

sub_0814:
        inc $03fe,x
        .byte $03,$00                               // slo ($00,x) // ILLEGAL
        brk

// --- Region $0d13-$0d15 ---
.pc = $0d13 "sub_0d13"
// Referenced by: jsr from $158d

sub_0d13:
        ror $80
        .byte $02                                   // jam // ILLEGAL

// --- Region $1000-$109a ---
.pc = $1000 "main_1000"

main_1000:
        jsr sub_1007
        sei
        jmp loc_1100
// Referenced by: jsr from $1000, $e69b

sub_1007:
        jsr $e544
        ldx #$00

loc_100c:
        lda $1600,x
        sta $0400,x
        lda $1640,x
        sta $0440,x
        inx
        bne loc_100c
        ldx #$00
        lda #$08

loc_101f:
        sta $d800,x
        sta $d840,x
        inx
        bne loc_101f
        lda #$00
        jsr sub_1800
        lda #$00
        sta $d010
        sta $d017
        sta $d01d
        lda #$ff
        sta $d015
        sta $d01c
        lda #$06
        sta $d025
        lda #$0e
        sta $d026
        ldx #$00
        lda #$0f

loc_104e:
        sta $d027,x
        inx
        cpx #$08
        bne loc_104e
        lda #$00
        sta smc_1168                                // SMC: modifies $1168
        lda #$30
        sta smc_1169                                // SMC: modifies $1169
        clc
        ldx #$00

loc_1063:
        lda $15d8,x
        sta $0770,x
        adc #$40
        sta $0798,x
        lda $15b0,x
        sta $06f8,x
        adc #$40
        sta $0720,x
        lda txt_1588,x
        sta $0658,x
        adc #$40
        sta $067f,x
        inx
        cpx #$28
        bne loc_1063
        ldx #$00
        lda #$0d

loc_108d:
        sta $da58,x
        inx
        cpx #$4f
        bne loc_108d
        lda #$00
        sta $d020
        rts

// --- Region $1100-$1194 ---
.pc = $1100 "loc_1100"

loc_1100:
        jsr sub_1806
        lda #$1a
        sta $d018
        lda #$0a
        sta $d022
        lda #$02
        sta $d023
        lda #$07
        sta $d021
        lda #$d8
        sta $d016
        jsr sub_1200

loc_111f:
        lda $d012
        cmp #$71
        bne loc_111f
        ldx #$14

loc_1128:
        dex
        bne loc_1128
        nop
        lda #$00
        sta $d021