← #500 Top 1024 #502 →
#501

Rage for Order [RFO] 03

Rage for Order [RFO]

3.597 lines of code

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

History

Released
April 1989
Group
Rage for Order — USA, founded February 1989

The third crack intro from Rage for Order — a short-lived American cracking and import group active for just six months in 1989. According to CSDb (group ID 1257), RFO was founded in February 1989 and dissolved by August of the same year, yet managed approximately 95 releases during that brief window. This intro dates to April 1989 and was coded and designed by Image, a member also affiliated with Havok. The music is "Can't Stop" by JCH of Channel 42 and Dominators, while the charset was contributed by Moonray of The Shadows. The scrolltext identifies members Asterix, Phantasm, Green Griffon, Spectrum, and Lord Loki, and sends greetings to groups including ATC, Mayhem, and overseas allies Ikari and Fire Eagle. Despite RFO's fleeting existence, the group fielded 24 members across coding, cracking, importing, and sysop roles — a substantial roster for a crew that lasted barely half a year.

Sources: CSDb · CSDb — Group · intros.c64.org

rfo-03.asm 3.597 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:39
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0900 (2304)
// IRQ handler:  $092e (irq_092e)
// IRQ handler:  $09a2 (irq_09a2)
// IRQ handler:  $0a52 (irq_0a52)
// IRQ handler:  $0b0b (irq_0b0b)
// IRQ handler:  $0bd1 (irq_0bd1)
// IRQ handler:  $1712 (irq_1712)
//
// Code: 2859 bytes, Data: 60628 bytes
// Labels: 300, Subroutines: 5
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0848-$0862 ---
.pc = $0848 "loc_0848"

loc_0848:
        lda ($2f),y
        rol
        rol
        rol
        rol
        and #$07
        tax
        lda $011a,x
        sta $0118
        lda ($2f),y
        and #$1f
        tax
        jsr $0122
        jmp $01ff

dat_0862:
        .byte $a4                                   // .

// --- Region $086f-$08de ---
.pc = $086f "loc_086f"

loc_086f:
        bmi loc_08d1
        lda ($2f),y
        jsr $0122

loc_0876:
        sta ($2d),y
        inc $2d
        bne loc_087e
        inc $2e

loc_087e:
        dex
        bne loc_0876
        beq loc_0848
        lda #$00
        beq loc_0876
        lda #$ff
        bne loc_0876

loc_088b:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_0895
        inc $30

loc_0895:
        inc $2d
        bne loc_089b
        inc $2e

loc_089b:
        dex
        bne loc_088b
        beq loc_0848
        jsr $0171
        lda ($2f),y
        jsr $0122

loc_08a8:
        sta ($2d),y
        inc $2d
        bne loc_08b0
        inc $2e

loc_08b0:
        dex
        bne loc_08a8
        dec $39
        bpl loc_08a8
        bmi loc_0848
        stx $39
        lda ($2f),y
        tax
        jmp $0122

loc_08c1:
        jsr $0171

loc_08c4:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_08ce
        inc $30

loc_08ce:
        inc $2d
.label loc_08d1 = * + 1
        bne loc_08d4
        inc $2e

loc_08d4:
        dex
        bne loc_08c4
        dec $39
        bpl loc_08c4
        jmp $0100

dat_08de:
        .byte $2c                                   // ,

// --- Region $0900-$0981 ---
.pc = $0900 "main_0900"

main_0900:
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$1b
        sta $d011
        lda #$2e
        sta $0314
        lda #$09
        sta $0315