#683

Sharks, The 01

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

Sharks, The

2.595 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

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

History

Released: c. 1988–1989
Group: The Sharks — Germany, founded 1987

The first numbered crack intro from The Sharks — a prolific German group active from 1987 to 1995. CSDb (group ID 241) classifies The Sharks as a cracker group, demo group, import group, graphics group, hacker group, and fixing group, with a roster exceeding 100 members and approximately 568 documented releases. The group's motto — "Old Soldiers never die, young ones do" — reflected their enduring presence across eight years of scene activity. Key members included Deadbeat, Magic Circle, Dark Force, Ultimax, Zap!, and Tim, handling coding, cracking, and graphics. The Sharks organized a copy party in Switzerland in 1988 and operated from multiple BBS systems including Deep Thought and Infinite Dreams. CSDb documents over 20 distinct Sharks crack intros spanning 1989 to 1995, with credits across productions going to coders such as Zap!, Tim, Rap, and Deadbeat. Other Sharks intros in this collection appear at #695 Sharks-06, #174 Sharks-10, #388 Sharks-11, and #309 Sharks-23.

Sources: CSDb — Group · intros.c64.org

sharks-01.asm 2.595 lines

// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:44
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $37fe  (12287 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $3000 (12288)
// IRQ handler:  $3100 (irq_3100)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $3140 (irq_3140)
// IRQ handler:  $31c0 (irq_31c0)
// IRQ handler:  $3200 (irq_3200)
//
// Code: 2456 bytes, Data: 9831 bytes
// Labels: 268, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$111e ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1559, $155e, $1563

sub_1000:
        lda $140d
        bne loc_100c
        sta $d418
        rts

scr_1009:
        // === Screen RAM (3 bytes, $1009-$100b) ===
        .encoding "screencode_mixed"
        .byte $8d                                   // scrcode: .
        .text "lt"
        .encoding "petscii_upper"

loc_100c:
        cmp #$ab
        beq loc_1042
        jmp loc_1071

loc_1013:
        jsr sub_1521
        lda #$0f
        sta $d418
        ldy #$00
        sty $13fa
        sty $1401
        sty $1408
        sty $13fc
        sty $1403
        sty $140a
        sty $13d1
        sty $13d8
        sty $13df
        iny
        sty $140c
        sty $1410
        jmp loc_109b

loc_1042:
        ldy $13e4,x
        lda $15bd,y
        and #$04
        beq loc_1064
        lda $143c,x
        beq loc_105e
        lda $1630,y
        sta $d404,x
        lda #$00
        sta $143c,x
        beq loc_1064

loc_105e:
        lda $15b7,y
        sta $d404,x

loc_1064:
        lda $1410
        bne loc_106e
        dec $13fc,x
        bmi loc_10b5

loc_106e:
        jmp loc_1231

loc_1071:
        ldy $140d
        lda $16d2,y
        sta $13f8
        lda $16d5,y
        sta $13f9
        lda $16d8,y
        sta $13ff
        lda $16db,y
        sta scr_1400
        lda $16de,y
        sta $1406
        lda $16e1,y
        sta $1407
        jmp loc_1013

loc_109b:
        cpx #$0e
        bne loc_10aa
        dec $1410
        bpl loc_10aa
        lda $140e
        sta $1410

loc_10aa:
        lda $140c
        beq loc_10b4
        lda #$ab
        sta $140d

loc_10b4:
        rts

loc_10b5:
        lda $13f8,x
        sta $6b
        lda $13f9,x
        sta $6c
        ldy $13fa,x
        lda ($6b),y
        tay
        lda $16a6,y
        sta $6d
        lda $16bc,y
        sta $6e
        lda #$ff
        sta $1411
        lda #$00
        sta $13ce,x
        sta $13cd,x
        sta scr_13cc,x

loc_10df:
        ldy $13d1,x
        lda ($6d),y
        cmp #$fd
        bcc loc_10f6
        iny
        inc $13d1,x