#946

Paco Crew, The [TPC] 01

Paco Crew, The [TPC]

2.588 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLBitmapBMAP

History

Released
March 1987
Group
The Paco Crew — Germany, founded c. 1986

A crack intro from The Paco Crew, a German group catalogued on CSDb under group ID 2167. Also known as "The Paco Crew 1730" and "The Famous Paco Crew," TPC dissolved in July 1987 after producing 142 releases. The group's membership included coders HBU, Profi, and Redline, plus The Parade International and The Syndicate who handled cracking duties. CSDb documents two TPC crack intros — this March 1987 version and a June 1987 follow-up coded by The Parade International with Fred Gray's "Highway Encounter" as the SID tune. No individual credits are recorded for this specific earlier intro. A CSDb comment notes that "most of the members joined Beastie Boys afterwards" and praises their "legendary intro-editors for other groups" — suggesting TPC's influence extended beyond their own releases into tooling used by the broader German scene. The group's dissolution in mid-1987 fed talent into Beastie Boys, one of Germany's notable late-1980s groups.

Sources: CSDb · intros.c64.org

tpc-01.asm 2.588 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:51
// 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:  $2a00 (10752)
// IRQ handler:  $204c (irq_204c)
//
// Code: 2492 bytes, Data: 60995 bytes
// Labels: 249, Subroutines: 18
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0883 ---
.pc = $0810 "loc_0810"

loc_0810:
        lda #$00
        sta $d020
        sta $d021
        lda #$09
        sta $0286
        lda #$93
        jsr $ffd2
        lda #$d6
        sta $d016
        lda #$0c
        sta $d022
        lda #$0b
        sta $d023
        ldx #$00

loc_0833:
        lda dat_1700,x
        sta $0400,x
        inx
        bne loc_0833
        nop
        jmp loc_0874

loc_0840:
        ldx #$00

loc_0842:
        jsr sub_0851
        inx
        bne loc_0842
        jmp loc_2b00

dat_084b:
        .byte $ea,$ea,$ea,$ea,$ea,$ea               // ......
// Referenced by: jsr from $0842

sub_0851:
        ldy #$00

loc_0853:
        iny
        bne loc_0853
        ldy #$00

loc_0858:
        iny
        bne loc_0858
        ldy #$00

loc_085d:
        iny
        bne loc_085d
        ldy #$00

loc_0862:
        iny
        bne loc_0862
        ldy #$00

loc_0867:
        iny
        bne loc_0867

loc_086a:
        iny
        bne loc_086a

loc_086d:
        iny
        bne loc_086d

loc_0870:
        iny
        bne loc_0870
        rts

loc_0874:
        lda #$0f
        sta $d418
        lda #$1d
        sta $d018
        jsr sub_2000
        jmp loc_0840

// --- Region $0890-$08f9 ---
.pc = $0890 "Program $0890"
        and $8d0c,y
        .byte $3f,$0c,$e8                           // rla $e80c,x // ILLEGAL
        lda $0c2f,x
        sta $0c3a
        sta $0c40
        jsr sub_0c41
        jsr sub_0c65
        jsr sub_0c89
        lda #$00
        ldx #$17

loc_08ac:
        sta $d400,x
        dex
        bpl loc_08ac
        lda #$0f
        sta $d418
        lda $0be5
        sta $0be6
        lda #$1e
        sta $0c02
        lda #$3c
        sta $0c03
        lda #$00
        sta $0be7
        sta $0be8
        sta $0be9
        sta $0c0a
        sta $0c0b
        sta $0c0c
        sta $0c25
        sta $0c26
        sta $0c27
        lda #$01
        sta $0bd3
        sta $0bd4
        sta $0bd5
        sta $0bd6