History
- Released
- 20 September 1987
- Code
- Alpha
- Music
- Cosmonut by David Whittaker (ripped)
- Group
- The Papillons Inc. — Denmark, founded November 1986
Ranked #37 on intros.c64.org, this is The Papillons' second numbered intro — catalogued on CSDb as "The Papillons Intro #2" and dated 20 September 1987, predating #5 TPI-01 by roughly three months. Alpha is credited for the code and David Whittaker for the music. The SID used is titled "Cosmonut," preserved in the HVSC under Whittaker's composer directory. Doc Snyder's page for The Papillons Inc. exists but carries no section confirmed to match this specific intro. The Papillons Inc. were a Danish group founded in November 1986. This intro represents an earlier stage of the group's output than the better-known TPI-01, released only months later.
Sources: CSDb · docsnyderspage
tpi-02.asm 1.309 lines
// ============================================ // output - Part 1 of 2 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:34 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $f9ff (61952 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0810 (2064) // // Code: 471 bytes, Data: 61481 bytes // Labels: 133, Subroutines: 2 // // Verification: 5 line(s) auto-corrected to .byte for exact byte matching // // Cross-references: all OK // ============================================ // --- Region $0810-$08e1 --- .pc = $0810 "main_0810" main_0810: ldy #$00 dec $0819 sty $d020 sei tax bmi $07a1 .label loc_081d = * + 1 ora ($b9,x) brk .label loc_0820 = * + 1 ldy $99 brk cpx #$b9 cpx #$08 sta $a400,y iny bne loc_081d inc $081f inc $0822 inc $0825 inc $0828 lda $081f cmp #$ad bne loc_081d loc_083f: lda chr_3000,y sta $ea00,y lda $11e0,y sta chr_3000,y iny bne loc_083f inc $0841 inc $0844 inc $0847 inc $084a lda $0841 cmp #$40 bne loc_083f loc_0861: lda $1280,y sta $0380,y iny cpy #$40 bne loc_0861 lda #$36 sta $01 dec $0873 eor loc_0820,y and ($78),y lda #$34 sta $01 ldy #$00 loc_087e: lda $e000,y sta $a400,y iny bne loc_087e inc $0880 inc $0883 lda $0883 cmp #$ad bne loc_087e loc_0894: lda $ea00,y sta chr_3000,y iny bne loc_0894 inc $0896 inc $0899 lda $0899 cmp #$40 bne loc_0894 loc_08aa: lda loc_08b6,y sta $033c,y iny bne loc_08aa jmp $033c loc_08b6: lda $2101,y sta dat_0801,y iny bne loc_08b6 inc $033e inc $0341 .label loc_08c6 = * + 1 lda $0341 cmp #$e0 bne loc_08b6 lda #$49 sta $2d sta $ae lda #$8e sta $2e sta $af lda #$37 sta $01 cli jmp $fce2 dat_08e0: .byte $a9,$00 // .. // --- Region $0c1e-$0c87 --- .pc = $0c1e "loc_0c1e" loc_0c1e: lda #$20 bne loc_0c24 dat_0c22: .byte $a9,$04 // .. loc_0c24: ora $a4b7,x sta $a4b7,x ldy #$00 tya sta $a4be,x