From 53b5f790518130a46b4a45ac5c5068dabddfe3e2 Mon Sep 17 00:00:00 2001 From: Stefan Date: Thu, 22 Jan 2026 13:49:56 +0100 Subject: [PATCH 1/2] Combine C16 and Plus/4 source --- libsrc/c16/randomize.s | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) diff --git a/libsrc/c16/randomize.s b/libsrc/c16/randomize.s index 0d1ccaf03..9c24bf974 100644 --- a/libsrc/c16/randomize.s +++ b/libsrc/c16/randomize.s @@ -1,18 +1 @@ -; -; 2002-11-05, Ullrich von Bassewitz -; 2015-09-11, Greg King -; -; void __randomize (void); -; /* Initialize the random number generator */ -; - - .export ___randomize - .import _srand - - .include "plus4.inc" - -___randomize: - ldx TED_VLINELO ; Use TED rasterline as high byte - lda TIME+2 ; Use 60HZ clock as low byte - jmp _srand ; Initialize generator - +.include "../plus4/randomize.s" From 0125d82902f15c979e450873baddc619a2e41b8c Mon Sep 17 00:00:00 2001 From: Stefan Date: Thu, 22 Jan 2026 14:37:52 +0100 Subject: [PATCH 2/2] Replace kbhit implementation with new include --- libsrc/c16/kbhit.s | 27 +-------------------------- 1 file changed, 1 insertion(+), 26 deletions(-) diff --git a/libsrc/c16/kbhit.s b/libsrc/c16/kbhit.s index bb88beea8..e09678650 100644 --- a/libsrc/c16/kbhit.s +++ b/libsrc/c16/kbhit.s @@ -1,26 +1 @@ -; -; Ullrich von Bassewitz, 06.08.1998 -; -; unsigned char kbhit (void); -; - - .export _kbhit - - .include "plus4.inc" - - -.proc _kbhit - - ldx #0 ; High byte of return is always zero - lda KEY_COUNT ; Get number of characters - ora FKEY_COUNT ; Or with number of chars from function keys - beq L9 - lda #1 -L9: rts - -.endproc - - - - - +.include "../plus4/kbhit.s"