#352

Pride Crew International [PCI] 01

Pride Crew International [PCI]

2.793 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Group
Pride Crew International [PCI]

A crack intro from Pride Crew International — a group with minimal archival documentation across the major C64 scene databases. The CSDb search failed to return any matching release data, and no entries were found on Demozoo, Doc Snyder's Page, Atlantis Prophecy, or Freeze64. No individual credits for code, music, or graphics have been identified, and the group's country of origin and founding date remain unrecorded. The name follows the common scene convention of appending "International" to signal cross-border membership or ambitions — whether or not the roster truly spanned multiple countries. The intro is preserved on intros.c64.org, where it has attracted comments from scene members including ZTH of Abnormal and Twoflower. Without CSDb cataloguing or corroborating data from any archival source, the intro exists primarily as a standalone artifact. The group's abbreviation PCI does not appear to have been shared by other prominent scene entities.

Sources: intros.c64.org

pci-01.asm 2.793 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:28
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3804  (12293 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1800 (6144)
// IRQ handler:  $1826 (irq_1826)
// IRQ handler:  $187a (irq_187a)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2279 bytes, Data: 10014 bytes
// Labels: 326, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $08a0-$08a6 ---
.pc = $08a0 "sub_08a0"
// Referenced by: jsr from $1d91

sub_08a0:
        sta $d021
        jmp $e544

chr_08a6:
        // === Charset data (1 bytes, $08a6-$08a6) ===
        .byte $00                                   // char 0 (partial)

// --- Region $0900-$0a1f ---
.pc = $0900 "sub_0900"
// Referenced by: jsr from $0e48, $0e4d, $0e52

sub_0900:
        lda $0d0f
        bne loc_0909
        sta $d418
        rts

loc_0909:
        cmp #$ab
        beq loc_0944
        jmp loc_0971

loc_0910:
        lda #$00
        sta $d404
        sta $d40b
        sta $d412
        lda #$0f
        sta $d418
        ldy #$00
        sty $0cfc
        sty $0d03
        sty $0d0a
        sty $0cfe
        sty $0d05
        sty $0d0c
        sty $0cd3
        sty $0cda
        sty $0ce1
        iny
        sty $0d12
        jmp loc_09a1

loc_0944:
        ldy $0ce6,x
        lda $0eac,y
        and #$04
        beq loc_0964
        lda $0d3e,x
        beq loc_095e
        dec $0d3e,x
        lda $0f57,y
        sta $d404,x
        bne loc_0964

loc_095e:
        lda $0ea6,y
        sta $d404,x

loc_0964:
        lda $0d12
        bne loc_096e
        dec $0cfe,x
        bmi loc_09b6

loc_096e:
        jmp loc_0b33

loc_0971:
        ldy $0d0f
        lda $15d3,y
        sta $0cfa
        lda $15d5,y
        sta $0cfb
        lda $15d7,y
        sta $0d01
        lda $15d9,y
        sta $0d02
        lda $15db,y
        sta $0d08
        lda $15dd,y
        sta $0d09
        lda $1054,y
        sta $0d10
        jmp loc_0910

loc_09a1:
        cpx #$0e
        bne loc_09b0
        dec $0d12
        bpl loc_09b0
        lda $0d10
        sta $0d12

loc_09b0:
        lda #$ab
        sta $0d0f
        rts

loc_09b6:
        lda $0cfa,x
        sta $fb
        lda $0cfb,x
        sta $fc
        ldy $0cfc,x
        lda ($fb),y
        tay
        lda $157f,y
        sta $fd
        lda $15a9,y
        sta $fe
        lda #$ff
        sta $0d13
        lda #$00
        sta $0cd0,x
        sta $0ccf,x
        sta scr_0cce,x

loc_09e0:
        ldy $0cd3,x
        lda ($fd),y
        cmp #$fd
        bcc loc_09f7