tebe6502 · tebe6502 · Dec 8, 2025 · Dec 7, 2025 · Dec 7, 2025 · Dec 7, 2025
diff --git a/samples/.gitignore b/samples/.gitignore
@@ -1,8 +1,6 @@
-*memory.dump
 *.a65
 *.lab
 *.lst
 *.obx
-*.xex
 *.exe
 *.log
diff --git a/samples/a8/.gitignore b/samples/a8/.gitignore
@@ -0,0 +1,2 @@
+*memory.dump
+*.xex
diff --git a/samples/c4plus/.gitignore b/samples/c4plus/.gitignore
@@ -0,0 +1 @@
+*.prg
diff --git a/samples/c4plus/Multipaint/hires.prg b/samples/c4plus/Multipaint/hires.prg
diff --git a/samples/c4plus/Multipaint/hires_apl.prg b/samples/c4plus/Multipaint/hires_apl.prg
diff --git a/samples/c4plus/Multipaint/hires_apl_exo.prg b/samples/c4plus/Multipaint/hires_apl_exo.prg
diff --git a/samples/c4plus/Multipaint/mp.prg b/samples/c4plus/Multipaint/mp.prg
diff --git a/samples/c4plus/Multipaint/multicolor.prg b/samples/c4plus/Multipaint/multicolor.prg
diff --git a/samples/c4plus/Multipaint/tron.prg b/samples/c4plus/Multipaint/tron.prg
diff --git a/samples/c4plus/TEDzakker/demo.tzp.prg b/samples/c4plus/TEDzakker/demo.tzp.prg
diff --git a/samples/c4plus/c4p_test.prg b/samples/c4plus/c4p_test.prg
diff --git a/samples/c4plus/hello.prg b/samples/c4plus/hello.prg
diff --git a/samples/c4plus/plasma.prg b/samples/c4plus/plasma.prg
diff --git a/samples/c4plus/siege/siege.prg b/samples/c4plus/siege/siege.prg
diff --git a/samples/c4plus/tron-game/bin/tron_plus_4.prg b/samples/c4plus/tron-game/bin/tron_plus_4.prg
diff --git a/samples/c64/.gitignore b/samples/c64/.gitignore
@@ -0,0 +1 @@
+*.prg
diff --git a/samples/c64/benchmark/MonteCarlo.prg b/samples/c64/benchmark/MonteCarlo.prg
diff --git a/samples/c64/benchmark/YoshBenchPlus.prg b/samples/c64/benchmark/YoshBenchPlus.prg
diff --git a/samples/c64/benchmark/sieve.prg b/samples/c64/benchmark/sieve.prg
diff --git a/samples/c64/crt/cmap.prg b/samples/c64/crt/cmap.prg
diff --git a/samples/c64/crt/colorchars.prg b/samples/c64/crt/colorchars.prg
diff --git a/samples/c64/crt/hello.prg b/samples/c64/crt/hello.prg
diff --git a/samples/c64/crt/keypressed.prg b/samples/c64/crt/keypressed.prg
diff --git a/samples/c64/crt/piramid.prg b/samples/c64/crt/piramid.prg
diff --git a/samples/c64/crt/readkey.prg b/samples/c64/crt/readkey.prg
diff --git a/samples/c64/crt/snake.prg b/samples/c64/crt/snake.prg
diff --git a/samples/c64/graph/board.prg b/samples/c64/graph/board.prg
diff --git a/samples/c64/graph/circle.prg b/samples/c64/graph/circle.prg
diff --git a/samples/c64/graph/fractal_tree_float16.prg b/samples/c64/graph/fractal_tree_float16.prg
diff --git a/samples/c64/graph/graph_test.prg b/samples/c64/graph/graph_test.prg
diff --git a/samples/c64/graph/lines.prg b/samples/c64/graph/lines.prg
diff --git a/samples/c64/graph/snowflake.PRG b/samples/c64/graph/snowflake.PRG
diff --git a/samples/c64/graph/sphere.prg b/samples/c64/graph/sphere.prg
diff --git a/samples/c64/music_collection/bin/collection.prg b/samples/c64/music_collection/bin/collection.prg
diff --git a/samples/c64/pas6502_test.prg b/samples/c64/pas6502_test.prg
diff --git a/samples/c64/pic/1914/1914.prg b/samples/c64/pic/1914/1914.prg
diff --git a/samples/c64/pic/FantasyLand/FantasyLand.prg b/samples/c64/pic/FantasyLand/FantasyLand.prg
diff --git a/samples/c64/sid/Play_SID.pas b/samples/c64/sid/Play_SID.pas
@@ -1,96 +1,69 @@
 { ==================================
-  Demo program - SID player (c64)
-  Created: 12/5/2022
-  Song:    What It Takes, by Jimmy Nielsen (Shogun)
-  URL:     https://csdb.dk/sid/?id=57014
-   ================================== }
+  SID player (C64)
+  ================================== }
 program PlaySID;
