← #742 Top 1024 #744 →
#743

Goonies, The [TG] 03

Goonies, The [TG]

1.098 lines of code

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

History

Released
14 February 1987
Code
The Goonie
Group
The Goonies — Denmark, founded 1985

Released on Valentine's Day 1987, this intro from The Goonies was coded by the group's eponymous member, The Goonie. The Goonies were a Danish cracking group founded in 1985, taking their name from the popular 1985 Steven Spielberg film — a common practice in the C64 scene where pop culture references frequently inspired group names. Denmark produced a disproportionate number of influential cracking groups relative to its size, and The Goonies were part of this thriving Scandinavian ecosystem. The intro features no credited music, relying solely on code and visual elements. CSDb records the group's abbreviation as TG. No coverage was found on Doc Snyder's page, Demozoo, or in scene publications, suggesting The Goonies left a modest historical footprint. The group's 1985 founding date places them among the earliest Danish cracking crews, predating many of the groups that would later dominate the Scandinavian scene. This is the only Goonies intro catalogued in the current collection.

Sources: CSDb · intros.c64.org

tg-03.asm 1.098 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:49
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with NSU Packer 1.1 — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $c71b (50971)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $c8c5 (irq_c8c5)
//
// Code: 507 bytes, Data: 62980 bytes
// Labels: 108, Subroutines: 1
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$081f ---
.pc = $0814 "Program $0814"
        asl $9508,x
        brk

dat_0818:
        .byte $ca,$d0,$f8,$a0,$fb,$4c,$37           // .....L7
        brk

// --- Region $120f-$120f ---
.pc = $120f "Segment $120f"
        brk

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $c500-$c51e ---
.pc = $c500 "loc_c500"

loc_c500:
        lda #$00
        sta $d017
        sta $d01c
        sta $d010
        sta $d014
        sta $d015
        sta $d017
        sta $d01b
        sta $d01d
        jmp loc_fce2

bmp_c51d:
        // === Bitmap data (2 bytes, $c51d-$c51e) ===
        .byte $ff,$ff                               // ..

// --- Region $c715-$c888 ---
.pc = $c715 "loc_c715"

loc_c715:
        lda ($fa),y
        sta ($fc),y
        lda #$00

main_c71b:
        sta ($fa),y
        iny
        bne loc_c715
        inc $fb
        inc $fd
        dex
        bne loc_c715
        ldx #$00

loc_c729:
        lda $cb00,x
        sta $3c00,x
        lda $cc00,x
        sta $3d00,x
        inx
        bne loc_c729
        lda #$37
        sta $01
        cli
        lda #$c1
        sta $0318
        lda #$00
        sta $d020
        sta $d021
        lda #$05
        jsr $ffd2
        lda #$08
        jsr $ffd2
        lda #$93
        jsr $ffd2
        lda #$15
        sta $d018
        lda #$c8
        sta $d016
        lda #$1b
        sta $d011
        lda #$00
        sta $d022
        lda #$00
        sta $02
        sta $03
        sta $04
        sta $41
        sta $f7
        sta $f8
        sta $f9
        lda #$30
        sta $fa
        sta $fc
        lda #$cd
        sta $fb
        sta $fd
        lda #$70
        sta $a3
        lda #$00
        sta $caf0
        sta $caf1
        sta $caf2
        lda #$40
        sta $caf4
        sta $caf5
        sta $caf6
        jsr sub_c8a0
        ldx #$03
        lda #$00

loc_c7aa:
        sta $dc08,x
        dex
        bpl loc_c7aa
        lda #$02

loc_c7b2:
        cmp $dc09
        bne loc_c7b2
        ldx #$00

loc_c7b9:
        lda $cc80,x
        sta $0578,x
        lda #$01
        sta $d978,x