History
- Released
- 19 July 1987
- Group
- Teesside Cracking Service — United Kingdom, founded 1984
Released on 19 July 1987, this is the fifth numbered intro from Teesside Cracking Service — a group named after the industrial region in northeast England. No individual coder, musician, or artist is credited on CSDb. Founded in 1984, TCS was among the earliest British cracking groups, and by mid-1987 they had been active for three years — a significant tenure in the fast-moving C64 scene. This intro arrived during the same summer that saw Ikari's founding, placing it at a transitional moment when established UK groups like TCS were being joined by a new wave of competitors. The CSDb download links cross-reference intros.c64.org entry #1092 rather than #1512, suggesting some cataloguing complexity around TCS's numbered series. Another TCS intro appears in this collection at #158 TCS 01, coded by The Omega Man. Whether the same individual was responsible for this fifth entry remains undocumented.
Sources: CSDb
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:33 // https://restore64.dev by datucker / Rabenauge // // Load address: $0700 End: $1909 (4618 bytes) // Crunched with PuCrunch — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0d80 (3456) // IRQ handler: $0c80 (irq_0c80) // IRQ handler: $0c98 (irq_0c98) // IRQ handler: $0cb8 (irq_0cb8) // IRQ handler: $0d10 (loc_0d10) // IRQ handler: $ea31 (irq_ea31) // // Code: 869 bytes, Data: 3749 bytes // Labels: 117, Subroutines: 12 // // Cross-references: all OK // ============================================ // --- Region $0c00-$0dac --- .pc = $0c00 "loc_0c00" loc_0c00: sei lda #$00 sta $dc0e sta $dc0d sta $dd0d sta $dc0d sta $dd0f sta $d019 lda #$01 sta $d01a sta $d019 lda #$10 sta $d012 lda #$18 sta $d011 lda $3fff sta $03ff lda #$80 sta $fffe lda #$0c sta $ffff lda #$ff sta $3fff nop lda #$18 sta smc_0ca3 // SMC: modifies $0ca3 lda #$35 sta $01 lda #$98 sta $0314 lda #$0c sta $0315 loc_0c50: lda $d011 bmi loc_0c50 loc_0c55: lda $d012 bne loc_0c55 lda $dc0d lda $dd0d lda #$01 sta $ff lda #$15 sta $d018 lda #$1b sta $d011 jsr sub_10d0 jsr sub_11c0 jsr sub_0dc0 cli loc_0c78: jmp loc_0c78 dat_0c7b: .byte $00,$00,$00,$00,$00 // ..... irq_0c80: pha txa pha tya pha jmp ($0314) loc_0c88: lda #$ff sta $d019 lda $dc0d pla tay pla tax pla rti dat_0c96: .byte $00,$00 // .. irq_0c98: lda #$ff sta $3fff lda #$1a sta $d012 .label smc_0ca3 = * + 1 lda #$08 // !SMC: modified by $0c3f, $0ca9 sta $d011 lda #$08 sta smc_0ca3 // SMC: modifies $0ca3 jmp loc_0fd8 dat_0caf: .byte $8d,$14,$03,$4c,$88,$0c,$00,$00,$00 // ...L..... irq_0cb8: lda #$32 sta $d012 lda #$00 sta $3fff lda #$f0 sta $0314 jmp loc_0c88 dat_0cca: .byte $00,$00,$00,$00,$00,$00 // ...... // Referenced by: jsr from $0d10, $0de8 sub_0cd0: lda $d012 clc adc #$04 // Referenced by: jsr from $0fda sub_0cd6: sta $d001 sta $d003 sta $d005 sta $d007 sta $d009 sta $d00b