← #623 Top 1024 #625 →
#624

Federation Against Copyright [FAC] 02

Federation Against Copyright [FAC]

1.788 lines of code

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

History

Released
c. 1985-1988
Group
Federation Against Copyright — Netherlands, founded April 1985

The second numbered intro from the Federation Against Copyright, a Dutch cracking and import group founded on April 20, 1985 by Ace and AVH. Scene members on intros.c64.org praised this intro effusively — one declared it "one of the best intros from any group ever" while another called it "the BEST FAC intro ever." Such strong acclaim for a group that described its own intros as secondary to its warez suggests this particular production exceeded the group's usual standard. CSDb documents FAC with 486 releases before the group dissolved in 1988. No individual credits for code, music, or graphics have been identified. The group's numeric identifier "4012" derives from hexadecimal notation ($FAC = 4012). FAC briefly merged with Flash Cracking Group in August 1985 before re-establishing itself independently. Other FAC intros in this collection include #268 FAC-01 and #203 FAC-03.

Sources: intros.c64.org · CSDb

fac-02.asm 1.788 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:38
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Mr.Cross Linker 2 — depacked by emulation
// Packer entry: $081a (via BASIC SYS 2074)
// Entry point:  $1100 (4352)
// IRQ handler:  $11be (irq_11be)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1186 bytes, Data: 62302 bytes
// Labels: 170, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $0835-$0837 ---
.pc = $0835 "loc_0835"

loc_0835:
        cpy #$c0
        brk

// --- Region $085a-$0864 ---
.pc = $085a "loc_085a"

loc_085a:
        cld
        beq loc_0835
        cpy.abs $00c6
        cpy #$c0
        cpy #$c0
        rts

// --- Region $08bd-$08c7 ---
.pc = $08bd "loc_08bd"

loc_08bd:
        inc.abs $007c,x
        dec $6c
        sec
        bmi loc_08fd
        jmp ($00c6)

// --- Region $08fd-$08fd ---
.pc = $08fd "loc_08fd"

loc_08fd:
        rts

// --- Region $0af0-$0afd ---
.pc = $0af0 "Program $0af0"
        bmi loc_0af9
        rol $00,x
        brk

dat_0af5:
        .byte $00,$e0,$03,$e3                       // ....

loc_0af9:
        cpx #$03
        .byte $e3,$00                               // isc ($00,x) // ILLEGAL
        brk

// --- Region $0e00-$0ea7 ---
.pc = $0e00 "sub_0e00"
// Referenced by: jsr from $11ca

sub_0e00:
        jsr sub_1002
        jsr sub_0e0a
        jsr sub_0e23
        rts

// Referenced by: jsr from $0e03
sub_0e0a: {
        inc $0123
        lda $0123
        cmp #$30
        bne done
        lda #$00
        sta $0123
done:
        ldx $0123
        lda txt_104c,x
        sta $d027
        rts
}

// Referenced by: jsr from $0e06
sub_0e23: {
        ldx #$08
loop:
        lda $d027,x
        sta $d028,x
        dex
        cpx #$ff
        bne loop
        rts
}

// Referenced by: jsr from $0ec2
sub_0e31: {
        ldx #$00
loop:
        lda $0401,x
        sta $0400,x
        lda $0429,x
        sta $0428,x
        lda $0451,x
        sta $0450,x
        lda $0479,x
        sta $0478,x
        lda $04a1,x
        sta $04a0,x
        lda $04c9,x
        sta $04c8,x
        lda $04f1,x
        sta $04f0,x
        lda $0519,x
        sta $0518,x
        inx
        cpx #$27
        bne loop
        rts
}
// Referenced by: jsr from $0ec5

sub_0e69:
        ldx $0124
        lda #$35
        sta $01
        lda dat_2000,x
        sta $0427
        lda $20ff,x
        sta $044f
        lda $21fe,x
        sta $0477
        lda $22fd,x
        sta $049f
        lda $23fc,x
        sta $04c7
        lda $24fb,x
        sta $04ef
        lda $25fa,x