-uses Commodore64;
+
+uses crt, sysutils;
 
 var
-  CIA_Interrupt : byte absolute $DC0D;
-  ScreenControl : byte absolute $D011;
-  RasterLine    : byte absolute $D012;
-  InterruptFlag : byte absolute $D019;
-  InterruptMask : byte absolute $D01A;
+  CIAInterrupt     : byte absolute $DC0D;
+  ScreenControl    : byte absolute $D011;
+  RasterLine       : byte absolute $D012;
+  InterruptFlag    : byte absolute $D019;
+  InterruptMask    : byte absolute $D01A;
+  BorderColor      : byte absolute $D020;
+  BackgroundColor0 : byte absolute $D021;
 
   IRQ: word absolute $314;
-  SID: array of byte = ({$BIN2CSV Test.sid});
-
-  Src, Dst, Count: word ZeroPage;
+  SID: array of byte = [{$BIN2CSV 'Play_SID.sid'}];
 
-  procedure CopyR;
-  begin
-    asm
-          LDA SID + $0A     ; get address of Init
-          STA Dst+1
-          LDA SID + $0B
-          STA Dst
-          LDX Count+1  ; the last byte must be moved first
-          CLC          ; start at the final pages of FROM and TO
-          TXA
-          ADC Src+1
-          STA Src+1
-          CLC
-          TXA
-          ADC Dst+1
-          STA Dst+1
-          INX          ; allows the use of BNE after the DEX below
-          LDY Count
-          BEQ next
-          DEY          ; move bytes on the last page first
-          BEQ loop2
- loop1:   LDA (Src),Y
-          STA (Dst),Y
-          DEY
-          BNE loop1
- loop2:   LDA (Src),Y ; handle Y = 0 separately
-          STA (Dst),Y
- next:    DEY
-          DEC Src+1   ; move the next page (if any)
-          DEC Dst+1
-          DEX
-          BNE loop1
-    end; 
-  end;
+  Src  : Word;
+  Dst  : Word;
+  Size : Word;
+  InitAddress : Word;
+  PlayAddress : Word;
 
 begin
