← #790 Top 1024 #792 →
#791

Rawhead 02

Rawhead

726 lines of code

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

History

Released
29 October 1988
Graphics
Deadline
Charset
Moonray
Music
Laxity (Thomas Petersen) — "Introtune"
Group
Rawhead — Norway, founded 1987

Rawhead's second ranked intro, released on 29 October 1988, with graphics by Deadline and a charset by Moonray. The music is Laxity's "Introtune" — a Thomas Petersen composition preserved in the HVSC. No coder is credited on CSDb for this release. Founded in Norway in 1987, Rawhead was active during the late 1980s Scandinavian scene boom. An earlier Rawhead intro appears at #375 Rawhead-01, which features a three-composer jukebox format with tunes by Jeroen Tel, OMP, and Johannes Bjerregaard — all coded by Omega Supreme. Laxity's presence here reinforces the Danish composer's ubiquity across Scandinavian crack intros of the era. The intros.c64.org listing attracted a comment from TWR Fan. The two Rawhead intros in the rankings span just two months of 1988, suggesting a concentrated period of activity for the Norwegian crew.

Sources: CSDb · HVSC

rawhead-02.asm 726 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:37
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $ffff  (63744 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0de0 (3552)
// IRQ handler:  $0e6b (irq_0e6b)
//
// Code: 197 bytes, Data: 63547 bytes
// Labels: 66, Subroutines: 0
//
// Cross-references: all OK
// ============================================


// --- Region $0de0-$0e98 ---
.pc = $0de0 "main_0de0"

main_0de0:
        lda #$c1
        sta $0318
        ldx #$00
        ldy #$7f

loc_0de9:
        lda $0380,x
        sta $0380,y
        inx
        dey
        bpl loc_0de9
        ldx #$2e
        lda #$08

loc_0df7:
        sta $07a0,x
        dex
        bpl loc_0df7
        ldx #$07

loc_0dff:
        lda #$01
        sta $07a0,x
        txa
        clc
        adc #$08
        tax
        cpx #$28
        bcc loc_0dff
        lda #$76
        sta $07a0
        ldx #$2e
        lda #$00

loc_0e16:
        sta $07d0,x
        dex
        bpl loc_0e16
        ldx #$ff

loc_0e1e:
        lda #$09
        sta $d800,x
        lda #$00
        sta $d8f0,x
        sta $d9f0,x
        sta $dae8,x
        dex
        cpx #$ff
        bne loc_0e1e
        sei
        ldx #$1f

loc_0e36:
        lda #$00
        sta $d000,x
        sta $d400,x
        dex
        bpl loc_0e36
        sta $dc0e
        lda #$12
        sta $d018
        lda #$01
        sta $d01a
        lda #$05
        sta $d022
        lda #$0d
        sta $d023
        lda #$1f
        sta $d418
        ldx #$6b
        ldy #$0e
        stx $0314
        sty $0315
        cli
        jmp $0334

irq_0e6b:
        lda #$1b
        ldx #$18
        sta $d011
        stx $d016
        ldx #$00

loc_0e77:
        ldy $07a0,x

loc_0e7a:
        dey
        bne loc_0e7a
        lda $07d0,x
        sta $d020
        sta $d021
        inx
        cpx #$2f
        bne loc_0e77
        lda #$08
        sta $d016
        lda #$93
        ldx #$97
        jmp loc_0f6d

chr_0e97:
        // === Charset data (2 bytes, $0e97-$0e98) ===
        .byte $a9,$07                               // char 0 (partial)

// --- Region $0f6d-$0f7a ---
.pc = $0f6d "loc_0f6d"

loc_0f6d:
        stx $0314
        sta $d012
        inc $d019
        jmp loc_febc

chr_0f79:
        // === Charset data (2 bytes, $0f79-$0f7a) ===
        .byte $00,$0b                               // char 0 (partial)

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

// --- Region $febc-$febc ---
.pc = $febc "loc_febc"