← #178 Top 1024 #180 →
#179

Paramount 09

Paramount

5.309 lines of code

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

History

Released
October 1989
Code
Sting
Music
EVS (Edwin van Santen) — "Phalanx"
Group
Paramount — Germany, founded January 1989

Sting coded while EVS (Edwin van Santen) contributed "Phalanx" — another Dutch musician supplying a German group through the well-established Netherlands-Germany music pipeline. Paramount was founded in Germany in January 1989 and produced a long numbered series of intros over the following year. Released in October 1989, this is one of two Paramount intros in the ranking alongside #72 Paramount 12. Van Santen's "Phalanx" is preserved in the HVSC — his compositions appear extensively across Hotline, Ikari, and multiple German groups. Doc Snyder's page documents Paramount's catalogue. The group's name — shared with the Hollywood studio — follows the era's convention of adopting impressive-sounding corporate identities.

Sources: CSDb · docsnyderspage

paramount-09.asm 5.309 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:28
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1f00 (7936)
// IRQ handler:  $1d21 (irq_1d21)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 4983 bytes, Data: 58505 bytes
// Labels: 545, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $0a70-$0aee ---
.pc = $0a70 "sub_0a70"
// Referenced by: jsr from $1dbb, $f335

sub_0a70:
.label smc_0a71 = * + 1
        lda $0f6c                                   // !SMC: modified by $0aab
        tay
        and #$07
        eor #$f7
        sta $30
        tya
        lsr
        lsr
        lsr
        tay
        ldx #$00

loc_0a81:
        lda $0902,y
        sta $0400,x
        lda $0962,y
        sta $0428,x
        lda $09c2,y
        sta $0450,x
        lda $0a22,y
        sta $0478,x
        iny
        inx
        cpx #$28
        bne loc_0a81
        inc smc_0a71
        lda smc_0a71
        cmp #$7e
        bne loc_0aae
        lda #$00
        sta smc_0a71                                // SMC: modifies $0a71

loc_0aae:
        rts
// Referenced by: jsr from $1d79, $f2f3

sub_0aaf:
.label smc_0ab0 = * + 1
        lda $0f30                                   // !SMC: modified by $0aeb
        tay
        and #$07
        eor #$f7
        sta $31
        tya
        lsr
        lsr
        lsr
        tay
        ldx #$00

loc_0ac0:
        lda $0902,y
        sta $06a8,x
        lda $0962,y
        sta $06d0,x
        lda $09c2,y
        sta $06f8,x
        lda $0a22,y
        sta $0720,x
        iny
        inx
        cpx #$28
        bne loc_0ac0
        nop
        inc smc_0ab0
        lda smc_0ab0
        cmp #$7e
        bne loc_0aee
        lda #$00
        sta smc_0ab0                                // SMC: modifies $0ab0

loc_0aee:
        rts

// --- Region $0b60-$0bcd ---
.pc = $0b60 "sub_0b60"
// Referenced by: jsr from $1dbe, $f338

sub_0b60:
        ldx #$00
        ldy $0b30

loc_0b65:
        lda $0b31,x
        sta $0b30,x
        inx
        cpx #$28
        bne loc_0b65
        sty $0b56
        ldx #$00

loc_0b75:
        lda $0b30,x
        sta $d8c8,x
        inx
        cpx #$28
        bne loc_0b75
        ldx #$28
        ldy $0b28

loc_0b85:
        lda $0b00,x
        sta $0b01,x
        dex
        bpl loc_0b85
        sty $0b00
        ldx #$00

loc_0b93:
        lda $0b00,x
        sta $da80,x
        inx
        cpx #$28
        bne loc_0b93
        rts

chr_0b9f:
        // === Charset data (1 bytes, $0b9f-$0b9f) ===
        .byte $00                                   // char 0 (partial)

loc_0ba0:
        sei
        jsr $ff5b