History
- Released
- 24 July 1988
- Code
- Ironfist
- Music
- Diflex, Laxity, Future Freak, Jeroen Tel
- Charset
- Mr. Cursor
- Group
- Zenith — United Kingdom, founded December 1987
A four-composer jukebox featuring an all-star lineup: Diflex (Markus Schneider) contributed "Enola Gay," Laxity (Thomas E. Petersen) added his signature "Introtune," Future Freak (Kim Christensen) provided "Cooperation Demo," and Jeroen Tel supplied "Fun Fun." Ironfist coded the intro while Mr. Cursor — whose charset work appears across multiple top-ranked intros — contributed the lettering. Zenith was a British group founded in December 1987 that punched well above its weight by attracting continental European musicians. The mix of German (Diflex), Danish (Laxity, Future Freak), and Dutch (Tel) composers working for a UK group illustrates the fully internationalized nature of the scene by mid-1988. All four SIDs are preserved in the HVSC. Doc Snyder's page documents Zenith's catalogue. Released on 24 July 1988, this arrived at the height of the jukebox intro trend.
Sources: CSDb · docsnyderspage
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:41 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $ffff (63488 bytes) // Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation // Packer entry: $0810 (via BASIC SYS 2064) // Entry point: $1e00 (7680) // IRQ handler: $1e30 (irq_1e30) // IRQ handler: $1e8e (irq_1e8e) // IRQ handler: $ea31 (irq_ea31) // // Code: 5857 bytes, Data: 57631 bytes // Labels: 542, Subroutines: 28 // // Cross-references: all OK // ============================================ // --- Region $0912-$0919 --- .pc = $0912 "sub_0912" // Referenced by: jsr from $ffd5 sub_0912: ldy #$60 pla cli .byte $5a // nop // ILLEGAL lsr $82,x brk // --- Region $0b15-$0b21 --- .pc = $0b15 "sub_0b15" // Referenced by: jsr from $ffd2, $ffe2 sub_0b15: eor $55,x eor $82,x .byte $82,$69 // nop #$69 // ILLEGAL adc #$55 eor $55,x eor $00,x brk // --- Region $0e0f-$0e0f --- .pc = $0e0f "sub_0e0f" // Referenced by: jsr from $ffdf sub_0e0f: brk // --- Region $1020-$1020 --- .pc = $1020 "sub_1020" // Referenced by: jsr from $23aa sub_1020: brk // --- Region $103a-$1045 --- .pc = $103a "sub_103a" // Referenced by: jsr from $20ea, $fc70 sub_103a: lda #$00 jmp loc_10ed dat_103f: .byte $4c,$35,$11 // L5. // Referenced by: jsr from $2016, $fbb1 sub_1042: jmp loc_113b dat_1045: .byte $02 // . // --- Region $10be-$166a --- .pc = $10be "sub_10be" // Referenced by: jsr from $1118, $eec5 sub_10be: lda #$00 ldx #$74 loc_10c2: sta $1049,x dex bpl loc_10c2 loc_10c8: lda #$ff sta $1077 sta $1078 sta $1079 lda #$00 sta $dc0e ldx #$02 loc_10da: sta $1049,x sta $104c,x sta $104f,x sta $105b,x dex bpl loc_10da sta $109a rts loc_10ed: pha lda #$01 sta $109a pla tax lda $19e0,x sta smc_1104 // SMC: modifies $1104 lda $19e1,x sta smc_1105 // SMC: modifies $1105 ldy #$05 loc_1103: .label smc_1104 = * + 1 .label smc_1105 = * + 2 lda $19e2,y // !SMC: modified by $10f8, $10fe sta $19e8,y dey bpl loc_1103 lda $19de,x sta dat_1045 lda $19df,x sta smc_1399 // SMC: modifies $1399 jsr sub_10be loc_111b: ldx #$17 loc_111d: lda #$01 sta $d400,x lda #$00 sta $d400,x dex bpl loc_111d lda #$0f sta $d418 lda #$00 sta $d417