History
- Group
- The High Society [THS]
A crack intro from The High Society, abbreviated THS. The CSDb search yielded no specific release match, and the group's precise origins — country, founding date, and key members — remain unconfirmed through available sources. No documentation appears on Doc Snyder's page, Demozoo, or in preserved diskmag archives. The intros.c64.org page carries two comments from Rough (2010) and Zyron (2008), both well-known scene archivists whose attention suggests the intro had qualities worth noting. The name "The High Society" was used by at least one C64 group active during the late 1980s, a period when groups frequently adopted grandiose titles. Without a confirmed CSDb match, individual credits for code, music, and graphics cannot be reliably attributed. This is a case where the intro survives in the intros.c64.org archive while its broader context has been largely lost to incomplete scene documentation.
Sources: intros.c64.org
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:47 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $1100 (2305 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $0b4b (2891) // IRQ handler: $0a33 (irq_0a33) // IRQ handler: $0cc1 (nmi_0cc1) // // Code: 874 bytes, Data: 1431 bytes // Labels: 79, Subroutines: 6 // // Cross-references: all OK // ============================================ // --- Region $0a00-$0b3b --- .pc = $0a00 "loc_0a00" loc_0a00: sei lda #$33 sta $0314 lda #$0a sta $0315 lda #$7f sta $dc0d lda #$01 sta $d01a lda #$1b sta $d011 ldx #$20 loc_0a1c: lda #$00 sta $033c,x dex bpl loc_0a1c ldx #$00 ldy #$0d stx $f9 sty $fa lda #$d7 sta $033d cli rts irq_0a33: lda $d019 sta $d019 inc $033c lda $033c and #$01 beq loc_0a50 lda #$f1 sta $d012 lda #$c8 sta $d016 jmp loc_0c80 loc_0a50: lda #$c2 sta $d012 ldx $033d jsr sub_0c78 nop nop cpx #$cf beq loc_0a6a stx $d016 stx $033d jmp $febc loc_0a6a: ldx #$d7 stx $d016 stx $033d ldx #$00 ldy #$04 stx $fb sty $fc ldx #$10 loc_0a7c: ldy #$00 loc_0a7e: iny lda ($fb),y dey sta ($fb),y iny cpy #$28 bne loc_0a7e lda $fb clc adc #$28 sta $fb lda $fc adc #$00 sta $fc dex bne loc_0a7c lda #$08 sta $fc ldy #$00 lda ($f9),y asl asl asl sta $fb lda $fc adc #$00 sta $fc ldx #$27 ldy #$04 stx $fd sty $fe lda #$00 sta $02 loc_0ab8: ldy $02 lda ($fb),y ldx $033e and chr_0b3a,x cmp chr_0b3a,x beq loc_0ad2 lda #$20 sta $033f sta $0340 jmp loc_0ae7 loc_0ad2: lda $0341 and #$01 beq loc_0ade ldx #$1d jmp loc_0ae0 loc_0ade: ldx #$1b loc_0ae0: stx $033f