← #549 Top 1024 #551 →
#550

Exodus 06

Exodus

3.231 lines of code

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

History

Released
29 June 1990
Code
Stormbringer
Music
Softmaster (Patrick Peters) — "Lambada"
Group
Exodus — United States, founded June 1988

Another Stormbringer-coded intro from Exodus — the American group's primary programmer handled multiple numbered productions. Softmaster (Patrick Peters) contributed "Lambada," preserved in the HVSC — the tune's title references the 1989 Brazilian dance craze that swept globally, dating the intro's cultural context precisely. Released on 29 June 1990, two years after Exodus's founding in June 1988. Doc Snyder's page documents the group under the tagline "The future is ours" and preserves scrolltexts showing their import and distribution activities. This is one of several Exodus entries in the rankings, alongside #143 Exodus-03. The scrolltexts from other Exodus intros reveal active trading relationships with European groups including Nato, Crazy, Fairlight, and Hotline. Exodus operated from the United States during a period when American groups were increasingly outpaced by European competition, yet they maintained credible international connections through their importing network.

Sources: CSDb · docsnyderspage

exodus-06.asm 3.231 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:22
// 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:  $1900 (6400)
// IRQ handler:  $1946 (irq_1946)
// IRQ handler:  $ea86 (nmi_ea86)
// IRQ handler:  $196c (irq_196c)
//
// Code: 3029 bytes, Data: 60459 bytes
// Labels: 381, Subroutines: 27
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0828 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $fdcf

sub_0814:
        dec $06
        .byte $fc,$00,$00                           // nop $0000,x // ILLEGAL
        .byte $fc,$06,$c0                           // nop $c006,x // ILLEGAL
        cpy #$c0
        .byte $7f,$00,$06                           // rra $0600,x // ILLEGAL
        ror $c6,x
        dec $c6
        cpy #$7f
        brk

dat_0828:
        .byte $00                                   // .

// --- Region $0b33-$0b60 ---
.pc = $0b33 "loc_0b33"

loc_0b33:
        lda $484a,y
        sta $4d49,x
        lda $484b,y
        sta $4d4c,x
        lda #$80
        sta $4d40,x
        lda #$01
.label loc_0b48 = * + 2
        sta $4d21,x
        lda #$00
        sta $4d46,x
        sta $4d4f,x
        sta $4d2b,x
        iny
        iny
        inx
        cpx #$03
        bne loc_0b33
        ldy #$18
        sty $d418
        rts

// --- Region $0c10-$0dd7 ---
.pc = $0c10 "Program $0c10"
        cpy #$44
        sty $44d8
        asl
        asl
        tay
        lda $4a24,y
        sta $d418
        lda $4a25,y
        clc
        adc $4841,x
        sta $d417
        lda $4a26,y
        sta $4db8
        sta $d416
        lda $4a27,y
        sta $44ee
        and #$7f
        sta $420e
        lda $4d61,x
        bpl loc_0c6c
        ldy $4d34,x
        lda $487a,y
        sta $50
        lda $487f,y
        sta $51
        ldy $4d5b,x
        lda ($50),y
        cmp #$ff
        beq loc_0c5d
        inc $4d5b,x
        sta $4d52,x

loc_0c5d:
        ldy $4d5e,x
        lda ($50),y
        cmp #$80
        beq loc_0c6c
        inc $4d5e,x
        sta $4d3a,x

loc_0c6c:
        ldy $4d6d,x
        beq loc_0c74
        jsr sub_43b6

loc_0c74:
        jsr sub_42d8
        lda $4d85,x
        beq loc_0cb0
        lda $4d28,x
        bne loc_0c87
        jsr sub_451c
        jmp loc_4214

loc_0c87:
        cmp $4d82,x
        bcs loc_0c8e
        bcc loc_0cb5

loc_0c8e:
        cmp $4d85,x
        bcs loc_0c99
        jsr sub_4566
        jmp loc_41d8

loc_0c99:
        lda $4d88,x
        sta $4d37,x
        lda #$00
        sta $4d85,x
        sta $4d76,x
        sta $4d79,x
        jsr sub_42d8
        jmp loc_41d8

loc_0cb0:
        lda $4d28,x
        beq loc_0d14

loc_0cb5:
        ldy $4d31,x
        lda $48d5,y