History
- Group
- Alpha Flight 1970 — Germany, founded April 1985
One of the higher-numbered entries in Alpha Flight 1970's extensive intro series, though its exact release date and individual credits remain undocumented. No CSDb release match was confirmed, though the group's CSDb catalogue is among the most extensive for any C64 cracking outfit -- spanning crack intros, demos, disk magazines, and productions released well into the 2020s. The intros.c64.org listing attracted comments from Rhialto, Xenox of Alpha Flight, and Jazzcat of Onslaught, indicating continued recognition among active scene archivists. Alpha Flight 1970 was a German group founded in April 1985, and their "1970" suffix distinguished them from other formations using the Alpha Flight name. This intro ranks well below the group's strongest entries such as #49 AFL-09, which featured Leeway coding with music by Arne Puszelski. The sparse documentation is typical of very prolific groups, where not every numbered production received individual archival attention.
Sources: intros.c64.org · CSDb
// ============================================ // 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: $63ff (23552 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0900 (2304) // IRQ handler: $09b9 (irq_09b9) // IRQ handler: $1cc3 (irq_1cc3) // IRQ handler: $ea31 (irq_ea31) // // Code: 6091 bytes, Data: 17461 bytes // Labels: 498, Subroutines: 29 // // Cross-references: all OK // ============================================ // --- Region $0900-$0aa0 --- .pc = $0900 "main_0900" main_0900: { sei jsr $fda3 jsr $fd15 nop nop nop cli lda #$00 sta $d020 sta $d021 lda #$00 tax tay jsr sub_1000 lda #$7b sta $d011 ldx #$00 loop: lda $4000,x sta $0400,x lda $4100,x sta $0500,x lda $4200,x sta $0600,x lda $4300,x sta $0700,x lda $4400,x sta $d800,x lda $4500,x sta $d900,x lda $4600,x sta $da00,x lda $4700,x sta $db00,x inx bne loop lda #$ff sta $d015 lda #$00 sta $d01c lda #$00 sta $d010 lda #$01 ldy #$00 ldx #$00 sta $d027 sta $d028 sta $d029 sta $d02a sta $d02b sta $d02c sta $d02d sta $d02e sta $d02f sty $d025 stx $d026 jsr sub_49a0 jsr sub_0a84 nop sei lda #$7f sta $dc0d lda #$00 sta $dc0e lda #$01 sta $d01a lda #$7b sta $d011 lda #$30 sta $d012 lda #$b9 sta $0314 lda #$09 sta $0315 cli jmp loc_0a91 } irq_09b9: lda #$30 loc_09bb: cmp $d012 bne loc_09bb lda #$18 sta $d018 lda #$08 sta $d016 lda #$1b sta $d011 lda #$00 sta $d020 sta $d021 nop nop nop nop nop nop lda #$41 loc_09df: cmp $d012 bne loc_09df ldy #$0b loc_09e6: dey bne loc_09e6 .label smc_09ea = * + 1 lda #$00 // !SMC: modified by $1a03, $4af4 sta $d020 ldy #$04 loc_09f0: dey bne loc_09f0 .label smc_09f4 = * + 1 lda #$00 // !SMC: modified by $1a99, $4af1 sta $d020 ldy #$06 loc_09fa: dey bne loc_09fa