← #308 Top 1024 #310 →
#309

Sharks, The 21

Sharks, The

2.057 lines of code

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

History

Group
The Sharks — Germany, founded 1987

The twenty-first numbered crack intro from The Sharks, indicating the group’s deep commitment to regularly refreshing its intro designs. Founded in Germany in 1987, The Sharks operated until their dissolution in 1995 — an eight-year run that encompassed cracking, demo production, importing, and fixing. Their numbered intro series reached at least 23 editions, demonstrating a sustained investment in visual presentation that many smaller groups never matched. The group’s core membership included Deadbeat, who handled coding, cracking, and graphics across the entire lifespan of the outfit, as well as Ultimax and Scorpion, who contributed music and code. With approximately 568 releases catalogued on CSDb (group ID 241), The Sharks ranked among Germany’s most active C64 groups. The group’s motto — "Old Soldiers never die, young ones do" — underscored their staying power. Other entries from The Sharks in this collection appear at positions #174, #388, and #956.

Sources: CSDb · intros.c64.org

sharks-21.asm 2.057 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0800  End: $3fff  (14336 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1950 (6480)
// IRQ handler:  $1a69 (irq_1a69)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1566 bytes, Data: 12770 bytes
// Labels: 189, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $11e3-$141a ---
.pc = $11e3 "sub_11e3"
// Referenced by: jsr from $12b1, $1353, $1360, $136c

sub_11e3:
        tya
        sta $101c,x
// Referenced by: jsr from $12df

sub_11e7:
        lda $106e,y
        sta $d401,x
        sta $1033,x
        lda $10ce,y
        sta $d400,x
        sta $1032,x
        rts

// Referenced by: jsr from $13fa
sub_11fa: {
        lda #$01
        sta $1047,x
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne skip1
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc skip2
skip1:
        cmp #$01
        bne skip2
        lda #$00
        sta $1000
        rts
skip2:
        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 skip3
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp $11ff
skip3:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        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
        sta $1003,x
        lda ($fb),y
        iny
        sta $1005,x
        lda ($fb),y
        iny
        sta $d405,x
        lda ($fb),y
        iny
        sta $d406,x
        lda ($fb),y
        iny
        sta $101a,x
        lda ($fb),y
        iny
        sta $1007,x
        lda ($fb),y
        iny
        sta $1046,x
        lda ($fb),y
        iny
        sta $1008,x
        ldy $101c,x
        jsr sub_11e3
        lda $1033,x
        sta $1049,x
        lda $1032,x
        sta $1048,x
        lda $1005,x
        sta $d404,x
        lda #$00
        sta $1009,x
        rts
}

// Referenced by: jsr from $13ea
sub_12cc: {
        inc $1006,x
        lda $1006,x
        clc