#679

Paramount 04

Paramount

2.088 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
November 1989
Code
Scratcher
Music
Flash (Henning Leise) — "Das Boot"
Group
Paramount — Germany, founded January 1989

Released in November 1989, this is the fourth numbered crack intro from Paramount, a German group founded just ten months earlier. The code is by Scratcher, while the music — titled "Das Boot" — comes from Flash, real name Henning Leise, and is preserved in the HVSC at /DEMOS/A-F/Das_Boot.sid. Paramount's scrolltext on Doc Snyder's Page reveals the group's roster included Paralax, Joe Cool, Jalt, Stainless Steel, Tom Tailor, Sky, Thage, Blitz, Tango and Cash, Brainkiller, Jack Daniels, Three DK, and Headhunter. The greetings list — spanning INC, Survivors, NEC+NEI, TSM, Exodus, ATC, DDT, Dominators, Illusion, Ikari and Talent, and many more — maps the transatlantic network Paramount operated within. The group is also represented at #72 Paramount-12, #179 Paramount-09, and #273 Paramount-01.

Sources: CSDb · Doc Snyder's Page

paramount-04.asm 2.088 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1000 (4096)
// IRQ handler:  $1021 (irq_1021)
//
// Code: 1751 bytes, Data: 61737 bytes
// Labels: 169, Subroutines: 22
//
// Cross-references: all OK
// ============================================


// --- Region $0902-$0910 ---
.pc = $0902 "Program $0902"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        cmp ($c3,x)
        .byte $c7,$c7                               // dcp $c7 // ILLEGAL
        .byte $cf,$ff,$cf                           // dcp $cfff // ILLEGAL

dat_090f:
        .byte $cf,$99                               // ..

// --- Region $0c02-$0c51 ---
.pc = $0c02 "sub_0c02"
// Referenced by: jsr from $fec1

sub_0c02:
        adc $99
        ror
        tax
// Referenced by: jsr from $ff5e

sub_0c06:
        ldx $13bb
        ora ($41),y
        eor ($41,x)
        sta ($91),y
        sta ($44),y
        ora ($44),y
        eor ($95),y
        ror $99
        ror $53
        ora ($51),y
        ora ($51),y
        eor ($91),y
        eor ($44),y
        ora ($55),y
        eor $99,x
        ror $9a
        .byte $ab,$44                               // lax #$44 // ILLEGAL
        ora ($44),y
        eor $99,x
        eor $91,x
        sta ($44),y
        ora ($44),y
        eor $99,x
        ror $99
        ror $41
        eor ($51,x)
        eor ($91),y
        eor ($91),y
        eor ($99),y
        ror $aa
        .byte $bb,$ee,$bb                           // las $bbee,y // ILLEGAL
        inc $91bb
        sta ($d1),y
        sta ($d1),y
        sta ($d1),y
        sta ($00),y
        brk

// --- Region $0c8d-$0c99 ---
.pc = $0c8d "Program $0c8d"
        .byte $ff,$ef,$bb                           // isc $bbef,x // ILLEGAL
        ldx $ea
        .byte $bb,$ee,$fe                           // las $feee,y // ILLEGAL
        .byte $ff,$ff,$bb                           // isc $bbff,x // ILLEGAL

txt_0c98:
        .text "GF"

// --- Region $0f13-$0f40 ---
.pc = $0f13 "Program $0f13"
        .byte $bb,$a9,$ab                           // las $aba9,y // ILLEGAL
        sbc $67b9
        .byte $bb,$ed,$99                           // las $99ed,y // ILLEGAL
        lda #$b9
        .byte $67,$65                               // rra $65 // ILLEGAL
        sbc $9955,x
        sbc $6511,x
        sbc $5545,x
        lda loc_1101,y
        .byte $ef,$11,$01                           // isc $0111 // ILLEGAL
        lda $4575,y
        .byte $ab,$01                               // lax #$01 // ILLEGAL
        ora ($67),y
        .byte $03,$7d                               // slo ($7d,x) // ILLEGAL
        sta $0100,y
        .byte $67,$00                               // rra $00 // ILLEGAL
        ora ($df,x)
        brk

spr_0f40:
        // === Sprite data (1 bytes, $0f40-$0f40) ===
        .byte $ba

// --- Region $0f88-$0fb0 ---
.pc = $0f88 "loc_0f88"

loc_0f88:
        jsr $fda3
        jsr $ff5b
        jsr $fd15
        lda #$00
        sta $0286
        sta $d020
        sta $d021
        jsr $e544
        ldx #$00

loc_0fa1:
        lda dat_0faf,x
        sta $c000,x
        inx
        cpx #$40
        bne loc_0fa1
        jmp loc_fce2

dat_0faf:
        .byte $a9,$08                               // ..

// --- Region $1000-$1400 ---
.pc = $1000 "main_1000"

main_1000:
        jsr sub_10b5
        sei
        lda #$21
        sta $0314
        lda #$10
        sta $0315