History
- Released
- January 1992
- Code
- King Fisher
- Music
- David Hanlon, TDM (Hans Axelsson), Alfatech (Che Lalic)
- Design
- 3D, Mr. Z
- Group
- Triad — Sweden, founded 28 July 1986
CSDb catalogues this as the "King Fisher Intro" — named after its coder, Linus Walleij, who used the handle King Fisher within Triad. Released in January 1992, the intro features a five-SID soundtrack drawing from multiple composers: David Hanlon contributed "Druid," King Fisher himself composed "I Want You," TDM (Hans Axelsson) provided "Vand Dig Om," and Alfatech (Che Lalic) added "Techno Death." Design credits go to 3D and Mr. Z. Triad was a Swedish group founded on 28 July 1986, operating under the motto "Dealer Quality Software" — one of the most prolific and enduring C64 cracking crews. Doc Snyder's page documents eleven Triad intros. Multiple Triad productions appear in the rankings, including #9 Triad-01 and #102 Triad-10. King Fisher's dual role as coder and composer demonstrates the multi-talented membership that sustained Triad's output across decades.
Sources: CSDb · docsnyderspage
// ============================================ // output - Part 1 of 3 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:55 // https://restore64.dev by datucker / Rabenauge // // Load address: $0801 End: $a718 (40728 bytes) // Crunched with Exomizer — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $9000 (36864) // // Code: 1813 bytes, Data: 38915 bytes // Labels: 159, Subroutines: 20 // // Verification: 4 line(s) auto-corrected to .byte for exact byte matching // // Cross-references: all OK // ============================================ // --- Region $0813-$081f --- .pc = $0813 "loc_0813" loc_0813: lda $160b,x sta.abs $00fc,x dex bne loc_0813 jmp loc_15d9 dat_081f: .byte $80 // . // --- Region $0e01-$0e27 --- .pc = $0e01 "Program $0e01" pla cpy $58 cpy $38 cpy $70 cpy $78 sty $b331 jsr sub_a21b .byte $83,$62 // sax ($62,x) // ILLEGAL .byte $93,$4b // sha ($4b),y // ILLEGAL dex .byte $4b,$aa // alr #$aa // ILLEGAL lda #$01 cmp $0221,x adc ($ab,x) .byte $03,$e2 // slo ($e2,x) // ILLEGAL lsr $3d,x .byte $43,$9b // sre ($9b,x) // ILLEGAL jmp loc_9419 dat_0e27: .byte $89 // . // --- Region $0f06-$0f06 --- .pc = $0f06 "Program $0f06" .byte $72 // jam // ILLEGAL // --- Region $0f17-$0f35 --- .pc = $0f17 "sub_0f17" // Referenced by: jsr from $933d sub_0f17: ldx #$db .label loc_0f1a = * + 1 lda $6c00,x .byte $2f,$26,$36 // rla $3626 // ILLEGAL lda $6d5b,y sta $23b5 jsr sub_1bdf ora $6848,x inc $e8,x cpx #$12 bne loc_0f1a iny bit $ff rts dat_0f35: .byte $ea // . // --- Region $10f0-$10f0 --- .pc = $10f0 "Segment $10f0" brk // --- Region $1214-$122c --- .pc = $1214 "Segment $1214" lsr $b9,x .byte $53,$b3 // sre ($b3),y // ILLEGAL .byte $7b,$9d,$c3 // rra $c39d,y // ILLEGAL sbc $e5,x .byte $34,$32 // nop $32,x // ILLEGAL dec $8c19,x bpl loc_124f dec $527e ror $e9bd .byte $d4,$e8 // nop $e8,x // ILLEGAL .byte $5a // nop // ILLEGAL // --- Region $15d9-$160c --- .pc = $15d9 "loc_15d9" loc_15d9: inx tya and #$0f beq loc_15f3 txa lsr ldx $0333,y loc_15e4: rol rol $9f dex bpl loc_15e4 adc $0367,y tax lda $9f adc $039b,y loc_15f3: sta $039c,y txa sta $0368,y ldx #$04 jsr $0100 sta $0334,y iny cpy #$34 bne loc_15d9 ldy #$00 jmp $0137 dat_160c: .byte $10 // . // --- Region $1805-$1805 --- .pc = $1805 "sub_1805" // Referenced by: jsr from $941e sub_1805: brk // --- Region $1bdf-$1bdf --- .pc = $1bdf "sub_1bdf"