Revision: 1478 Author: robhamerling Date: Fri Nov 13 07:21:13 2009 Log: Replaced 16f7x7 device files (fixed ADCON0_CHS'put)
http://code.google.com/p/jallib/source/detail?r=1478 Modified: /trunk/include/device/16f737.jal /trunk/include/device/16f747.jal /trunk/include/device/16f767.jal /trunk/include/device/16f777.jal ======================================= --- /trunk/include/device/16f737.jal Thu Nov 12 11:58:40 2009 +++ /trunk/include/device/16f737.jal Fri Nov 13 07:21:13 2009 @@ -25,8 +25,8 @@ -- - "x:/mplab840/mpasm suite/lkr/16f737_g.lkr" -- -- Notes: --- - Created with Dev2Jal Rexx script version 0.0.86 --- - File creation date/time: 11 Nov 2009 11:13 +-- - Created with Dev2Jal Rexx script version 0.0.87 +-- - File creation date/time: 13 Nov 2009 15:51 -- -- =================================================== -- @@ -564,6 +564,14 @@ var volatile bit ADCON0_GO at ADCON0 : 2 var volatile bit ADCON0_NDONE at ADCON0 : 2 var volatile bit ADCON0_CHS3 at ADCON0 : 1 +procedure ADCON0_CHS'put(byte in x) is + pragma inline + ADCON0_CHS012 = x -- low order bits + ADCON0_CHS3 = 0 + if ((x & 0x08) != 0) then + ADCON0_CHS3 = 1 -- high order bit + end if +end procedure var volatile bit ADCON0_ADON at ADCON0 : 0 -- ------------------------------------------------ var volatile byte OPTION_REG at { 0x81,0x181 } ======================================= --- /trunk/include/device/16f747.jal Thu Nov 12 11:58:40 2009 +++ /trunk/include/device/16f747.jal Fri Nov 13 07:21:13 2009 @@ -25,8 +25,8 @@ -- - "x:/mplab840/mpasm suite/lkr/16f747_g.lkr" -- -- Notes: --- - Created with Dev2Jal Rexx script version 0.0.86 --- - File creation date/time: 11 Nov 2009 11:13 +-- - Created with Dev2Jal Rexx script version 0.0.87 +-- - File creation date/time: 13 Nov 2009 15:51 -- -- =================================================== -- @@ -698,6 +698,14 @@ var volatile bit ADCON0_GO at ADCON0 : 2 var volatile bit ADCON0_NDONE at ADCON0 : 2 var volatile bit ADCON0_CHS3 at ADCON0 : 1 +procedure ADCON0_CHS'put(byte in x) is + pragma inline + ADCON0_CHS012 = x -- low order bits + ADCON0_CHS3 = 0 + if ((x & 0x08) != 0) then + ADCON0_CHS3 = 1 -- high order bit + end if +end procedure var volatile bit ADCON0_ADON at ADCON0 : 0 -- ------------------------------------------------ var volatile byte OPTION_REG at { 0x81,0x181 } ======================================= --- /trunk/include/device/16f767.jal Thu Nov 12 11:58:40 2009 +++ /trunk/include/device/16f767.jal Fri Nov 13 07:21:13 2009 @@ -25,8 +25,8 @@ -- - "x:/mplab840/mpasm suite/lkr/16f767_g.lkr" -- -- Notes: --- - Created with Dev2Jal Rexx script version 0.0.86 --- - File creation date/time: 11 Nov 2009 11:13 +-- - Created with Dev2Jal Rexx script version 0.0.87 +-- - File creation date/time: 13 Nov 2009 15:51 -- -- =================================================== -- @@ -564,6 +564,14 @@ var volatile bit ADCON0_GO at ADCON0 : 2 var volatile bit ADCON0_NDONE at ADCON0 : 2 var volatile bit ADCON0_CHS3 at ADCON0 : 1 +procedure ADCON0_CHS'put(byte in x) is + pragma inline + ADCON0_CHS012 = x -- low order bits + ADCON0_CHS3 = 0 + if ((x & 0x08) != 0) then + ADCON0_CHS3 = 1 -- high order bit + end if +end procedure var volatile bit ADCON0_ADON at ADCON0 : 0 -- ------------------------------------------------ var volatile byte OPTION_REG at { 0x81,0x181 } ======================================= --- /trunk/include/device/16f777.jal Thu Nov 12 11:58:40 2009 +++ /trunk/include/device/16f777.jal Fri Nov 13 07:21:13 2009 @@ -25,8 +25,8 @@ -- - "x:/mplab840/mpasm suite/lkr/16f777_g.lkr" -- -- Notes: --- - Created with Dev2Jal Rexx script version 0.0.86 --- - File creation date/time: 11 Nov 2009 11:13 +-- - Created with Dev2Jal Rexx script version 0.0.87 +-- - File creation date/time: 13 Nov 2009 15:51 -- -- =================================================== -- @@ -698,6 +698,14 @@ var volatile bit ADCON0_GO at ADCON0 : 2 var volatile bit ADCON0_NDONE at ADCON0 : 2 var volatile bit ADCON0_CHS3 at ADCON0 : 1 +procedure ADCON0_CHS'put(byte in x) is + pragma inline + ADCON0_CHS012 = x -- low order bits + ADCON0_CHS3 = 0 + if ((x & 0x08) != 0) then + ADCON0_CHS3 = 1 -- high order bit + end if +end procedure var volatile bit ADCON0_ADON at ADCON0 : 0 -- ------------------------------------------------ var volatile byte OPTION_REG at { 0x81,0x181 } --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
