History
- Released
- 11 January 1991
- Code
- Spot
- Group
- Triangle 3532 — Denmark, founded 1 May 1987
This Triangle 3532 intro was coded by Spot and released on 11 January 1991. CSDb catalogues it under the group's full designation — Triangle 3532 — a Danish cracking crew founded on 1 May 1987. The intro carries no music credits, relying instead on visual presentation alone. Triangle's motto and numerical suffix "3532" served as a distinctive identifier within the Scandinavian scene, where Danish groups were numerous and name collisions common. The group maintained a website at kwed.org, linking them to the broader Nordic SID music preservation community. With no additional credits for graphics or design listed by handle, Spot may have handled the entire production solo — a common practice for smaller intros in the early 1990s when groups prioritized rapid release turnaround over elaborate intro screens.
Sources: CSDb
// ============================================ // triangle-01 - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 vdisasm-one 1.0 build 1, 2026-03-29 17:54:26 // https://restore64.dev by datucker / Rabenauge // // Load address: $0801 End: $0fff (2047 bytes) // Entry point: $0810 (via BASIC SYS 2064) // // Code: 721 bytes, Data: 1326 bytes // Labels: 73, Subroutines: 9 // // Cross-references: all OK // ============================================ // --- Region $0810-$08dd --- .pc = $0810 "main_0810" main_0810: lda #$00 sta $d011 // text mode, screen off, 24 rows, Y-scroll=0 sta $d020 sta $d021 sta $fb lda #$90 jsr $ffd2 jsr $e544 ldx #$00 lda #$01 loc_0829: sta $d9c0,x inx bne loc_0829 ldx #$00 lda #$40 loc_0833: sta $0400,x sta $0500,x sta $0600,x sta $0700,x inx bne loc_0833 jsr sub_0985 jsr sub_0c19 lda #$00 sta $b0 sta $b2 lda #$20 sta $b1 lda #$fb sta $b3 lda #$25 sta $b4 jsr sub_0d00 jsr sub_0a7b jsr sub_0abb sei lda #$19 sta $d018 // screen=$0400, charset=$2000 loc_0869: ldx #$42 loc_086b: cpx $d012 bne loc_086b loc_0870: lda loc_089c,x loc_0873: cpx $d012 beq loc_0873 sta $d021 inx cpx #$83 bne loc_0870 lda #$c8 sta $d016 // hires, 40 cols, X-scroll=0 jsr sub_098e jsr sub_09b6 ldx #$c7 loc_088d: cpx $d012 bne loc_088d .label smc_0893 = * + 1 lda #$c8 // !SMC: modified by $0951 sta $d016 // hires, 40 cols, X-scroll=0 ldx #$04 loc_0899: lda $d012 loc_089c: cmp $d012 beq loc_089c txa and #$07 ora #$18 sta $d011 inx .label smc_08ab = * + 1 cpx #$40 // !SMC: modified by $08b6 bne loc_0899 ldx $fa lda $0c6b,x clc adc #$01 sta smc_08ab // SMC: modifies $08ab inx stx $fa cpx #$40 bne loc_08c4 lda #$00 sta $fa loc_08c4: ldx #$00 loc_08c6: cpx $d012 bne loc_08c6 lda #$1b sta $d011 // text mode, screen on, 25 rows, Y-scroll=3 lda #$c4 sta $d016 // hires, 38 cols, X-scroll=4 jsr sub_093f jsr sub_0cab jmp loc_0869 // --- Region $093f-$0a51 --- .pc = $093f "sub_093f" // Referenced by: jsr from $08d5 sub_093f: ldx #$02 loc_0941: dex bpl loc_0945 dat_0944: .byte $60 // ` loc_0945: