Revision: 1113
Author: robhamerling
Date: Wed Jul 22 05:16:57 2009
Log: Most recent dev2jal Rexx script version 0.0.75
http://code.google.com/p/jallib/source/detail?r=1113
Modified:
/trunk/tools/Dev2Jal.cmd
/trunk/tools/fusedefmap.cmd
=======================================
--- /trunk/tools/Dev2Jal.cmd Tue Jul 21 02:14:28 2009
+++ /trunk/tools/Dev2Jal.cmd Wed Jul 22 05:16:57 2009
@@ -28,7 +28,7 @@
* - The script contains some test and debugging
code. *
* *
*
------------------------------------------------------------------------ */
- ScriptVersion = '0.0.74'
/* */
+ ScriptVersion = '0.0.75'
/* */
ScriptAuthor = 'Rob Hamerling' /* global
constants */
CompilerVersion = '2.4k'
/* */
/*
------------------------------------------------------------------------ */
@@ -1088,6 +1088,7 @@
call lineout jalfile, 'var volatile bit ',
left(pin,25) 'at' reg ':' offset
/* alias */ call insert_pin_alias reg, n.j, pin
+ call lineout jalfile, '--'
call lineout jalfile, 'procedure' pin"'put"'(bit in x',
'at' shadow ':' offset')
is'
call lineout jalfile, ' pragma inline'
@@ -1102,6 +1103,7 @@
call lineout jalfile, 'var volatile bit ',
left(pin,25) 'at' reg ':' offset
/* alias */ call insert_pin_alias 'PORTA', 'RA'right(n.j,1), pin
+ call lineout jalfile, '--'
call lineout jalfile, 'procedure' pin"'put"'(bit in x',
'at' shadow ':' offset')
is'
call lineout jalfile, ' pragma inline'
@@ -1378,13 +1380,14 @@
call lineout jalfile, 'var volatile bit ',
left(reg'_TMR0'||substr(n.j,3),25) memtype 'at'
reg ':' offset
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 /* I/O pin
*/
- pin = 'pin_'||substr(n.j,4)
+ else if left(reg,4) = 'PORT' then do /* PORTx register
*/
+ if substr(n.j,2,1) = right(reg,1) &, /* port
letter */
+ datatype(substr(n.j,3)) = 'NUM' then do /* pin number
*/
+ pin = 'pin_'||substr(n.j,2)
call lineout jalfile, 'var volatile bit ',
- left(pin,25) memtype 'at PORT'substr(reg,4) ':'
offset
-/* alias */ call
insert_pin_alias 'PORT'substr(reg,4), 'R'substr(n.j,4), pin
+ left(pin,25) memtype 'at' reg ':' offset
+/* alias */ call insert_pin_alias reg, n.j, pin
+ call lineout jalfile, '--'
call lineout jalfile, 'procedure' pin"'put"'(bit in x',
'at' reg ':' offset')
is'
call lineout jalfile, ' pragma inline'
@@ -1808,7 +1811,6 @@
end
end
end
-call lineout jalfile, '--' /* separator */
return k
=======================================
--- /trunk/tools/fusedefmap.cmd Tue Jul 21 02:14:28 2009
+++ /trunk/tools/fusedefmap.cmd Wed Jul 22 05:16:57 2009
@@ -37,7 +37,7 @@
Fuse_Def.Osc.EC_OSC2_AS_CLOCK_OUT = "EC_CLKOUT"
Fuse_Def.Osc.EC_OSC2_AS_DIVIDE_BY_4_CLKOUT = "EC_CLKOUT"
Fuse_Def.Osc.EC_OSC2_AS_RA6 = "EC_NOCLKOUT"
- Fuse_Def.Osc.EC_OSC2_AS_RA6__HARDWARE_ENABLED_4X_PLL
= "EC_NOCLKOUT_HW_PLL"
+ Fuse_Def.Osc.EC_OSC2_AS_RA6__HARDWARE_ENABLED_4X_PLL = "EC_NOCLKOUT_PLL"
Fuse_Def.Osc.EC_OSC2_AS_RA6__SOFTWARE_ENABLED_4X_PLL
= "EC_NOCLKOUT_SW_PLL"
Fuse_Def.Osc.EC_OSCILLATOR_WITH_CLOCK_OUT_ON_RA6 = "EC_CLKOUT"
Fuse_Def.Osc.EC_OSCILLATOR_WITH_PLL = "EC_NOCLKOUT_PLL"
@@ -100,7 +100,7 @@
Fuse_Def.Osc.EXT_RC_PORT_ON_RA6 = "RC_NOCLKOUT"
Fuse_Def.Osc.HS = "HS"
Fuse_Def.Osc.HSPLL = "HS_PLL"
- Fuse_Def.Osc.HS_HARDWARE_ENABLED_4X_PLL = "HS_HW_PLL"
+ Fuse_Def.Osc.HS_HARDWARE_ENABLED_4X_PLL = "HS_PLL"
Fuse_Def.Osc.HS_OSC = "HS"
Fuse_Def.Osc.HS_OSCILLATOR = "HS"
Fuse_Def.Osc.HS_OSCILLATOR_AND_18_MS_DRT = "HS"
@@ -141,7 +141,7 @@
Fuse_Def.Osc.INTOSC_AS_PRIMARY__EC_OSC_WITH_CLKOUT = "INTOSC_CLKOUT_EC"
Fuse_Def.Osc.INTOSC_AS_PRIMARY__EC_PLL_OSC_WITH_CLKOUT
= "INTOSC_CLKOUT_EC_PLL"
Fuse_Def.Osc.INTOSC_AS_PRIMARY__HS_OSC = "INTOSC_NOCLKOUT_HS"
- Fuse_Def.Osc.INTOSC_AS_PRIMARY__HS_PLL_OSC = "INTOSC_NOCLKOUT_HS_PLL"
+ Fuse_Def.Osc.INTOSC_AS_PRIMARY__HS_PLL_OSC = "INTOSC_NOCLKOUT_HC_PLL"
Fuse_Def.Osc.INTOSC_EC = "INTOSC_NOCLKOUT_EC"
Fuse_Def.Osc.INTOSC_EC_PLL = "INTOSC_NOCLKOUT_EC_PLL"
Fuse_Def.Osc.INTOSC_HS = "INTOSC_NOCLKOUT_HS"
@@ -153,10 +153,10 @@
Fuse_Def.Osc.INTOSC__CLKOUT_ON_RA4__I_O_ON_RA5 = "INTOSC_CLKOUT"
Fuse_Def.Osc.INTOSC__CLKOUT_ON_RA6_OSC2_CLKOUT__I_O_ON_RA7_OSC1_CLKIN
= "INTOSC_CLKOUT"
Fuse_Def.Osc.INTOSC__INTOSC_CLK0_RA6___USB_EC = "INTOSC_CLKOUT"
- Fuse_Def.Osc.INTOSC__INTOSC_RA6__USB_EC = "INTOSC_NOCLKOUT"
+ Fuse_Def.Osc.INTOSC__INTOSC_RA6__USB_EC = "INTOSC_NOCLKOUT_USB_HS"
Fuse_Def.Osc.INTOSC__I_O_ON_RA6_OSC2_CLKOUT__I_O_ON_RA7_OSC1_CLKIN
= "INTOSC_NOCLKOUT"
- Fuse_Def.Osc.INTOSC__USB_HS = "INTOSC_NOCLKOUT"
- Fuse_Def.Osc.INTOSC__USB_XT = "INTOSC_NOCLKOUT"
+ Fuse_Def.Osc.INTOSC__USB_HS = "INTOSC_NOCLKOUT_USB_HS"
+ Fuse_Def.Osc.INTOSC__USB_XT = "INTOSC_NOCLKOUT_USB_XT"
Fuse_Def.Osc.INTPLL1 = "INTOSC_CLKOUT_PLL"
Fuse_Def.Osc.INTPLL2 = "INTOSC_NOCLKOUT_PLL"
Fuse_Def.Osc.INTRC_AS_CLOCK_OUT = "INTOSC_CLKOUT"
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
