← #911 Top 1024 #913 →
#912

Alpha Flight 1970 [AFL] 60

Alpha Flight 1970 [AFL]

2.309 lines of code

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

History

Group
Alpha Flight 1970 — Germany, founded April 1985

One of the highest-numbered intros catalogued from Alpha Flight 1970, the sixtieth entry in their crack intro series. The sheer intro count attests to AFL's extraordinary production volume over decades of activity. No CSDb release match was confirmed for this specific production, though Alpha Flight's CSDb catalogue is among the largest of any C64 group -- encompassing crack intros, demos, disk magazines, and productions continuing into the 2020s. Alpha Flight 1970 was a German group founded in April 1985, and their "1970" suffix became an iconic part of their identity. A comment from Marci on intros.c64.org in 2019 confirms continued interest in the group's back catalogue. This ranks well below the group's strongest entries -- #49 AFL-09 and #131 AFL-08 -- but its survival in the rankings reflects community appreciation for AFL's sustained presence in the scene.

Sources: intros.c64.org · CSDb

afl-60.asm 2.309 lines
// ============================================
// output - Part 1 of 3
// ============================================
// 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: $4400  (15361 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $3800 (14336)
//
// Code: 1142 bytes, Data: 14219 bytes
// Labels: 258, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $0963-$09cc ---
.pc = $0963 "loc_0963"

loc_0963:
        sta $bc03
        ror $03
        bpl loc_0992
        lda $0ce0,y
        sta $fe
        lda $0ce9,y
        sta $ff
        ldy $0396,x
        iny
        lda ($fe),y
        bpl loc_0987
        cmp #$81
        beq loc_0983
        bcs loc_0987
        rts

loc_0983:
        iny
        lda ($fe),y
        tay

loc_0987:
        tya
        sta $0396,x
        lda ($fe),y
        clc
        adc $0366,x
        tay

loc_0992:
        lda $0c21,y
        sta $0399,x
        sec
        sbc $0c20,y
        sta $fe
        lda $0c81,y
        sta $039c,x
        sbc $0c80,y
        ldy $0369,x
        beq loc_09cb
        lsr
        ror $fe
        lsr
        ror $fe
        lsr
        sta $ff
        ror $fe

loc_09b7:
        lda $0399,x
        sec
        sbc $fe
        sta $0399,x
        lda $039c,x
        sbc $ff
        sta $039c,x
        dey
        bne loc_09b7

loc_09cb:
        rts

dat_09cc:
        .byte $84                                   // .

// --- Region $1201-$1243 ---
.pc = $1201 "sub_1201"
// Referenced by: jsr from $1a94

sub_1201:
        and #$ce
        and #$cf
        and #$29
        dec $cf29
        and #$ce
        and #$cf
        and #$ff
        sty $ce
        rol $2ecf
        rol $2ece
        .byte $82,$cf                               // nop #$cf // ILLEGAL
        rol $2e86
        sty $ce
        rol $2ecf
        rol $2ece
        .byte $cf,$2e,$2e                           // dcp $2e2e // ILLEGAL
        dec $cf2e
        rol $2ece
        .byte $cf,$2e,$ff                           // dcp $ff2e // ILLEGAL
        sty $d4
        sbc ($2b,x)
        .byte $cf,$2b,$2b                           // dcp $2b2b // ILLEGAL
        .byte $d4,$e2                               // nop $e2,x // ILLEGAL
        and #$cf
        and #$29
        .byte $d4,$e1                               // nop $e1,x // ILLEGAL
        .byte $2b,$cf                               // anc #$cf // ILLEGAL

txt_1242:
        .text "++"

// --- Region $1278-$127d ---
.pc = $1278 "loc_1278"

loc_1278:
        pla
        bvs loc_12eb
        jmp ($d282)

// --- Region $1295-$129a ---
.pc = $1295 "loc_1295"

loc_1295:
        pla
        bvs loc_1308
        jmp ($d282)

// --- Region $12b2-$12b7 ---
.pc = $12b2 "loc_12b2"

loc_12b2:
        pla
        bvs loc_1325
        jmp ($d282)

// --- Region $12cf-$12d4 ---
.pc = $12cf "loc_12cf"