Revision: 1479
Author: [email protected]
Date: Fri Nov 13 14:20:33 2009
Log: modified large array lib, some vars start with "_" char, added to
torelease & changelog
http://code.google.com/p/jallib/source/detail?r=1479
Modified:
/trunk/CHANGELOG
/trunk/TORELEASE
/trunk/include/jal/large_array_1.jal
=======================================
--- /trunk/CHANGELOG Thu Nov 12 11:58:40 2009
+++ /trunk/CHANGELOG Fri Nov 13 14:20:33 2009
@@ -36,6 +36,7 @@
- fix to make rtc_int_tmr0 library independent of ocsillator frequency
- profiler library to measure execution time of a procedure
- math library (currently only square root functions)
+ - large array library (supporting 18F PICs)
samples:
- added seven_segment samples
@@ -46,6 +47,7 @@
- added auto start USB bootloader
- added 3 samples of use of RTC library with 16F886 (resonator and
internal oscillator)
- added1 sample of use of math function (square root) with 16F886
+ - added sample for large array library on 18f452
compiler:
-
=======================================
--- /trunk/TORELEASE Sat Nov 7 23:59:09 2009
+++ /trunk/TORELEASE Fri Nov 13 14:20:33 2009
@@ -233,6 +233,7 @@
include/jal/random.jal
include/jal/rtc_isr_tmr0.jal
include/jal/unittest.jal
+include/jal/large_array_1.jal
# Peripherals
include/peripheral/adc/adc.jal
@@ -688,3 +689,4 @@
sample/18lf25j10_blink.jal
sample/18lf44j10_blink.jal
sample/18lf45j10_blink.jal
+sample/18f452_large_array.jal
=======================================
--- /trunk/include/jal/large_array_1.jal Tue Nov 10 22:40:48 2009
+++ /trunk/include/jal/large_array_1.jal Fri Nov 13 14:20:33 2009
@@ -22,8 +22,8 @@
-- Example:
-- const dword LARGE_ARRAY_1_SIZE = 600 -- choose number of
array variables
-- const dword LARGE_ARRAY_1_VARIABLE_SIZE = 2 -- choose size of
variables (byte*2)
--- include large_array_1 -- include the array library
--- alias test is large_array_1 -- rename/alias the array to test
+-- include large_array_1 -- include the array
library
+-- alias test is large_array_1 -- rename/alias the
array to test
--
--------------------------------------------------------------------------------
@@ -32,64 +32,64 @@
if LARGE_ARRAY_1_VARIABLE_SIZE == 1 then -- if array will be byte*1
-- create smaller byte arrays
- var byte large_array_1_byte_1h[256]
- var byte large_array_1_byte_2h[256]
- var byte large_array_1_byte_3h[256]
- var byte large_array_1_byte_4h[256]
- var byte large_array_1_byte_5h[256]
- var byte large_array_1_byte_6h[256]
- var byte large_array_1_byte_7h[256]
+ var byte _large_array_1_byte_1h[256]
+ var byte _large_array_1_byte_2h[256]
+ var byte _large_array_1_byte_3h[256]
+ var byte _large_array_1_byte_4h[256]
+ var byte _large_array_1_byte_5h[256]
+ var byte _large_array_1_byte_6h[256]
+ var byte _large_array_1_byte_7h[256]
if !(LARGE_ARRAY_1_SIZE == (256 * 7)) then -- don't make an array with
0 entries
- var byte large_array_1_byte_8h[LARGE_ARRAY_1_SIZE - (256 * 7)]
+ var byte _large_array_1_byte_8h[LARGE_ARRAY_1_SIZE - (256 * 7)]
end if
- var byte large_array_1_byte_1g[256]
- var byte large_array_1_byte_2g[256]
- var byte large_array_1_byte_3g[256]
- var byte large_array_1_byte_4g[256]
- var byte large_array_1_byte_5g[256]
- var byte large_array_1_byte_6g[256]
+ var byte _large_array_1_byte_1g[256]
+ var byte _large_array_1_byte_2g[256]
+ var byte _large_array_1_byte_3g[256]
+ var byte _large_array_1_byte_4g[256]
+ var byte _large_array_1_byte_5g[256]
+ var byte _large_array_1_byte_6g[256]
if !(LARGE_ARRAY_1_SIZE == (256 * 6)) then
- var byte large_array_1_byte_7g[LARGE_ARRAY_1_SIZE - (256 * 6)]
+ var byte _large_array_1_byte_7g[LARGE_ARRAY_1_SIZE - (256 * 6)]
end if
- var byte large_array_1_byte_1f[256]
- var byte large_array_1_byte_2f[256]
- var byte large_array_1_byte_3f[256]
- var byte large_array_1_byte_4f[256]
- var byte large_array_1_byte_5f[256]
+ var byte _large_array_1_byte_1f[256]
+ var byte _large_array_1_byte_2f[256]
+ var byte _large_array_1_byte_3f[256]
+ var byte _large_array_1_byte_4f[256]
+ var byte _large_array_1_byte_5f[256]
if !(LARGE_ARRAY_1_SIZE == (256 * 5)) then
- var byte large_array_1_byte_6f[LARGE_ARRAY_1_SIZE - (256 * 5)]
+ var byte _large_array_1_byte_6f[LARGE_ARRAY_1_SIZE - (256 * 5)]
end if
- var byte large_array_1_byte_1e[256]
- var byte large_array_1_byte_2e[256]
- var byte large_array_1_byte_3e[256]
- var byte large_array_1_byte_4e[256]
+ var byte _large_array_1_byte_1e[256]
+ var byte _large_array_1_byte_2e[256]
+ var byte _large_array_1_byte_3e[256]
+ var byte _large_array_1_byte_4e[256]
if !(LARGE_ARRAY_1_SIZE == (256 * 4)) then
- var byte large_array_1_byte_5e[LARGE_ARRAY_1_SIZE - (256 * 4)]
+ var byte _large_array_1_byte_5e[LARGE_ARRAY_1_SIZE - (256 * 4)]
end if
- var byte large_array_1_byte_1d[256]
- var byte large_array_1_byte_2d[256]
- var byte large_array_1_byte_3d[256]
+ var byte _large_array_1_byte_1d[256]
+ var byte _large_array_1_byte_2d[256]
+ var byte _large_array_1_byte_3d[256]
if !(LARGE_ARRAY_1_SIZE == (256 * 3)) then
- var byte large_array_1_byte_4d[LARGE_ARRAY_1_SIZE - (256 * 3)]
+ var byte _large_array_1_byte_4d[LARGE_ARRAY_1_SIZE - (256 * 3)]
end if
- var byte large_array_1_byte_1c[256]
- var byte large_array_1_byte_2c[256]
+ var byte _large_array_1_byte_1c[256]
+ var byte _large_array_1_byte_2c[256]
if !(LARGE_ARRAY_1_SIZE == (256 * 2)) then
- var byte large_array_1_byte_3c[LARGE_ARRAY_1_SIZE - (256 * 2)]
+ var byte _large_array_1_byte_3c[LARGE_ARRAY_1_SIZE - (256 * 2)]
end if
- var byte large_array_1_byte_1b[256]
+ var byte _large_array_1_byte_1b[256]
if !(LARGE_ARRAY_1_SIZE == 256) then
- var byte large_array_1_byte_2b[LARGE_ARRAY_1_SIZE - (256)]
+ var byte _large_array_1_byte_2b[LARGE_ARRAY_1_SIZE - (256)]
end if
if !(LARGE_ARRAY_1_SIZE == 0) then
- var byte large_array_1_byte_1a[LARGE_ARRAY_1_SIZE]
+ var byte _large_array_1_byte_1a[LARGE_ARRAY_1_SIZE]
end if
-- get a value from a large byte array
@@ -98,90 +98,90 @@
if LARGE_ARRAY_1_SIZE > 1792 then
if address >= 1792 then
- data = large_array_1_byte_8h[address - 1792]
+ data = _large_array_1_byte_8h[address - 1792]
elsif address >= 1536 then
- data = large_array_1_byte_7h[address - 1536]
+ data = _large_array_1_byte_7h[address - 1536]
elsif address >= 1280 then
- data = large_array_1_byte_6h[address - 1280]
+ data = _large_array_1_byte_6h[address - 1280]
elsif address >= 1024 then
- data = large_array_1_byte_5h[address - 1024]
+ data = _large_array_1_byte_5h[address - 1024]
elsif address >= 768 then
- data = large_array_1_byte_4h[address - 768]
+ data = _large_array_1_byte_4h[address - 768]
elsif address >= 512 then
- data = large_array_1_byte_3h[address - 512]
+ data = _large_array_1_byte_3h[address - 512]
elsif address >= 256 then
- data = large_array_1_byte_2h[address - 256]
+ data = _large_array_1_byte_2h[address - 256]
else
- data = large_array_1_byte_1h[address - 0]
+ data = _large_array_1_byte_1h[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 1536 then
if address >= 1536 then
- data = large_array_1_byte_7g[address - 1536]
+ data = _large_array_1_byte_7g[address - 1536]
elsif address >= 1280 then
- data = large_array_1_byte_6g[address - 1280]
+ data = _large_array_1_byte_6g[address - 1280]
elsif address >= 1024 then
- data = large_array_1_byte_5g[address - 1024]
+ data = _large_array_1_byte_5g[address - 1024]
elsif address >= 768 then
- data = large_array_1_byte_4g[address - 768]
+ data = _large_array_1_byte_4g[address - 768]
elsif address >= 512 then
- data = large_array_1_byte_3g[address - 512]
+ data = _large_array_1_byte_3g[address - 512]
elsif address >= 256 then
- data = large_array_1_byte_2g[address - 256]
+ data = _large_array_1_byte_2g[address - 256]
else
- data = large_array_1_byte_1g[address - 0]
+ data = _large_array_1_byte_1g[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 1280 then
if address >= 1280 then
- data = large_array_1_byte_6f[address - 1280]
+ data = _large_array_1_byte_6f[address - 1280]
elsif address >= 1024 then
- data = large_array_1_byte_5f[address - 1024]
+ data = _large_array_1_byte_5f[address - 1024]
elsif address >= 768 then
- data = large_array_1_byte_4f[address - 768]
+ data = _large_array_1_byte_4f[address - 768]
elsif address >= 512 then
- data = large_array_1_byte_3f[address - 512]
+ data = _large_array_1_byte_3f[address - 512]
elsif address >= 256 then
- data = large_array_1_byte_2f[address - 256]
+ data = _large_array_1_byte_2f[address - 256]
else
- data = large_array_1_byte_1f[address - 0]
+ data = _large_array_1_byte_1f[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 1024 then
if address >= 1024 then
- data = large_array_1_byte_5e[address - 1024]
+ data = _large_array_1_byte_5e[address - 1024]
elsif address >= 768 then
- data = large_array_1_byte_4e[address - 768]
+ data = _large_array_1_byte_4e[address - 768]
elsif address >= 512 then
- data = large_array_1_byte_3e[address - 512]
+ data = _large_array_1_byte_3e[address - 512]
elsif address >= 256 then
- data = large_array_1_byte_2e[address - 256]
+ data = _large_array_1_byte_2e[address - 256]
else
- data = large_array_1_byte_1e[address - 0]
+ data = _large_array_1_byte_1e[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 768 then
if address >= 768 then
- data = large_array_1_byte_4d[address - 768]
+ data = _large_array_1_byte_4d[address - 768]
elsif address >= 512 then
- data = large_array_1_byte_3d[address - 512]
+ data = _large_array_1_byte_3d[address - 512]
elsif address >= 256 then
- data = large_array_1_byte_2d[address - 256]
+ data = _large_array_1_byte_2d[address - 256]
else
- data = large_array_1_byte_1d[address - 0]
+ data = _large_array_1_byte_1d[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 512 then
if address >= 512 then
- data = large_array_1_byte_3c[address - 512]
+ data = _large_array_1_byte_3c[address - 512]
elsif address >= 256 then
- data = large_array_1_byte_2c[address - 256]
+ data = _large_array_1_byte_2c[address - 256]
else
- data = large_array_1_byte_1c[address - 0]
+ data = _large_array_1_byte_1c[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 256 then
if address >= 256 then
- data = large_array_1_byte_2b[address - 256]
+ data = _large_array_1_byte_2b[address - 256]
else
- data = large_array_1_byte_1b[address - 0]
+ data = _large_array_1_byte_1b[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 0 then
- data = large_array_1_byte_1a[address - 0]
+ data = _large_array_1_byte_1a[address - 0]
end if
return data
@@ -191,90 +191,90 @@
procedure large_array_1'put (word in address, byte in data) is
if LARGE_ARRAY_1_SIZE > 1792 then
if address >= 1792 then
- large_array_1_byte_8h[address - 1792] = data
+ _large_array_1_byte_8h[address - 1792] = data
elsif address >= 1536 then
- large_array_1_byte_7h[address - 1536] = data
+ _large_array_1_byte_7h[address - 1536] = data
elsif address >= 1280 then
- large_array_1_byte_6h[address - 1280] = data
+ _large_array_1_byte_6h[address - 1280] = data
elsif address >= 1024 then
- large_array_1_byte_5h[address - 1024] = data
+ _large_array_1_byte_5h[address - 1024] = data
elsif address >= 768 then
- large_array_1_byte_4h[address - 768] = data
+ _large_array_1_byte_4h[address - 768] = data
elsif address >= 512 then
- large_array_1_byte_3h[address - 512] = data
+ _large_array_1_byte_3h[address - 512] = data
elsif address >= 256 then
- large_array_1_byte_2h[address - 256] = data
+ _large_array_1_byte_2h[address - 256] = data
else
- large_array_1_byte_1h[address - 0] = data
+ _large_array_1_byte_1h[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 1536 then
if address >= 1536 then
- large_array_1_byte_7g[address - 1536] = data
+ _large_array_1_byte_7g[address - 1536] = data
elsif address >= 1280 then
- large_array_1_byte_6g[address - 1280] = data
+ _large_array_1_byte_6g[address - 1280] = data
elsif address >= 1024 then
- large_array_1_byte_5g[address - 1024] = data
+ _large_array_1_byte_5g[address - 1024] = data
elsif address >= 768 then
- large_array_1_byte_4g[address - 768] = data
+ _large_array_1_byte_4g[address - 768] = data
elsif address >= 512 then
- large_array_1_byte_3g[address - 512] = data
+ _large_array_1_byte_3g[address - 512] = data
elsif address >= 256 then
- large_array_1_byte_2g[address - 256] = data
+ _large_array_1_byte_2g[address - 256] = data
else
- large_array_1_byte_1g[address - 0] = data
+ _large_array_1_byte_1g[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 1280 then
if address >= 1280 then
- large_array_1_byte_6f[address - 1280] = data
+ _large_array_1_byte_6f[address - 1280] = data
elsif address >= 1024 then
- large_array_1_byte_5f[address - 1024] = data
+ _large_array_1_byte_5f[address - 1024] = data
elsif address >= 768 then
- large_array_1_byte_4f[address - 768] = data
+ _large_array_1_byte_4f[address - 768] = data
elsif address >= 512 then
- large_array_1_byte_3f[address - 512] = data
+ _large_array_1_byte_3f[address - 512] = data
elsif address >= 256 then
- large_array_1_byte_2f[address - 256] = data
+ _large_array_1_byte_2f[address - 256] = data
else
- large_array_1_byte_1f[address - 0] = data
+ _large_array_1_byte_1f[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 1024 then
if address >= 1024 then
- large_array_1_byte_5e[address - 1024] = data
+ _large_array_1_byte_5e[address - 1024] = data
elsif address >= 768 then
- large_array_1_byte_4e[address - 768] = data
+ _large_array_1_byte_4e[address - 768] = data
elsif address >= 512 then
- large_array_1_byte_3e[address - 512] = data
+ _large_array_1_byte_3e[address - 512] = data
elsif address >= 256 then
- large_array_1_byte_2e[address - 256] = data
+ _large_array_1_byte_2e[address - 256] = data
else
- large_array_1_byte_1e[address - 0] = data
+ _large_array_1_byte_1e[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 768 then
if address >= 768 then
- large_array_1_byte_4d[address - 768] = data
+ _large_array_1_byte_4d[address - 768] = data
elsif address >= 512 then
- large_array_1_byte_3d[address - 512] = data
+ _large_array_1_byte_3d[address - 512] = data
elsif address >= 256 then
- large_array_1_byte_2d[address - 256] = data
+ _large_array_1_byte_2d[address - 256] = data
else
- large_array_1_byte_1d[address - 0] = data
+ _large_array_1_byte_1d[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 512 then
if address >= 512 then
- large_array_1_byte_3c[address - 512] = data
+ _large_array_1_byte_3c[address - 512] = data
elsif address >= 256 then
- large_array_1_byte_2c[address - 256] = data
+ _large_array_1_byte_2c[address - 256] = data
else
- large_array_1_byte_1c[address - 0] = data
+ _large_array_1_byte_1c[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 256 then
if address >= 256 then
- large_array_1_byte_2b[address - 256] = data
+ _large_array_1_byte_2b[address - 256] = data
else
- large_array_1_byte_1b[address - 0] = data
+ _large_array_1_byte_1b[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 0 then
- large_array_1_byte_1a[address - 0] = data
+ _large_array_1_byte_1a[address - 0] = data
end if
end procedure
@@ -282,64 +282,64 @@
-- word array
--------------------------------------------------------------------------------
elsif LARGE_ARRAY_1_VARIABLE_SIZE == 2 then
- var word large_array_1_word_1h[128]
- var word large_array_1_word_2h[128]
- var word large_array_1_word_3h[128]
- var word large_array_1_word_4h[128]
- var word large_array_1_word_5h[128]
- var word large_array_1_word_6h[128]
- var word large_array_1_word_7h[128]
+ var word _large_array_1_word_1h[128]
+ var word _large_array_1_word_2h[128]
+ var word _large_array_1_word_3h[128]
+ var word _large_array_1_word_4h[128]
+ var word _large_array_1_word_5h[128]
+ var word _large_array_1_word_6h[128]
+ var word _large_array_1_word_7h[128]
if !(LARGE_ARRAY_1_SIZE == (128 * 7)) then
- var word large_array_1_word_8h[LARGE_ARRAY_1_SIZE - (128 * 7)]
+ var word _large_array_1_word_8h[LARGE_ARRAY_1_SIZE - (128 * 7)]
end if
- var word large_array_1_word_1g[128]
- var word large_array_1_word_2g[128]
- var word large_array_1_word_3g[128]
- var word large_array_1_word_4g[128]
- var word large_array_1_word_5g[128]
- var word large_array_1_word_6g[128]
+ var word _large_array_1_word_1g[128]
+ var word _large_array_1_word_2g[128]
+ var word _large_array_1_word_3g[128]
+ var word _large_array_1_word_4g[128]
+ var word _large_array_1_word_5g[128]
+ var word _large_array_1_word_6g[128]
if !(LARGE_ARRAY_1_SIZE == (128 * 6)) then
- var word large_array_1_word_7g[LARGE_ARRAY_1_SIZE - (128 * 6)]
+ var word _large_array_1_word_7g[LARGE_ARRAY_1_SIZE - (128 * 6)]
end if
- var word large_array_1_word_1f[128]
- var word large_array_1_word_2f[128]
- var word large_array_1_word_3f[128]
- var word large_array_1_word_4f[128]
- var word large_array_1_word_5f[128]
+ var word _large_array_1_word_1f[128]
+ var word _large_array_1_word_2f[128]
+ var word _large_array_1_word_3f[128]
+ var word _large_array_1_word_4f[128]
+ var word _large_array_1_word_5f[128]
if !(LARGE_ARRAY_1_SIZE == (128 * 5)) then
- var word large_array_1_word_6f[LARGE_ARRAY_1_SIZE - (128 * 5)]
+ var word _large_array_1_word_6f[LARGE_ARRAY_1_SIZE - (128 * 5)]
end if
- var word large_array_1_word_1e[128]
- var word large_array_1_word_2e[128]
- var word large_array_1_word_3e[128]
- var word large_array_1_word_4e[128]
+ var word _large_array_1_word_1e[128]
+ var word _large_array_1_word_2e[128]
+ var word _large_array_1_word_3e[128]
+ var word _large_array_1_word_4e[128]
if !(LARGE_ARRAY_1_SIZE == (128 * 4)) then
- var word large_array_1_word_5e[LARGE_ARRAY_1_SIZE - (128 * 4)]
+ var word _large_array_1_word_5e[LARGE_ARRAY_1_SIZE - (128 * 4)]
end if
- var word large_array_1_word_1d[128]
- var word large_array_1_word_2d[128]
- var word large_array_1_word_3d[128]
+ var word _large_array_1_word_1d[128]
+ var word _large_array_1_word_2d[128]
+ var word _large_array_1_word_3d[128]
if !(LARGE_ARRAY_1_SIZE == (128 * 3)) then
- var word large_array_1_word_4d[LARGE_ARRAY_1_SIZE - (128 * 3)]
+ var word _large_array_1_word_4d[LARGE_ARRAY_1_SIZE - (128 * 3)]
end if
- var word large_array_1_word_1c[128]
- var word large_array_1_word_2c[128]
+ var word _large_array_1_word_1c[128]
+ var word _large_array_1_word_2c[128]
if !(LARGE_ARRAY_1_SIZE == (128 * 2)) then
- var word large_array_1_word_3c[LARGE_ARRAY_1_SIZE - (128 * 2)]
+ var word _large_array_1_word_3c[LARGE_ARRAY_1_SIZE - (128 * 2)]
end if
- var word large_array_1_word_1b[128]
+ var word _large_array_1_word_1b[128]
if !(LARGE_ARRAY_1_SIZE == 128) then
- var word large_array_1_word_2b[LARGE_ARRAY_1_SIZE - (128 * 1)]
+ var word _large_array_1_word_2b[LARGE_ARRAY_1_SIZE - (128 * 1)]
end if
if !(LARGE_ARRAY_1_SIZE == (0)) then
- var word large_array_1_word_1a[LARGE_ARRAY_1_SIZE - (128 * 0)]
+ var word _large_array_1_word_1a[LARGE_ARRAY_1_SIZE - (128 * 0)]
end if
function large_array_1'get(word in address) return word is
@@ -347,90 +347,90 @@
if LARGE_ARRAY_1_SIZE > 896 then
if address >= 896 then
- data = large_array_1_word_8h[address - 896]
+ data = _large_array_1_word_8h[address - 896]
elsif address >= 768 then
- data = large_array_1_word_7h[address - 768]
+ data = _large_array_1_word_7h[address - 768]
elsif address >= 640 then
- data = large_array_1_word_6h[address - 640]
+ data = _large_array_1_word_6h[address - 640]
elsif address >= 512 then
- data = large_array_1_word_5h[address - 512]
+ data = _large_array_1_word_5h[address - 512]
elsif address >= 384 then
- data = large_array_1_word_4h[address - 384]
+ data = _large_array_1_word_4h[address - 384]
elsif address >= 256 then
- data = large_array_1_word_3h[address - 256]
+ data = _large_array_1_word_3h[address - 256]
elsif address >= 128 then
- data = large_array_1_word_2h[address - 128]
+ data = _large_array_1_word_2h[address - 128]
else
- data = large_array_1_word_1h[address - 0]
+ data = _large_array_1_word_1h[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 768 then
if address >= 768 then
- data = large_array_1_word_7g[address - 768]
+ data = _large_array_1_word_7g[address - 768]
elsif address >= 640 then
- data = large_array_1_word_6g[address - 640]
+ data = _large_array_1_word_6g[address - 640]
elsif address >= 512 then
- data = large_array_1_word_5g[address - 512]
+ data = _large_array_1_word_5g[address - 512]
elsif address >= 384 then
- data = large_array_1_word_4g[address - 384]
+ data = _large_array_1_word_4g[address - 384]
elsif address >= 256 then
- data = large_array_1_word_3g[address - 256]
+ data = _large_array_1_word_3g[address - 256]
elsif address >= 128 then
- data = large_array_1_word_2g[address - 128]
+ data = _large_array_1_word_2g[address - 128]
else
- data = large_array_1_word_1g[address - 0]
+ data = _large_array_1_word_1g[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 640 then
if address >= 640 then
- data = large_array_1_word_6f[address - 640]
+ data = _large_array_1_word_6f[address - 640]
elsif address >= 512 then
- data = large_array_1_word_5f[address - 512]
+ data = _large_array_1_word_5f[address - 512]
elsif address >= 384 then
- data = large_array_1_word_4f[address - 384]
+ data = _large_array_1_word_4f[address - 384]
elsif address >= 256 then
- data = large_array_1_word_3f[address - 256]
+ data = _large_array_1_word_3f[address - 256]
elsif address >= 128 then
- data = large_array_1_word_2f[address - 128]
+ data = _large_array_1_word_2f[address - 128]
else
- data = large_array_1_word_1f[address - 0]
+ data = _large_array_1_word_1f[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 512 then
if address >= 512 then
- data = large_array_1_word_5e[address - 512]
+ data = _large_array_1_word_5e[address - 512]
elsif address >= 384 then
- data = large_array_1_word_4e[address - 384]
+ data = _large_array_1_word_4e[address - 384]
elsif address >= 256 then
- data = large_array_1_word_3e[address - 256]
+ data = _large_array_1_word_3e[address - 256]
elsif address >= 128 then
- data = large_array_1_word_2e[address - 128]
+ data = _large_array_1_word_2e[address - 128]
else
- data = large_array_1_word_1e[address - 0]
+ data = _large_array_1_word_1e[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 384 then
if address >= 384 then
- data = large_array_1_word_4d[address - 384]
+ data = _large_array_1_word_4d[address - 384]
elsif address >= 256 then
- data = large_array_1_word_3d[address - 256]
+ data = _large_array_1_word_3d[address - 256]
elsif address >= 128 then
- data = large_array_1_word_2d[address - 128]
+ data = _large_array_1_word_2d[address - 128]
else
- data = large_array_1_word_1d[address - 0]
+ data = _large_array_1_word_1d[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 256 then
if address >= 256 then
- data = large_array_1_word_3c[address - 256]
+ data = _large_array_1_word_3c[address - 256]
elsif address >= 128 then
- data = large_array_1_word_2c[address - 128]
+ data = _large_array_1_word_2c[address - 128]
else
- data = large_array_1_word_1c[address - 0]
+ data = _large_array_1_word_1c[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 128 then
if address >= 128 then
- data = large_array_1_word_2b[address - 128]
+ data = _large_array_1_word_2b[address - 128]
else
- data = large_array_1_word_1b[address - 0]
+ data = _large_array_1_word_1b[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 0 then
- data = large_array_1_word_1a[address - 0]
+ data = _large_array_1_word_1a[address - 0]
end if
return data
@@ -441,90 +441,90 @@
procedure large_array_1'put (word in address, word in data) is
if LARGE_ARRAY_1_SIZE > 896 then
if address >= 896 then --
- large_array_1_word_8h[address - 896] = data
+ _large_array_1_word_8h[address - 896] = data
elsif address >= 768 then
- large_array_1_word_7h[address - 768] = data
+ _large_array_1_word_7h[address - 768] = data
elsif address >= 640 then
- large_array_1_word_6h[address - 640] = data
+ _large_array_1_word_6h[address - 640] = data
elsif address >= 512 then
- large_array_1_word_5h[address - 512] = data
+ _large_array_1_word_5h[address - 512] = data
elsif address >= 384 then
- large_array_1_word_4h[address - 384] = data
+ _large_array_1_word_4h[address - 384] = data
elsif address >= 256 then
- large_array_1_word_3h[address - 256] = data
+ _large_array_1_word_3h[address - 256] = data
elsif address >= 128 then
- large_array_1_word_2h[address - 128] = data
+ _large_array_1_word_2h[address - 128] = data
else
- large_array_1_word_1h[address - 0] = data
+ _large_array_1_word_1h[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 768 then
if address >= 768 then
- large_array_1_word_7g[address - 768] = data
+ _large_array_1_word_7g[address - 768] = data
elsif address >= 640 then
- large_array_1_word_6g[address - 640] = data
+ _large_array_1_word_6g[address - 640] = data
elsif address >= 512 then
- large_array_1_word_5g[address - 512] = data
+ _large_array_1_word_5g[address - 512] = data
elsif address >= 384 then
- large_array_1_word_4g[address - 384] = data
+ _large_array_1_word_4g[address - 384] = data
elsif address >= 256 then
- large_array_1_word_3g[address - 256] = data
+ _large_array_1_word_3g[address - 256] = data
elsif address >= 128 then
- large_array_1_word_2g[address - 128] = data
+ _large_array_1_word_2g[address - 128] = data
else
- large_array_1_word_1g[address - 0] = data
+ _large_array_1_word_1g[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 640 then
if address >= 640 then
- large_array_1_word_6f[address - 640] = data
+ _large_array_1_word_6f[address - 640] = data
elsif address >= 512 then
- large_array_1_word_5f[address - 512] = data
+ _large_array_1_word_5f[address - 512] = data
elsif address >= 384 then
- large_array_1_word_4f[address - 384] = data
+ _large_array_1_word_4f[address - 384] = data
elsif address >= 256 then
- large_array_1_word_3f[address - 256] = data
+ _large_array_1_word_3f[address - 256] = data
elsif address >= 128 then
- large_array_1_word_2f[address - 128] = data
+ _large_array_1_word_2f[address - 128] = data
else
- large_array_1_word_1f[address - 0] = data
+ _large_array_1_word_1f[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 512 then
if address >= 512 then
- large_array_1_word_5e[address - 512] = data
+ _large_array_1_word_5e[address - 512] = data
elsif address >= 384 then
- large_array_1_word_4e[address - 384] = data
+ _large_array_1_word_4e[address - 384] = data
elsif address >= 256 then
- large_array_1_word_3e[address - 256] = data
+ _large_array_1_word_3e[address - 256] = data
elsif address >= 128 then
- large_array_1_word_2e[address - 128] = data
+ _large_array_1_word_2e[address - 128] = data
else
- large_array_1_word_1e[address - 0] = data
+ _large_array_1_word_1e[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 384 then
if address >= 384 then
- large_array_1_word_4d[address - 384] = data
+ _large_array_1_word_4d[address - 384] = data
elsif address >= 256 then
- large_array_1_word_3d[address - 256] = data
+ _large_array_1_word_3d[address - 256] = data
elsif address >= 128 then
- large_array_1_word_2d[address - 128] = data
+ _large_array_1_word_2d[address - 128] = data
else
- large_array_1_word_1d[address - 0] = data
+ _large_array_1_word_1d[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 256 then
if address >= 256 then
- large_array_1_word_3c[address - 256] = data
+ _large_array_1_word_3c[address - 256] = data
elsif address >= 128 then
- large_array_1_word_2c[address - 128] = data
+ _large_array_1_word_2c[address - 128] = data
else
- large_array_1_word_1c[address - 0] = data
+ _large_array_1_word_1c[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 128 then
if address >= 128 then
- large_array_1_word_2b[address - 128] = data
+ _large_array_1_word_2b[address - 128] = data
else
- large_array_1_word_1b[address - 0] = data
+ _large_array_1_word_1b[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 0 then
- large_array_1_word_1a[address - 0] = data
+ _large_array_1_word_1a[address - 0] = data
end if
end procedure
@@ -533,64 +533,64 @@
-- dword array
--------------------------------------------------------------------------------
elsif LARGE_ARRAY_1_VARIABLE_SIZE == 4 then
- var dword large_array_1_dword_1h[64]
- var dword large_array_1_dword_2h[64]
- var dword large_array_1_dword_3h[64]
- var dword large_array_1_dword_4h[64]
- var dword large_array_1_dword_5h[64]
- var dword large_array_1_dword_6h[64]
- var dword large_array_1_dword_7h[64]
+ var dword _large_array_1_dword_1h[64]
+ var dword _large_array_1_dword_2h[64]
+ var dword _large_array_1_dword_3h[64]
+ var dword _large_array_1_dword_4h[64]
+ var dword _large_array_1_dword_5h[64]
+ var dword _large_array_1_dword_6h[64]
+ var dword _large_array_1_dword_7h[64]
if !(LARGE_ARRAY_1_SIZE == (64 * 7)) then
- var dword large_array_1_dword_8h[LARGE_ARRAY_1_SIZE - (64 * 7)]
+ var dword _large_array_1_dword_8h[LARGE_ARRAY_1_SIZE - (64 * 7)]
end if
- var dword large_array_1_dword_1g[64]
- var dword large_array_1_dword_2g[64]
- var dword large_array_1_dword_3g[64]
- var dword large_array_1_dword_4g[64]
- var dword large_array_1_dword_5g[64]
- var dword large_array_1_dword_6g[64]
+ var dword _large_array_1_dword_1g[64]
+ var dword _large_array_1_dword_2g[64]
+ var dword _large_array_1_dword_3g[64]
+ var dword _large_array_1_dword_4g[64]
+ var dword _large_array_1_dword_5g[64]
+ var dword _large_array_1_dword_6g[64]
if !(LARGE_ARRAY_1_SIZE == (64 * 6)) then
- var dword large_array_1_dword_7g[LARGE_ARRAY_1_SIZE - (64 * 6)]
+ var dword _large_array_1_dword_7g[LARGE_ARRAY_1_SIZE - (64 * 6)]
end if
- var dword large_array_1_dword_1f[64]
- var dword large_array_1_dword_2f[64]
- var dword large_array_1_dword_3f[64]
- var dword large_array_1_dword_4f[64]
- var dword large_array_1_dword_5f[64]
+ var dword _large_array_1_dword_1f[64]
+ var dword _large_array_1_dword_2f[64]
+ var dword _large_array_1_dword_3f[64]
+ var dword _large_array_1_dword_4f[64]
+ var dword _large_array_1_dword_5f[64]
if !(LARGE_ARRAY_1_SIZE == (64 * 5)) then
- var dword large_array_1_dword_6f[LARGE_ARRAY_1_SIZE - (64 * 5)]
+ var dword _large_array_1_dword_6f[LARGE_ARRAY_1_SIZE - (64 * 5)]
end if
- var dword large_array_1_dword_1e[64]
- var dword large_array_1_dword_2e[64]
- var dword large_array_1_dword_3e[64]
- var dword large_array_1_dword_4e[64]
+ var dword _large_array_1_dword_1e[64]
+ var dword _large_array_1_dword_2e[64]
+ var dword _large_array_1_dword_3e[64]
+ var dword _large_array_1_dword_4e[64]
if !(LARGE_ARRAY_1_SIZE == (64 * 4)) then
- var dword large_array_1_dword_5e[LARGE_ARRAY_1_SIZE - (64 * 4)]
+ var dword _large_array_1_dword_5e[LARGE_ARRAY_1_SIZE - (64 * 4)]
end if
- var dword large_array_1_dword_1d[64]
- var dword large_array_1_dword_2d[64]
- var dword large_array_1_dword_3d[64]
+ var dword _large_array_1_dword_1d[64]
+ var dword _large_array_1_dword_2d[64]
+ var dword _large_array_1_dword_3d[64]
if !(LARGE_ARRAY_1_SIZE == (64 * 3)) then
- var dword large_array_1_dword_4d[LARGE_ARRAY_1_SIZE - (64 * 3)]
+ var dword _large_array_1_dword_4d[LARGE_ARRAY_1_SIZE - (64 * 3)]
end if
- var dword large_array_1_dword_1c[64]
- var dword large_array_1_dword_2c[64]
+ var dword _large_array_1_dword_1c[64]
+ var dword _large_array_1_dword_2c[64]
if !(LARGE_ARRAY_1_SIZE == (64 * 2)) then
- var dword large_array_1_dword_3c[LARGE_ARRAY_1_SIZE - (64 * 2)]
+ var dword _large_array_1_dword_3c[LARGE_ARRAY_1_SIZE - (64 * 2)]
end if
- var dword large_array_1_dword_1b[64]
+ var dword _large_array_1_dword_1b[64]
if !(LARGE_ARRAY_1_SIZE == (64)) then
- var dword large_array_1_dword_2b[LARGE_ARRAY_1_SIZE - (64 * 1)]
+ var dword _large_array_1_dword_2b[LARGE_ARRAY_1_SIZE - (64 * 1)]
end if
if !(LARGE_ARRAY_1_SIZE == (0)) then
- var dword large_array_1_dword_1a[LARGE_ARRAY_1_SIZE]
+ var dword _large_array_1_dword_1a[LARGE_ARRAY_1_SIZE]
end if
@@ -598,90 +598,90 @@
var dword data
if LARGE_ARRAY_1_SIZE > 448 then
if address >= 448 then
- data = large_array_1_dword_8h[address - 448]
+ data = _large_array_1_dword_8h[address - 448]
elsif address >= 384 then
- data = large_array_1_dword_7h[address - 384]
+ data = _large_array_1_dword_7h[address - 384]
elsif address >= 320 then
- data = large_array_1_dword_6h[address - 320]
+ data = _large_array_1_dword_6h[address - 320]
elsif address >= 256 then
- data = large_array_1_dword_5h[address - 256]
+ data = _large_array_1_dword_5h[address - 256]
elsif address >= 192 then
- data = large_array_1_dword_4h[address - 192]
+ data = _large_array_1_dword_4h[address - 192]
elsif address >= 128 then
- data = large_array_1_dword_3h[address - 128]
+ data = _large_array_1_dword_3h[address - 128]
elsif address >= 64 then
- data = large_array_1_dword_2h[address - 64]
+ data = _large_array_1_dword_2h[address - 64]
else
- data = large_array_1_dword_1h[address - 0]
+ data = _large_array_1_dword_1h[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 384 then
if address >= 384 then
- data = large_array_1_dword_7g[address - 384]
+ data = _large_array_1_dword_7g[address - 384]
elsif address >= 320 then
- data = large_array_1_dword_6g[address - 320]
+ data = _large_array_1_dword_6g[address - 320]
elsif address >= 256 then
- data = large_array_1_dword_5g[address - 256]
+ data = _large_array_1_dword_5g[address - 256]
elsif address >= 192 then
- data = large_array_1_dword_4g[address - 192]
+ data = _large_array_1_dword_4g[address - 192]
elsif address >= 128 then
- data = large_array_1_dword_3g[address - 128]
+ data = _large_array_1_dword_3g[address - 128]
elsif address >= 64 then
- data = large_array_1_dword_2g[address - 64]
+ data = _large_array_1_dword_2g[address - 64]
else
- data = large_array_1_dword_1g[address - 0]
+ data = _large_array_1_dword_1g[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 320 then
if address >= 320 then
- data = large_array_1_dword_6f[address - 320]
+ data = _large_array_1_dword_6f[address - 320]
elsif address >= 256 then
- data = large_array_1_dword_5f[address - 256]
+ data = _large_array_1_dword_5f[address - 256]
elsif address >= 192 then
- data = large_array_1_dword_4f[address - 192]
+ data = _large_array_1_dword_4f[address - 192]
elsif address >= 128 then
- data = large_array_1_dword_3f[address - 128]
+ data = _large_array_1_dword_3f[address - 128]
elsif address >= 64 then
- data = large_array_1_dword_2f[address - 64]
+ data = _large_array_1_dword_2f[address - 64]
else
- data = large_array_1_dword_1f[address - 0]
+ data = _large_array_1_dword_1f[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 256 then
if address >= 256 then
- data = large_array_1_dword_5e[address - 256]
+ data = _large_array_1_dword_5e[address - 256]
elsif address >= 192 then
- data = large_array_1_dword_4e[address - 192]
+ data = _large_array_1_dword_4e[address - 192]
elsif address >= 128 then
- data = large_array_1_dword_3e[address - 128]
+ data = _large_array_1_dword_3e[address - 128]
elsif address >= 64 then
- data = large_array_1_dword_2e[address - 64]
+ data = _large_array_1_dword_2e[address - 64]
else
- data = large_array_1_dword_1e[address - 0]
+ data = _large_array_1_dword_1e[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 192 then
if address >= 192 then
- data = large_array_1_dword_4d[address - 192]
+ data = _large_array_1_dword_4d[address - 192]
elsif address >= 128 then
- data = large_array_1_dword_3d[address - 128]
+ data = _large_array_1_dword_3d[address - 128]
elsif address >= 64 then
- data = large_array_1_dword_2d[address - 64]
+ data = _large_array_1_dword_2d[address - 64]
else
- data = large_array_1_dword_1d[address - 0]
+ data = _large_array_1_dword_1d[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 128 then
if address >= 128 then
- data = large_array_1_dword_3c[address - 128]
+ data = _large_array_1_dword_3c[address - 128]
elsif address >= 64 then
- data = large_array_1_dword_2c[address - 64]
+ data = _large_array_1_dword_2c[address - 64]
else
- data = large_array_1_dword_1c[address - 0]
+ data = _large_array_1_dword_1c[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 64 then
if address >= 64 then
- data = large_array_1_dword_2b[address - 64]
+ data = _large_array_1_dword_2b[address - 64]
else
- data = large_array_1_dword_1b[address - 0]
+ data = _large_array_1_dword_1b[address - 0]
end if
elsif LARGE_ARRAY_1_SIZE > 0 then
- data = large_array_1_dword_1a[address - 0]
+ data = _large_array_1_dword_1a[address - 0]
end if
return data
end function
@@ -690,90 +690,90 @@
procedure large_array_1'put (dword in address, dword in data) is
if LARGE_ARRAY_1_SIZE > 448 then
if address >= 448 then
- large_array_1_dword_8h[address - 448] = data
+ _large_array_1_dword_8h[address - 448] = data
elsif address >= 384 then
- large_array_1_dword_7h[address - 384] = data
+ _large_array_1_dword_7h[address - 384] = data
elsif address >= 320 then
- large_array_1_dword_6h[address - 320] = data
+ _large_array_1_dword_6h[address - 320] = data
elsif address >= 256 then
- large_array_1_dword_5h[address - 256] = data
+ _large_array_1_dword_5h[address - 256] = data
elsif address >= 192 then
- large_array_1_dword_4h[address - 192] = data
+ _large_array_1_dword_4h[address - 192] = data
elsif address >= 128 then
- large_array_1_dword_3h[address - 128] = data
+ _large_array_1_dword_3h[address - 128] = data
elsif address >= 64 then
- large_array_1_dword_2h[address - 64] = data
+ _large_array_1_dword_2h[address - 64] = data
else
- large_array_1_dword_1h[address - 0] = data
+ _large_array_1_dword_1h[address - 0] = data
end if
elsif LARGE_ARRAY_1_SIZE > 384 then
if address >= 384 then
- large_array_1_dword_7g[address - 384] = data
+ _large_array_1_dword_7g[address - 384] = data
elsif address >= 320 then
- large_array_1_dword_6g[address - 320] = data
+ _large_array_1_dword_6g[address - 320] = data
elsif address >= 256 then
- large_array_1_dword_5g[address - 256] = data
+ _large_array_1_dword_5g[address - 256] = data
elsif address >= 192 then
- large_array_1_dword_4g[address - 192] = data
+ _large_array_1_dword_4g[address - 192] = data
elsif address >= 128 then
- large_array_1_dword_3g[address - 128] = data
+ _large_array_1_dword_3g[address - 128] = data
elsif address >= 64 then
- large_array_1_dword_2g[address - 64] = data
+ _large_array_1_dword_2g[address - 64] = data
else
- large_array_1_dword_1g[address - 0] = data
+ _large_array_1_dword_1g[address - 0] = data
***The diff for this file has been truncated for email.***
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
