#382

Paninaro 01

Paninaro

2.008 lines of code

RasterbarsRSTRScrollerSCRLBitmapBMAP

History

Released
22 June 1989
Code
Tri-Dos
Group
Paninaro — United Kingdom, founded May 1989

The sole ranked intro from Paninaro, a short-lived British group founded in May 1989. Tri-Dos coded this intro, released just one month after the group's founding in June 1989 — suggesting the members were already experienced sceners who hit the ground running. No music or graphics credits are listed on CSDb, indicating a code-only production. The group name "Paninaro" derives from Italian youth slang for a fashion-conscious subculture that emerged in 1980s Milan, popularised in the UK through the Pet Shop Boys' 1986 single of the same name. Paninaro does not appear on Doc Snyder's page, Demozoo, or in any of the major scene history archives, making this one of the more obscure entries in the rankings. The lack of documentation beyond CSDb suggests the group's active period was brief. Despite this limited footprint, the intro earned enough community votes to place in the top 400.

Sources: CSDb · intros.c64.org

paninaro-01.asm 2.008 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:27
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0314  End: $ffff  (64748 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $61a2 (24994)
// IRQ handler:  $fec1 (nmi_fec1)
//
// Code: 1598 bytes, Data: 63150 bytes
// Labels: 230, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0cf0 ---
.pc = $0c00 "loc_0c00"

loc_0c00:
        ldx #$9d

loc_0c02:
        dex
        bne loc_0c02
        lda #$c7
        sta $d016
        ldx #$00
        ldy #$02
        jmp loc_0c14

loc_0c11:
        ldy #$07
        inx

loc_0c14:
        lda dat_0cf0,x
        sta $d021
        sta $d020
        dey
        bmi loc_0c11
        jsr sub_1cfb
        jsr sub_1cfb
        pha
        lda ($00),y
        pla
        nop
        inx

loc_0c2c:
        cpx #$0e
        bne loc_0c14
        lda #$c8
        sta $d016
        jsr sub_0c3b
        jmp loc_0e00
// Referenced by: jsr from $0c35

sub_0c3b:
        dec $0c06
        dec $0c06
        dec $0c06
        lda $0c06
        cmp #$c0
        bcs loc_0c79
        clc
        adc #$08
        sta $0c06
        ldx #$00

loc_0c53:
        lda $0659,x
        sta $0658,x
        inx
        cpx #$27
        bne loc_0c53
        ldy #$00
        lda ($a3),y
        cmp #$ff
        bne loc_0c70
        lda #$17
        sta $a3
        lda #$24
        sta $a4
        lda #$20

loc_0c70:
        sta $067f
        inc $a3
        bne loc_0c79

dat_0c77:
        .byte $e6,$a4                               // ..

loc_0c79:
        jmp loc_1b80

loc_0c7c:
        clc
.label loc_0c7e = * + 1
        bne loc_0c2c
        ora ($dc,x)
        and #$10
        beq loc_0c88
        jmp loc_0c91

loc_0c88:
        sei
        lda #$01
        sta $1e1a
        sty $1ffc

loc_0c91:
        lda #$02
        beq loc_0c9b
        dec $0c92
        jmp loc_0cc2

loc_0c9b:
        ldx #$00
        inc $0c9c
        ldy $0eb8,x
        ldx #$00
        lda #$04
        sta $0c92

loc_0caa:
        lda $0ec0,y
        sta $08e0,x
        iny
        inx
        cpx #$08
        bne loc_0caa
        lda $0c9c
        cmp #$06
        bne loc_0cc2
        lda #$00
        sta $0c9c

loc_0cc2:
        jmp loc_0e80

dat_0cc5:
        .byte $00,$00                               // ..

loc_0cc7: