#763

D.S. Compware [DSC] 02

D.S. Compware [DSC]

1.508 lines of code

MusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
December 1986
Group
D.S. Compware — Germany, founded 1986

An early intro from D.S. Compware, a German group founded in 1986. CSDb catalogues this release from December 1986 but lists no individual credits for code, graphics, or music. D.S. Compware — abbreviated DSC — appears in the scrolltexts of other groups from the period, including Hotline's intros documented on Doc Snyder's page, where they are greeted alongside other mid-1980s contacts. The December 1986 date places this intro in the earliest wave of organized C64 cracking, before the elaborate multi-effect intros of 1988 and beyond became standard. German groups were particularly numerous during this era, and D.S. Compware operated alongside contemporaries such as Crest, X-Ray, and various other domestic outfits. No data was found on Demozoo, Pouet, or other scene archives beyond CSDb, suggesting the group had a relatively limited output or operated primarily within regional distribution networks.

Sources: CSDb

dsc-02.asm 1.508 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:39
// 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:  $0825 (2085)
// IRQ handler:  $1205 (irq_1205)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 1037 bytes, Data: 62451 bytes
// Labels: 131, Subroutines: 3
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0825-$0833 ---
.pc = $0825 "main_0825"
// Referenced by: branch from $0829

main_0825:
        ldx $c5
        cpx #$40
        bcc main_0825
        lda #$e1
        sta $0328
        jmp loc_1000

dat_0833:
        // === Data block (1 bytes, $0833-$0833) ===
        .byte $00                                   // .

// --- Region $1000-$135e ---
.pc = $1000 "loc_1000"

loc_1000:
        lda #$00
        sta $c6
        sei
        lda #$05
        sta $0314
        lda #$12
        sta $0315
        lda #$00
        sta $d012
        lda $d011
        and #$7f
        sta $d011
        lda #$81
        sta $d01a
        lda #$00
        sta $033d
        sta $0341
        sta $0345
        sta $0346
        sta $0349
        lda #$01
        sta $0348
        lda #$02
        sta $0343
        lda #$0a
        sta $033e
        lda #$c8
        sta $033f
        lda #$08
        sta $02
        lda #$3c
        sta $0344
        cli
        lda $d011
        and #$f7
        sta $d011
        lda #$ff
        sta $d015
        sta $d017
        sta $d01d
        lda #$6b
        sta $d002
        sta $d004
        lda #$75
        sta $d006
        lda #$dc
        sta $d00a
        lda #$db
        sta $d00c
        lda #$e6
        sta $d00e
        lda #$6d
        sta $d000
        adc #$72
        sta $d008
        lda #$23
        sta $07f8
        sta $07fc
        lda #$22
        sta $07f9
        sta $07fd
        lda #$21
        sta $07fa
        sta $07fb
        sta $07fe
        sta $07ff
        lda #$01
        sta $d027
        sta $d02b
        lda #$0a
        sta $d028
        lda #$0e
        sta $d02c
        lda #$02
        sta $d029
        lda #$06
        sta $d02d
        lda #$00
        sta $d020
        sta $d021
        sta $d02a
        sta $d02e
        lda $dd00
        and #$0f
        ora #$00
        sta $dd00
        lda $d018
        and #$f0
        ora #$08
        sta $d018
        ldy #$00

loc_10e7:
        lda dat_135f,y
        sta $0400,y
        sta $0450,y
        sta $04a0,y
        sta $04f0,y
        sta $0540,y
        sta $0590,y
        sta $05e0,y
        sta $0630,y
        iny
        cpy #$50
        bne loc_10e7
        ldy #$00