#174

Sharks, The 10

Name: Sharks, The 10
Availability: InStock
Author: Sharks, The

Sharks, The

2.212 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLBitmapBMAP

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

History

Group: The Sharks — Germany, founded 1987

This is the tenth numbered crack intro from The Sharks, a German group founded in 1987 and active until 1995. CSDb lists The Sharks (group ID 241) as a multifaceted operation — handling cracking, demo production, importing, fixing, graphics, and even hacking across nearly a decade of C64 scene activity. Key members included Deadbeat, who served as coder, cracker, and graphician throughout the group’s entire lifespan, alongside contributors such as Magic Circle, Ultimax, and Scorpion. With approximately 568 releases documented on CSDb, The Sharks maintained one of the more prolific output rates among German groups, earning a community rating of 8.3 out of 10. Their motto — "Old Soldiers never die, young ones do" — reflected a wry self-awareness about longevity in the scene. The group also developed the Sharks Intro Editor tool series, which went through numerous versions. Additional Sharks intros appear in this collection at positions #309, #388, and #956.

Sources: CSDb · intros.c64.org

sharks-10.asm 2.212 lines

// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:31
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0286  End: $dc0d  (55688 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1c24 (7204)
//
// Code: 819 bytes, Data: 54869 bytes
// Labels: 287, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $0f6e-$0f9c ---
.pc = $0f6e "loc_0f6e"

loc_0f6e:
        sei
        lda #$34
        sta $01
        lda #$00
        tax
        tay
        sta $fa
        sta $fc
        lda #$08
        sta $fb
        lda #$3f
        sta $fd

loc_0f83:
        lda ($fc),y
        sta ($fa),y
        iny
        bne loc_0f83
        inc $fb
        inc $fd
        inx
        cpx #$c1
        bne loc_0f83
        lda #$37
        sta $01
        cli
        jmp $fce2

dat_0f9b:
        .byte $a0,$0d                               // ..

// --- Region $11a6-$1489 ---
.pc = $11a6 "sub_11a6"
// Referenced by: jsr from $1274, $1316, $1323, $132f

sub_11a6:
        tya
        sta $101c,x
// Referenced by: jsr from $12a2

sub_11aa:
        lda $106e,y
        sta $d401,x
        sta $1033,x
        lda $10ce,y
        sta dat_d400,x
.label loc_11bb = * + 2
        sta $1032,x
        rts
// Referenced by: jsr from $13bd

sub_11bd:
        lda #$01
        sta $1047,x

loc_11c2:
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne loc_11e4
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc loc_11ee

loc_11e4:
        cmp #$01
        bne loc_11ee
        lda #$00
        sta $1000
        rts

loc_11ee:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $102f,x
        tay
        clc
        adc #$02
        sta $102f,x
        lda ($fb),y
        cmp #$00
        bne loc_1212
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp loc_11c2

loc_1212:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
.label loc_121d = * + 2
        sta $1004,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $1059,x
        sta $fb
        lda $105a
        sta $fc
        lda #$00
        sta $d404,x
        sta $d402,x
        sta $1034,x
        lda ($fb),y
        iny
        sta $d403,x
        sta $1035,x
        and #$f0