← #302 Top 1024 #304 →
#303

Armageddon 01

Armageddon

3.449 lines of code

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

History

Released
21 May 1992
Code
Moloch
Music
Deathangel's Shadow (C. Anderson) — "Lithium"
Graphics
Carcass, The Infiltrator
Group
Armageddon — United States, founded 1991

The first numbered intro from Armageddon, an American cracking group founded in 1991. Moloch coded the intro — the same programmer responsible for #262 Armageddon-04 — while Carcass and The Infiltrator split graphics duties and Deathangel's Shadow (C. Anderson) provided the music with his composition "Lithium," preserved in the HVSC. Released on 21 May 1992, this intro appeared during a period when American C64 cracking activity was winding down as the platform gave way to Amiga and PC. The four-person credited team — with two dedicated graphicians — suggests Armageddon invested in visual presentation. The use of a dedicated musician handle like "Deathangel's Shadow" reflects the heavy metal-influenced naming conventions common among early 1990s American scene groups. Armageddon later collaborated with the Hungarian group Chromance on joint releases.

Sources: CSDb

armageddon-01.asm 3.449 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:16
// 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:  $2a00 (10752)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $2a2d (irq_2a2d)
// IRQ handler:  $2a77 (irq_2a77)
// IRQ handler:  $2ab4 (irq_2ab4)
//
// Code: 3089 bytes, Data: 60399 bytes
// Labels: 363, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1080 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1007, $2cbe, $ed00, $fd1c

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $1011, $2afc, $ed0a, $fb56

sub_1003:
        jmp loc_1021

loc_1006:
        sei
        jsr sub_1000

loc_100a:
        lda #$ff

loc_100c:
        cmp $d012
        bne loc_100c
        jsr sub_1003
        lda $dc01
        and #$10
        bne loc_100a
        sta $d418
        cli
        rts

dat_1020:
        .byte $00                                   // .

loc_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $fe,$ff,$ff                           // ...

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c, $ed36

sub_103f:
        inx
// Referenced by: jsr from $1039, $ed33

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226

loc_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0, $edba

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda $1893,y
        sta $fa
        lda $1855,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f
        sta $108a,x
        lda #$fe
        sta dat_1031,x
        jsr sub_1098

loc_10c3:
        jmp loc_1187