← #676 Top 1024 #678 →
#677

Level 99 Industries, The [TLI] 05

Level 99 Industries, The [TLI]

5.847 lines of code

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

History

Released
14 October 1988
Group
The Level 99 Industries — Germany, founded 1987

KGB again coded and designed graphics, with Markus Schneider contributing two SID compositions — "For Strike Force" and "Strike Force Introtune" — both preserved in the HVSC. Released on 14 October 1988, this was the most heavily reused TLI intro, appearing across approximately eighteen different game cracks. By this point The Level 99 Industries had refined their intro production pipeline, with KGB and Schneider forming a reliable coder-musician partnership. The group was founded in 1987 by Black Sabbath and Copyfox, and this late-1988 intro came during their peak period of activity. TLI's 206 total releases on CSDb span cracking, demos, music, and tools. Schneider's Lords of Sonics affiliation indicates his involvement extended beyond TLI into the broader German music scene. Other TLI entries in this collection include #137 TLI-01 and #196 TLI-04.

Sources: CSDb · intros.c64.org

tli-05.asm 5.847 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:50
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1000 (4096)
// IRQ handler:  $1100 (irq_1100)
//
// Code: 5464 bytes, Data: 58024 bytes
// Labels: 668, Subroutines: 31
//
// Cross-references: all OK
// ============================================


// --- Region $0912-$091b ---
.pc = $0912 "Program $0912"
        eor $ff,x
        eor $55,x
        .byte $ff,$7d,$77                           // isc $777d,x // ILLEGAL
        .byte $f7,$77                               // isc $77,x // ILLEGAL

dat_091b:
        .byte $f7                                   // .

// --- Region $0ab0-$0ab4 ---
.pc = $0ab0 "Program $0ab0"
        .byte $b7,$b7                               // lax $b7,y // ILLEGAL
        .byte $b7,$b7                               // lax $b7,y // ILLEGAL

dat_0ab4:
        .byte $b7                                   // .

// --- Region $0e0f-$0e0f ---
.pc = $0e0f "sub_0e0f"
// Referenced by: jsr from $ffa4

sub_0e0f:
        brk

// --- Region $0f03-$0f06 ---
.pc = $0f03 "Program $0f03"
        .byte $02                                   // jam // ILLEGAL

dat_0f04:
        .byte $02,$02                               // ..
        .byte $02                                   // jam // ILLEGAL

// --- Region $0f80-$0f9f ---
.pc = $0f80 "sub_0f80"
// Referenced by: jsr from $1001

sub_0f80:
        lda $3fff
        sta $0fff
        lda #$00
        sta $3fff
        jmp loc_1040

loc_0f8e:
        lda $0fff
        sta $3fff
        jsr sub_3e00
        sei
        lda #$00
        sta $01
        jmp $0120

dat_0f9f:
        .byte $00                                   // .

// --- Region $0fe0-$1177 ---
.pc = $0fe0 "loc_0fe0"

loc_0fe0:
        ldx #$00
        lda #$02

loc_0fe4:
        sta $db20,x
        inx
        cpx #$50
        bne loc_0fe4
        ldx #$00
        lda #$04

loc_0ff0:
        sta $0640,x
        inx
        cpx #$40
        bne loc_0ff0
        jsr sub_3af6
        jmp loc_1024

dat_0ffe:
        .byte $00,$00                               // ..

main_1000:
        sei
        jsr sub_0f80
        lda #$00
        sta $dc0e
        lda #$01
        sta $d01a
        lda #$30
        sta $d012
        lda #$11
        sta $0315
        lda #$00
        sta $0314
        cli
        jmp loc_16bf

dat_1021:
        .byte $4c,$1e,$10                           // L..

loc_1024:
        lda #$20
        sta dat_1bfe
        sta dat_1dfe
        sta $1bff
        sta $1dff
        lda #$ff
        sta smc_1401                                // SMC: modifies $1401
        jsr sub_1400
        jsr sub_1684
        jmp loc_1093

loc_1040:
        lda #$00
        sta $d011
        sta $d021
        sta $0286
        sta $d020
        jsr $e544
        ldx #$00
        lda #$00

loc_1055:
        sta $0400,x
        sta $04f0,x
        inx
        cpx #$f0
        bne loc_1055
        ldx #$00