History
- Code
- CRT
- Graphics
- Taito
- Music
- Swallow (Fredrik Ternell)
- NTSC-Fix
- Horizon, Grim Reaper
- Released
- 26 February 1990
- Group
- Censor Design -- CSDb group ID #2310, Sweden, founded 28 June 1989
Censor Design Crack Intro #02 is a February 1990 release from the Swedish cracking group Censor Design, founded on 28 June 1989. The intro was coded by CRT, with graphics by Taito and music by Swallow (Fredrik Ternell), whose SID track "Strike Force Remix" accompanies the display and is preserved in the High Voltage SID Collection. NTSC compatibility fixes were contributed by Horizon and Grim Reaper. The scrolltext announces a crack of "Fire'n'Forget" and extends greetings to Exodus, NEC/NEI, TSM, Random, DMX, Legend, Ikari+Talent, Genesis Project, Extasy, Dominators, Crazy, Lotus, Paramount, X-Ray, Dynamix, Action, F4CG, Bonzai, Culture, and Brainbombs. BBS numbers in both the United States and Sweden are listed, reflecting the group's transatlantic distribution reach. Censor Design's lasting influence on the C64 demoscene is reflected in a Hugi #38 article titled "Back to the scene: Censor Design." The release is preserved on CSDb as entry #54598.
Sources: CSDb Release · Doc Snyder · intros.c64.org
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:13 // 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: $3a60 (14944) // IRQ handler: $2d80 (irq_2d80) // IRQ handler: $1018 (loc_1018) // // Code: 3535 bytes, Data: 59953 bytes // Labels: 534, Subroutines: 23 // // Cross-references: all OK // ============================================ // --- Region $1000-$1080 --- .pc = $1000 "loc_1000" loc_1000: sei jsr sub_1048 lda #$18 ldy #$10 sta $0314 sty $0315 inx stx $dc0e inx stx $d01a cli rts loc_1018: inc $d019 jsr sub_1021 jmp loc_ea31 // Referenced by: jsr from $101b, $2dae, $3e6b, $3e6e sub_1021: ldx #$00 dec $1090 bmi loc_1034 jsr sub_1226 jsr sub_1225 jmp sub_1225 dat_1031: .byte $ff,$ff,$ff // ... loc_1034: lda #$02 sta $1090 jsr sub_1040 jsr sub_103f // Referenced by: jsr from $103c sub_103f: inx // Referenced by: jsr from $1039 sub_1040: dec $108a,x bmi loc_1091 jmp sub_1226 // Referenced by: jsr from $1001, $2c99, $f1cd sub_1048: lda #$1f sta $d418 lda #$f0 sta $d417 and #$0f sta smc_1262 // SMC: modifies $1262 ldx #$0f loc_1059: sta dat_1081,x dex bpl loc_1059 ldx #$02 loc_1061: lda $14b9,x sta $fa lda $14bc,x sta $fb ldy #$00 lda ($fa),y sta $108d,x iny lda ($fa),y sta $10e6,x and #$0f sta $10e9,x dex bpl loc_1061 rts // --- Region $1091-$10c6 --- .pc = $1091 "loc_1091" loc_1091: ldy $108d,x cpy #$fe bne loc_10a1 // Referenced by: jsr from $10c0 sub_1098: lda $1084,x and #$fe sta $1084,x rts loc_10a1: lda $1c46,y sta $fa lda dat_1c20,y sta $fb ldy dat_1081,x lda ($fa),y bmi loc_10d2 cmp #$60 bcc loc_10f9 loc_10b6: and #$1f sta $108a,x lda #$fe sta dat_1031,x jsr sub_1098 loc_10c3: jmp loc_1187 dat_10c6: .byte $00 // . // --- Region $10d2-$10dd --- .pc = $10d2 "loc_10d2" loc_10d2: cmp #$a0 bcc loc_10ec and #$1f