History
- Group
- Alpha Flight 1970 — Germany, founded April 1985
The twenty-eighth numbered crack intro from Alpha Flight 1970, the long-running German cracking group founded in April 1985. No CSDb release match has been confirmed, though Alpha Flight's broader CSDb catalogue encompasses hundreds of entries spanning crack intros, demos, disk magazines, and modern-era productions. The intros.c64.org listing attracted discussion from multiple commenters between 2006 and 2016, with attempts to identify the specific credits for this intro -- a common archival challenge for older productions. AFL's prolific output across their active years is well represented in these rankings, from the high-placing #49 AFL-09 to the adjacent #535 AFL-27. Alpha Flight's "1970" suffix distinguished them from other groups sharing the name. The group's sustained production volume -- reaching well over sixty numbered intros -- demonstrates both organisational stability and a deep roster of contributors willing to produce new visual and musical designs year after year.
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: $0700 End: $3bff (13568 bytes) // Crunched with Exomizer v2/v3 — depacked by emulation // Packer entry: $080b (via BASIC SYS 2059) // Entry point: $0810 (2064) // IRQ handler: $086d (irq_086d) // IRQ handler: $9000 (nmi_9000) // IRQ handler: $08c0 (irq_08c0) // IRQ handler: $ea31 (loc_ea31) // IRQ handler: $fe47 (nmi_fe47) // // Code: 2745 bytes, Data: 10823 bytes // Labels: 244, Subroutines: 16 // // Cross-references: all OK // ============================================ // --- Region $0810-$08b5 --- .pc = $0810 "main_0810" main_0810: lda #$00 sta $03ff sta $03f8 sta $03f0 sta $03fb sta $03fe sta $03fc sta $03f9 sta $03fa sta $03fd sta $d020 sta $d021 sta $d011 jsr $e536 jsr sub_0a76 jsr sub_08eb sei dec $dc0e inc $d01a lda #$6d sta $0314 lda #$08 sta $0315 lda #$00 sta $0318 lda #$90 sta $0319 cli smc_085b: jmp smc_085b // !SMC: modified by $0872 loc_085e: lda $dc01 cmp #$ef bne loc_085e lda #$20 sta smc_08da loc_086a: jmp loc_086a irq_086d: jsr sub_0880 lda #$4c sta smc_085b // SMC: modifies $085b lda #$00 sta $d012 inc $d019 jmp $ea31 // Referenced by: jsr from $086d sub_0880: inc $03fd lda $03fd cmp #$05 beq loc_088b rts loc_088b: lda #$00 sta $03fd .label smc_0891 = * + 1 ldx #$00 // !SMC: modified by $08a8 lda dat_08b6,x sta $d020 sta $d021 inc smc_0891 lda smc_0891 cmp #$0a beq loc_08a6 rts loc_08a6: lda #$00 sta smc_0891 // SMC: modifies $0891 lda #$c0 sta $0314 lda #$08 sta $0315 rts // --- Region $08c0-$0a3d --- .pc = $08c0 "irq_08c0" irq_08c0: jsr sub_1009 lda #$1d sta $d018 smc_08c8: bit dat_0aa2 // !SMC: modified by $0904, $0b06 smc_08cb: bit dat_0a3e // !SMC: modified by $08fb smc_08ce: bit dat_0b2b // !SMC: modified by $08f5 smc_08d1: bit dat_0b49 // !SMC: modified by $08f2 smc_08d4: bit dat_0b0d // !SMC: modified by $0901, $0b09 smc_08d7: jsr sub_0adc // !SMC: modified by $08ed, $0b01 smc_08da: bit loc_0b6d // !SMC: modified by $08fe smc_08dd: bit dat_0bd5 // !SMC: modified by $08f8 lda #$1b sta $d011 inc $d019 jmp $ea31 // Referenced by: jsr from $083c sub_08eb: { lda #$20 sta smc_08d7 // SMC: modifies $08d7