← #539 Top 1024 #541 →
#540

Teesside Cracking Service [TCS] 09

Teesside Cracking Service [TCS]

1.365 lines of code

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

History

Released
31 August 1987
Group
Teesside Cracking Service — United Kingdom, founded 1984

The final documented TCS intro on CSDb, released on 31 August 1987 — again with The Omega Man handling code, graphics, and charset. By this point Teesside Cracking Service had been producing intros for over a year at a steady pace, and this was the seventh distinct intro design in their series. The group would dissolve the following year after four years of operation. This intro was reused across seventeen different cracks, including Arcade Classics, Renegade, and Solomon's Key. TCS operated with a roster of fourteen members including crackers Steve, Ritz, Zan, and Zeus alongside The Omega Man. CSDb notes TCS was part of The Light Circle and ranked third in Illegal Magazine #24. Other TCS intros appear in this collection at #158 TCS-01 and #168 TCS-03.

Sources: CSDb · intros.c64.org

tcs-09.asm 1.365 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:49
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $1a7f  (4736 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $080d (2061)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $0c8b (irq_0c8b)
//
// Code: 1409 bytes, Data: 3327 bytes
// Labels: 162, Subroutines: 17
//
// Verification: 3 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$0884 ---
.pc = $080d "main_080d"

main_080d:
        jsr sub_1a20
        jsr sub_0900
        ldx #$00
        lda #$00

loc_0817:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0817
        lda #$18
        sta $fe
        lda #$05
        sta $ff
        ldx #$11

loc_0830:
        lda #$20
        ldy #$00
        sta ($fe),y
        ldy #$27
        sta ($fe),y
        lda $fe
        clc
        adc #$28
        sta $fe
        bcc loc_0845
        inc $ff

loc_0845:
        dex
        bne loc_0830
        jsr sub_0be8
        nop
        nop
        nop
        nop
        nop
        lda #$7f
        sta $dc00

loc_0855:
        lda $dc00
        and $dc01
        and #$10
        bne loc_0855
        sei
        lda #$2f
        sta $00
        lda #$37
        sta $01
        ldx #$ff
        txs
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        lda #$f0
        sta $d01a
        sta $d019
        lda #$01
        sta $dc0e
        jmp $fce2

// --- Region $0900-$09a6 ---
.pc = $0900 "sub_0900"
// Referenced by: jsr from $0810

sub_0900:
        sei
        lda #$15
        sta $d018
        ldx #$00
        lda #$a0

loc_090a:
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_090a
        stx $d020
        stx $d021
        ldx #$23

loc_092d:
        lda #$62
        sta $051a,x
        lda #$e2
        sta $079a,x
        dex
        bpl loc_092d
        lda #$40
        sta $fe
        lda #$05
        sta $ff
        ldx #$0f

loc_0944:
        lda #$e1
        ldy #$01
        sta ($fe),y
        ldy #$26
        lda #$61
        sta ($fe),y
        lda $fe
        clc
        adc #$28
        sta $fe
        bcc loc_095b
        inc $ff

loc_095b:
        dex
        bne loc_0944
        lda #$6c