#41

Alpha Flight 1970 [AFL] 09

Name: Alpha Flight 1970 [AFL] 09
Availability: InStock
Author: Alpha Flight 1970

Alpha Flight 1970 [AFL]

6.685 lines of code

RasterbarsRSTRMusicSIDBitmapBMAP

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

History

Released: 1994
Code: Leeway
Graphics: RRR
Music: Leeway's Intro Tune by Arne (Arne Puszelski)
Group: Alpha Flight 1970 — Germany, founded April 1985

Ranked #41 on intros.c64.org, this Alpha Flight release is catalogued on CSDb as "AFL Intro" and dated 1994. CSDb credits Leeway for the code, RRR for graphics and Arne — Arne Puszelski — for the music. The SID tune is titled "Leeway's Intro Tune" — an in-group dedication to the coder — and is preserved in the HVSC under Puszelski's composer directory. Doc Snyder's page for Alpha Flight 1970 exists but carries no section confirmed to match this specific intro. Alpha Flight 1970 were a German group founded in April 1985, and this mid-1990s release places them among the longest-running cracking groups still producing new intros on the platform.

Sources: CSDb · docsnyderspage

afl-09.asm 6.685 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:  $5400 (21504)
// IRQ handler:  $54f9 (irq_54f9)
//
// Code: 6402 bytes, Data: 57086 bytes
// Labels: 609, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $0a0a-$0a1b ---
.pc = $0a0a "Program $0a0a"
        ror $56
        ror $66
        tax
        .byte $ff,$ff,$5b                           // isc $5bff,x // ILLEGAL
        ror $5b
        ror $5a
        .byte $ab,$ff                               // lax #$ff // ILLEGAL
        .byte $ff,$9b,$6b                           // isc $6b9b,x // ILLEGAL

dat_0a1b:
        .byte $6f                                   // o

// --- Region $0d00-$0d30 ---
.pc = $0d00 "loc_0d00"

loc_0d00:
        sei
        jsr $fd15
        jsr $fda3
        jsr $e518
        lda #$00
        sta $d020
        sta $d021
        tax

loc_0d13:
        lda $0d40,x
        sta $0400,x
        lda #$0f
        sta $d800,x
        inx
        cpx #$78
        bne loc_0d13
        ldx #$3f

loc_0d25:
        lda $0dc0,x
        sta $02c0,x
        dex
        bpl loc_0d25
        jmp $02c0

// --- Region $1000-$100c ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $54d2, $fbf7

sub_1000:
        jmp loc_1066

dat_1003:
        .byte $4c,$ea,$10,$4c,$fe,$10               // L..L..
// Referenced by: jsr from $551a, $fc40

sub_1009:
        jmp loc_101e

txt_100c:
        .text "("

// --- Region $101e-$10fd ---
.pc = $101e "loc_101e"

loc_101e:
        bit dat_15f1
        bmi loc_1065
        bvs loc_106e
        lda #$00
        ldx #$00
        ldy #$00
        jsr sub_1107
        lda #$01
        ldx #$07
        ldy #$25
        jsr sub_1107
        lda #$02
        ldx #$0e
        ldy #$4a
        jsr sub_1107
        dec $15f6
        bpl loc_104b
        lda $15f2
        sta $15f6

loc_104b:
        lda $15f8
        sta $d416
        lda $15f9
        ora #$f0
        sta $d417
        lda $dd0e
        cmp #$01
        beq loc_1065
        lda #$1f
        sta $d418

loc_1065:
        rts

loc_1066:
        and #$3f
        ora #$40
        sta dat_15f1
        rts

loc_106e:
        jsr sub_10ea
        lda #$00
        ldx #$72

loc_1075:
        sta $15f6,x
        dex
        bpl loc_1075
        lda dat_15f1
        and #$3f
        sta dat_15f1
        sta $15fa
        sta $161f
        sta $1644
        asl
        sta $15f7
        asl
        clc
        adc $15f7
        tax
        lda $1677,x
        sta $15fb
        lda $1678,x