← #870 Top 1024 #872 →
#871

Paramount+Alpha Flight 1970 03

Paramount+Alpha Flight 1970

789 lines of code

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

History

Released
July 1990
Group
Paramount + Alpha Flight 1970 — Germany, Paramount founded January 1989

This July 1990 crack intro is a cooperation between Paramount and Alpha Flight 1970, two prominent groups in the European C64 cracking scene. No individual credits for code, music, or artwork are recorded on the CSDb release page. Paramount, abbreviated "[P]," was founded in January 1989 in Germany and was one of the more active groups in the German cracking circuit during the late 1980s and early 1990s. Alpha Flight 1970 was a long-running international group with roots in multiple countries. Cooperations between established groups were common during this period, allowing combined resources for cracking, training, and distribution. The intros.c64.org listing received comments from StainlessSteel of Paramount in December 2010 and from Rough in October 2010. Despite the CSDb listing confirming the release date and group attribution, the absence of individual credits suggests this may have been a quickly assembled intro for a cooperative release.

Sources: CSDb · intros.c64.org

param_afl-03.asm 789 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:27
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $15bf  (3520 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0eb8 (3768)
// IRQ handler:  $0f00 (irq_0f00)
//
// Code: 388 bytes, Data: 3132 bytes
// Labels: 75, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $0eb8-$0ef0 ---
.pc = $0eb8 "main_0eb8"

main_0eb8:
        lda #$00
        sta $d020
        sta $d021
        lda #$08
        sta $0286
        lda #$e8
        sta $0328
        jsr $e544
        jsr sub_0f3a
        jsr sub_0fe9
        sei
        lda #$01
        sta $dc0d
        sta $d01a
        lda #$00
        sta $0314
        lda #$0f
        sta $0315
        lda #$1b
        sta $d011
        cli

loc_0eec:
        jmp loc_0eec

chr_0eef:
        // === Charset data (2 bytes, $0eef-$0ef0) ===
        .byte $ad,$ff                               // char 0 (partial)

// --- Region $0f00-$0f29 ---
.pc = $0f00 "irq_0f00"

irq_0f00:
        inc $d019
.label smc_0f04 = * + 1
.label smc_0f05 = * + 2
        jsr sub_100f                                // !SMC: modified by $0f0c, $0f12
        ldx chr_0f29
        lda tbl_lo_0f2a,x
        sta smc_0f04                                // SMC: modifies $0f04
        lda tbl_hi_0f2f,x
        sta smc_0f05                                // SMC: modifies $0f05
        lda $0f35,x
        sta $d012
        inx
        lda tbl_hi_0f2f,x
        bne loc_0f23
        ldx #$00

loc_0f23:
        stx chr_0f29
        jmp $ea7e

chr_0f29:
        // === Charset data (1 bytes, $0f29-$0f29) ===
        .byte $00                                   // char 0 (partial)

// --- Region $0f3a-$0f80 ---
.pc = $0f3a "sub_0f3a"

// Referenced by: jsr from $0ecd
sub_0f3a: {
        ldx #$00
loop:
        lda txt_0d88,x
        sta $0400,x
        sta $0608,x
        lda tbl_0db0,x
        sta $0428,x
        sta $0630,x
        inx
        bne loop
        lda #$d8
        sta $d016
        lda #$13
        sta $d018
        rts
}
        lda #$d8
        sta $d016
        lda #$01
        sta $d020
        sta $d021
        ldx #$0b

loc_0f6b:
        dex
        bne loc_0f6b
        lda #$00
        sta $d020
        sta $d021
        lda #$06
        sta $d022
        lda #$0e
        sta $d023
        rts

// --- Region $0fc4-$1040 ---
.pc = $0fc4 "sub_0fc4"
sub_0fc4: {
        lda #$20
        sbc $04
        tay
        ldx #$09
loop1:
        dex
        bne loop1
loop2:
        lda $d012
        tax
        and #$07
        ora #$18
loop3:
        cpx $d012
        beq loop3
        sta $d011
        dey
        bpl loop2
        lda $03
        clc
        adc #$02
        sta $03
        rts
}

// Referenced by: jsr from $0ed0