#251

Crazy (CH) 04

Name: Crazy (CH) 04
Availability: InStock
Author: Crazy (CH)

Crazy (CH)

3.780 lines of code

RasterbarsRSTRMusicSID

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

History

Released: 22 January 1989
Code: Excell
Music: JCH (Jens-Christian Huus) — "Wizax Intro"
Group: Crazy — Switzerland, founded 6 December 1988

Released on 22 January 1989 — barely six weeks after the group's founding on 6 December 1988 — this Crazy intro demonstrates the rapid output expected of new cracking groups establishing their presence. Excell coded the intro while the music borrows JCH's (Jens-Christian Huus) "Wizax Intro," a tune originally composed for the Wizax group and preserved in the HVSC. The choice of a JCH composition was common practice — his prolific output made his tunes among the most widely reused in crack intros. Crazy was a Swiss group, part of the small but active scene in a country that sat geographically between the dominant German and Italian cracking communities. Another Crazy intro appears in this collection as #101 Crazy 01, which was coded by Magic Man. The group's scrolltexts from Doc Snyder's Crazy 01 entry show them greeting a wide range of European groups including F4CG, Dominators, and Genesis Project.

Sources: CSDb

crazy-04.asm 3.780 lines

// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// 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:  $18ea (6378)
// IRQ handler:  $19b5 (irq_19b5)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1916 (nmi_1916)
//
// Code: 4582 bytes, Data: 58906 bytes
// Labels: 370, Subroutines: 27
//
// Cross-references: all OK
// ============================================


// --- Region $0920-$0926 ---
.pc = $0920 "sub_0920"
// Referenced by: jsr from $2024, $fe66

sub_0920:
        .byte $e7,$c1                               // isc $c1 // ILLEGAL
        .byte $9f,$c3,$f9                           // sha $f9c3,y // ILLEGAL

dat_0925:
        .byte $83,$e7                               // ..

// --- Region $0c01-$0c08 ---
.pc = $0c01 "sub_0c01"
// Referenced by: jsr from $ff65

sub_0c01:
        .byte $bf,$ff,$ff                           // lax loc_ffff,y // ILLEGAL
        .byte $ff,$ff,$ff                           // isc loc_ffff,x // ILLEGAL

dat_0c07:
        .byte $ff,$1b                               // ..

// --- Region $0f03-$0f0b ---
.pc = $0f03 "sub_0f03"
// Referenced by: jsr from $fe1e

sub_0f03:
.label sub_0f04 = * + 1
        inc $aaff
        .byte $ff,$ff,$93                           // isc $93ff,x // ILLEGAL
        .byte $a3,$b3                               // lax ($b3,x) // ILLEGAL

dat_0f0b:
        .byte $e3                                   // .

// --- Region $1000-$1019 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1f89, $fddb

sub_1000:
        jmp loc_1030

dat_1003:
        .byte $4c,$95,$10,$4a                       // L..J
// Referenced by: jsr from $fe54

sub_1007:
        .byte $43,$48                               // sre ($48,x) // ILLEGAL
        jsr sub_3832
        .byte $2f,$30,$39                           // rla $3930 // ILLEGAL
        and $3838
        jsr sub_502f
        jmp loc_5941

txt_1018:
        .text "ER"

// --- Region $1030-$1094 ---
.pc = $1030 "loc_1030"

loc_1030:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1036:
        lda $1028,y
        sta $16e9,x
        sta $16ef,x
        lda $1029,y
        sta $16ec,x
        sta $16f2,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1036
        ldy #$00
        tya

loc_1052:
        sta $d400,y
        sta $172c,y
        iny
        cpy #$1b
        bne loc_1052
        tay
        sty $170c
        iny
        sty $170b
        sty $1747
        iny
        sty $1748
        iny
        sty $1749
        sty $1708
        sty $1709
        sty $170a
        lda #$88
        sta $d404
        sta $d40b
        sta $d412
        lda #$ff
        ldy #$09

loc_1088:
        sta $170d,y
        dey
        bpl loc_1088
        lda dat_177c
        sta $d418
        rts

// --- Region $10a2-$1628 ---
.pc = $10a2 "loc_10a2"

loc_10a2:
        lda $181a,x
        bne loc_10aa
        jmp loc_15d8

loc_10aa:
        lda $16e9,x
        sta $fb
        lda $16ec,x
        sta $fc