← #591 Top 1024 #593 →
#592

Alpha Flight 1970 [AFL] 12

Alpha Flight 1970 [AFL]

4.243 lines of code

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

History

Group
Alpha Flight 1970 — Germany, founded April 1985

An undated crack intro from Alpha Flight 1970, the long-running German group founded in April 1985 and commonly abbreviated AFL. No CSDb release data could be retrieved for this specific production, though Alpha Flight's broader catalogue on CSDb is extensive -- spanning demos, crack intros, and magazine disks across decades of activity. The twelfth numbered entry in AFL's intro series, this sits among the group's lower-ranked productions in this collection. Higher-placed entries include #49 AFL-09 from 1994 and #131 AFL-08. Alpha Flight's "1970" suffix became an iconic identifier, distinguishing them from other groups sharing the name. The group's roster over the years included coders such as Leeway and Xenox, though credits for this particular intro remain unknown. AFL's sustained output -- reaching well over sixty numbered intros -- reflects both organisational stability and a continuous pipeline of contributors across the group's active years.

Sources: intros.c64.org · CSDb

afl-12.asm 4.243 lines
// ============================================
// output - Disassembled Source
// ============================================
// 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:  $2300 (8960)
// IRQ handler:  $2400 (irq_2400)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 3610 bytes, Data: 59878 bytes
// Labels: 446, Subroutines: 41
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$081a ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $fe3c

sub_0814:
        .byte $fc,$fc,$f8                           // nop $f8fc,x // ILLEGAL
        .byte $f7,$0f                               // isc $0f,x // ILLEGAL

dat_0819:
        .byte $3a,$7c                               // :|

// --- Region $09c9-$09ce ---
.pc = $09c9 "Program $09c9"
        .byte $3a                                   // nop // ILLEGAL
        .byte $7c,$7c,$7c                           // nop $7c7c,x // ILLEGAL

dat_09cd:
        .byte $7c,$3a                               // |:

// --- Region $1000-$1249 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1e04, $eb74

sub_1000:
        jmp loc_11dc

// Referenced by: jsr from $249c, $ee1e
sub_1003: {
        lda $1700
        beq done
        jsr sub_1017
        ldx #$18
loop:
        lda $170c,x
        sta $d400,x
        dex
        bpl loop
done:
        rts
}
// Referenced by: jsr from $1008

sub_1017:
        lda $1721
        clc
        adc $167b
        sta $1721
        cmp #$07
        bcc loc_102b
        and #$07
        sta $1721
        sec

loc_102b:
        lda $1722
        adc $167c
        sta $1722
        ldx #$00

loc_1036:
        ldy $1701,x
        sty $fe
        stx $ff
        lda $16a2,x
        clc
        adc #$01
        cmp $166a,y
        bcc loc_105c
        inc $16a5,x
        lda $1693,x
        clc
        adc #$01
        cmp #$03
        bcc loc_1057
        lda #$00

loc_1057:
        sta $1693,x
        lda #$00

loc_105c:
        sta $16a2,x
        inc $168a,x
        lda $16fa,x
        sta $fc
        lda $16f7,x
        sta $fd

loc_106c:
        ldy #$00
        lda ($fc),y
        sec
        sbc #$01
        cmp #$21
        bcs loc_1095
        tay
        lda tbl_lo_1561,y
        sta smc_108d                                // SMC: modifies $108d
        lda tbl_hi_1582,y
        sta smc_108e                                // SMC: modifies $108e
        ldy #$01
        lda ($fc),y
        ldy $fe
        ldx $ff
.label smc_108d = * + 1
.label smc_108e = * + 2
        jsr sub_1345                                // !SMC: modified by $107b, $1081
        jsr sub_1555
        jmp loc_106c

loc_1095:
        ldx $fe
        ldy $ff
        lda $1666,x
        beq loc_10c6
        lda $167e,y
        beq loc_10a6
        jsr sub_1359

loc_10a6:
        lda $168d,y
        beq loc_10ae
        jsr sub_141c

loc_10ae:
        lda $166b,x
        beq loc_10b6
        jsr sub_13b3