← #136 Top 1024 #138 →
#137

Level 99 Industries, The [TLI] 01

Level 99 Industries, The [TLI]

4.771 lines of code

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

History

Released
28 December 1987
Code
KGB
Music
Jeroen Tel — "Noisy Pillars" / Diflex (Markus Schneider) — "TLI Intro 2"
Group
The Level 99 Industries — Germany, founded 1987

KGB coded while two of the era's most active composers contributed: Jeroen Tel providing "Noisy Pillars" and Diflex (Markus Schneider) adding "TLI Intro 2" — a custom composition written specifically for this group. The Level 99 Industries was a German group founded in 1987, their name referencing the maximum achievement level in RPG games. Released on 28 December 1987, this was likely a holiday-season release timed to coincide with the peak period for new game cracks. Tel's "Noisy Pillars" was one of his most widely-distributed compositions, appearing across numerous groups. The HVSC preserves both tunes. Schneider's custom "TLI Intro 2" designation suggests an earlier version existed, indicating an ongoing relationship between the composer and the group.

Sources: CSDb

tli-01.asm 4.771 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:34
// 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:  $2a00 (10752)
//
// Code: 4480 bytes, Data: 59008 bytes
// Labels: 592, Subroutines: 15
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$103a ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2a7f, $2a92, $fd85, $fd98

sub_1000:
        lda #$00
        sta $104c
        ldx #$00
        ldy $104b

loc_100a:
        lda $1050,y
        clc
        adc $1150,y
        sta $d000,x
        bcs loc_1024

loc_1016:
        tya
        clc
        adc #$07
        tay
        inx
        inx
        cpx #$0e
        bne loc_100a
        jmp loc_1031

loc_1024:
        lda dat_103b,x
        clc
        adc $104c
        sta $104c
        jmp loc_1016

loc_1031:
        lda $104c
        sta $d010
        inc $104b
        rts

// --- Region $1250-$12f9 ---
.pc = $1250 "sub_1250"
// Referenced by: jsr from $2a7c, $fd82

sub_1250:
        lda #$f9

loc_1252:
        cmp $d012
        bne loc_1252
        lda #$13
        sta $d011
        lda #$fa

loc_125e:
        cmp $d012
        bne loc_125e
        ldx #$00

loc_1265:
        lda $1300,x
        ldy $d012

loc_126b:
        cpy $d012
        beq loc_126b
        sta $d020
        sta $d021
        inx
        cpx #$40
        bne loc_1265
        jsr sub_13e0
        lda #$03

loc_1280:
        cmp $d012
        bne loc_1280
        ldx #$2d

loc_1287:
        lda $1300,x
        ldy $d012

loc_128d:
        cpy $d012
        beq loc_128d
        sta $d020
        sta $d021
        dex
        cpx #$ff
        bne loc_1287
        lda #$00
        ldy $d012

loc_12a2:
        cpy $d012
        beq loc_12a2
        sta $d020
        sta $d021
        lda #$1b
        sta $d011
        ldx #$00
        ldy tbl_1340

loc_12b7:
        lda $1341,x
        sta tbl_1340,x
        sta $1300,x
        inx
        cpx #$3f
        bne loc_12b7
        sty $133f
        sty $137f
        ldx #$00                                    // !SMC: modified by $2aaf
        ldy $1816

loc_12d0:
        lda $1380,x
        sta $1300,y
        inx
        iny
        cpx #$09
        bne loc_12d0
        lda dat_1815
        cmp #$00
        beq loc_12f6
        dec $1816
        dec $1816
        lda $1816
        cmp #$00