-  Src   := @SID + $7E;
-  //Dst   := @SID + $7C;
-  Count := SID.Length - $7E;
-  CopyR;
-
-  CIA_Interrupt := $7F;  // stops IRQs from CIA
-  asm 
-          LDA SID + $0A     ; get address of Init
-          STA init + 2
-          LDA SID + $0B
-          STA init + 1
-          LDA SID + $0C     ; get address of Play
-          STA play + 2
-          LDA SID + $0D
-          STA play + 1
-
-	        LDA #0            ; start with first song
-  init:   JSR $0000         ; Init SID player
+
+  BorderColor:=0;
+  BackgroundColor0:=0;
+  WriteLn(#147#5'Doublebass (v2)');
+  WriteLn(#159'Aidan Crouzet-Pascal (acrouzet)');
+  WriteLn(#30'2021 Genesis Project');
+  WriteLn(#156'https://demozoo.org/music/330333');
+  WriteLn;
+
+  Src   := Word(@SID + $7E);
+  Dst   := SID[$7C]+256*SID[$7D];
+  Size  := Length(SID) - $7E;
+  Move(Pointer(src), Pointer(Dst), Size);
+  WriteLn(#151'Copied $',HexStr(Size,4),' bytes from $',HexStr(Src,4),' to $',HexStr(Dst,4),'.');
+
+  InitAddress   := 256*SID[$0A]+SID[$0B];
+  PlayAddress   := 256*SID[$0C]+SID[$0D];
+  WriteLn(#151'Init address $',HexStr(InitAddress,4),', play address $',HexStr(PlayAddress,4),'.');
+  CIAInterrupt := $7F;  // stops IRQs from CIA
+  asm
+          MWA InitAddress init+1  ; get address of Init
+          MWA PlayAddress play+1  ; get address of Play
+
+	  LDA #0                  ; start with the first song
+  init:   JSR $ffff               ; initialize the SID player
           SEI
-          LDA #1
-          STA InterruptMask ; enable raster interrupts
-          LDA #$64
-          STA RasterLine    ; raise IRQ in that line
+          MVA #1 InterruptMask    ; enable raster interrupts
+          MVA #$64 RasterLine     ; raise IRQ in that line
           LDA ScreenControl
-          AND #$7F          ; Clear bit 7
-          STA ScreenControl ; 9th bit of RasterLine
-          LDA #<IRQ_Handler ; Hijack IRQ vector
-          STA IRQ
-          LDA #>IRQ_Handler
-          STA IRQ + 1
+          AND #$7F                ; Clear bit 7
+          STA ScreenControl       ; 9th bit of RasterLine
+          MWA #IRQ_Handler IRQ    ; Hijack IRQ vector
           CLI
           RTS
+
 
   IRQ_Handler:          
-          INC InterruptFlag ; ack the interrupt
-  play:   JSR $0000         ; Play
-          JMP $EA31  
+          INC InterruptFlag       ; ack the interrupt
+
+  play:   JSR $ffff               ; Play
+          JMP $EA31
   end; 
 end.
diff --git a/samples/c64/sid/test.sid → samples/c64/sid/Play_SID.sid b/samples/c64/sid/test.sid → samples/c64/sid/Play_SID.sid
diff --git a/samples/c64/sid/What_It_Takes.sid b/samples/c64/sid/What_It_Takes.sid
diff --git a/samples/c64/sprites/UpUpAndAway.prg b/samples/c64/sprites/UpUpAndAway.prg
diff --git a/samples/minicube64/.gitignore b/samples/minicube64/.gitignore
@@ -0,0 +1,2 @@
+*.bin
+
diff --git a/samples/minicube64/cube.bin b/samples/minicube64/cube.bin
diff --git a/samples/minicube64/palette.bin b/samples/minicube64/palette.bin
diff --git a/samples/minicube64/plasma.bin b/samples/minicube64/plasma.bin
diff --git a/samples/minicube64/twister.bin b/samples/minicube64/twister.bin
diff --git a/samples/neo6502/.gitignore b/samples/neo6502/.gitignore
@@ -0,0 +1 @@
+*.neo
diff --git a/samples/neo6502/bubbleuniverse/bubbleuniverse_fast.neo b/samples/neo6502/bubbleuniverse/bubbleuniverse_fast.neo
diff --git a/samples/neo6502/grapx/diamond.neo b/samples/neo6502/grapx/diamond.neo
diff --git a/samples/neo6502/grapx/dragon.neo b/samples/neo6502/grapx/dragon.neo
diff --git a/samples/neo6502/grapx/palette.neo b/samples/neo6502/grapx/palette.neo
diff --git a/samples/neo6502/grapx/snowflake.neo b/samples/neo6502/grapx/snowflake.neo
diff --git a/samples/neo6502/grapx/sphere.neo b/samples/neo6502/grapx/sphere.neo
diff --git a/samples/neo6502/hello/hello.neo b/samples/neo6502/hello/hello.neo
diff --git a/samples/neo6502/math/float_benchmark.neo b/samples/neo6502/math/float_benchmark.neo
diff --git a/samples/neo6502/math/math_test.neo b/samples/neo6502/math/math_test.neo
diff --git a/samples/neo6502/neo_api/neo_api.neo b/samples/neo6502/neo_api/neo_api.neo
diff --git a/samples/neo6502/slideshow/slideshow.neo b/samples/neo6502/slideshow/slideshow.neo
diff --git a/samples/neo6502/text_scroll/main.neo b/samples/neo6502/text_scroll/main.neo
diff --git a/samples/neo6502/text_scroll/text_scroll_big.neo b/samples/neo6502/text_scroll/text_scroll_big.neo
diff --git a/samples/neo6502/turtle/turtle.neo b/samples/neo6502/turtle/turtle.neo
diff --git a/samples/neo6502/uext/blink.neo b/samples/neo6502/uext/blink.neo
diff --git a/samples/neo6502/vblank/main.neo b/samples/neo6502/vblank/main.neo
diff --git a/samples/tests/.gitignore b/samples/tests/.gitignore
@@ -0,0 +1,2 @@
+*memory.dump
+*.xex
diff --git a/samples/vic-20/.gitignore b/samples/vic-20/.gitignore
@@ -0,0 +1 @@
+*.prg