#886

Triple Sided Delinquencies [TSD] 01

Triple Sided Delinquencies [TSD]

3.719 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
1997
Code
Fungus
Graphics
French Hawk
Charset
Ogre
Music
Zirco (Jeff B.) -- "Ache"
Group
Triple Sided Delinquencies

A four-person production from Triple Sided Delinquencies, released in 1997 -- deep into the C64's post-commercial era. Fungus coded the intro, French Hawk provided graphics, Ogre contributed the charset, and Zirco (Jeff B.) composed "Ache," preserved in the HVSC. The 1997 release date places this among the new wave of C64 sceners who kept the platform alive through dedication rather than commercial motivation. CSDb records no founding date, country, or website for the group, and no members are listed on the group profile -- leaving only this release's credits as documentation. Comments on intros.c64.org from Fungus/Nostalgia and Ogre/DSD in September 2004 confirm their involvement, with Fungus's Nostalgia affiliation and Ogre's DSD membership suggesting both had ties to other groups. The four credited contributors for a single 1997 intro indicate genuine collaborative effort rather than a solo project.

Sources: CSDb

tsd-01.asm 3.719 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:18
// 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:  $0900 (2304)
// IRQ handler:  $0968 (irq_0968)
// IRQ handler:  $0c6e (nmi_0c6e)
// IRQ handler:  $0995 (irq_0995)
// IRQ handler:  $0a97 (irq_0a97)
// IRQ handler:  $0bba (irq_0bba)
//
// Code: 2693 bytes, Data: 60795 bytes
// Labels: 338, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $08c9-$08c9 ---
.pc = $08c9 "Program $08c9"
        brk

// --- Region $0900-$0b48 ---
.pc = $0900 "main_0900"

main_0900:
        cld
        sei
        lda #$68
        ldx #$09
        ldy #$1f
        sta $fffe
        stx $ffff
        sty $dc0d
        sty $dd0d
        lda #$6e
        ldx #$0c
        ldy #$35
        sta $fffa
        sta $fffc
        stx dat_fffb
        stx $fffd
        sty $01
        lda #$00
        jsr sub_1000
        lda #$0d

loc_092f:
        cmp $d012
        bne loc_092f
        jsr sub_0c9c
        jsr sub_0c88
        jsr sub_0c6f
        lda #$ff

loc_093f:
        cmp $d012
        bne loc_093f
        ldx #$7b

loc_0946:
        dex
        bne loc_0946
        lda $d012
        clc
        cmp #$06
        bcs loc_0958
        lda #$01
        sta smc_0cfd                                // SMC: modifies $0cfd
        bne loc_095b

loc_0958:
        jsr sub_0cb2

loc_095b:
        inc $d019
        lda $dc0d
        lda $dd0d
        cli

loc_0965:
        jmp loc_0965

irq_0968:
        sta smc_098f                                // SMC: modifies $098f
        stx smc_0991                                // SMC: modifies $0991
        sty smc_0993                                // SMC: modifies $0993
        lda $3512
        ldx #$1a
        sta $d016
        stx $d018
        lda #$95
        ldx #$09
        ldy #$34
        sta $fffe
        stx $ffff
        sty $d012
        inc $d019
.label smc_098f = * + 1
        lda #$00                                    // !SMC: modified by $0968
.label smc_0991 = * + 1
        ldx #$00                                    // !SMC: modified by $096b
.label smc_0993 = * + 1
        ldy #$00                                    // !SMC: modified by $096e
        rti

irq_0995:
        sta smc_0a91                                // SMC: modifies $0a91
        stx smc_0a93                                // SMC: modifies $0a93
        sty smc_0a95                                // SMC: modifies $0a95
        ldx #$06

loc_09a0:
        dex
        bne loc_09a0
        nop
        lda #$0b
.label smc_09a7 = * + 1
        ldx #$93                                    // !SMC: modified by $0cb8
        sta $d021

loc_09ab:
        dex
        bne loc_09ab
        lda #$0b
.label smc_09b1 = * + 1
        ldx #$1a                                    // !SMC: modified by $0cbb
        sta $d020

loc_09b5:
        dex
        bne loc_09b5
        lda #$0c
        sta $d020
        nop
        nop
        nop
        lda #$0f
.label smc_09c3 = * + 1
        ldx #$5d                                    // !SMC: modified by $0cbe
        sta $d020

loc_09c7:
        dex