← #754 Top 1024 #756 →
#755

Jewels 03

Jewels

2.488 lines of code

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

History

Group
Jewels — Netherlands

A crack intro from Jewels, a group with roots in the Dutch C64 scene. The CSDb search returned numerous group releases but the matched entry — "Jewels of Babylon" — is catalogued as a game crack rather than a standalone intro, with no individual credits beyond an unattributed "Crack" role. CSDb documents an extensive Jewels catalogue including over fifteen crack intros, logo screens, music rips, and zip compilations, indicating a group that was both active in cracking and in producing demo-style content. The group is indexed on CSDb under group ID 699. The scener data associated with the CSDb search results indicates a Netherlands connection. No documentation appears on Doc Snyder's page, Demozoo, or in preserved diskmag archives. The intros.c64.org listing carries a single comment from Twoflower (2007). Jewels appears to have operated primarily within the Dutch and broader European trading networks during the late 1980s, producing a respectable body of work across scene archives.

Sources: CSDb

jewels-03.asm 2.488 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:51
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $d030  (51249 bytes)
// Crunched with PuCrunch — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2f00 (12032)
// IRQ handler:  $2054 (irq_2054)
// IRQ handler:  $9ddf (irq_9ddf)
//
// Code: 2626 bytes, Data: 48623 bytes
// Labels: 259, Subroutines: 21
//
// Cross-references: all OK
// ============================================


// --- Region $1009-$14cb ---
.pc = $1009 "sub_1009"
// Referenced by: jsr from $2040; jmp from $1ddc

sub_1009:
        jmp loc_1d88

dat_100c:
        .byte $4c,$be                               // L.

loc_100e:
.label sub_100f = * + 1
        ora $9e2c,x
        asl $30,x
        rol
        bvc loc_1056
        ldx $169c

loc_1019:
        lda #$00
        ldy dat_158e,x
        sta $d404,y
        sta $1592,x
        sta $1595,x
        sta $1598,x
        sta $159e,x
        sta $d406,y
        lda #$1b
        sta $15b8,x
        dex
        bpl loc_1019
        sta $169e
        jmp loc_14c1

loc_103e:
        bvc loc_1053
        lda #$00
        ldx $169c

loc_1045:
        ldy dat_158e,x
        sta $d404,y
        dex
        bpl loc_1045
        lda #$80
        sta $169e

loc_1053:
        jmp loc_14c1

loc_1056:
        ldx $169c
        dec $169b
        bpl loc_1066
        lda #$70
        sta $169b
        jmp loc_1071

loc_1066:
        dec $1688
        bpl loc_1071
        lda $169a
        sta $1688

loc_1071:
        lda dat_158e,x
        sta $1591
        tay
        lda $169b
        beq loc_1097
        lda $1688
        cmp $169a
        bne loc_1097
        lda $1aa8,x
        sta $f8
        lda $1aab,x
        sta $f9
        dec $1598,x
        bmi loc_109a
        jmp loc_11b5

loc_1097:
        jmp loc_11d9

loc_109a:
        ldy $1592,x
        lda ($f8),y
        bpl loc_10be
        cmp #$ff
        beq loc_10b0
        and #$7f
        sta $177d,x
        inc $1592,x
        jmp loc_109a

loc_10b0:
        lda #$00
        sta $1598,x
        sta $1592,x
        sta $1595,x
        jmp loc_109a

loc_10be:
        tay
        lda $1ab4,y
        sta $fa
        lda $1ad8,y
        sta $fb
        lda #$00
        sta $16a8,x
        sta $1728,x
        sta $1779,x
        lda #$40
        sta $173b,x
        ldy $1595,x
        lda #$ff
        sta $15e6,x
        lda ($fa),y
        sta $159b,x
        sta $1615
        and #$1f
        sta $1598,x
        bit $1615
        bvs loc_1135
        inc $1595,x
        lda $1615
        bpl loc_1115
        iny
        lda ($fa),y