#271

Alpha Flight 1970 [AFL] 20

Alpha Flight 1970 [AFL]

3.673 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Group
Alpha Flight 1970 — Germany, founded April 1985

Alpha Flight 1970 Intro #20 is a crack intro from the long-running German group founded in April 1985 -- one of the most prolific and enduring outfits in C64 scene history. No specific CSDb release could be matched, leaving credits for code, music, and graphics unidentified. The intros.c64.org listing drew comments from group members The Murphy and Xenox, along with scene figures Zyron and CenTraX. Alpha Flight's CSDb catalogue is vast, encompassing not only crack intros but also demos and disk magazines spanning decades. The group's extensive output is well represented across this ranking, with entries ranging from #49 AFL-09 to lower-ranked productions like #912 AFL-60. The high intro number -- twenty -- attests to AFL's sustained production volume, and the group eventually produced over sixty numbered intros. Alpha Flight's connections extended across the European scene, with frequent mentions in greetings from Fairlight, F4CG, and Onslaught.

Sources: intros.c64.org · CSDb

afl-20.asm 3.673 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)
// Entry point:  $4720 (18208)
// IRQ handler:  $4799 (irq_4799)
// IRQ handler:  $1fff (nmi_1fff)
//
// Code: 3816 bytes, Data: 59672 bytes
// Labels: 373, Subroutines: 22
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0818 ---
.pc = $0814 "Program $0814"
        ror $7e77,x
// Referenced by: jsr from $0a2a

sub_0817:
        brk

dat_0818:
        .byte $00                                   // .

// --- Region $090c-$0916 ---
.pc = $090c "sub_090c"
// Referenced by: jsr from $0a1d

sub_090c:
        bvs loc_090e

loc_090e:
        bvs loc_0910

loc_0910:
        brk

dat_0911:
        .byte $00,$77,$77                           // .ww
        ora ($00),y
        brk

// --- Region $0a0a-$0a56 ---
.pc = $0a0a "Program $0a0a"
        .byte $0f,$15,$20                           // slo $2015 // ILLEGAL
        php
        ora ($16,x)
        ora $20
        .byte $14,$08                               // nop $08,x // ILLEGAL
        ora $20
        .byte $14,$09                               // nop $09,x // ILLEGAL
        ora $2005
        .byte $14,$0f                               // nop $0f,x // ILLEGAL
        jsr sub_090c
        .byte $13,$14                               // slo ($14),y // ILLEGAL
        ora $0e
        jsr sub_0f14
        jsr sub_190d
        jsr sub_0817
        ora #$0e
        ora $20
        ora ($02,x)
        .byte $0f,$15,$14                           // slo $1415 // ILLEGAL
        jsr sub_0f0e
        .byte $14,$08                               // nop $08,x // ILLEGAL
        ora #$0e
        .byte $07,$20                               // slo $20 // ILLEGAL
        ora ($0e,x)
        .byte $04,$20                               // nop $20 // ILLEGAL
        ora $16
        ora $12
        ora $0814,y
        ora #$0e
        .byte $07,$20                               // slo $20 // ILLEGAL
        ora ($0c,x)
        .byte $0c,$20,$01                           // nop $0120 // ILLEGAL
        .byte $14,$20                               // nop $20,x // ILLEGAL

txt_0a55:
        .encoding "screencode_mixed"
        .text "on"
        .encoding "petscii_upper"

// --- Region $0c01-$0c11 ---
.pc = $0c01 "Program $0c01"
        ora #$13
        jsr $0107
        ora $2005
        ora #$13
        jsr sub_1506
        .byte $0c,$0c,$10                           // nop $100c // ILLEGAL
        .byte $12                                   // jam // ILLEGAL

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

// --- Region $0e0f-$0e0f ---
.pc = $0e0f "Program $0e0f"
        brk

// --- Region $0f0e-$0f14 ---
.pc = $0f0e "sub_0f0e"
// Referenced by: jsr from $0a36

sub_0f0e:
        brk

dat_0f0f:
        .byte $00,$00,$00,$00,$00                   // .....
// Referenced by: jsr from $0a24

sub_0f14:
        brk

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

sub_1000:
        jmp loc_1040
// Referenced by: jsr from $4755, $4790, $47f1, $fbbc, $fbf7, $fc58

sub_1003:
        jmp loc_1095

dat_1006:
        .byte $4c                                   // L

// --- Region $1040-$1718 ---
.pc = $1040 "loc_1040"

loc_1040:
        lda #$00
        asl
        tay
        ldx #$00

loc_1046:
        lda $18d3,y
        sta $17d9,x
        lda $18d4,y