← #261 Top 1024 #263 →
#262

Armageddon 04

Armageddon

2.167 lines of code

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

History

Released
14 June 1992
Code
Moloch
Music
Cane (Akos Makrai)
Graphics
D Cipher
Group
Armageddon — United States, founded 1991

Armageddon Intro #4, released on 14 June 1992, is a crack intro from the American group Armageddon. The intro was coded by Moloch, with graphics by D Cipher and music by Cane -- the Hungarian musician Akos Makrai, whose SID tune "Competition" provides the soundtrack. Armageddon was founded in 1991 in the United States and operated primarily in the North American cracking scene, maintaining connections with European groups. Their collaboration with the Hungarian group Chromance produced #266 Chromance+Armageddon Intro, a cooperative release from March 1993. The use of a Hungarian musician for this intro further highlights the transatlantic connections the group cultivated. This intro represents one of several Armageddon productions catalogued on intros.c64.org, demonstrating the group's steady output during its active years in the early 1990s.

Sources: CSDb · intros.c64.org

armageddon-04.asm 2.167 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: $39ff  (12800 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2200 (8704)
// IRQ handler:  $223d (irq_223d)
// IRQ handler:  $226f (irq_226f)
// IRQ handler:  $22d1 (irq_22d1)
// IRQ handler:  $22f5 (irq_22f5)
// IRQ handler:  $2385 (irq_2385)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2055 bytes, Data: 10745 bytes
// Labels: 215, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $0dd0-$0e01 ---
.pc = $0dd0 "Program $0dd0"
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        jsr sub_2020
        brk

dat_0e01:
        // === Fill data (1 bytes, $0e01-$0e01) ===
        .byte $00                                   // .

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2595

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $2263

sub_1003:
        jmp loc_1021

txt_1006:
        .text " "

// --- Region $1021-$1080 ---
.pc = $1021 "loc_1021"

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

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

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

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

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 $108d-$10c6 ---
.pc = $108d "Segment $108d"
        and ($14,x)
        brk

dat_1090:
        .byte $01                                   // .

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

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

loc_10a1:
        lda $19c1,y
        sta $fa
        lda $1983,y
        sta $fb