← #694 Top 1024 #696 →
#695

Sharks, The 06

Sharks, The

5.287 lines of code

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

History

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

The sixth numbered crack intro from The Sharks — a German group whose prolific output across 1987 to 1995 is documented on CSDb (group ID 241) with approximately 568 releases. The Sharks fielded over 100 members and operated as a cracker group, demo group, import group, graphics group, hacker group, and fixing group. CSDb documents more than 20 distinct Sharks crack intros, with multiple releases dated to 1989 — the likely timeframe for this sixth edition. Musicians who contributed to Sharks intros during this period included Link of Vibrants, EVS of 20th Century Composers, Steel of Shining 8, and Brandis. Key coders across the group's intro catalog included Zap!, Tim, Rap of Authentic Arts, and Deadbeat. The Sharks also organized a copy party in Switzerland in 1988 and maintained BBS systems such as Deep Thought and Infinite Dreams. Their motto — "Old Soldiers never die, young ones do" — captured the group's sustained commitment. Other Sharks intros in this collection appear at #683 Sharks-01, #174 Sharks-10, #388 Sharks-11, and #309 Sharks-23.

Sources: CSDb — Group · intros.c64.org

sharks-06.asm 5.287 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:45
// 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:  $2400 (9216)
// IRQ handler:  $2300 (irq_2300)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 4488 bytes, Data: 59000 bytes
// Labels: 535, Subroutines: 26
//
// Cross-references: all OK
// ============================================


// --- Region $0813-$082e ---
.pc = $0813 "sub_0813"
// Referenced by: jsr from $e0e8, $ff8f

sub_0813:
        sta ($9c,x)
        sta ($ff,x)
        .byte $ff,$ff,$c0                           // isc $c0ff,x // ILLEGAL
        .byte $9f,$9f,$9f                           // sha $9f9f,y // ILLEGAL
        cpy #$ff
        .byte $ff,$ff,$81                           // isc $81ff,x // ILLEGAL
        .byte $9c,$9c,$9c                           // shy $9c9c,x // ILLEGAL
        sta ($ff,x)
        .byte $ff,$ff,$80                           // isc $80ff,x // ILLEGAL
        .byte $9f,$83,$9f                           // sha $9f83,y // ILLEGAL

spr_082d:
        // === Charset data (2 bytes, $082d-$082e) ===
        .byte $80,$ff                               // char 0 (partial)

// --- Region $0914-$091e ---
.pc = $0914 "$0914"
        .byte $ff,$99,$99                           // isc $9999,x // ILLEGAL
        sta $99ff,y
        sta $9900,y
        brk

chr_091e:
        // === Charset data (1 bytes, $091e-$091e) ===
        .byte $99                                   // char 0 (partial)

// --- Region $0b03-$0b18 ---
.pc = $0b03 "loc_0b03"

loc_0b03:
        lda $0b20,x
        cmp #$ff
        bne loc_0b12
        ldx #$00
        stx scr_0b19
        jmp loc_0b03

loc_0b12:
        sta $0b1a
        inc scr_0b19
        rts

// --- Region $0e09-$0e6e ---
.pc = $0e09 "sub_0e09"
// Referenced by: jsr from $ff8c

sub_0e09:
        sta $07f8
        jsr sub_0e13
        dec $07f8
        rts

// Referenced by: jsr from $0e0c, $e2b6
sub_0e13: {
        ldx #$00
loop:
        lda $0799,x
        sta $0798,x
        inx
        cpx #$27
        bne loop
        ldy #$00
        lda ($b0),y
        sta $07bf
        inc $b0
        bne done
        inc $b1
done:
        lda ($b0),y
        cmp #$00
        beq sub_0e34
        rts
}
// Referenced by: jsr from $2467, $f285; branch from $0e31

sub_0e34:
        lda #$00
        sta $b0
        lda #$3a
        sta $b1
        rts

chr_0e3d:
        // === Charset data (3 bytes, $0e3d-$0e3f) ===
        .byte $00,$00,$00                           // char 0 (partial)

loc_0e40:
        lda #$37
        sta $01
        jsr $ff81
        jsr $ff8a
        ldx #$18
        lda #$00

loc_0e4e:
        sta $d400,x
        dex
        bpl loc_0e4e
        lda #$01
        sta $dc0e
        ldx #$00

loc_0e5b:
        lda chr_0e6e,x
        sta $0400,x
        inx
        cpx #$38
        bne loc_0e5b
        sei
        lda #$34
        sta $01
        jmp $0414

chr_0e6e:
        // === Charset data (1 bytes, $0e6e-$0e6e) ===
        .byte $20                                   // char 0 (partial)

// --- Region $0ea3-$0ea3 ---
.pc = $0ea3 "loc_0ea3"

loc_0ea3:
        brk

// --- Region $0f0d-$0f12 ---