History
- Released
- 20 October 1987
- Code
- Mr. Z and Janitor
- Group
- Triad — Sweden, founded 28 July 1986
Ranked #9 on intros.c64.org, Triad's first crack intro — catalogued on CSDb as "TRIAD Janitor intro" and released on 20 October 1987 — is one of the earliest entries from the Swedish group founded on 28 July 1986. CSDb credits Mr. Z and Janitor for the code, with design also listed but no scene handle attached. No SID composer or graphics artist is credited on the release, and Doc Snyder's group page for Triad lists many numbered intros but carries no section confirmed to match this specific release. Arriving roughly fifteen months after the group's founding, this is the intro that established Triad's early visual identity. See also #4 Plutonium Crackers and #2 Fairlight, contemporaries from the same late-1987 window in European cracking.
Sources: CSDb · docsnyderspage
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:35 // https://restore64.dev by datucker / Rabenauge // // Load address: $0348 End: $ffff (64696 bytes) // Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation // Packer entry: $0810 (via BASIC SYS 2064) // Entry point: $3638 (13880) // // Code: 558 bytes, Data: 64138 bytes // Labels: 59, Subroutines: 3 // // Verification: 5 line(s) auto-corrected to .byte for exact byte matching // // Cross-references: all OK // ============================================ // --- Region $081c-$0a37 --- .pc = $081c "loc_081c" loc_081c: sei lda #$37 sta $01 lda #$0b sta $d022 lda #$0c sta $d023 ldx #$28 loc_082d: lda $0a4e,x sta $0697,x txa clc adc #$7f sta $0347,x adc #$58 sta $036f,x dex bne loc_082d stx $c6 stx $8e stx $8f stx $8b stx $d020 ldy #$ff jsr sub_0a10 lda #$80 sta $8d jsr sub_0a2f loc_0859: lda $a8,x sta $03a8,x lda $0a7b,x eor #$5a sta $a8,x lda #$07 sta dat_d8a8,x inx cpx #$17 bne loc_0859 lda #$d4 jsr sub_09e8 loc_0874: lda $8b ldy #$00 ldx #$da loc_087a: cpx $d012 bne loc_087a sta dat_d016 sty $d018 ldx #$09 loc_0887: dex bne loc_0887 loc_088a: lda $0a77,y sta $d021 ldx #$25 loc_0892: dex bne loc_0892 iny cpy #$04 bne loc_088a ldx #$0d loc_089c: dex bne loc_089c stx $d021 lda #$07 ldx #$eb iny loc_08a7: cpx $d012 bne loc_08a7 sta dat_d016 sty $d018 dec $8b dec $8b bmi loc_08bb jmp loc_094f loc_08bb: sta $8b ldx #$00 stx $02 loc_08c1: lda $0349,x sta $0348,x lda $0371,x sta $0370,x inx cpx #$28 bne loc_08c1 lda #$02 sta $fc lda $8d tax sta $036f clc adc #$58 sta $0397 txa inx cpx #$a8 bne loc_08ea ldx #$80 loc_08ea: stx $8d asl asl asl rol $fc