← #273 Top 1024 #275 →
#274

Rough Trade Incorporated [RTI] 04

Rough Trade Incorporated [RTI]

834 lines of code

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

History

Released
September 1989
Group
Rough Trade Incorporated — United Kingdom, founded 1988

Rough Trade Incorporated Intro #4, released in September 1989, is a crack intro from the British group RTI. Founded in 1988 in the United Kingdom, Rough Trade Inc. operated within the European cracking and trading network during the late 1980s and into the 1990s. This particular intro has no credited individuals for code, music, or graphics on CSDb, though an interview with Scortia on the Atlantis Prophecy website references the group's activities and history. RTI's presence in the scene is further confirmed by their appearance in numerous greetings lists from contemporary groups, including Dynamix, Paninaro, and others. The group is also represented at #217 RTI Intro #5 and #288 RTI Intro #3 in this ranking, demonstrating a body of work that has maintained collector interest over the decades.

Sources: CSDb · intros.c64.org

rti-04.asm 834 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:31
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1000 (4096)
// IRQ handler:  $ea31 (loc_ea31)
// IRQ handler:  $113a (irq_113a)
//
// Code: 889 bytes, Data: 62598 bytes
// Labels: 67, Subroutines: 5
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0e01-$0e01 ---
.pc = $0e01 "Program $0e01"
        brk

// --- Region $1000-$1037 ---
.pc = $1000 "main_1000"

main_1000:
        lda #$08
        jsr $ffd2
        sei
        lda #$33
        sta $01
        lda #$08
        sta $b1
        lda #$d0
        sta $b3
        lda #$00
        sta $b0
        sta $b2
        ldy #$00

loc_101a:
        lda ($b2),y
        sta ($b0),y
        jsr sub_1062
        sta ($b0),y
        jsr sub_1062
        jsr sub_1069
        lda $b1
        cmp #$10
        bne loc_101a
        lda #$37
        sta $01
        cli
        jmp loc_1070

dat_1037:
        .byte $78                                   // x

// --- Region $1062-$1110 ---
.pc = $1062 "sub_1062"

// Referenced by: jsr from $101e, $1023
sub_1062: {
        inc $b0
        bne done
        inc $b1
done:
        rts
}
// Referenced by: jsr from $1026

sub_1069:
        inc $b2
        bne loc_106f
        inc $b3

loc_106f:
        rts

loc_1070:
        jsr sub_1202
        lda #$12
        sta $d018
        ldx #$00

loc_107a:
        lda #$d9
        sta $03c8,x
        sta $06e9,x
        lda #$40
        sta $04c8,x
        sta $0520,x
        sta $0620,x
        lda #$01
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $dae8,x
        inx
        bne loc_107a
        ldx #$00

loc_10a0:
        lda txt_1111,x
        and #$3f
        asl
        sta $0522,x
        clc
        adc #$01
        sta $054a,x
        lda $1125,x
        and #$3f
        asl
        sta $068a,x
        clc
        adc #$01
        sta $06b2,x
        inx
        cpx #$14
        bne loc_10a0
        sei
        lda #$01
        sta $d01a
        sta $dc0d
        ldx #$11
        ldy #$3a
        stx $0315
        sty $0314
        lda #$31
        sta $d012
        lda #$1b
        sta $d011
        cli

loc_10e1:
        lda $dc01
        cmp #$ef
        bne loc_10e1
        sei
        jsr $fd15
        jsr $fda3
        jsr $ff5b
        lda #$31
        sta $0314
        lda #$ea