← #183 Top 1024 #185 →
#184

Alpha Flight 1970 [AFL] 13

Alpha Flight 1970 [AFL]

2.882 lines of code

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

History

Group
Alpha Flight 1970 — Germany, founded April 1985

The thirteenth numbered crack intro from Alpha Flight 1970, one of Germany's most enduring cracking groups. Founded in April 1985, AFL maintained an active presence spanning nearly the entire lifetime of the C64 scene and beyond. No specific CSDb release has been matched to this intro, though Alpha Flight's CSDb catalogue runs to hundreds of entries across multiple release types. The intros.c64.org listing attracted attention from Jazzcat of Onslaught -- a prolific scene archivist -- confirming the intro's recognition within the broader community. Alpha Flight's other ranked entries provide context for their output quality: #49 AFL-09 from 1994 featured Leeway coding with music by Arne Puszelski, while #294 AFL-02 from 2013 demonstrates the group's remarkable longevity. The "1970" suffix distinguished Alpha Flight from other groups using the name -- a reference whose exact origin remains debated among scene historians.

Sources: intros.c64.org · CSDb

afl-13.asm 2.882 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:15
// 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:  $0a00 (2560)
// IRQ handler:  $0b15 (irq_0b15)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2235 bytes, Data: 61253 bytes
// Labels: 268, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $0a00-$0af2 ---
.pc = $0a00 "main_0a00"

main_0a00:
        jsr $ff81
        lda #$20
        ldx #$00

loc_0a07:
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $06e8,x
        inx
        cpx #$00
        bne loc_0a07
        lda #$00
        tax

loc_0a1b:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $dae8,x
        inx
        cpx #$00
        bne loc_0a1b
        lda #$00
        sta smc_0b66                                // SMC: modifies $0b66
        sta smc_0b80                                // SMC: modifies $0b80
        sta $d020
        sta $d021
        lda #$80
        sta smc_0bba                                // SMC: modifies $0bba
        lda #$0c
        sta smc_0bbb                                // SMC: modifies $0bbb
        ldx #$00

loc_0a46:
        lda dat_2920,x
        sta $0400,x
        lda $2940,x
        sta $0420,x
        lda $2a60,x
        sta $d800,x
        lda $2a88,x
        sta $d820,x
        inx
        cpx #$00
        bne loc_0a46
        lda #$00
        tax
        tay
        jsr sub_1000
        lda #$02
        sta $d010
        ldx #$30
        stx $07f8
        inx
        stx $07f9
        lda #$03
        sta $d01c
        sta $d015
        lda #$07
        sta $d025
        lda #$01
        sta $d026
        lda #$0f
        sta $d027
        sta $d028
        lda #$48
        sta $d000
        lda #$00
        sta $d002
        lda #$68
        sta $d001
        sta $d003
        sei
        lda #$00
        sta $02
        ldx #$00
        stx $dc0e
        inx
        stx $d01a
        lda #$0b
        sta $0315
        lda #$15
        sta $0314
        cli

loc_0abd:
        lda $dc01
        cmp #$ef
        bne loc_0abd
        lda #$ea
        ldx #$31
        sta $0315
        stx $0314
        jsr $ff81
        jsr $ff84
        jsr $ff8a
        ldx #$00

loc_0ad9:
        lda dat_2ba0,x
        sta $0400,x
        inx
        cpx #$28
        bne loc_0ad9

loc_0ae4:
        lda dat_0af2,x
        sta $0100,x
        inx
        cpx #$25
        bne loc_0ae4
        jmp $0100

dat_0af2:
        .byte $78                                   // x

// --- Region $0b15-$0bd9 ---
.pc = $0b15 "irq_0b15"
irq_0b15: {
        lda #$30
        sta $d012
        jsr sub_0b2f
        lda #$00
loop: