#859

Scientists, The 03

Scientists, The

1.109 lines of code

RasterbarsRSTR

History

Released
c. 1987–1988
Group
The Scientists — Germany, founded early 1987

The third crack intro from The Scientists — a German cracking and demo group founded in early 1987 by Jack the Ripper and The Executioner, based in Bietigheim-Bissingen. CSDb (group ID 3068) documents the pair as the group's sole confirmed members, with Jack the Ripper handling coding and The Executioner serving as both coder and cracker. The Scientists produced 55 documented releases, primarily game cracks and utility tools for the C64, including titles such as Uridium, Moscow Summit, Speedway, and Tron. Later releases included The Ancient Tale and Pale Moon in 1988, along with tools like Demo Maker V2.0 and David Whittaker Ripper. The group participated in the "Crackers Against AIDS" initiative, reflecting the scene's occasional engagement with social causes during the late 1980s. No specific credits for code, music, or graphics have been confirmed for this particular intro on CSDb or other archives. Comments on intros.c64.org from iAN CooG and Rough in September 2010 acknowledge the production's preservation.

Sources: CSDb — Group · intros.c64.org

scientists-03.asm 1.109 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:43
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $2d5f  (9824 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1400 (5120)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $149a (irq_149a)
//
// Code: 640 bytes, Data: 9184 bytes
// Labels: 97, Subroutines: 0
//
// Cross-references: all OK
// ============================================


// --- Region $1400-$1593 ---
.pc = $1400 "main_1400"

main_1400:
        sei
        jsr $e544
        lda #$00
        sta $d020
        sta $d021

loc_140c:
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        inx
        bne loc_140c
        lda #$01
        ldx #$00

loc_141f:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_141f
        lda #$13
        sta $d018
        jmp loc_15b6

loc_1436:
        sei
        lda #$c8
        sta $033f
        lda #$9a
        ldy #$14
        sta $0314
        sty $0315
        lda #$f1
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$02
        sta $0340
        ldx #$27
        lda #$00

loc_1459:
        sta $d800,x
        dex
        cpx #$ff
        bne loc_1459
        lda #$20
        ldx #$27

loc_1465:
        sta $0400,x
        dex
        cpx #$ff
        bne loc_1465
        lda #$ff
        ldy #$27
        sta $a3
        sty $a4
        cli

loc_1476:
        ldx $c6
        cpx #$01
        bne loc_1476
        sei
        lda #$00
        ldx #$18

loc_1481:
        sta $d400,x
        dex
        cpx #$ff
        bne loc_1481
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        jsr $ff81
        cli
        jmp $fce2

irq_149a:
        lda $d019
        sta $d019
        lda #$2d

loc_14a2:
        cmp $d012
        bne loc_14a2
.label smc_14a8 = * + 1
        lda #$19                                    // !SMC: modified by $157c, $1589
        sta $d018
        lda $033f
        sta $d016
        ldx #$00

loc_14b4:
        ldy $15a6,x

loc_14b7:
        dey
        bne loc_14b7
        lda dat_1594,x
        sta $d020
        sta $d021
        inx
        cpx #$0e
        bne loc_14b4
        lda #$c8
        sta $d016
        lda #$13
        sta $d018
        lda #$01
        sta $d019
        lda dat_14ee
        cmp #$00
        beq loc_14fb
        lda #$c7
        sta $033f
        dec $14ef
        lda $14ef
        beq loc_14f0