History
- Group
- Alpha Flight 1970 — Germany, founded April 1985
One of the earliest intros catalogued from Alpha Flight 1970 (AFL), a German group founded in April 1985 that became one of the longest-running cracking operations in the scene. The CSDb search under the full group name did not return direct matching releases, though the group is well-known and extensively documented elsewhere in the database. The "1970" suffix distinguished this Alpha Flight from other formations using the same name. Alpha Flight 1970 is one of the most extensively represented groups in these rankings, with entries spanning from #41 AFL Intro #9 through #953 AFL Intro #55. No individual credits for code or music have been identified for this specific intro. Comments on intros.c64.org from Doc Snyder and iAN CooG in August 2017 indicate sustained archival interest. The group's longevity — from 1985 through subsequent decades — represents a remarkable continuity in the C64 scene.
Sources: intros.c64.org
// ============================================ // 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: $ffff (63488 bytes) // Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation // Packer entry: $0810 (via BASIC SYS 2064) // Entry point: $3000 (12288) // IRQ handler: $3319 (irq_3319) // IRQ handler: $333f (irq_333f) // IRQ handler: $3019 (irq_3019) // IRQ handler: $ea31 (irq_ea31) // // Code: 4301 bytes, Data: 59187 bytes // Labels: 494, Subroutines: 14 // // Cross-references: all OK // ============================================ // --- Region $080d-$0819 --- .pc = $080d "loc_080d" loc_080d: .byte $6f,$00,$83 // rra $8300 // ILLEGAL .byte $83,$50 // sax ($50,x) // ILLEGAL bvc $0794 .byte $04,$04 // nop $04 // ILLEGAL .byte $04,$ff // nop $ff // ILLEGAL dat_0818: .byte $ff,$ff // .. // --- Region $08d8-$0f23 --- .pc = $08d8 "loc_08d8" loc_08d8: lda $0806 cmp #$01 beq loc_0953 cmp #$02 bne loc_091f jmp loc_0948 // Referenced by: jsr from $380d sub_08e6: tax lda $176d,x sta $0846 txa sta $087c ldx #$00 asl asl clc adc $087c adc $087c tay loc_08fd: lda $1055,y sta $104f,x iny inx cpx #$06 bne loc_08fd ldy #$00 lda $087c asl adc $087c tax loc_0913: lda $0807,y sta $0807,y inx iny cpy #$03 bne loc_0913 loc_091f: ldx #$02 lda #$00 loc_0923: sta $0830,x sta txt_082a,x sta $0827,x sta $081e,x sta $0880,x sta $0821,x sta $0883,x sta $0824,x dex bpl loc_0923 lda #$1f sta smc_0954 // SMC: modifies $0954 lda #$01 sta $0806 loc_0948: ldx #$18 lda #$00 loc_094c: sta $d400,x dex bpl loc_094c rts loc_0953: .label smc_0954 = * + 1 lda #$1f // !SMC: modified by $0940, $0d66, $0da2 sta $d418 ldx #$02 stx $080c dec $0842 bpl loc_0968 lda $0846 sta $0842 loc_0968: lda $081a,x sta $081d lda $0842 cmp $0846 bne loc_0995 txa asl tay lda $104f,y sta $14 lda $1050,y sta $15 dec $0824,x bpl loc_098b jmp loc_0d4f loc_098b: lda $0864,x beq loc_0995 lda #$fe sta $0833,x loc_0995: lda $0830,x asl