← #236 Top 1024 #238 →
#237

Crazy (CH)+Lotus 05

Crazy (CH)+Lotus

3.108 lines of code

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

History

Released
2 August 1990
Code
Deejay
Graphics
Gotcha
Music
Reyn Ouwehand — "In Karate"
Group
Crazy (CH) + Lotus — Switzerland/Netherlands, Crazy founded 6 December 1988

A joint release between Crazy — the Swiss group — and Lotus, released on 2 August 1990. Deejay coded while Gotcha provided the graphics and Reyn Ouwehand contributed "In Karate," preserved in the HVSC. Reyn Ouwehand was one of the most celebrated SID composers of the era, and his involvement elevated the production quality of this co-operation release. Crazy was founded on 6 December 1988 in Switzerland, and their collaboration with Lotus reflects the international partnerships that smaller national scenes relied on to remain competitive. Gotcha also appears in Genesis Project's documented intros on Doc Snyder's page, illustrating how graphicians moved between groups. This is distinct from the solo Crazy intros elsewhere in the rankings. The August 1990 release date places this during the peak of European co-operation releases, when groups regularly pooled resources across national borders to increase their output and quality.

Sources: CSDb

c_l-05.asm 3.108 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:18
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $513f  (19008 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0f00 (3840)
// IRQ handler:  $1c29 (irq_1c29)
//
// Code: 1812 bytes, Data: 17196 bytes
// Labels: 325, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0845 ---
.pc = $0810 "loc_0810"

loc_0810:
        lda #$03
        sta $d025
        lda #$06
        sta $d026
        lda #$0e
        sta $d027
        sta $d028
        lda #$a9
        sta smc_1c74
        lda #$00
        sta smc_1c75
        lda #$ea
        sta smc_1c76
        rts
// Referenced by: jsr from $1e81

sub_0832:
        sta $d01b
        lda #$ad
        sta smc_1c74
        lda #$01
        sta smc_1c75
        lda #$dc
        sta smc_1c76
        rts

dat_0845:
        .byte $00                                   // .

// --- Region $0b00-$0b3e ---
.pc = $0b00 "loc_0b00"

loc_0b00:
        ldx #$00
        txa

loc_0b03:
        sta $d000,x
        inx
        cpx #$10
        bne loc_0b03
        lda #$35
        sta $07f8
        lda #$3a
        sta $07f9
        lda #$9c
        sta $d000
        lda #$8d
        sta $d001
        lda #$c4
        sta $d002
        lda #$8d
        sta $d003
        lda #$03
        sta $d015
        sta $d01c
        lda #$50
        sta smc_1d01
        lda #$0b
        sta smc_1d02
        jsr loc_0810
        rts

// --- Region $0bc9-$0bd4 ---
.pc = $0bc9 "loc_0bc9"

loc_0bc9:
        lda #$d4
        sta smc_1d01
        lda #$0b
        sta smc_1d02
        rts

dat_0bd4:
        .byte $ae                                   // .

// --- Region $0be3-$0bf0 ---
.pc = $0be3 "loc_0be3"

loc_0be3:
        eor $03
        lda #$f0
        sta smc_1d01
        lda #$0b
        sta smc_1d02
        rts

dat_0bf0:
        .byte $ae                                   // .

// --- Region $0f00-$0fdd ---
.pc = $0f00 "main_0f00"

main_0f00:
        lda #$00
        sta $d020
        sta $d021
        lda #$ef
        sta $d011
        lda #$08
        jsr $ffd2
        jsr $e544
        ldx #$00
        txa

loc_0f18:
        sta $033c,x
        inx
        cpx #$50
        bne loc_0f18
        lda #$00
        jsr sub_1048
        ldx #$00

loc_0f27:
        lda $3f40,x
        sta $0400,x
        lda $4040,x
        sta $0500,x
        lda $4140,x
        sta $0600,x
        lda $4240,x
        sta $0700,x
        inx
        bne loc_0f27
        ldx #$00