#182

Jewels 04

Name: Jewels 04
Availability: InStock
Author: Jewels

Jewels

2.050 lines of code

ScrollerSCRL

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

History

Released: 2 December 1987
Code: Fletch
Group: Jewels — Denmark, founded 1987

Fletch coded this intro — the same programmer who would later code for #31 Ikari and #124 Ikari 18, demonstrating the scene's fluid membership patterns. Jewels was a Danish group founded in 1987, one of several Scandinavian operations active during the critical autumn of that year. Released on 2 December 1987, this silent intro shows Fletch's early career before he joined Ikari's ranks — disassembly confirms no writes to SID registers. The Danish origin connects Jewels to the broader Scandinavian cracking network that included groups across Sweden, Norway, and Denmark. Fletch's progression from Jewels to Ikari traces the consolidation of talent into fewer, larger groups — a pattern that accelerated through 1988 as the scene matured. His coding style across these early Jewels productions laid the groundwork for the more polished Ikari intros that followed.

Sources: CSDb

jewels-04.asm 2.050 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: $0286  End: $ffff  (64890 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1d8b (7563)
//
// Code: 729 bytes, Data: 64161 bytes
// Labels: 218, Subroutines: 10
//
// Cross-references: all OK
// ============================================


// --- Region $1a80-$1a84 ---
.pc = $1a80 "loc_1a80"

loc_1a80:
        .byte $34,$85                               // nop $85,x // ILLEGAL
        ora ($a2,x)
        brk

// --- Region $1a91-$1af5 ---
.pc = $1a91 "loc_1a91"

loc_1a91:
        lda #$00
        sta $02
        lda #$25
        sta $03
        lda #$01
        sta $04
        lda #$08
        sta $05

loc_1aa1:
        ldy #$00

loc_1aa3:
        lda ($02),y
        sta ($04),y
        iny
        bne loc_1aa3
        inc $03
        inc $05
        lda $03
        cmp #$ff
        bne loc_1aa1
        lda #$37
        sta $01
        lda #$f1
        ldx #$bc
        sta $ae
        stx $af
        sta $2d
        stx $2e
        sta $2f
        stx $30
        sta $31
        stx $32
        cli
        jmp loc_fce2

dat_1ad0:
        .byte $4c,$ae,$a7,$ad,$19,$d0,$8d,$19       // L.......

loc_1ad8:
        bne loc_1a80
        cmp ($e8,x)
        cpx #$05
        bne loc_1ae2
        ldx #$00

loc_1ae2:
        stx $c1
        txa
        clc
        asl
        tax
        lda dat_1af5,x
        sta $20
        lda $1af6,x
        sta $21
        jmp ($0020)

dat_1af5:
        .byte $ff                                   // .

// --- Region $1b0f-$1b91 ---
.pc = $1b0f "loc_1b0f"

loc_1b0f:
        lsr $02
        lsr $02
        lsr $02
        lda $1c95
        and #$07
        eor #$07
        sta $d016
        lda $02
        sta $1c94
        jsr sub_1b36
        jsr sub_1c96
        jsr sub_1cdd
        jsr sub_1e03
        jsr sub_1dbc
        jmp loc_ea31
// Referenced by: jsr from $1b24

sub_1b36:
        ldx $1c94
        ldy #$00

loc_1b3b:
        lda txt_0d00,x
        sta $0400,y
        lda $0d50,x
        sta $0428,y
        lda $0da0,x
        sta $0450,y
        lda $0e00,x
        sta $0478,y
.label loc_1b54 = * + 1
        lda $0e50,x
        sta $04a0,y
        inx
        iny
        cpy #$28
        bne loc_1b3b
        rts

dat_1b60:
        .byte $a9,$d4,$8d,$12                       // ....

loc_1b64:
        bne loc_1b0f
        iny
        sta $d016
        ldx #$09

loc_1b6c:
        dex
        bne loc_1b6c
        ldx #$00
        ldy #$00