#17

German Cracking Service [GCS] 01

German Cracking Service [GCS]

286 lines of code

SpritesSPRT

History

Released
1984
Group
German Cracking Service — Germany

Ranked #17 on intros.c64.org and dated 1984 on CSDb — one of the earliest crack intros in the archive. German Cracking Service operated from Germany but the release record is sparse: no code, music or graphics handle is attached to this intro on CSDb, and the group's founding date is undocumented. Doc Snyder's page for German Cracking Service carries no per-intro section that maps to this release, so no additional individual credits can be confirmed. The 1984 date places the intro among the earliest examples of the form, when the conventions of crack intros — scrolltexts, logo, music — were still being established on the platform. The intro's high ranking despite the absence of metadata suggests it made a strong impression on contemporaries even though the individuals who produced it have not surfaced in the primary databases.

Sources: CSDb · docsnyderspage

gcs-01.asm 286 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:21
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $0a8f  (655 bytes)
// Entry point:  $0821 (via BASIC SYS 2081)
//
// Code: 391 bytes, Data: 264 bytes
// Labels: 31, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0821-$09a9 ---
.pc = $0821 "main_0821"

main_0821:
        ldx #$00

loc_0823:
        lda $0a8e,x
        sta $fd30,x
        txa
        sta $0a8e,x
        inx
        bne loc_0823

loc_0830:
        sta main_0821,x
        inx
        cpx #$0f
        bne loc_0830
        ldx #$c1

loc_083a:
        lda $09cd,x
        sta $033f,x
        dex
        bne loc_083a
        lda #$93
        jsr $ffd2
        lda #$0c
        sta $d020
        sta $d021
        lda #$07
        sta $d017
        sta $d01d
        sta $d027
        sta $d015
        lda #$02
        sta $d028
        lda #$00
        sta $d029
        lda #$0d
        ldx #$0e
        ldy #$0f
        sta $07f8
        stx $07f9
        sty $07fa
        ldy #$00
        ldx #$a8
        stx $d000
        stx $d002
        stx $d004

loc_0884:
        sty $d001
        sty $d003
        sty $d005
        iny
        jsr sub_093e
        cpy #$c8
        bne loc_0884

loc_0895:
        dec $d004
        inc $d000
        jsr sub_093e
        inx
        cpx #$fa
        bne loc_0895

loc_08a3:
        dec $d003
        jsr sub_093e
        inx
        cpx #$19
        bne loc_08a3

loc_08ae:
        dec $d001
        dec $d003
        dec $d005
        jsr sub_093e
        inx
        cpx #$8c
        bne loc_08ae

loc_08bf:
        inc $d027
        inc $d028
        inc $d029
        jsr sub_093e
        inx
        cpx #$4c
        bne loc_08bf
        clc
        ldx #$0c
        ldy #$08
        sty $09b3
        jsr $fff0
        ldx #$00
        stx $0286

loc_08e0:
        lda dat_09a8,x
        jsr $ffd2
        lda #$20
        jsr $ffd2
        lda #$20
        jsr $ffd2
        jsr sub_093e
        inx
        cpx #$09
        bne loc_08e0
        clc
        ldx #$10
        ldy #$0c
        jsr $fff0
        ldx #$00

loc_0902:
        lda $080a,x
        jsr $ffd2
        jsr sub_093e
        inx
        cpx #$10
        bne loc_0902
        clc
        ldx #$14
        ldy #$09
        jsr $fff0
        ldx #$00

loc_091a:
        lda $09b4,x