Author: robhamerling
Date: Mon Mar 16 05:39:10 2009
New Revision: 861
Modified:
trunk/tools/Dev2Jal.cmd
trunk/tools/devicespecific.cmd
Log:
Most recent dev2jal Rexx script version 0.0.59
Modified: trunk/tools/Dev2Jal.cmd
==============================================================================
--- trunk/tools/Dev2Jal.cmd (original)
+++ trunk/tools/Dev2Jal.cmd Mon Mar 16 05:39:10 2009
@@ -33,19 +33,19 @@
CompilerVersion = '>=2.4i'
/* */
/*
------------------------------------------------------------------------ */
-mplabdir = 'k:/mplab820/' /* MPLAB base
directory */
+mplabdir = '/mplab820/' /* MPLAB base
directory */
devdir = mplabdir'mplab_ide/device/' /* dir with .dev
files */
lkrdir = mplabdir'mpasm_suite/lkr/' /* dir with .lkr
files */
dstdir = '/jallib/include/device/' /* default
destination */
say 'Dev2Jal version' ScriptVersion ' - ' ScriptAuthor
-say 'Creating JALV2 include files for PIC specifications ...'
+say 'Creating JALV2 device files ...'
parse upper arg destination selection . /* commandline arguments */
if destination = 'PROD' then /* production run */
nop /* use default destination
*/
else if destination = 'TEST' then /* test run */
- dstdir = '/jallib/test/' /* alternate destination */
+ dstdir = 'test/' /* destination for testing
*/
else do
say 'Error: Required parameter missing: "prod" or "test"'
return 1
@@ -979,6 +979,7 @@
pin = 'pin_'||substr(n.j,2)
call lineout jalfile, 'var volatile bit ',
left(pin,20) 'at' reg ':' offset
+ call lineout jalfile, '--'
call lineout jalfile, 'procedure' pin"'put"'(bit in x',
'at' shadow ':' offset')
is'
call lineout jalfile, ' pragma inline'
@@ -992,6 +993,7 @@
pin = 'pin_A'right(n.j,1)
call lineout jalfile, 'var volatile bit ',
left(pin,20) 'at' reg ':' offset
+ call lineout jalfile, '--'
call lineout jalfile, 'procedure' pin"'put"'(bit in x',
'at' shadow ':' offset')
is'
call lineout jalfile, ' pragma inline'
@@ -1073,7 +1075,7 @@
if left(reg,3) = 'LAT' then do /* LATx register */
call list_port16_shadow reg /* force use of LATx */
- /* when accessing PORTx */
+ /* for output to PORTx */
end
else if left(reg,4) = 'TRIS' then do /* TRISx */
call lineout jalfile, 'var volatile byte ',
@@ -1213,10 +1215,11 @@
end
else if left(reg,3) = 'LAT' then do /* LATx register */
if left(n.j,3) = 'LAT' &,
- substr(n.j,4,1) = right(reg,1) then do /* prob. I/O
pin */
+ substr(n.j,4,1) = right(reg,1) then do /* I/O pin
*/
pin = 'pin_'||substr(n.j,4)
- call lineout jalfile, 'var volatile bit',
- pin 'shared at' reg ':' offset
+ call lineout jalfile, 'var volatile bit ',
+ left(pin,20) 'shared at PORT'substr(reg,4) ':'
offset
+ call lineout jalfile, '--'
call lineout jalfile, 'procedure' pin"'put"'(bit in x',
'at' reg ':' offset')
is'
call lineout jalfile, ' pragma inline'
@@ -1537,18 +1540,18 @@
call lineout jalfile, '--'
half = 'PORT'substr(lat,4)'_low'
call lineout jalfile, 'procedure' half"'put"'(byte in x) is'
-call lineout jalfile, ' 'lat '= ('lat '& 0xF0) | (x & 0x0F)'
+call lineout jalfile, ' 'lat '= ('port '& 0xF0) | (x & 0x0F)'
call lineout jalfile, 'end procedure'
call lineout jalfile, 'function' half"'get()" 'return byte is'
-call lineout jalfile, ' return ('lat '& 0x0F)'
+call lineout jalfile, ' return ('port '& 0x0F)'
call lineout jalfile, 'end function'
call lineout jalfile, '--'
half = 'PORT'substr(lat,4)'_high'
call lineout jalfile, 'procedure' half"'put"'(byte in x) is'
-call lineout jalfile, ' 'lat '= ('lat '& 0x0F) | (x << 4)'
+call lineout jalfile, ' 'lat '= ('port '& 0x0F) | (x << 4)'
call lineout jalfile, 'end procedure'
call lineout jalfile, 'function' half"'get()" 'return byte is'
-call lineout jalfile, ' return ('lat '>> 4)'
+call lineout jalfile, ' return ('port '>> 4)'
call lineout jalfile, 'end function'
call lineout jalfile, '--'
return
Modified: trunk/tools/devicespecific.cmd
==============================================================================
--- trunk/tools/devicespecific.cmd (original)
+++ trunk/tools/devicespecific.cmd Mon Mar 16 05:39:10 2009
@@ -333,9 +333,9 @@
when PicName = '18F96J60' then return 'ADC_V6'
when PicName = '18F96J65' then return 'ADC_V6'
when PicName = '18F97J60' then return 'ADC_V6'
- when PicName = '18LF13K22' then return '-'
+ when PicName = '18LF13K22' then return 'ADC_V10'
when PicName = '18LF13K50' then return 'ADC_V10'
- when PicName = '18LF14K22' then return '-'
+ when PicName = '18LF14K22' then return 'ADC_V10'
when PicName = '18LF14K50' then return 'ADC_V10'
when PicName = '18LF24J10' then return 'ADC_V6'
when PicName = '18LF24J11' then return 'ADC_V11'
@@ -477,10 +477,10 @@
when PicName = '18F1320' then return '39605'
when PicName = '18F1330' then return '39758'
when PicName = '18F13K20' then return '-'
- when PicName = '18F13K22' then return '-'
+ when PicName = '18F13K22' then return '41365'
when PicName = '18F13K50' then return '41350'
when PicName = '18F14K20' then return '-'
- when PicName = '18F14K22' then return '-'
+ when PicName = '18F14K22' then return '41365'
when PicName = '18F14K50' then return '41350'
when PicName = '18F2220' then return '39599'
when PicName = '18F2221' then return '39689'
@@ -501,7 +501,7 @@
when PicName = '18F2480' then return '39637'
when PicName = '18F24J10' then return '39682'
when PicName = '18F24J11' then return '39932'
- when PicName = '18F24J50' then return '-'
+ when PicName = '18F24J50' then return '39931'
when PicName = '18F24K20' then return '41303'
when PicName = '18F2510' then return '39636'
when PicName = '18F2515' then return '39636'
@@ -517,7 +517,7 @@
when PicName = '18F2585' then return '39625'
when PicName = '18F25J10' then return '39682'
when PicName = '18F25J11' then return '39932'
- when PicName = '18F25J50' then return '-'
+ when PicName = '18F25J50' then return '39931'
when PicName = '18F25K20' then return '41303'
when PicName = '18F2610' then return '39636'
when PicName = '18F2620' then return '39626'
@@ -525,7 +525,7 @@
when PicName = '18F2682' then return '39761'
when PicName = '18F2685' then return '39761'
when PicName = '18F26J11' then return '39932'
- when PicName = '18F26J50' then return '-'
+ when PicName = '18F26J50' then return '39931'
when PicName = '18F26K20' then return '41303'
when PicName = '18F4220' then return '39599'
when PicName = '18F4221' then return '39689'
@@ -546,7 +546,7 @@
when PicName = '18F4480' then return '39637'
when PicName = '18F44J10' then return '39682'
when PicName = '18F44J11' then return '39932'
- when PicName = '18F44J50' then return '-'
+ when PicName = '18F44J50' then return '39931'
when PicName = '18F44K20' then return '41303'
when PicName = '18F4510' then return '39636'
when PicName = '18F4515' then return '39636'
@@ -562,7 +562,7 @@
when PicName = '18F4585' then return '39625'
when PicName = '18F45J10' then return '39682'
when PicName = '18F45J11' then return '39932'
- when PicName = '18F45J50' then return '-'
+ when PicName = '18F45J50' then return '39931'
when PicName = '18F45K20' then return '41303'
when PicName = '18F4610' then return '39636'
when PicName = '18F4620' then return '39626'
@@ -570,7 +570,7 @@
when PicName = '18F4682' then return '39761'
when PicName = '18F4685' then return '39761'
when PicName = '18F46J11' then return '39932'
- when PicName = '18F46J50' then return '-'
+ when PicName = '18F46J50' then return '39931'
when PicName = '18F46K20' then return '41303'
when PicName = '18F6310' then return '39635'
when PicName = '18F6390' then return '39629'
@@ -663,26 +663,26 @@
when PicName = '18F96J60' then return '39762'
when PicName = '18F96J65' then return '39762'
when PicName = '18F97J60' then return '39762'
- when PicName = '18LF13K22' then return '-'
+ when PicName = '18LF13K22' then return '41365'
when PicName = '18LF13K50' then return '41350'
when PicName = '18LF14K50' then return '41350'
- when PicName = '18LF14K22' then return '-'
+ when PicName = '18LF14K22' then return '41365'
when PicName = '18LF24J10' then return '39682'
when PicName = '18LF24J11' then return '39932'
- when PicName = '18LF24J50' then return '-'
+ when PicName = '18LF24J50' then return '39931'
when PicName = '18LF25J10' then return '39682'
when PicName = '18LF25J11' then return '39932'
- when PicName = '18LF25J50' then return '-'
+ when PicName = '18LF25J50' then return '39931'
when PicName = '18LF26J11' then return '39932'
- when PicName = '18LF26J50' then return '-'
+ when PicName = '18LF26J50' then return '39931'
when PicName = '18LF44J10' then return '39682'
when PicName = '18LF44J11' then return '39932'
- when PicName = '18LF44J50' then return '-'
+ when PicName = '18LF44J50' then return '39931'
when PicName = '18LF45J10' then return '39682'
when PicName = '18LF45J11' then return '39932'
- when PicName = '18LF45J50' then return '-'
+ when PicName = '18LF45J50' then return '39931'
when PicName = '18LF46J11' then return '39932'
- when PicName = '18LF46J50' then return '-'
+ when PicName = '18LF46J50' then return '39931'
otherwise
say ' Error:' PicName 'is unlisted in Datasheet table!'
return '-'
@@ -936,7 +936,7 @@
when PicName = '18F66J60' then return '39688'
when PicName = '18F66J65' then return '39688'
when PicName = '18F66J90' then return '39644'
- when PicName = '18F66J93' then return '-'
+ when PicName = '18F66J93' then return '39644'
when PicName = '18F6720' then return '39583'
when PicName = '18F6722' then return '39643'
when PicName = '18F6723' then return '39643'
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
