← #962 Top 1024 #964 →
#963

Paragon 09

Paragon

871 lines of code

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

History

Music
Rob Hubbard — "Shockway Rider" (ripped)
Group
Paragon — Sweden, founded 1987

This intro from Paragon features a ripped Rob Hubbard composition — "Shockway Rider" — one of the British maestro's many celebrated SID tunes, preserved in the HVSC. Paragon was a Swedish group founded in 1987, abbreviated PRG on CSDb. The group produced a substantial body of crack intros — CSDb lists over a dozen releases under their name, ranging from numbered intros to co-operation productions and nostalgia pieces. No individual coding credit has been documented for this particular release. Hubbard was the single most ripped composer in the entire C64 cracking scene, and his technically sophisticated SID work appeared in hundreds of intros across dozens of groups. Another Paragon intro appears at #963 Paragon-03, though that entry lacks CSDb data. The group's Swedish origins place them within one of the scene's most active national communities, alongside groups such as Triad and Fairlight.

Sources: CSDb · CSDb Group

paragon-09.asm 871 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: $1600  (3585 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0e00 (3584)
// IRQ handler:  $0ea1 (irq_0ea1)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 802 bytes, Data: 2783 bytes
// Labels: 109, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $0e00-$110e ---
.pc = $0e00 "main_0e00"

main_0e00:
        sei
        lda #$37
        sta $01
        lda $3fff
        sta $8b
        lda #$00
        sta $3fff
        lda #$00
        sta $04
        lda #$00
        sta $86
        lda #$61
        sta $80
        lda #$38
        sta $82
        ldx #$11
        stx $83
        stx $81
        lda #$01
        sta $88
        lda #$00
        sta $89
        sta $8a
        ldx #$00

loc_0e31:
        lda #$20
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        inx
        bne loc_0e31
        ldy #$01
        ldx #$00

loc_0e46:
        lda ($82),y
        sta $0658,x
        iny
        inx
        cpx #$1d
        bne loc_0e46
        ldx #$00

loc_0e53:
        lda #$00
        sta $da00,x
        inx
        bne loc_0e53
        ldx #$00

loc_0e5d:
        lda $0b50,x
        sta $0590,x
        lda #$08
        sta $d990,x
        inx
        cpx #$a0
        bne loc_0e5d
        lda #$01
        jsr sub_0ea0
        lda #$a1
        sta $0314
        lda #$0e
        sta $0315
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$c7
        sta $d016
        sta $02
        lda #$13
        sta $d018
        lda #$32
        sta $d012
        lda #$01
        sta $d01a
        cli

loc_0e9d:
        jmp loc_0e9d
// Referenced by: jsr from $0e6f, $0f93

sub_0ea0:
        rts

irq_0ea1:
        inc $d019
        lda #$7b

loc_0ea6:
        cmp $d012
        bne loc_0ea6
        lda $d012

loc_0eae:
        cmp $d012
        beq loc_0eae
        ldy #$06

loc_0eb5:
        dey
        bne loc_0eb5
        nop
        nop
        ldx #$00

loc_0ebc:
        ldy #$00

loc_0ebe:
        sty $06
        lda $0d50,x
        ldy $0d20,x
        sta $d023
        sty $d021
        sty $d020
        ldy #$05

loc_0ed1:
        dey
        bne loc_0ed1
        nop