← #713 Top 1024 #715 →
#714

Level 99 Industries, The [TLI] 03

Level 99 Industries, The [TLI]

4.710 lines of code

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

History

Released
11 March 1988
Group
The Level 99 Industries — Germany, founded 1987

Diflex — Markus Schneider — handled both code and music on this intro, composing the SID tune "Enola Gay" preserved in the HVSC. This dual-role contribution was characteristic of Schneider's involvement with The Level 99 Industries, where he served as the group's primary in-house musician and sometime coder. Released on 11 March 1988, this intro was reused across five cracks including Fire Galaxy and I-Wizard. The Level 99 Industries was a German group founded in 1987 by Black Sabbath and Copyfox, producing 206 releases across cracking, demos, and music. Schneider wrote multiple custom compositions specifically for TLI — his "TLI Intro 1" and "TLI Intro 2" designations confirm an ongoing partnership. Other TLI intros appear in this collection at #137 TLI-01, featuring Jeroen Tel's "Noisy Pillars" alongside another Schneider composition.

Sources: CSDb · intros.c64.org

tli-03.asm 4.710 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:  $4000 (16384)
//
// Code: 4091 bytes, Data: 59397 bytes
// Labels: 537, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $0a0a-$0a0e ---
.pc = $0a0a "Program $0a0a"
        ror $66
        ror $66
        brk

// --- Region $0cb0-$0cb3 ---
.pc = $0cb0 "Program $0cb0"
        jsr $0507
        .byte $12                                   // jam // ILLEGAL

// --- Region $1000-$1004 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $400a

sub_1000:
        jmp loc_1908

dat_1003:
        .byte $4c,$17                               // L.

// --- Region $102a-$1563 ---
.pc = $102a "sub_102a"
// Referenced by: jsr from $416c, $fce7

sub_102a:
        inc $1942
        inc $1943
        inc $1944
        lda #$1f
        sta $d418
        ldx #$02
        dec $1973
        bpl loc_1045
        lda $191d
        sta $1973

loc_1045:
        bit $d020
        stx $ff
        lda $191e,x
        sta $1956
        tay
        lda $1973
        cmp $191d
        bne loc_106b
        lda dat_1749,x
        sta $fb
        lda $174c,x
        sta $fc
        dec $1927,x
        bmi loc_106e
        jmp loc_11fa

loc_106b:
        jmp loc_120a

loc_106e:
        ldy dat_1921,x
        lda ($fb),y
        cmp #$fe
        beq loc_108c
        cmp #$ff
        bne loc_1094
        lda #$00
        sta $1927,x
        sta dat_1921,x
        sta $1924,x
        sta $1972
        jmp loc_106e

loc_108c:
        lda #$02
        sta $1974
        jmp loc_190b

loc_1094:
        sta $1967
        and #$80
        beq loc_10a9
        lda $1967
        and #$1f
        sta $194f,x
        inc dat_1921,x
        jmp loc_106e

loc_10a9:
        lda $1967
        and #$40
        beq loc_10be
        lda $1967
        and #$3f
        sta $1976,x
        inc dat_1921,x
        jmp loc_106e

loc_10be:
        lda $1967
        asl
        tay
        lda $174f,y
        sta $fd
        lda $1750,y
        sta $fe
        lda #$00
        sta $193f,x
        ldy $1924,x
        sta $1942,x
        lda #$03
        sta $1961,x

loc_10dd:
        lda ($fd),y
        sta $f8
        and #$f0
        cmp #$f0
        bne loc_10f7
        lda #$01
        sta $1980,x
        inc $1924,x
        iny
        lda ($fd),y
        sta $f8
        jmp loc_1157

loc_10f7:
        lda #$00
        sta $1980,x
        lda $f8
        and #$f0
        cmp #$e0