History
- Group
- Pentacle — Germany
This intro from Pentacle — a German cracking group — was coded by Gremlin, who also coded the group's other ranked entry at #655 Pentacle-01. The CSDb release matched to this entry is catalogued as "Pentacle 2," though the release type is listed as graphics rather than crack intro, suggesting a possible cataloguing discrepancy. Doc Snyder's Page documents the group's history in detail, listing members Dueco and Gremlin as the core duo. The scrolltext from a co-operation intro on Doc Snyder's Page confirms their German origins, providing phone numbers in the 02552 and 0251 area codes. Pentacle also operated alongside the Wanderer Group (TWG), as documented in their co-operation releases. The Doc Snyder scrolltext mentions greetings to numerous groups including Triangle, Ikari, Dominators, and Fairlight — placing Pentacle within the network of mid-to-late 1980s European cracking groups.
Sources: CSDb · Doc Snyder's Page
// ============================================ // output - Part 1 of 3 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:01 // https://restore64.dev by datucker / Rabenauge // // Load address: $0400 End: $ffff (64512 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $1000 (4096) // IRQ handler: $09c4 (irq_09c4) // IRQ handler: $080f (irq_080f) // IRQ handler: $0a5a (irq_0a5a) // // Code: 5320 bytes, Data: 59192 bytes // Labels: 608, Subroutines: 23 // // Cross-references: all OK // ============================================ // --- Region $080f-$09bb --- .pc = $080f "irq_080f" irq_080f: lda #$35 sta $01 lda #$01 sta $d019 loc_0818: .label smc_0819 = * + 1 .label smc_081a = * + 2 lda $258c // !SMC: modified by $0848, $0966, $0eda .label smc_081c = * + 1 .label smc_081d = * + 2 ldx $1b8c // !SMC: modified by $084b, $0969, $1e8e .label smc_081f = * + 1 ldy $1a8c // !SMC: modified by $084e, $096c sta $d020 sta $d021 .label smc_0828 = * + 1 sty $d024 // !SMC: modified by $1e70 stx $d018 .label smc_082e = * + 1 .label smc_082f = * + 2 lda $258d // !SMC: modified by $0853, $0971, $0edd .label smc_0831 = * + 1 .label smc_0832 = * + 2 ldx $1b8d // !SMC: modified by $087c, $0974, $1e91 .label smc_0834 = * + 1 ldy $1a8d // !SMC: modified by $08ab, $0977 sta $d020 sta $d021 .label smc_083d = * + 1 sty $d024 // !SMC: modified by $1e73 stx $d018 lda smc_0819 clc adc #$08 sta smc_0819 // SMC: modifies $0819 sta smc_081c // SMC: modifies $081c sta smc_081f // SMC: modifies $081f tax inx stx smc_082e // SMC: modifies $082e .label smc_0857 = * + 1 .label smc_0858 = * + 2 lda $258e // !SMC: modified by $0871, $097b, $0ee0 .label smc_085a = * + 1 .label smc_085b = * + 2 ldx $1b8e // !SMC: modified by $0874, $097e, $1e94 .label smc_085d = * + 1 ldy $1a8e // !SMC: modified by $0877, $0981 sta $d020 sta $d021 .label smc_0866 = * + 1 sty $d024 // !SMC: modified by $1e76 stx $d018 lda smc_0857 clc adc #$08 sta smc_0857 // SMC: modifies $0857 sta smc_085a // SMC: modifies $085a sta smc_085d // SMC: modifies $085d tax dex stx smc_0831 // SMC: modifies $0831 ldx #$01 loc_0881: dex bne loc_0881 .label smc_0885 = * + 1 .label smc_0886 = * + 2 lda $258f // !SMC: modified by $089f, $0985, $0ee3 .label smc_0888 = * + 1 .label smc_0889 = * + 2 ldx $1b8f // !SMC: modified by $08a2, $0988, $1e97 .label smc_088b = * + 1 ldy $1a8f // !SMC: modified by $08a5, $098b sta $d020 sta $d021 .label smc_0894 = * + 1 sty $d024 // !SMC: modified by $1e79 stx $d018 lda smc_0885 clc adc #$08 sta smc_0885 // SMC: modifies $0885 sta smc_0888 // SMC: modifies $0888 sta smc_088b // SMC: modifies $088b tax dex dex stx smc_0834 // SMC: modifies $0834 ldx #$01 loc_08b0: dex bne loc_08b0 .label smc_08b4 = * + 1 .label smc_08b5 = * + 2 lda $2590 // !SMC: modified by $08ce, $098f, $0ee6 .label smc_08b7 = * + 1 .label smc_08b8 = * + 2 ldx $1b90 // !SMC: modified by $08d1, $0992, $1e9a .label smc_08ba = * + 1 ldy $1a90 // !SMC: modified by $08d4, $0995 sta $d020 sta $d021 .label smc_08c3 = * + 1 sty $d024 // !SMC: modified by $1e7c stx $d018 lda smc_08b4 clc adc #$08 sta smc_08b4 // SMC: modifies $08b4 sta smc_08b7 // SMC: modifies $08b7 sta smc_08ba // SMC: modifies $08ba ldx #$03 loc_08d9: dex bne loc_08d9 .label smc_08dd = * + 1 .label smc_08de = * + 2 lda $2591 // !SMC: modified by $08f7, $0999, $0ee9 .label smc_08e0 = * + 1