← #579 Top 1024 #581 →
#580

Crazy (CH) 12

Crazy (CH)

592 lines of code

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

History

Released
7 September 1989
Group
Crazy — Switzerland, founded 6 December 1988

A September 1989 intro from Crazy, the Swiss cracking group founded on 6 December 1988 and identified by the tag "[C]." CSDb lists no individual credits for code, music, or graphics on this particular entry. Crazy was one of the few notable Swiss groups active on the C64, operating during the platform's peak cracking years. The September 1989 release came less than a year after the group's founding. This is the fifth Crazy entry in the rankings, joining #73 Crazy-01, #104 Crazy-03, #251 Crazy-04, and #471 Crazy-06. Switzerland's small but dedicated C64 scene produced only a handful of cracking groups, making Crazy's sustained output notable. The group appeared in the greetings lists of other European crews, including Brainbombs, reflecting their integration into the broader continental trading networks.

Sources: CSDb · intros.c64.org

crazy-12.asm 592 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:14
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $0eff  (1792 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $088e (2190)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $09bf (irq_09bf)
//
// Code: 694 bytes, Data: 1098 bytes
// Labels: 57, Subroutines: 3
//
// Cross-references: all OK
// ============================================


// --- Region $088e-$08cf ---
.pc = $088e "main_088e"

main_088e:
        jsr sub_0910

loc_0891:
        lda $dc01
        cmp #$ef
        bne loc_0891
        jmp loc_089b

loc_089b:
        sei
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        jsr $e518
        lda #$00
        sta $d020
        sta $d021
        ldx #$07

loc_08b3:
        lda chr_08d0,x
        sta $0400,x
        lda #$04
        sta $d800,x
        dex
        bpl loc_08b3
        ldx #$58

loc_08c3:
        lda $08d8,x
        sta $0200,x
        dex
        bpl loc_08c3
        cli
        jmp $0200

// --- Region $0910-$0b51 ---
.pc = $0910 "sub_0910"

// Referenced by: jsr from $088e
sub_0910: {
        sei
        jsr $e544
        lda #$bf
        sta $0314
        lda #$09
        sta $0315
        lda #$1b
        sta $d011
        lda #$32
        sta $d012
        lda #$81
        sta $d01a
        lda #$00
        sta $0b6b
        sta $dc0e
        sta $8b
        sta $8c
        sta $8f
        sta $9b
        sta $9f
        sta $d020
        sta $d021
        ldx #$17
loop1:
        sta $d400,x
        dex
        bpl loop1
        lda #$01
        sta $a5
        jsr sub_0bb7
        ldx #$00
loop2:
        lda chr_0bc0,x
        sta $0400,x
        lda $0c50,x
        sta $0490,x
        lda #$0b
        sta $d800,x
        sta $d890,x
        lda #$0b
        sta $daa8,x
        sta $dae8,x
        inx
        bne loop2
        ldx #$27
loop3:
        lda $0d50,x
        sta $05e0,x
        lda $0d78,x
        sta $0630,x
        lda #$00
        sta $d9e0,x
        sta $da30,x
        dex
        bpl loop3
        lda #$f3
        sta $d417
        lda #$1f
        sta $d418
        lda #$f0
        sta $d406
        sta $d40d
        lda #$21
        sta $d404
        sta $d40b
        lda #$05
        sta $d401
        sta $d408
        sta $d400
        lda #$09
        sta $d022
        lda #$0d
        sta $d023
        cli
        rts
}

irq_09bf:
        dec $d019
        ldx #$05

loc_09c4:
        dex