← #130 Top 1024 #132 →
#131

Alpha Flight 1970 [AFL] 08

Alpha Flight 1970 [AFL]

4.494 lines of code

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

History

Group
Alpha Flight 1970 — Germany, founded April 1985

The eighth numbered intro from Alpha Flight 1970 -- one of Germany's longest-running cracking groups, founded in April 1985. No specific CSDb release has been matched to this production, leaving the coder, musician, and release date unconfirmed. Comments on intros.c64.org from group members Xenox and The Murphy indicate the intro remains recognised among AFL alumni. Alpha Flight's CSDb catalogue spans hundreds of entries -- from crack intros and demos to landmark productions like "Edge of Disgrace" -- attesting to the group's extraordinary longevity and output. The "1970" suffix became an inseparable part of their identity, distinguishing them from other groups sharing the Alpha Flight name. AFL-08 ranks alongside several other group entries in this collection, including the higher-placed #49 AFL-09 from 1994 -- coded by Leeway with music by Arne Puszelski -- which demonstrates the calibre of work AFL sustained into the C64's later years.

Sources: intros.c64.org · CSDb

afl-08.asm 4.494 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:  $1d40 (7488)
// IRQ handler:  $1d5a (irq_1d5a)
// IRQ handler:  $2b96 (nmi_2b96)
//
// Code: 4802 bytes, Data: 58686 bytes
// Labels: 485, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1de9, $f10f

sub_1000:
        jmp loc_10de
// Referenced by: jsr from $1dd1, $f0f7

sub_1003:
        jmp loc_114a

dat_1006:
        .byte $4c                                   // L

// --- Region $10de-$18c8 ---
.pc = $10de "loc_10de"

loc_10de:
        lda $18cf,y
        tay
        lda $1b69,y
        sta $1058
        lda $1b6a,y
        sta $1059
        lda #$0f
        sta $105f
        ldx #$00

loc_10f5:
        iny
        iny
        lda $1b69,y
        sta $107e,x
        sta $1081,x
        lda $1b6a,y
        sta $108a,x
        lda $1b6b,y
        sta $108d,x
        lda #$01
        sta $1055
        sta $1060,x
        sta $1057
        lda #$00
        sta $1087,x
        sta $1084,x
        sta $1090,x
        sta $106c,x
        iny
        inx
        cpx #$03
        bne loc_10f5
        sta $10dd
        sta $105d
        sta $105e
        sta $1056

loc_1137:
        sta $d404
        sta $d40b
        sta $d412
        sta $105a
// Referenced by: jsr from $1218, $1231, $e59d, $e5b6

sub_1143:
        sta $105b
        sta $105c
        rts

loc_114a:
        lda $1055
        beq loc_1137
        cld
        ldx #$02
        lda $105b
        beq loc_1167
        ldy $105f
        beq loc_1167
        dec $105c
        bne loc_1167
        sta $105c
        dec $105f

loc_1167:
        dec $1057
        bpl loc_1174
        lda $1059
        sta $1057
        bne loc_1188

loc_1174:
        dec $1056
        bpl loc_1188
        lda $1058
        sta $1056
        dec $1060
        dec $1061
        dec $1062

loc_1188:
        stx $1053
        lda $1060,x
        beq loc_1193
        jmp loc_1402

loc_1193:
        lda $108a,x
        sta $fe
        lda $108d,x
        sta $ff
        ldy $1087,x
        lda ($fe),y
        bpl loc_11e7
        cmp #$ff
        bne loc_11b3
        iny
        lda ($fe),y
        sta $1087,x
        tay
        lda ($fe),y
        bpl loc_11e7

loc_11b3:
        cmp #$c0
        bcs loc_11c7
        and #$3f
        adc $107e,x
        sta $1081,x
        inc $1087,x
        iny