History
- Released
- July 1988
- Music
- Steve Barrett
- Group
- Rough Trade Incorporated — United Kingdom, founded 1988
Rough Trade Incorporated Intro #3, released in July 1988, is a crack intro from the British group RTI. The music is "Hyber Blob" by Steve Barrett, one of the SID tunes identified in the HVSC. Founded in 1988 in the United Kingdom, Rough Trade Inc. was active in the European cracking and trading network during the late 1980s. No code or graphics credits have been identified for this intro. The group is referenced in an interview with Scortia on the Atlantis Prophecy website. RTI maintains a notable presence in this ranking with three entries: #217 RTI Intro #5, #274 RTI Intro #4, and this intro at #288 -- demonstrating a body of work that has sustained community interest across decades of preservation.
Sources: CSDb · intros.c64.org
rti-03.asm 1.545 lines
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:30 // https://restore64.dev by datucker / Rabenauge // // Load address: $0801 End: $1ca2 (5282 bytes) // Entry point: $080d (via BASIC SYS 2061) // IRQ handler: $1096 (irq_1096) // IRQ handler: $ea31 (irq_ea31) // // Code: 1524 bytes, Data: 3758 bytes // Labels: 168, Subroutines: 7 // // Cross-references: all OK // ============================================ // --- Region $080d-$086d --- .pc = $080d "main_080d" main_080d: jsr $ff5b dex stx $d020 stx $d021 ldy #$28 loc_0819: lda #$01 sta $d7ff,y lda $0853,y sta $03ff,y dey bne loc_0819 sei sty $01 ldx #$07 loc_082c: lda $08cd,x sta $2d,x dex bpl loc_082c txs loc_0835: lda $08d5,y sta.abs $00f7,y iny bne loc_0835 ldx #$14 loc_0840: dec $0848 dec $084b loc_0846: lda $1ca3,y sta.abs $0000,y iny bne loc_0846 dex bne loc_0840 beq loc_0881 jsr $2020 jsr $2020 jsr $2020 php .byte $14,$14 // nop $14,x // ILLEGAL bpl loc_089c .byte $2f,$2f,$09 // rla $092f // ILLEGAL asl $1214 .byte $0f,$13,$2e // slo $2e13 // ILLEGAL .byte $03,$36 // slo ($36,x) // ILLEGAL dat_086d: .byte $34 // 4 // --- Region $087c-$08e1 --- .pc = $087c "loc_087c" loc_087c: lda #$d3 loc_087e: jsr $00fa loc_0881: jsr $010d cmp #$d3 beq loc_08a0 ldx $30 bne loc_087e loc_088c: lda $ea10,y sta ($2d),y iny bne loc_088c loc_0894: lda $31,x sta $2d,x inx cpx #$04 .label loc_089c = * + 1 bne loc_0894 jmp $0127 loc_08a0: jsr $010d beq loc_087c pha and #$c0 sta $f9 pla and #$3f sta $0f loc_08af: sty $0e ldx #$03 loc_08b3: jsr $010d lsr rol $0e loc_08b9: lsr rol $0e jsr $00f7 dex bne loc_08b3 lda $0e jsr $00f7 dec $0f bne loc_08af beq loc_0881 bpl loc_08b9 .byte $d3,$ec // dcp ($ec),y // ILLEGAL ora ($08,x) .byte $0f,$eb,$18 // slo loc_18eb // ILLEGAL adc #$00 sta ($2d),y inc $2d bne loc_08e0 inc $2e