History
- Group
- Federation Against Copyright + The Last Science -- Germany
This crack intro was produced by Federation Against Copyright (FAC) in collaboration with The Last Science (TLS), two German cracking groups that frequently partnered during the late 1980s. The scrolltext from Fantasy Cracking Service's #601 FCS intro reveals the close ties between these groups, listing TLS and FCS as allied operations sharing the same telephone contact numbers and signing off as "FCS/TLS." FAC was among Germany's more prominent cracking crews, while TLS operated as a closely linked partner group. Joint releases between allied groups were a hallmark of the German cracking scene, where geographical proximity and copy-party attendance fostered tight collaborations. The intro is catalogued on intros.c64.org but lacks a confirmed CSDb entry, making precise dating and credit attribution difficult. The partnership between FAC and TLS exemplifies the cooperative culture of the German scene, where groups pooled resources -- original suppliers, coders, and distributors -- to maximize their output and competitive standing against the dominant Scandinavian and British crews.
Sources: intros.c64.org
// ============================================ // output - Part 1 of 2 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:38 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $2fff (10240 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0e00 (3584) // IRQ handler: $ea31 (irq_ea31) // // Code: 596 bytes, Data: 9644 bytes // Labels: 84, Subroutines: 2 // // Cross-references: all OK // ============================================ // --- Region $0c00-$0c30 --- .pc = $0c00 "loc_0c00" loc_0c00: nop nop nop nop nop nop nop nop nop nop nop nop loc_0c0c: nop nop sei jsr $fda3 lda #$31 sta $0314 lda #$ea sta $0315 sei jsr $e518 ldy #$00 loc_0c22: lda dat_0c30,y sta $033c,y iny cpy #$2c bne loc_0c22 jmp $033c dat_0c30: .byte $a9 // . // --- Region $0e00-$0e35 --- .pc = $0e00 "main_0e00" main_0e00: ldx #$00 lda #$a0 loc_0e04: sta $2800,x sta $2900,x sta $2a00,x sta $2b00,x sta $2c00,x sta $2d00,x sta $2e00,x sta $2f00,x inx bne loc_0e04 ldx #$08 sta $fc ldx #$00 stx $fb ldx #$00 txa loc_0e2a: sta $0120,x inx cpx #$08 bne loc_0e2a jmp loc_1030 dat_0e35: // === Fill data (1 bytes, $0e35-$0e35) === .byte $00 // . // --- Region $1030-$1095 --- .pc = $1030 "loc_1030" loc_1030: sei ldx #$01 stx $d01a stx $dc0d stx $f003 dex stx $02 stx $06 stx $89 stx $03 stx $10 stx $ff lda #$10 sta $0315 loc_104e: lda dat_1000,x sta $d000,x inx cpx #$2f bne loc_104e lda #$24 ldx #$00 loc_105d: sta $07f8,x clc adc #$01 inx cpx #$07 bne loc_105d lda #$90 sta $a1 lda #$20 sta $11 lda #$00 sta $05 lda #$07 sta $08 lda #$96 sta $0314 lda #$04 sta $56 lda #$20 sta smc_11c1 // SMC: modifies $11c1 sta smc_1261 // SMC: modifies $1261 lda #$a0 sta smc_11c6 // SMC: modifies $11c6 sta smc_1266 // SMC: modifies $1266