History
- Group
- Alpha Flight 1970 — Germany, founded April 1985
This crack intro from Alpha Flight 1970 lacks a confirmed CSDb release entry, though the group itself is extensively catalogued on CSDb with releases ranging from demos like "Edge of Disgrace" and "Coma Light 13" to recent productions. Alpha Flight 1970 was a German cracking group founded in April 1985, whose "1970" suffix distinguished them from other formations using the Alpha Flight name. The intros.c64.org listing drew comments from group members Xenox and Calypso, confirming ongoing interest in AFL's back catalogue. Alpha Flight's numbered intro series reached well into the dozens, reflecting sustained output across more than a decade of active cracking. The group is represented elsewhere in the rankings at positions including #49 AFL-09, #131 AFL-08, and #184 AFL-13. Without a specific CSDb match, the coder, musician, and release date for this particular intro remain unidentified.
Sources: intros.c64.org · CSDb
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:15 // 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: $2600 (9728) // IRQ handler: $26c6 (irq_26c6) // // Code: 3182 bytes, Data: 60306 bytes // Labels: 374, Subroutines: 11 // // Cross-references: all OK // ============================================ // --- Region $0814-$0814 --- .pc = $0814 "sub_0814" // Referenced by: jsr from $ff9b sub_0814: rts // --- Region $1000-$1006 --- .pc = $1000 "sub_1000" // Referenced by: jsr from $2623 sub_1000: jmp loc_1040 // Referenced by: jsr from $271d, $fc6e sub_1003: jmp loc_10d8 dat_1006: .byte $01 // . // --- Region $1040-$1468 --- .pc = $1040 "loc_1040" loc_1040: asl asl asl tay ldx #$00 loc_1046: lda $15a2,y sta $1528,x sta $152e,x lda $15a3,y sta $152b,x sta $1531,x iny iny inx cpx #$03 bne loc_1046 ldx #$00 stx $100b lda $15a2,y sta $1534 loc_106a: sta $158c,x inc $100b lda $1534 clc adc $15a2,y sta $1534 clc adc $100b inx cpx #$10 bne loc_106a lda txt_1020 beq loc_10b3 ldx #$02 loc_108a: lda $15a3,y sta $100b and $1535,x sta dat_1006,x dex bpl loc_108a bit $100b bpl loc_10b3 ldx #$00 loc_10a0: lda $15a4,y sta $152e,x lda $15a5,y sta $1531,x iny iny inx cpx #$03 bne loc_10a0 loc_10b3: ldy #$00 tya loc_10b6: sta $d400,y iny cpy #$18 bne loc_10b6 ldy #$00 loc_10c0: lda #$00 sta $153b,y sta $1014,y lda #$04 sta $1547,y iny cpy #$0c bne loc_10c0 lda #$3f sta $d418 rts loc_10d8: lda $fb pha lda $fc pha ldx #$02 loc_10e0: lda dat_1006,x bne loc_10e8 jmp loc_145b loc_10e8: lda $1547,x bne loc_10f0 jmp loc_1223 loc_10f0: cmp #$02 beq loc_10fa