← #600 Top 1024 #602 →
#601

Fantasy Cracking Service [FCS] 10

Fantasy Cracking Service [FCS]

3.744 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL
Disassemble Download .asm Download .prg intros.c64.org

History

Released
16 July 1987
Group
Fantasy Cracking Service -- Germany, founded 1986

CSDb confirms this FCS intro was coded by Lukullus with Flash's rendition of "Das Boot" providing the music and Zeus (Soren Bovbjerg) contributing the charset. Flash (Henning Leise) was a member of both Flash Cracking Group and Radwar. The intro is noted for its technical accomplishment -- particularly the removal of the C64's screen border, a significant programming feat for 1987. Fantasy Cracking Service was a German group founded in 1986 by Fantasy, accumulating 542 documented releases before dissolving in 1988. The group maintained eleven subgroups and spawned Axios when several members departed. Doc Snyder's page documents this as FCS's second intro. Released on 16 July 1987, it was used in multiple cracks including Defender of the Crown +3. FCS's close alliance with The Last Science is documented in shared scrolltexts, with the FAC+TLS partnership also reflecting these German scene interconnections.

Sources: CSDb · docsnyderspage

fcs-10.asm 3.744 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:40
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $c300 (49920)
// IRQ handler:  $c4dd (nmi_c4dd)
// IRQ handler:  $ea34 (irq_ea34)
// IRQ handler:  $c4c0 (irq_c4c0)
//
// Code: 3285 bytes, Data: 60202 bytes
// Labels: 325, Subroutines: 18
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $128d-$12a6 ---
.pc = $128d "Segment $128d"
        asl $06e4
        bit $0e
        asl $0d03
        ldx #$34
        pha
        txa
        pha
        tya
        pha
        tsx
        lda $d019
        sta $d019
        jmp ($0410)

dat_12a6:
        .byte $00                                   // .

// --- Region $1892-$1925 ---
.pc = $1892 "loc_1892"

loc_1892:
        lda $e200,x
        sta $f800,x
        inx
        bne loc_1892
        ldx #$3f

loc_189d:
        lda $e300,x
        sta $f900,x
        dex
        bpl loc_189d
        jsr sub_cbe0
        ldx #$00

loc_18ab:
        lda $e200,x
        sta $f940,x
        inx
        bne loc_18ab
        ldx #$3f

loc_18b6:
        lda $e300,x
        sta $fa40,x
        dex
        bpl loc_18b6
        jsr sub_cbe0
        ldx #$00

loc_18c4:
        lda $e200,x
        sta $fa80,x
        inx
        bne loc_18c4
        ldx #$3f

loc_18cf:
        lda $e300,x
        sta $fb80,x
        dex
        bpl loc_18cf
        jsr sub_cbe0
        ldx #$00

loc_18dd:
        lda $e200,x
        sta $fbc0,x
        inx
        bne loc_18dd
        ldx #$3f

loc_18e8:
        lda $e300,x
        sta $fcc0,x
        dex
        bpl loc_18e8
        jsr sub_cbe0
        ldx #$00

loc_18f6:
        lda $e200,x
        sta $fd00,x
        inx
        bne loc_18f6
        ldx #$3f

loc_1901:
        lda $e300,x
        sta $fe00,x
        dex
        bpl loc_1901
        jsr sub_cbe0
        ldx #$00

loc_190f:
        lda $e200,x
        sta $fe40,x
        inx
        bne loc_190f
        ldx #$3f

loc_191a:
        lda $e300,x
        sta $ff40,x
        dex
        bpl loc_191a
        jmp loc_cae5

// --- Region $2042-$204e ---
.pc = $2042 "Segment $2042"
        brk

dat_2043:
        .byte $00,$00,$00                           // ...
        brk

dat_2047:
        .byte $00,$00                               // ..
// Referenced by: jsr from $ff30

sub_2049:
        brk