← #259 Top 1024 #261 →
#260

Censor Design [CD] 01

Censor Design [CD]

3.728 lines of code

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

History

Released
6 September 1989
Code
Psycho
Music
Markus Schneider (Diflex) — "Strike Force Introtune"
Charset
Taito
Group
Censor Design — Sweden, founded 28 June 1989

This intro shares identical credits with #67 CD 03 — the same coder (Psycho), musician (Diflex), charset artist (Taito), and release date of 6 September 1989, suggesting these are either the same intro catalogued under different identifiers or two releases that reused the same components on the same day. Markus Schneider (Diflex) contributed "Strike Force Introtune," preserved in the HVSC. Censor Design was founded in Sweden on 28 June 1989, making both entries among the group's earliest productions — created barely two months into their existence. The scrolltext documents a crack of "Rally Cross" and sends greetings to a wide array of groups including Alpha Flight, F4CG, Fairlight, Genesis Project, and Legend. Censor Design would later pivot to become one of the C64 demo scene's most celebrated groups. Other Censor Design intros in this collection include #75 CD 06. Doc Snyder's page also lists a second intro credited to CRT and Swallow.

Sources: CSDb · docsnyderspage

cd-01.asm 3.728 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:  $1a2e (6702)
// IRQ handler:  $1c2b (irq_1c2b)
//
// Code: 4490 bytes, Data: 58998 bytes
// Labels: 392, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0814 ---
.pc = $0814 "Program $0814"
        brk

// --- Region $08d0-$08d8 ---
.pc = $08d0 "Program $08d0"
        .byte $80,$83                               // nop #$83 // ILLEGAL
        ldy #$60
        .byte $63,$63                               // rra ($63,x) // ILLEGAL
        pla
        clc
        .byte $02                                   // jam // ILLEGAL

// --- Region $0ae0-$0b17 ---
.pc = $0ae0 "sub_0ae0"
// Referenced by: jsr from $1ba5, $f9d0

sub_0ae0:
        lda $02a6
        bne loc_0b07
        lda #$20
        sta smc_1aee                                // SMC: modifies $1aee
        sta smc_1b91                                // SMC: modifies $1b91
        lda #$81
        sta smc_1aef                                // SMC: modifies $1aef
        lda #$1c
        sta smc_1af0                                // SMC: modifies $1af0
        lda #$2c
        sta smc_1ba5                                // SMC: modifies $1ba5
        lda #$17
        sta smc_1b92                                // SMC: modifies $1b92
        lda #$0b
        sta smc_1b93                                // SMC: modifies $1b93
        rts

loc_0b07:
        lda #$20
        sta smc_1ba5                                // SMC: modifies $1ba5
        lda #$81
        sta smc_1ba6                                // SMC: modifies $1ba6
        lda #$1c
        sta smc_1ba7                                // SMC: modifies $1ba7
        rts

dat_0b17:
        .byte $20                                   //  

// --- Region $0c00-$0c14 ---
.pc = $0c00 "loc_0c00"

loc_0c00:
        ldx #$00

loc_0c02:
        lda dat_0c80,x
        sta $0340,x
        inx
        cpx #$20
        bne loc_0c02
        lda #$34
        sta $01
        jmp $0340

dat_0c14:
        // === Fill data (1 bytes, $0c14-$0c14) ===
        .byte $00                                   // .

// --- Region $0d80-$0dab ---
.pc = $0d80 "loc_0d80"

loc_0d80:
        sei
        lda #$0b
        sta $d011
        ldx #$00
        txa

loc_0d89:
        sta $d400,x
        inx
        bne loc_0d89

loc_0d8f:
        lda $208e,x
        sta $d000,x
        inx
        cpx #$30
        bne loc_0d8f
        jsr $fda3
        jsr $fd15
        jsr $ff5e
        jsr $e51b
        sei
        jmp loc_0c00

dat_0daa:
        .byte $4c,$a7                               // L.

// --- Region $0f04-$0f04 ---
.pc = $0f04 "Program $0f04"
        brk

// --- Region $1000-$15aa ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1a38, $f863

sub_1000:
        jmp loc_1594

dat_1003:
        .byte $4c,$a2,$15                           // L..
// Referenced by: jsr from $1aee, $ec6c, $f919

sub_1006:
        lda $01cb
        cmp #$02
        beq loc_1014
        cmp #$01
        bne loc_1015
        jmp loc_1574

loc_1014:
        rts

loc_1015:
        inc $0199
        inc $019a
        inc $019b
        lda #$1f
        sta $d418