← #346 Top 1024 #348 →
#347

Rampar 10

Rampar

640 lines of code

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

History

Released
1 October 1988
Group
Rampar — United States, founded 1988

CSDb catalogues this as a Rampar intro released on 1 October 1988, though no individual credits for code, music, or graphics are listed. Rampar was an American group founded in 1988 with the tagline "We do it better than all the rest." Doc Snyder's page documents another Rampar intro coded by Wanderer with music by Henrik B. Jensen, and lists the group's members as Kid Quick, Minotaur, Wanderer, and Player 1. The scrolltext from that other intro greets Ikari, Conquest, ATC, TSM, NFI, Impact, Bros, and ESI — all prominent American and transatlantic groups. Wanderer later commented on Doc Snyder's page about his FLD bounce technique used in that production. As a US group operating in 1988, Rampar was active during the final competitive phase of American C64 cracking, when groups like FBR and Conquest were still contending with European dominance.

Sources: CSDb · Doc Snyder's Page

rampar-10.asm 640 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:35
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $cfff  (51199 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $cad9 (51929)
// IRQ handler:  $c950 (irq_c950)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 524 bytes, Data: 50675 bytes
// Labels: 70, Subroutines: 3
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $a0d0-$a0d0 ---
.pc = $a0d0 "Segment $a0d0"
        brk

// --- Region $bcd0-$bcd0 ---
.pc = $bcd0 "Segment $bcd0"
        brk

// --- Region $c900-$c942 ---
.pc = $c900 "sub_c900"
// Referenced by: jsr from $cafa

sub_c900:
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$1b
        sta $d011
        lda #$62
        sta $d012
        lda #$50
        sta $02
        lda #$cb
        sta $03
        lda #$07
        sta $04
        lda #$50
        sta $05
        lda #$cd
        sta $06
        lda #$50
        sta $0314
        lda #$c9
        sta $0315
        lda #$07
        sta $07
        lda #$04
        sta $02aa
        lda #$c1
        sta $0318
        cli
        rts

// --- Region $c950-$cb01 ---
.pc = $c950 "irq_c950"
irq_c950: {
        ldy #$08
        jsr sub_cad5
        lda $04
        sta $d016
        lda #$15
        sta $d018
        ldy #$00
        ldx #$01
        lda #$6a
loop1:
        cmp $d012
        bne loop1
        ldy #$08
        jsr sub_cad5
        nop
        lda dat_cb00
        sta $d021
        sta $d020
        ldy #$00
        ldx #$01
        nop
        nop
        nop
loop2:
        lda dat_cb00,x
        sta $d021
        sta $d020
        ldy $cb18,x
loop3:
        dey
        bne loop3
        inx
        cpx #$18
        bne loop2
        nop
        nop
        lda #$00
        sta $d020
        sta $d021
        lda #$07
        sta $d016
        dec $04
        dec $04
        lda $04
        cmp #$ff
        bne skip3
        lda #$07
        sta $04
        ldx #$00
loop4:
        lda $0541,x
        sta $0540,x
        inx
        cpx #$27
        bne loop4
        ldy #$00
        lda ($02),y
        beq skip2
        ora #$80
        sta $0567
        inc $02
        bne skip1
        inc $03
skip1:
        jmp $c9dd
skip2:
        lda #$50
        sta $02
        lda #$cb
        sta $03
        jmp $c9c0
skip3:
        ldx #$00
loop6:
        lda $cb30,x