← #316 Top 1024 #318 →
#317

Rage for Order [RFO] 01

Rage for Order [RFO]

2.757 lines of code

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

History

Released
28 July 1989
Code
Phantasm
Music
Jeroen Soede — "Magic Funk"
Charset
Moonray, Tob
Group
Rage for Order — United States, founded February 1989

The sole ranked intro from Rage for Order, an American group founded in February 1989. Phantasm coded the intro, with charsets from Moonray and Tob, and music by the Dutch composer Jeroen Soede — his tune "Magic Funk," preserved in the HVSC. Soede also coded and composed for the Dutch group Fire Eagle, making his appearance here another example of European musicians supplying material to American operations. The scrolltext identifies the group's members: Asterix, Phantasm, Green Griffon, Spectrum, and Lord Loki. Greetings reach both American groups — ATC, Mayhem, NFI — and overseas connections including DCS, Ikari, Fire Eagle, and Sphinx. Released on 28 July 1989, this intro arrived during the final phase of competitive American C64 cracking. The group name references Queensryche's 1986 album, continuing the heavy metal naming tradition prevalent among US scene groups of the era.

Sources: CSDb · docsnyderspage

rfo-01.asm 2.757 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:30
// 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:  $2800 (10240)
// IRQ handler:  $286a (irq_286a)
//
// Code: 2398 bytes, Data: 61090 bytes
// Labels: 315, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $2800-$2840 ---
.pc = $2800 "main_2800"

main_2800:
        lda #$9a
        jsr $ffd2
        lda #$93
        jsr $ffd2
        jsr sub_2bf2
        jsr sub_2aea
        sei
        lda #$01
        sta $d019
        sta $d01a
        lda #$35
        sta $01
        jsr $f580
        lda #$37
        sta $01
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$2f
        sta $d012
        lda #$6a
        sta $0314
        lda #$28
        sta $0315
        cli
        jmp loc_3800

// --- Region $286a-$28d5 ---
.pc = $286a "irq_286a"

irq_286a:
        lda #$18
        sta $d018
        lda #$35
        sta $01
        ldy #$01
        ldx #$13

loc_2877:
        dey
        bne loc_2877

loc_287a:
        lda bmp_2841,x
        sta $d020
        sta $d021
        ldy $2856,x

loc_2886:
        dey
        bne loc_2886
        dex
        bne loc_287a
        nop
        stx $d020
        stx $d021
        lda bmp_28d5
        sta $d016
        jsr sub_2bac
        jsr sub_2b7c
        jsr $f583
        ldy #$a2

loc_28a4:
        cpy $d012
        bne loc_28a4
        ldy #$0a
        ldx #$01

loc_28ad:
        dey
        bne loc_28ad

loc_28b0:
        lda $28ea,x
        sta $d020
        sta $d021
        ldy $28d6,x

loc_28bc:
        dey
        bne loc_28bc
        inx
        cpx #$14
        bne loc_28b0
        sty $d020
        sty $d021
        lda #$c8
        sta $d016
        jsr sub_296b
        jmp loc_29d2

bmp_28d5:
        // === Bitmap data (1 bytes, $28d5-$28d5) ===
        .byte $d7                                   // .

// --- Region $28ff-$2a2b ---
.pc = $28ff "sub_28ff"

// Referenced by: jsr from $2a15
sub_28ff: {
        dec bmp_28d5
        dec bmp_28d5
        dec bmp_28d5
        dec bmp_28d5
        lda bmp_28d5
        cmp #$d0
        bmi skip
        rts
skip:
        lda #$d7
        sta bmp_28d5
        ldx #$00
loop:
        lda $0451,x
        sta $0450,x
        lda $0479,x
        sta $0478,x
        lda $04a1,x
        sta $04a0,x
        lda $04c9,x
        sta $04c8,x
        lda $04f1,x
        sta $04f0,x
        lda $0519,x