← #534 Top 1024 #536 →
#535

Alpha Flight 1970 [AFL] 27

Alpha Flight 1970 [AFL]

5.346 lines of code

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

History

Group
Alpha Flight 1970 — Germany, founded April 1985

The twenty-seventh numbered crack intro from Alpha Flight 1970, one of Germany's longest-running cracking groups. The intros.c64.org listing includes an external link to CSDb release #31311, providing a potential archival reference, though no full release data was retrieved during the crawl. Comments from Xenox of Alpha Flight, CenTraX, and Jazzcat of Onslaught confirm community interest in this production. Alpha Flight 1970 was founded in April 1985 and maintained activity spanning well over a decade -- their CSDb catalogue encompasses hundreds of releases across crack intros, demos, and disk magazines. The group is one of the most heavily represented in these rankings, with entries including #49 AFL-09 and #423 AFL-28. AFL's sheer volume of numbered intros -- reaching at least sixty -- reflects both organisational longevity and a continuous pipeline of coders, musicians, and graphic artists contributing new designs throughout their active years.

Sources: intros.c64.org · CSDb

afl-27.asm 5.346 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:  $0900 (2304)
// IRQ handler:  $2852 (irq_2852)
// IRQ handler:  $2bc3 (irq_2bc3)
// IRQ handler:  $0991 (irq_0991)
//
// Code: 5650 bytes, Data: 57838 bytes
// Labels: 655, Subroutines: 27
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0814 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $fdff

sub_0814:
        .byte $12                                   // jam // ILLEGAL

// --- Region $08d0-$08d0 ---
.pc = $08d0 "Program $08d0"
        brk

// --- Region $0900-$0c01 ---
.pc = $0900 "main_0900"

main_0900:
        sei
        jsr $fda3
        jsr $fd15
        cli
        lda #$1b
        sta $d011
        lda #$00
        jsr sub_1000
        lda #$00
        jsr sub_28ce
        jmp loc_2710

loc_091a:
        jsr sub_0af9
        nop
        nop
        nop
        ldx #$00
        lda #$00

loc_0924:
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loc_0924
        jsr sub_0b48
        ldx #$00

loc_0944:
        lda #$00
        sta $daa8,x
        sta $daa8,x
        sta $daf8,x
        inx
        cpx #$28
        bne loc_0944
        ldx #$00

loc_0956:
        lda #$09
        sta $d8c8,x
        sta $d940,x
        inx
        cpx #$f0
        bne loc_0956
        jsr sub_0969
        jmp loc_2a00
// Referenced by: jsr from $0963

sub_0969:
        sei
        lda #$7f
        sta $dc0d
        lda #$00
        sta $dc0e
        lda #$01
        sta $d01a
        lda #$7b
        sta $d011
        lda #$30
        sta $d012
        lda #$91
        sta $0314
        lda #$09
        sta $0315
        cli
        nop
        nop
        rts

irq_0991:
        lda #$30

loc_0993:
        cmp $d012
        bne loc_0993
.label smc_0999 = * + 1
        lda #$7b                                    // !SMC: modified by $0bfa, $2a6a
        sta $d011
        lda #$18
        sta smc_d018                                // SMC: modifies $d018
        lda #$d8
        sta $d016
        lda #$07
        sta $d022
        lda #$01
        sta $d023
        nop
        nop
        nop
        nop
        nop
        nop
        lda #$33

loc_09b9:
        cmp $d012
        bne loc_09b9
.label smc_09bf = * + 1
        ldy #$0e                                    // !SMC: modified by $28d5

loc_09c0:
        dey
        bne loc_09c0
.label smc_09c4 = * + 1
        lda #$00                                    // !SMC: modified by $0c00, $2a62
        sta $d020