← #560 Top 1024 #562 →
#561

Rough Trade Incorporated [RTI] 10

Rough Trade Incorporated [RTI]

3.435 lines of code

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

History

Released
July 1989
Music
Jess (Oliver Klawer) — "K.A.O.S."
Group
Rough Trade Incorporated

The tenth numbered intro from Rough Trade Incorporated (RTI) — a group with multiple ranked entries including #217 RTI-05, #274 RTI-04, and #288 RTI-03. Released in July 1989, this intro features music by Jess (Oliver Klawer) performing "K.A.O.S." on the SID chip. Notably, CSDb attributes this release to the group X-Ray — a German group founded in 1988 — suggesting either a cooperation between RTI and X-Ray, or a cataloguing discrepancy between the intros.c64.org and CSDb archives. The Atlantis archive contains an interview with Scortia that references RTI in its search results. Comments on intros.c64.org from multiple scene members including daison/Avatar and iAN CooG generated discussion about the intro's provenance. Without additional credits on CSDb beyond the music, the coder and graphic artist for this particular intro remain unidentified.

Sources: CSDb · intros.c64.org

rti-10.asm 3.435 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:41
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2dff  (9728 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1000 (4096)
// IRQ handler:  $1050 (irq_1050)
//
// Code: 2290 bytes, Data: 7438 bytes
// Labels: 232, Subroutines: 8
//
// Cross-references: all OK
// ============================================


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

main_1000:
        jmp loc_13fe

scr_1003:
        .byte $40                                   // @ character

// --- Region $1033-$103f ---
.pc = $1033 "loc_1033"

loc_1033:
        sta $d024
        lda scr_1003,x
        sta $d021
        sta $d021
        inx

// --- Region $1050-$114a ---
.pc = $1050 "irq_1050"

irq_1050:
        lda #$d0

loc_1052:
        cmp $d012
        bne loc_1052
        ldx #$06

loc_1059:
        dex
        bne loc_1059
        bit $ea
        ldx #$00
        ldy #$00
        lda scr_1003,x
        nop

loc_1066:
        nop
        bit $ea
        sta $d024
        lda scr_1003,x
        sta $d021
        sta $d021
        inx
        lda scr_1003,x
        cpy #$02
        beq loc_1033
        nop

loc_107e:
        pha
        lda $d012
        and #$07
        tay
        bit $ea
        nop
        nop
        nop
        pla
        cpx #$2a
        bne loc_1066
        lda #$fa

loc_1091:
        cmp $d012
        bne loc_1091
        lda #$13
        sta $d011
        jsr sub_2a40
        jsr sub_2a85
        jsr sub_1460
        ldx $e4
        lda tbl_0f00,x
        and #$07
        ora #$b0
        sta $d016
        lda #$12
        sta $d018
        lda #$0b
        sta $d022
        lda #$0d
        sta $d023
        jsr sub_1171
        jsr sub_1503
        lda $14d2
        sta $14c1
        ldx #$10

loc_10cd:
        lda $14c1,x
        sta $14c2,x
        sta $dab4,x
        dex
        bpl loc_10cd
        lda #$ba

loc_10db:
        cmp $d012
        bne loc_10db
        lda #$17
        sta $d018
        ldx #$00

loc_10e7:
        lda scr_1048,x
        sta $d016
        ldy #$f6

loc_10ef:
        iny
        bne loc_10ef
        inx
        cpx #$08
        bne loc_10e7
        lda #$ce

loc_10f9:
        cmp $d012
        bne loc_10f9
        lda $12dd
        sta $d016
        lda #$0e
        sta $d022
        lda #$06
        sta $d023
        lda #$18
        sta $d018