#520

Lightforce, The [TLF] 01

Lightforce, The [TLF]

2.905 lines of code

SpritesSPRT

History

Released
23 August 1987
Group
The Lightforce — Germany, founded September 1986

A silent German crack intro from August 1987 with a charset designed by Jon Hare and Mark Jones. The Lightforce was a German cracking group founded in September 1986 by Boomer, Master of Chaos, and Zar. CSDb catalogues 132 releases spanning 1986–1989, primarily game cracks. This intro was reused across 24 subsequent cracks — including Basil the Great Mouse Detective, BoneCruncher, and The Great Giana Sisters — demonstrating its utility as a standardized release wrapper. The group's website at thelightforce.com indicates continued community presence. Other members included Eurosoft, JAF, and Merlin. Master of Chaos served as coder, cracker, hardware guru, organizer, and swapper — a multi-role commitment typical of mid-1980s German scene founders. Two additional TLF intros appear in this collection at #92 TLF-02 and #290 TLF-07.

Sources: CSDb · intros.c64.org

tlf-01.asm 2.905 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:53
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $fffe  (63487 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $cb08 (51976)
// IRQ handler:  $f000 (irq_f000)
//
// Code: 1151 bytes, Data: 62336 bytes
// Labels: 188, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $19ef-$1a18 ---
.pc = $19ef "loc_19ef"

loc_19ef:
        lda $f0a1,y
        sta $f0a0,y
        lda $f0b1,y
        sta $f0b0,y
        lda $f0c1,y
        sta $f0c0,y
        iny
        cpy #$10
        bne loc_19ef
        lda $0100
        sta $f0af
        lda $0101
        sta $f0bf
        lda $0102
        sta $f0cf
        rts

// --- Region $1fb9-$1fbf ---
.pc = $1fb9 "loc_1fb9"

loc_1fb9:
        tay
        rol
        .byte $dc,$97,$19                           // nop $1997,x // ILLEGAL
        .byte $04,$c8                               // nop $c8 // ILLEGAL

// --- Region $2020-$206e ---
.pc = $2020 "sub_2020"
// Referenced by: jsr from $e4ae, $e542, $e54b, $e554, $e55f

sub_2020:
        .byte $37,$4c                               // rla $4c,x // ILLEGAL
        rol $6059,x
        stx $dc8e
        asl $9760,x
        bcc loc_1fb9
        .byte $37,$c4                               // rla $c4,x // ILLEGAL
        stx $5566
        rol $4f83,x
        cpy $2a77
        .byte $33,$2d                               // rla ($2d),y // ILLEGAL
        .byte $fc,$61,$09                           // nop $0961,x // ILLEGAL
        cpx #$fd
        cmp $1947,y
        .byte $47,$b8                               // sre $b8 // ILLEGAL
        eor $7bda
        .byte $e7,$64                               // isc $64 // ILLEGAL
        .byte $8f,$64,$f7                           // sax $f764 // ILLEGAL
        sed
        bvc loc_2005
        .byte $1b,$64,$d8                           // slo $d864,y // ILLEGAL
        adc ($ed),y
        .byte $9c,$f3,$47                           // shy $47f3,x // ILLEGAL
        asl $2afd,x
        bvc loc_20c0
        cmp $96
        adc $f2,x
        adc $d986,x
        .byte $83,$01                               // sax ($01,x) // ILLEGAL
        sty $6264
        .byte $93,$bc                               // sha ($bc),y // ILLEGAL
        .byte $df,$11,$fd                           // dcp $fd11,x // ILLEGAL

dat_206d:
        .byte $f2,$70                               // .p

// --- Region $20c0-$20d3 ---
.pc = $20c0 "loc_20c0"

loc_20c0:
        cpy #$04
        .byte $63,$83                               // rra ($83,x) // ILLEGAL
        .byte $33,$97                               // rla ($97),y // ILLEGAL
        plp
        .byte $4f,$2b,$c1                           // sre $c12b // ILLEGAL
        sbc ($e0),y
        ror
        dec $800f,x
        .byte $af,$5d,$83                           // lax $835d // ILLEGAL
        rts

// --- Region $4120-$4120 ---
.pc = $4120 "Segment $4120"
        brk

// --- Region $4143-$4143 ---
.pc = $4143 "Segment $4143"
        brk

// --- Region $4445-$4445 ---
.pc = $4445 "Segment $4445"
        brk

// --- Region $454c-$454e ---
.pc = $454c "loc_454c"

loc_454c:
        brk

dat_454d:
        .byte $00                                   // .
        brk

// --- Region $4557-$4557 ---
.pc = $4557 "Segment $4557"
        brk

// --- Region $4853-$4853 ---
.pc = $4853 "$4853"
        brk

// --- Region $4c41-$4c41 ---
.pc = $4c41 "Segment $4c41"
        brk

// --- Region $4f20-$4f20 ---
.pc = $4f20 "Segment $4f20"
        brk

// --- Region $4f53-$4f54 ---
.pc = $4f53 "Segment $4f53"
        brk
        brk

// --- Region $5243-$5243 ---
.pc = $5243 "sub_5243"