#650

Trance [TCE] 01

Trance [TCE]

3.993 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
1992
Code
Underdog
Graphics
Mr.Mister
Charset
Morpheus
Music
Scarzix (Carsten Berggreen) — "Rolling"
Group
Trance — Germany, founded 1992

The sole ranked intro from Trance, a German cracking group founded in 1992 under the short tag TCE. Released the same year the group was founded, this intro features code by Underdog, graphics by Mr.Mister, a custom charset by Morpheus, and music by Scarzix (Carsten Berggreen) — a SID tune titled "Rolling," preserved in the HVSC. The four-person credit list is notably complete for a group with minimal archival presence, suggesting a well-organised outfit despite their brief documented activity. Trance does not appear on Doc Snyder's page, Demozoo, or any of the other scene archives searched. Comments on intros.c64.org from Rough (2010) and Leeway (2007) confirm the intro was known to the preservation community. The group emerged during the C64 scene's later years, when German crews were still producing new intros even as the platform's commercial relevance had largely faded.

Sources: CSDb

trance-01.asm 3.993 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:51
// 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)
// IRQ handler:  $0873 (irq_0873)
//
// Code: 3222 bytes, Data: 60266 bytes
// Labels: 416, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0b2c ---
.pc = $0810 "main_0810"
main_0810: {
        lda #$08
        sta $0286
        jsr $e544
        ldx #$00
loop1:
        lda dat_3000,x
        sta $0400,x
        lda $3100,x
        sta $0500,x
        lda $3200,x
        sta $0600,x
        lda $32e8,x
        sta $06e8,x
        inx
        bne loop1
        ldx #$00
loop2:
        lda #$ff
        sta $0400,x
        sta $0440,x
        sta $06a8,x
        sta $06e8,x
        inx
        bne loop2
        lda #$00
        sta $d020
        jsr sub_1000
        sei
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$f0
        sta $d012
        lda #$73
        sta $0314
        lda #$08
        sta $0315
        cli
        jmp $0870
}

irq_0873:
        dec $d019
        jsr sub_0993
        lda #$fa

loc_087b:
        cmp $d012
        bpl loc_087b
        jsr sub_0a68
        jsr sub_1003
        lda #$32

loc_0888:
        cmp $d012
        bne loc_0888
        lda #$1b
        sta $d018
        lda dat_0a65
        sta $d016
        lda #$06
        ldx #$0e
        ldy #$0f
        sta $d021
        stx $d022
        sty $d023
        lda #$46

loc_08a9:
        cmp $d012
        bne loc_08a9
        lda #$02
        ldx #$0a
        ldy #$0f
        sta $d021
        stx $d022
        sty $d023
        lda #$72

loc_08bf:
        cmp $d012
        bne loc_08bf
        lda #$19
        sta $d018
        lda #$d8
        sta $d016
        lda #$09
        ldx #$08
        ldy #$0a
        sta $d021
        stx $d022
        sty $d023
        lda #$d1

loc_08df:
        cmp $d012
        bne loc_08df
        ldx #$09

loc_08e6:
        dex
        bne loc_08e6
        lda #$1b
        sta $d018
        lda dat_0b2c
        sta $d016
        lda #$02
        ldx #$0a
        ldy #$0f
        sta $d021
        stx $d022
        sty $d023
        lda #$e6

loc_0905:
        cmp $d012
        bne loc_0905
        lda #$06
        ldx #$0e
        ldy #$0f
        sta $d021
        stx $d022
        sty $d023
        lda #$f0
        sta $d012