← #675 Top 1024 #677 →
#676

Level 99 Industries, The [TLI] 04

Level 99 Industries, The [TLI]

4.101 lines of code

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

History

Released
6 April 1988
Group
The Level 99 Industries — Germany, founded 1987

KGB coded and provided graphics while Diflex (Markus Schneider) contributed the custom SID tune "TLI Intro 1" — one of several compositions Schneider wrote specifically for The Level 99 Industries. Released on 6 April 1988, this intro was reused across eight cracks including Block'n'Bubble II, Deadzone, and Target Renegade. KGB was TLI's primary coder and graphician, active from 1987 to 1989, while Schneider served as the group's dedicated musician. The Level 99 Industries was founded in 1987 by Black Sabbath and Copyfox in Germany, ultimately producing 206 releases. The group's roster of over 25 members included Copyfox, Mister Cool, and Stringfellow as additional coders and crackers. Other TLI entries in this collection include #137 TLI-01 and #204 TLI-03.

Sources: CSDb · intros.c64.org

tli-04.asm 4.101 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:  $1c00 (7168)
//
// Code: 4633 bytes, Data: 58855 bytes
// Labels: 411, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0f09-$138c ---
.pc = $0f09 "sub_0f09"
// Referenced by: jsr from $1d17, $f5d8

sub_0f09:
        jmp loc_1a08
// Referenced by: jsr from $0f9b, $ea5e

sub_0f0c:
        jmp loc_1a3e
// Referenced by: jsr from $1d7f, $f640

sub_0f0f:
        dec $147e
        bpl loc_0f1a
        lda #$07
        sta $147e
        rts

loc_0f1a:
        inc $148c
        bit $1480
        bmi loc_0f40
        bvc loc_0f5a
        lda #$00
        sta $148c
        ldx #$02

loc_0f2b:
        sta $1450,x
        sta $1453,x
        sta $1456,x
        sta $145f,x
        dex
        bpl loc_0f2b
        sta $1480
        jmp loc_0f5a

loc_0f40:
        bvc loc_0f57
        lda #$00
        sta $d404
        sta $d40b
        sta $d412
        lda #$0f
        sta $d418
        lda #$80
        sta $1480

loc_0f57:
        jmp loc_1309

loc_0f5a:
        ldx #$02
        dec $1479
        bpl loc_0f67
        lda $147d
        sta $1479

loc_0f67:
        lda $144c,x
        sta $144f
        tay
        lda $1479
        cmp $147d
        bne loc_0f8b
        lda $168c,x
        sta $fb
        lda $168f,x
        sta $fc
        dec $1456,x
        bmi loc_0f8e
        jmp loc_1093

chr_0f88:
        // === Charset data (3 bytes, $0f88-$0f8a) ===
        .byte $4c,$f3,$12                           // char 0 (partial)

loc_0f8b:
        jmp loc_10b2

loc_0f8e:
        ldy $1450,x
        lda ($fb),y
        cmp #$ff
        beq loc_0fa1
        cmp #$fe
        bne loc_0fb2
        jsr sub_0f0c
        jmp loc_1309

loc_0fa1:
        lda #$00
        sta $1456,x
        sta $1450,x
        sta $1453,x
        jmp loc_0f8e

chr_0faf:
        // === Charset data (3 bytes, $0faf-$0fb1) ===
        .byte $4c,$f3,$12                           // char 0 (partial)

loc_0fb2:
        tay
        lda $1698,y
        sta $fd
        lda $16b8,y
        sta $fe
        lda #$00
        sta $1487,x
        ldy $1453,x
        lda #$ff
        sta $1465
        lda ($fd),y
        sta $1459,x
        sta $1466
        and #$1f
        sta $1456,x
        lda #$ff
        sec
        sbc $1452
        cmp #$0f
        bcc loc_0fe3
        lda #$0f

loc_0fe3:
        sta $d418
        bit $1466
        bvs loc_102a
        inc $1453,x
        lda $1466