← #226 Top 1024 #228 →
#227

Formby Cracking Group [FCG] 01

Formby Cracking Group [FCG]

1.310 lines of code

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

History

Released
December 1987
Code
Torky
Charset
Pete Harrison
Group
Formby Cracking Group [FCG] — United Kingdom, founded 1986

A British intro from the early cracking era, released in December 1987 by Formby Cracking Group — named after the town of Formby in Merseyside, northwest England. FCG was founded in 1986, placing them among the first wave of UK cracking crews. Torky coded the intro while Pete Harrison contributed the charset. No music is credited, consistent with many 1987-era intros that relied on simple visual displays rather than SID compositions. The group name follows the common British convention of geographic identification — much like Scouse Cracking Group (Liverpool) and Teesside Cracking Service (northeast England). FCG left minimal traces in the broader scene archives, with no entries on Doc Snyder's page, Demozoo, or the Atlantis Prophecy collection. The UK scene of this period was active but less extensively documented than its Scandinavian and German counterparts.

Sources: CSDb

formby-01.asm 1.310 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: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $cff0 (53232)
// IRQ handler:  $e8e7 (irq_e8e7)
//
// Code: 398 bytes, Data: 63089 bytes
// Labels: 100, Subroutines: 0
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $cff0-$cff7 ---
.pc = $cff0 "main_cff0"

main_cff0:
        sei
        lda #$35
        sta $01
        jmp loc_e800

// --- Region $e800-$e926 ---
.pc = $e800 "loc_e800"

loc_e800:
        ldx #$00
        stx $ebdb
        stx $ec3f
        stx $d012

loc_e80b:
        lda #$08
        sta spr_d800,x
        sta $d900,x
        sta $da00,x
        lda tbl_ec9b,x
        sta $0200,x
        dex
        bne loc_e80b
        lda #$dc
        sta $0288
        lda #$78
        sta $d018
        lda #$94
        sta $dd00
        lda #$e9
        sta $fffd
        lda #$46
        sta $fffc
        lda #$e8
        sta dat_ffff
        lda #$e7
        sta $fffe
        lda #$01
        sta $d01a
        sta $d019
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$01
        sta $d022
        lda #$0e
        sta $d023
        ldx #$4f
        dec $01

loc_e862:
        lda #$01
        inc $01
        sta $da08,x
        sta $da58,x
        sta $daa8,x
        sta $daf8,x
        sta $db48,x
        sta $db98,x
        dec $01
        lda #$d8
        sta $de58,x
        sta $dea8,x
        sta $def8,x
        sta $df48,x
        sta $df98,x
        dex
        bpl loc_e862
        inc $01
        ldy #$00
        ldx #$00

loc_e894:
        lda $ec6b,x
        sta scr_d000,y
        lda $ec9a
        sta $d027,x
        dec $01
        lda #$9e
        sta $dff8,x
        inc $01
        inx
        iny
        iny
        cpx #$08
        bne loc_e894
        lda #$ff
        sta $d015
        sta $d01d
        lda #$82
        sta $d010
        lda #$ed
        sta $fc
        lda #$00
        sta $fb
        lda #$d8
        sta $d016
        lda #$19
        sta $d011

loc_e8cf:
        lda $ec3b
        jsr $e947
        jsr $eb9c
        beq loc_e8dd
        jmp loc_e8cf

loc_e8dd:
        lda $dd0d
        lda $dc0d
        cli
        jmp $0200

irq_e8e7:
        sei
        sta $ece3
        stx $ece4
        sty $ece5
        lda #$01