#171

Exodus 13

Exodus

2.170 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
27 May 1989
Code
Stormbringer
Music
Fred Gray — "ShadowFire" (ripped)
Group
Exodus — United States, founded June 1988

Stormbringer coded yet another Exodus intro — his thirteenth in the numbered series, demonstrating extraordinary solo productivity. Fred Gray's "ShadowFire" provides the ripped music — the same Gray tune that appears in #64 Empire. Released on 27 May 1989, this came during Exodus's most active period. The HVSC preserves Gray's composition. Stormbringer's output for Exodus was remarkable — producing over a dozen intros in under a year while simultaneously coding for #148 North East Crackers. Exodus was founded in June 1988 in the US and Doc Snyder's page documents their full catalogue. Gray's "ShadowFire" — with its moody, atmospheric quality — was a popular choice for crack intros seeking a cinematic tone.

Sources: CSDb · docsnyderspage

exodus-13.asm 2.170 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:19
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2d3f  (9536 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1a00 (6656)
// IRQ handler:  $1b2f (irq_1b2f)
// IRQ handler:  $ea86 (nmi_ea86)
//
// Code: 1676 bytes, Data: 7860 bytes
// Labels: 211, Subroutines: 17
//
// Cross-references: all OK
// ============================================


// --- Region $1020-$10b8 ---
.pc = $1020 "sub_1020"

// Referenced by: jsr from $1204, $1354, $1386, $1577, $16c9, $1703, $1909
sub_1020: {
        sta $101d
        inc $101b
        lda $101b
        cmp $101d
        bne done
        lda #$00
        sta $101b
done:
        rts
}

// Referenced by: jsr from $124e, $135f, $1397, $1582, $16d4, $1714, $1914
sub_1034: {
        bne skip
        rts
skip:
        asl
        tax
        lda dat_10b9,x
        sta $d407
        sta $19bd
        inx
        lda dat_10b9,x
        sta $19be
        sta $d408
        dex
        txa
        clc
        adc #$18
        tax
        lda dat_10b9,x
        sta $19bf
        inx
        lda dat_10b9,x
        sta $19c0
        lda $19c5
        sta $d40b
        inc $d40b
        rts
}

// Referenced by: jsr from $1254, $1365, $1391, $1588, $16da, $170e, $191a
sub_1069: {
        bne skip
        rts
skip:
        asl
        tax
        lda dat_10b9,x
        eor #$08
        sta $d40e
        inx
        lda dat_10b9,x
        sta $d40f
        lda $19c5
        sta $d412
        inc $d412
        rts
}

// Referenced by: jsr from $136b, $139d, $158e, $16e0, $171a, $1920
sub_1087: {
        bne skip
skip:
        asl
        tax
        lda dat_10b9,x
        eor #$00
        sta $d400
        inx
        lda dat_10b9,x
        sta $d401
        lda #$20
        sta $d404
        lda #$21
        sta $d404
        rts
}
// Referenced by: jsr from $1259, $1373, $13a5, $1596, $16e8, $171f, $1928, $1956

sub_10a5:
        sta $101e
        inc $101c
        lda $101c
        cmp $101e
        bne loc_10b8
        lda #$00
        sta $101c

loc_10b8:
        rts

// --- Region $1127-$1170 ---
.pc = $1127 "loc_1127"

loc_1127:
        dec $5e,x
        jsr sub_172f
        jmp $ea31
// Referenced by: jsr from $1b71

sub_112f:
        lda #$0f
        sta $d418
        lda #$00
        sta $d417
        sta $d406
        sta $d40d
        sta $d414
        jsr sub_196b
        lda $1000
        bmi loc_1157
        ldx #$00
        stx $101b
        stx $101c
        ora #$80
        sta $1000

loc_1157:
        and #$7f
        sta $101f
        asl
        clc
        adc $101f