← #163 Top 1024 #165 →
#164

Just for Fun 01

Just for Fun

2.020 lines of code

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

History

Released
1997
Music
Tjagvad, PRI (Volker Meitz), Link (Klaus Grongaard), Drax (Thomas Mogensen)
Group
Just for Fun — Poland, founded 1997

A four-composer jukebox from Poland's 1997 scene — the group name itself acknowledges that by this point C64 cracking was purely a hobby pursuit. PRI (Volker Meitz) contributed "Chameleon," Link (Klaus Grongaard) added "Jazz Max," Drax (Thomas Mogensen) provided "Saedklat," and Tjagvad (Henrik Tjagvad Madsen) composed "Funkiss." All four are preserved in the HVSC. No coder is credited on CSDb. Just for Fun was a Polish group founded in 1997, part of the Eastern European revival scene that maintained C64 activity years after commercial relevance ended. The composer roster — spanning Denmark and Germany — demonstrates that established SID musicians continued contributing to new groups well into the late 1990s. The name "Just for Fun" perfectly encapsulates the motivation of late-era C64 sceners.

Sources: CSDb

justforfun-01.asm 2.020 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:25
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $34ff  (11776 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2cc0 (11456)
// IRQ handler:  $2d45 (irq_2d45)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2338 bytes, Data: 9438 bytes
// Labels: 196, Subroutines: 4
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2cd4

sub_1000:
        jmp loc_1028
// Referenced by: jsr from $2ee5

sub_1003:
        jmp loc_1065

dat_1006:
        .byte $01                                   // .

// --- Region $1028-$11c0 ---
.pc = $1028 "loc_1028"

loc_1028:
        asl
        asl
        asl
        tay
        ldx #$00

loc_102e:
        lda $1020,y
        sta $15cd,x
        sta $15d3,x
        lda $1021,y
        sta $15d0,x
        sta $15d6,x
        iny
        iny
        inx
        cpx #$03
        bne loc_102e
        lda $1020,y
        sta $1658
        sta $1659
        ldy #$00
        tya

loc_1053:
        sta $d400,y
        sta $15e2,y
        iny
        cpy #$1b
        bne loc_1053
        lda $1009
        sta $d418
        rts

loc_1065:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02
        dec $1658
        bpl loc_1078
        lda $1659
        sta $1658

loc_1078:
        bne loc_108a
        lda dat_1006,x
        bne loc_1082
        jmp loc_14fd

loc_1082:
        lda $15ee,x
        beq loc_108d
        dec $15ee,x

loc_108a:
        jmp loc_1232

loc_108d:
        lda $15fa,x
        sta $15ee,x
        lda $15cd,x
        sta $fb
        lda $15d0,x
        sta $fc
        ldy #$00
        tya
        sta $15f1,x
        lda ($fb),y
        bpl loc_10bd
        and #$7f
        asl
        sta $15e5,x
        inc $15cd,x
        inc $fb
        bne loc_10b9
        inc $15d0,x
        inc $fc

loc_10b9:
        ldy #$00
        lda ($fb),y

loc_10bd:
        tay
        lda $196d,y
        sta $fb
        lda $1993,y
        sta $fc

loc_10c8:
        ldy $15e8,x
        lda ($fb),y
        bmi loc_110f
        beq loc_1105
        cmp #$7e
        beq loc_10fb
        sta $15fd,x
        asl
        clc
        adc $15e5,x
        tay
        lda dat_150d,y
        clc
        adc $1655,x
        sta $1618,x
        lda $150e,y
        adc #$00
        sta $161b,x
        lda $164c,x