← #105 Top 1024 #107 →
#106

Talent+Shaolin Monastery, The 01

Talent+Shaolin Monastery, The

2.693 lines of code

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

History

Released
17 August 1992
Code
Bod
Music
Jeroen Tel — "RoboCop 3" (ripped)
Graphics
Mirage
Group
Talent + The Shaolin Monastery — United Kingdom, founded 21 July 1989

Another joint operation — Talent and The Shaolin Monastery combining forces for this 1992 production. Bod coded while Jeroen Tel's "RoboCop 3" provides the ripped music — Tel's compositions from the RoboCop games were among the most popular sources for crack intros in the early 1990s. Mirage contributed the graphics. The partnership between Talent (a UK/Hungarian group) and TSM (a Swedish group) demonstrates the increasingly international nature of late-era collaborations. Released on 17 August 1992, this came during the final years of active C64 cracking. The HVSC preserves Tel's original game composition. Bod appears as a coder across multiple UK-connected groups of this period, including Hotline's later output.

Sources: CSDb

t_tsm-01.asm 2.693 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:32
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3800  (12289 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2e80 (11904)
// IRQ handler:  $3089 (irq_3089)
// IRQ handler:  $319a (irq_319a)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2703 bytes, Data: 9586 bytes
// Labels: 291, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $3753

sub_1000:
        jmp loc_107b
// Referenced by: jsr from $3090, $31f7

sub_1003:
        jmp loc_10b0

dat_1006:
        .byte $00                                   // .

// --- Region $107b-$1500 ---
.pc = $107b "loc_107b"

loc_107b:
        ldx #$02

loc_107d:
        lda #$00
        sta $101e,x
        sta $100b,x
        lda #$03
        sta $100e,x
        lda #$01
        sta $101a,x
        sta $1008,x
        sta $1024,x
        dex
        bpl loc_107d
        sta $101d
        lda #$00
        sta $1027
        lda #$f0
        sta $d417
        lda #$0f
        sta $1077
        lda #$00
        sta $d416
        rts

loc_10b0:
        lda $101d
        bne loc_10b6
        rts

loc_10b6:
        ldy dat_1006
        beq loc_10da
        dec $1007
        bpl loc_10da
        sty $1007
        dec $1077
        bpl loc_10da
        lda #$00
        sta $d404
        sta $d40b
        sta $d412
        sta $101d
        sta dat_1006
        rts

loc_10da:
        lda #$ff
        sta $1028
        dec $1027
        bpl loc_10ec
        inc $1028
        lda #$02
        sta $1027

loc_10ec:
        lda $1077
        ora #$00
        sta $d418
        ldx #$02

loc_10f6:
        ldy $1078,x
        lda $1014,x
        sta $d400,y
        lda $1017,x
        sta $d401,y
        lda $1032,x
        sta $d403,y
        lda $102f,x
        sta $d402,y
        lda $1074,x
        sta $d406,y
        lda $1071,x
        sta $d405,y
        lda $1068,x
        and $106b,x
        sta $d404,y
        dex
        bpl loc_10f6
        ldx #$02

loc_112b:
        lda $101a,x
        beq loc_113d
        lda $1028
        bmi loc_113a
        dec $1008,x
        beq loc_1141

loc_113a:
        jmp loc_127d

loc_113d:
        dex
        bpl loc_112b
        rts

loc_1141:
        ldy $100b,x
        lda $15c9,y
        sta $fb
        lda $15e0,y
        sta $fc

loc_114e:
        lda #$00
        sta $1029,x
        sta $1011,x
        ldy $100e,x