Revision: 1281
Author: jsuijs
Date: Wed Sep 2 10:06:48 2009
Log: new delay_1s procedure.
http://code.google.com/p/jallib/source/detail?r=1281
Modified:
/trunk/CHANGELOG
/trunk/include/jal/delay.jal
=======================================
--- /trunk/CHANGELOG Sun Aug 30 00:56:19 2009
+++ /trunk/CHANGELOG Wed Sep 2 10:06:48 2009
@@ -16,7 +16,7 @@
-
jal extension:
- -
+ - added delay_1s
samples:
- seven_segment samples
=======================================
--- /trunk/include/jal/delay.jal Sun Aug 9 11:24:50 2009
+++ /trunk/include/jal/delay.jal Wed Sep 2 10:06:48 2009
@@ -122,10 +122,18 @@
-- Delays for n * 100 msec
procedure delay_100ms(word in n) is
- const _100_ms_delay = 100000 - ((14 * instruction_time) / 100)
+ const _100_ms_delay = 100_000 - ((14 * instruction_time) / 100)
for n loop
_usec_delay(_100_ms_delay)
end loop
end procedure
-
+-- Delays for n * 1 sec
+procedure delay_1s(word in n) is
+ const _1_s_delay = 1000_000 - ((14 * instruction_time) / 100)
+ for n loop
+ _usec_delay(_1_s_delay)
+ end loop
+end procedure
+
+
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"jallib" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/jallib?hl=en
-~----------~----~----~----~------~----~------~--~---
