← #683 Top 1024 #685 →
#684

Rough Trade Incorporated [RTI] 01

Rough Trade Incorporated [RTI]

2.186 lines of code

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

History

Released
30 June 1989
Music
JCH (Jens-Christian Huus) — "Can't Stop"
Group
Rough Trade Inc. — United Kingdom, founded 1988

Released on 30 June 1989, this is the first numbered crack intro from Rough Trade Inc., a British cracking group founded in 1988. The sole confirmed credit is the music — "Can't Stop" by JCH, real name Jens-Christian Huus — one of the most prolific SID composers in scene history. The tune is preserved in the HVSC at /MUSICIANS/J/JCH/Cant_Stop.sid. An interview with Scortia in the Atlantis Prophecy archives mentions the group, providing some additional historical context. RTI is well represented in this collection with entries at #217 RTI-05, #274 RTI-04, and #288 RTI-03. The choice of JCH for intro music was common among European groups of the era — his tunes appeared in dozens of crack intros across multiple groups. RTI's UK base placed them in a competitive British scene alongside groups like Fusion and Talent.

Sources: CSDb

rti-01.asm 2.186 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:42
// 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:  $0b00 (2816)
//
// Code: 1933 bytes, Data: 61555 bytes
// Labels: 203, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0a10-$0a1e ---
.pc = $0a10 "Program $0a10"
        .byte $07,$07                               // slo $07 // ILLEGAL
        ora ($07,x)
        ora ($01,x)
        .byte $07,$01                               // slo $01 // ILLEGAL
        .byte $07,$07                               // slo $07 // ILLEGAL
        asl
        .byte $07,$0a                               // slo $0a // ILLEGAL
        asl
        .byte $02                                   // jam // ILLEGAL

// --- Region $0b00-$0d55 ---
.pc = $0b00 "main_0b00"

main_0b00:
        jsr $e544
        jsr sub_1000
        sei
        ldx #$ff
        txs
        inx
        stx $d020
        stx $d021
        txa

loc_0b12:
        sta $40,x
        inx
        cpx #$0f
        bne loc_0b12
        tax

loc_0b1a:
        lda $1700,x
        sta $0400,x
        lda $1800,x
        sta $0500,x
        lda $1900,x
        sta $0600,x
        lda $1a00,x
        sta $0700,x
        lda #$00
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0b1a
        lda #$12
        sta $d018
        lda #$1b
        sta $4d

loc_0b4c:
        lda #$38

loc_0b4e:
        cmp $d012
        bne loc_0b4e
        lda $40
        jsr sub_0c7b
        lda #$3d

loc_0b5a:
        cmp $d012
        bne loc_0b5a
        ldy #$06

loc_0b61:
        dey
        bne loc_0b61
        jsr sub_0e70
        jsr sub_0b79
        jsr sub_0cba
        jsr sub_0bfb
        jsr sub_0cdb
        jsr sub_1006
        jmp loc_0b4c
// Referenced by: jsr from $0b67

sub_0b79:
        lda $47
        sta $d016
        lda $d012
        clc
        adc #$08

loc_0b84:
        cmp $d012
        bne loc_0b84
        lda #$c8
        sta $d016
        nop
        nop
        nop
        lda #$90

loc_0b93:
        cmp $d012
        bne loc_0b93
        ldy #$0a

loc_0b9a:
        dey
        bne loc_0b9a
        lda #$01
        sta $d020
        sta $d021
        ldy #$0b

loc_0ba7:
        dey
        bne loc_0ba7
        lda #$00
        sta $d020
        sta $d021
        jsr sub_0d29
        lda #$88
        sta smc_0e80                                // SMC: modifies $0e80
        lda #$0a
        sta smc_0e81                                // SMC: modifies $0e81
        lda #$33
        sta smc_0e9d                                // SMC: modifies $0e9d
        lda #$8d
        sta smc_0e85                                // SMC: modifies $0e85
        lda #$a5

loc_0bcb:
        cmp $d012
        bne loc_0bcb