History
- Group
- Weird Science — Denmark, founded March 1988
An intro from Weird Science, a Danish group also known as Weird Science 2662 — the numeric suffix serving as a distinguishing identifier. CSDb documents the group as founded in March 1988 by The Tricky Freak 1571, The Electronic Freak, Hogan, Mozart, and The Game Killer, with founders drawn from The Flash Point Boys, The Crusaders, and Warp Five International. The group dissolved in April 1990 after producing 224 releases across demos, cracks, intros, and tools. A significant expansion occurred in 1989 when all members of the group Helix joined. No individual credits for code, music, or graphics are identified for this specific intro. Atlantis Prophecy's archive contains two interviews referencing the group — one with Jaws and one with Newscopy — confirming their recognition within the broader scene. Weird Science operated during the peak years of Danish C64 activity, alongside contemporaries in a country that produced some of the scene's most celebrated musicians and coders.
Sources: CSDb · intros.c64.org
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:02 // 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: $254f (9551) // IRQ handler: $1b00 (irq_1b00) // IRQ handler: $1c58 (loc_1c58) // // Code: 6056 bytes, Data: 57432 bytes // Labels: 612, Subroutines: 36 // // Cross-references: all OK // ============================================ // --- Region $0a16-$0a1c --- .pc = $0a16 "Program $0a16" ldy $90 .byte $54,$a4 // nop $a4,x // ILLEGAL ldy $54 brk // --- Region $0a9b-$0aa5 --- .pc = $0a9b "loc_0a9b" loc_0a9b: .byte $54,$00 // nop $00,x // ILLEGAL loc_0a9d: brk dat_0a9e: .byte $54 // T loc_0a9f: ldy $54 ldy $a4 .byte $54,$40 // nop $40,x // ILLEGAL rti // --- Region $0b09-$0b15 --- .pc = $0b09 "Program $0b09" bcc loc_0a9b bcc loc_0a9d bcc loc_0a9f bcc loc_0b65 .byte $64,$64 // nop $64 // ILLEGAL .byte $64,$54 // nop $54 // ILLEGAL brk // --- Region $0b65-$0b65 --- .pc = $0b65 "loc_0b65" loc_0b65: brk // --- Region $0c10-$0c36 --- .pc = $0c10 "Program $0c10" ror adc $64 adc $6a ror eor $00,x .byte $64,$64 // nop $64 // ILLEGAL .byte $64,$65 // nop $65 // ILLEGAL ror ror eor $00,x .byte $64,$64 // nop $64 // ILLEGAL adc $6a ror ror eor $00,x adc $64 .byte $64,$65 // nop $65 // ILLEGAL ror ror eor $00,x adc $64 .byte $64,$64 // nop $64 // ILLEGAL .byte $64,$64 // nop $64 // ILLEGAL dat_0c36: .byte $54 // T // --- Region $0e0f-$0e0f --- .pc = $0e0f "sub_0e0f" // Referenced by: jsr from $3141 sub_0e0f: brk // --- Region $0ef0-$0ef0 --- .pc = $0ef0 "Program $0ef0" brk // --- Region $1004-$102a --- .pc = $1004 "loc_1004" loc_1004: ldx #$00 loc_1006: lda $3180,x sta $0801,x nop nop nop inx bne loc_1006 inc $0408 inc $040b dey bne loc_1004 dec $01 ldx #$00 ldy #$00 stx $ae sty $af cli jmp loc_fce2 dat_1029: .byte $00,$00 // .. // --- Region $10f0-$138d --- .pc = $10f0 "sub_10f0" // Referenced by: jsr from $1117, $ea63; jmp from $1127, $ea73 sub_10f0: lda #$ff sta $109e sta $109f sta $10a0 lda #$00 ldx #$02 loc_10ff: sta $1046,x sta $1049,x sta $104c,x sta $1649,x dex bpl loc_10ff