From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/common/lib/multitask-semaphore.frt | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 amforth-6.5/common/lib/multitask-semaphore.frt (limited to 'amforth-6.5/common/lib/multitask-semaphore.frt') diff --git a/amforth-6.5/common/lib/multitask-semaphore.frt b/amforth-6.5/common/lib/multitask-semaphore.frt deleted file mode 100644 index 3b9cca4..0000000 --- a/amforth-6.5/common/lib/multitask-semaphore.frt +++ /dev/null @@ -1,15 +0,0 @@ -\ Semaphores (Source: B. Rodriguez) -\ cvariable sem1 -\ : read sem1 wait do-something sem1 signal ; -\ do-something has the ressource controlled by sem1 exlusivly -\ wait can be used to communicate with interrupt service routines too -\ -: wait ( addr - ) - begin pause dup c@ until \ wait for non-zero = available - 0 swap c! -; - -: signal ( addr -- ) - 1 swap c! \ non-zero means available -; - -- cgit v1.2.3