#463

Alpha Flight 1970 [AFL] 11

Alpha Flight 1970 [AFL]

6.306 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Group
Alpha Flight 1970 — Germany, founded April 1985

Another entry from Alpha Flight 1970's extensive numbered intro series, with no specific CSDb release match confirmed. The intros.c64.org listing drew comments from Leeway, Shokray, and notably Skid Row -- identified as an ex-Alpha Flight 1970 member -- suggesting this intro holds nostalgic significance for former group members. Alpha Flight 1970 was founded in Germany in April 1985 and maintained an active presence spanning nearly the entire lifetime of the C64 scene. The group's CSDb catalogue is vast, encompassing crack intros, demos, and disk magazines. AFL's deep roster over the years included coders like Leeway, artists like RRR, and organisers like Xenox, though which members contributed to this particular intro is unknown. The group is represented elsewhere in these rankings with entries such as #49 AFL-09 and #131 AFL-08. Alpha Flight is frequently named in greetings scrolltexts from contemporaries including Fairlight, Nostalgia, and Chromance.

Sources: intros.c64.org · CSDb

afl-11.asm 6.306 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:07
// 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)
// IRQ handler:  $0964 (irq_0964)
//
// Code: 2916 bytes, Data: 60572 bytes
// Labels: 531, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0b25 ---
.pc = $0810 "main_0810"

main_0810:
        jsr sub_6400
        jsr sub_0f00
        sei
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$a8
        sta $d012
        lda #$64
        sta $0314
        lda #$09
        sta $0315
        lda #$c1
        cli

loc_0838:
        jmp loc_0838

loc_083b:
        lda #$0b
        sta $d011
        jsr $fd15
        jsr $fda3
        lda #$00
        sta $0286
        jsr loc_e544
        lda #$00
        sta $d020
        sta $d021
        ldx #$00
        txa

loc_0859:
        sta $3180,x
        sta $3200,x
        sta $3300,x
        sta $3400,x
        sta $3500,x
        sta $3600,x
        sta $3700,x
        sta $3800,x
        sta $3900,x
        sta $3a00,x
        sta $3b00,x
        sta $3c00,x
        sta $3d00,x
        sta $3e00,x
        sta $3f00,x
        sta $0630,x
        sta $da30,x
        inx
        bne loc_0859
        lda #$00
        sta dat_0d3c
        sta $03

loc_0896:
        jsr sub_0d3d
        inc $03
        lda $03
        bne loc_0896
        ldx #$00

loc_08a1:
        lda #$08
        sta spr_d800,x
        lda #$00
        sta $0400,x
        inx
        cpx #$a0
        bne loc_08a1
        ldx #$1f

loc_08b2:
        lda #$01
        sta $d91c,x
        sta $d944,x
        lda #$20
        sta $051c,x
        sta $0544,x
        dex
        bpl loc_08b2
        ldx #$00
        jsr sub_1000
        jsr sub_0959
        lda #$00
        sta $0cb2
        lda #$ff
        sta $d015
        sta $d01c
        lda #$06
        ldx #$0e
        ldy #$0f
        stx $d025
        sty $d026
        sta $d027
        sta $d028
        sta $d029
        sta $d02a
        sta $d02b
        sta $d02c
        sta $d02d
        sta $d02e
        lda #$00
        ldx #$1f
        sta smc_0afb                                // SMC: modifies $0afb
        sta smc_0b08                                // SMC: modifies $0b08
        sta smc_0b15                                // SMC: modifies $0b15
        sta smc_0b7f                                // SMC: modifies $0b7f
        stx smc_0b8c                                // SMC: modifies $0b8c
        sta smc_0b8e                                // SMC: modifies $0b8e
        sta smc_0bea                                // SMC: modifies $0bea
        sta smc_0bf7                                // SMC: modifies $0bf7
        sta smc_0bf9                                // SMC: modifies $0bf9
        sta smc_09ba                                // SMC: modifies $09ba
        sta dat_0d3c
        ldx #$10
        stx $0b5a
        inx
        stx $0b5c
        lda #$03
        sta smc_0ce1                                // SMC: modifies $0ce1
        lda #$e0
        sta smc_0d39                                // SMC: modifies $0d39