#780

LFK Cracking Service 02

LFK Cracking Service

308 lines of code

History

Released
c. 1986
Group
L.F.K. Cracking Service — Sweden

This crack intro was produced by L.F.K., a Swedish scener active from 1986 to January 1987 who operated under the name "L.F.K. Cracking Service" — a one-person operation rather than a multi-member group. CSDb catalogues three crack intros attributed to L.F.K. — the LFK Big Scroll Intro (1986), the LFK Small Scroll Intro (August 1986), and the LFK Sprite Intro (December 1986). The Sprite Intro was reused across at least four crack releases, including Cobra+, Dandy+, Future Knight+, and Legend of Kage+. CSDb's broader records reveal over 80 releases associated with L.F.K., representing a concentrated burst of cracking activity during the mid-1980s Swedish scene. The specific music credit for this intro remains unidentified. The "Cracking Service" suffix in the handle follows a naming convention used by several operations to signal their primary function — breaking copy protection and distributing software.

Sources: CSDb · intros.c64.org

lfk-02.asm 308 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:54
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $0bff  (1023 bytes)
// Entry point:  $080d (via BASIC SYS 2061)
// IRQ handler:  $0880 (irq_0880)
//
// Code: 363 bytes, Data: 660 bytes
// Labels: 44, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$0980 ---
.pc = $080d "main_080d"

main_080d:
        lda #$00
        sta $d020
        sta $d021
        ldx #$00

loc_0817:
        lda dat_0980,x
        beq loc_0822
        jsr $ffd2
        inx
        bne loc_0817

loc_0822:
        lda #$04
        sta $fa
        ldx #$1f

loc_0828:
        lda #$71
        jsr $ffd2
        dex
        bne loc_0828
        dec $fa
        bne loc_0828
        lda #$51
        sta $07e7
        sta $dbe7
        sei
        lda #$80
        sta $0314
        lda #$08
        sta $0315
        cli
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$fb
        sta $d012
        lda #$1b
        sta $d011
        lda #$00
        sta $fc
        lda #$0a
        sta $fb

loc_0864:
        jsr $ffe4
        beq loc_0864
        jsr $fd15
        jsr $e453
        jsr $fda3
        jsr $ff5b
        jmp $fce2

dat_0878:
        .fill 8, $00
irq_0880: {
        lda $d019
        sta $d019
        lda #$fb
        sta $d012
        lda #$1b
        sta $d011
        jsr sub_095a
        ldx $fc
        bne skip2
        lda $01
        and #$fb
        sta $01
        ldy #$00
        lda ($fa),y
        bne skip1
        lda #$00
        sta $fa
        lda #$0a
        sta $fb
        jmp $089f
skip1:
        ldx #$3a
        stx $fe
        asl
        rol $fe
        asl
        rol $fe
        asl
        rol $fe
        sta $fd
loop2:
        lda ($fd),y
        sta $03f0,y
        iny
        cpy #$08
        bne loop2
        ldx #$08
        stx $fc
        lda $01
        ora #$04
        sta $01
        inc $fa
        bne skip2
        inc $fb
skip2:
        asl $03f0
        lda #$0b
        bcc skip3
        lda #$01
skip3:
        sta $d8c7
        sta $d8ef
        sta $d917
        asl $03f1
        lda #$0b
        bcc skip4
        lda #$01
skip4:
        sta $d93f
        sta $d967
        sta $d98f
        asl $03f2
        lda #$0b
        bcc skip5
        lda #$01
skip5:
        sta $d9b7
        sta $d9df
        sta $da07
        asl $03f3