Menu
▾
▴
amforth-devel — Development discussion and user support
You can subscribe to this list here.
| 2006 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(2) |
Dec
(5) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2007 |
Jan
|
Feb
(6) |
Mar
(41) |
Apr
(23) |
May
(11) |
Jun
(2) |
Jul
|
Aug
|
Sep
(9) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2008 |
Jan
(6) |
Feb
(1) |
Mar
(23) |
Apr
(18) |
May
(21) |
Jun
(13) |
Jul
(34) |
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
|
Dec
(4) |
| 2009 |
Jan
|
Feb
(5) |
Mar
(5) |
Apr
(10) |
May
(1) |
Jun
(11) |
Jul
(1) |
Aug
|
Sep
|
Oct
(2) |
Nov
(3) |
Dec
(13) |
| 2010 |
Jan
(10) |
Feb
(4) |
Mar
(28) |
Apr
(3) |
May
(38) |
Jun
(22) |
Jul
(92) |
Aug
(154) |
Sep
(218) |
Oct
(45) |
Nov
(20) |
Dec
(1) |
| 2011 |
Jan
(33) |
Feb
(15) |
Mar
(32) |
Apr
(33) |
May
(48) |
Jun
(35) |
Jul
(7) |
Aug
|
Sep
(11) |
Oct
(5) |
Nov
|
Dec
(7) |
| 2012 |
Jan
(56) |
Feb
(11) |
Mar
(6) |
Apr
|
May
(128) |
Jun
(59) |
Jul
(21) |
Aug
(16) |
Sep
(24) |
Oct
(39) |
Nov
(12) |
Dec
(12) |
| 2013 |
Jan
(14) |
Feb
(61) |
Mar
(97) |
Apr
(46) |
May
(13) |
Jun
(23) |
Jul
(12) |
Aug
(25) |
Sep
(9) |
Oct
(81) |
Nov
(73) |
Dec
(45) |
| 2014 |
Jan
(36) |
Feb
(57) |
Mar
(20) |
Apr
(41) |
May
(43) |
Jun
(11) |
Jul
(14) |
Aug
(32) |
Sep
(9) |
Oct
(27) |
Nov
(21) |
Dec
(6) |
| 2015 |
Jan
(14) |
Feb
(23) |
Mar
(1) |
Apr
(19) |
May
(40) |
Jun
(11) |
Jul
(1) |
Aug
(2) |
Sep
(14) |
Oct
(10) |
Nov
(9) |
Dec
(13) |
| 2016 |
Jan
(4) |
Feb
(3) |
Mar
(7) |
Apr
|
May
(4) |
Jun
(13) |
Jul
(8) |
Aug
(3) |
Sep
(4) |
Oct
(1) |
Nov
|
Dec
|
| 2017 |
Jan
(6) |
Feb
(1) |
Mar
(1) |
Apr
(7) |
May
(10) |
Jun
(5) |
Jul
(7) |
Aug
(9) |
Sep
|
Oct
(1) |
Nov
(5) |
Dec
|
| 2018 |
Jan
|
Feb
|
Mar
(5) |
Apr
|
May
|
Jun
(3) |
Jul
(6) |
Aug
|
Sep
(2) |
Oct
(54) |
Nov
(47) |
Dec
(53) |
| 2019 |
Jan
(23) |
Feb
(24) |
Mar
(19) |
Apr
(15) |
May
(5) |
Jun
(34) |
Jul
(9) |
Aug
(9) |
Sep
(3) |
Oct
(2) |
Nov
|
Dec
|
| 2020 |
Jan
|
Feb
|
Mar
(7) |
Apr
(7) |
May
(5) |
Jun
(15) |
Jul
(22) |
Aug
(28) |
Sep
(13) |
Oct
(9) |
Nov
(17) |
Dec
(13) |
| 2021 |
Jan
(5) |
Feb
(1) |
Mar
(1) |
Apr
(9) |
May
(21) |
Jun
(9) |
Jul
|
Aug
(6) |
Sep
(16) |
Oct
|
Nov
(1) |
Dec
(6) |
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
(7) |
May
(6) |
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(11) |
Sep
(21) |
Oct
(5) |
Nov
(1) |
Dec
(1) |
| 2024 |
Jan
(1) |
Feb
(4) |
Mar
|
Apr
(7) |
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(7) |
Sep
(9) |
Oct
|
Nov
(4) |
Dec
|
|
From: pito <pi...@vo...> - 2010-08-29 16:32:54
|
Leon, simple testing of the floats f*, f/. Some cases results are in error. It seems division is sensitive. Not sure about the result's sign, however the result shall be 31415 in all cases. ------------------- \ test1 float small and large numbers \ needs float constant _pi marker _testfloat_ : test1 10000 s>f fdup fdup fdup fdup fdup f* f* f* f* f* _pi fswap f/ 10000 s>f fdup fdup fdup fdup fdup fdup f* f* f* f* f* f* f* f>s . ( the result shall be 31415 ) ; : test2 _pi 10000 s>f f/ 10000 s>f f/ 10000 s>f fdup fdup f* f* f* f>s . ( the result shall be 31415 ) ; : test3 _pi 10000 s>f f/ 10000 s>f f/ 10000 s>f f/ 10000 s>f fdup fdup fdup f* f* f* f* f>s . ( the result shall be 31415 ) ; : test4 -10000 s>f fdup fdup fdup fdup fdup f* f* f* f* f* _pi fswap f/ 10000 s>f fdup fdup fdup fdup fdup fdup f* f* f* f* f* f* f* f>s . ( the result shall be 31415 ) ; : test5 _pi -10000 s>f f/ 10000 s>f f/ -10000 s>f fdup fdup f* f* f* f>s . ( the result shall be 31415 ) ; : test6 _pi -10000 s>f f/ 10000 s>f f/ 10000 s>f f/ -10000 s>f fdup fdup fdup f* f* f* f* f>s . ( the result shall be -31415 ) ; ------------ Pito |
|
From: pito <pi...@vo...> - 2010-08-29 14:10:04
|
1 bug (_thousand) removed: marker _floatconstants_ \ some float constants 355 s>f 113 s>f f/ fconstant _pi 355 s>f 226 s>f f/ fconstant _pi_half 355 s>f 452 s>f f/ fconstant _pi_quarter 8119 s>f 5741 s>f f/ fconstant _sqrt2 5741 s>f 8119 s>f f/ fconstant _sqrt2half 13755 s>f 7953 s>f f/ fconstant _sqrt3 27379 s>f 8658 s>f f/ fconstant _sqrt10 25946 s>f 9545 s>f f/ fconstant _e 4319 s>f 6231 s>f f/ fconstant _ln2 5225 s>f 4756 s>f f/ fconstant _ln3 12381 s>f 5377 s>f f/ fconstant _ln10 2718 s>f 9029 s>f f/ fconstant _log2 1074 s>f 2251 s>f f/ fconstant _log3 10691 s>f 462 s>f f/ fconstant _e**pi 26120 s>f 1163 s>f f/ fconstant _pi**e 1 s>f 2 s>f f/ fconstant _half 1 s>f 3 s>f f/ fconstant _third 1 s>f 10 s>f f/ fconstant _10th 1 s>f 100 s>f f/ fconstant _100th 1 s>f 1000 s>f f/ fconstant _1000th 5 s>f 127 s>f f/ fconstant _mm2inch Ex1: > _pi _e _ln2 _sqrt2half 10000 s>f _third f* f* f* f* f* f>s . 13951 ok > .s ok Calc: 13951.906691388013 Pito ----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <pi...@vo...> Komu: pi...@vo..., leo...@gm..., amf...@li... Předmět: Some useful Float Constants Datum: 29.8.2010 - 15:07:46 > Hi, here are some useful constants for Leon's > float lib. > Precision ~10^-8 or better. Pito > > ____________________ > > marker _floatconstants_ > > \ some float constants > > 355 s>f 113 s>f f/ fconstant _pi > > 355 s>f 226 s>f f/ fconstant _pi_half > > 355 s>f 452 s>f f/ fconstant _pi_quarter > > 8119 s>f 5741 s>f f/ fconstant _sqrt2 > > 5741 s>f 8119 s>f f/ fconstant _sqrt2half > > 13755 s>f 7953 s>f f/ fconstant _sqrt3 > > 27379 s>f 8658 s>f f/ fconstant _sqrt10 > > 25946 s>f 9545 s>f f/ fconstant _e > > 4319 s>f 6231 s>f f/ fconstant _ln2 > > 5225 s>f 4756 s>f f/ fconstant _ln3 > > 12381 s>f 5377 s>f f/ fconstant _ln10 > > 2718 s>f 9029 s>f f/ fconstant _log2 > > 1074 s>f 2251 s>f f/ fconstant _log3 > > 10691 s>f 462 s>f f/ fconstant _e**pi > > 26120 s>f 1163 s>f f/ fconstant _pi**e > > 1 s>f 2 s>f f/ fconstant _half > > 1 s>f 3 s>f f/ fconstant _third > > 1 s>f 10 s>f f/ fconstant _10th > > 1 s>f 100 s>f f/ fconstant _100th > > 1 s>f 100 s>f f/ fconstant _1000th > > 5 s>f 127 s>f f/ fconstant _mm2inch > > ______________________________ > > Ex: > > 1000 s>f _mm2inch f* f>s . > 39 ok > > 10000 s>f _mm2inch f* f>s . > 393 ok > > 100 s>f fdup f* _pi f* f>s . > 31415 ok > > > |
|
From: pito <pi...@vo...> - 2010-08-29 13:07:53
|
Hi, here are some useful constants for Leon's float lib. Precision ~10^-8 or better. Pito ____________________ marker _floatconstants_ \ some float constants 355 s>f 113 s>f f/ fconstant _pi 355 s>f 226 s>f f/ fconstant _pi_half 355 s>f 452 s>f f/ fconstant _pi_quarter 8119 s>f 5741 s>f f/ fconstant _sqrt2 5741 s>f 8119 s>f f/ fconstant _sqrt2half 13755 s>f 7953 s>f f/ fconstant _sqrt3 27379 s>f 8658 s>f f/ fconstant _sqrt10 25946 s>f 9545 s>f f/ fconstant _e 4319 s>f 6231 s>f f/ fconstant _ln2 5225 s>f 4756 s>f f/ fconstant _ln3 12381 s>f 5377 s>f f/ fconstant _ln10 2718 s>f 9029 s>f f/ fconstant _log2 1074 s>f 2251 s>f f/ fconstant _log3 10691 s>f 462 s>f f/ fconstant _e**pi 26120 s>f 1163 s>f f/ fconstant _pi**e 1 s>f 2 s>f f/ fconstant _half 1 s>f 3 s>f f/ fconstant _third 1 s>f 10 s>f f/ fconstant _10th 1 s>f 100 s>f f/ fconstant _100th 1 s>f 100 s>f f/ fconstant _1000th 5 s>f 127 s>f f/ fconstant _mm2inch ______________________________ Ex: > 1000 s>f _mm2inch f* f>s . 39 ok > 10000 s>f _mm2inch f* f>s . 393 ok > 100 s>f fdup f* _pi f* f>s . 31415 ok > |
|
From: pito <pi...@vo...> - 2010-08-29 09:24:39
|
Some more test cases: > -1 s>f 30000 s>f f/ 10000 s>f f* 30000 s>f f* f>s . -10009 ok > -1 s>f 30000 s>f f/ -10000 s>f f* 30000 s>f f* f>s . 10004 ok > -1 s>f -30000 s>f f/ -10000 s>f f* 30000 s>f f* f>s . -10004 ok > -1 s>f -30000 s>f f/ -10000 s>f f* -30000 s>f f* f>s . 10003 ok > 1 s>f 30000 s>f f/ 10000 s>f f* -30000 s>f f* f>s . -10000 ok > -1 s>f -30000 s>f f/ -10000 s>f f* -30000 s>f f* f>s . 10003 ok > -1 s>f 30000 s>f f/ 10000 s>f f* -30000 s>f f* f>s . 10008 ok > P. ----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <pi...@vo...> Komu: leo...@gm..., amf...@li... Předmět: Re: [Amforth-devel] f* and f/ Datum: 29.8.2010 - 11:09:03 > Leon, I've found out finally I am desperate to > test the fractions > and the float so I did: > > 1 s>f 30000 s>f f/ 10000 s>f f* 30000 s>f f* f>s > > . > > 9999 ok > > > Great! Thanks! > PS: as the float source is for me a rocket science > let me ask you a > naive question - when ready the single precision - > is an enhancement > to double a significant rework (in the future)? > Pito > > > ----- PŮVODNÍ ZPRÁVA ----- > Od: "Leon Nathaniel Maurer" > <leo...@gm...> > Komu: amf...@li... > Předmět: [Amforth-devel] f* and f/ > Datum: 29.8.2010 - 5:11:39 > > > It looks like they're good to go: > > > > > 70 s>f -8 s>f f/ 100 s>f f* f>s . > > -875 ok > > > > I'll try to get some better input and output > > functions worked out this week. > > -Leon > > > > ------------------------------------------------------------------------------ > > > > > > Sell apps to millions through the Intel(R) > > Atom(Tm) Developer Program > > Be part of this innovative community and reach > > millions of netbook users > > worldwide. Take advantage of special > > opportunities > > > to increase revenue and > > speed time-to-market. Join now, and jumpstart > > your > > > future. > > http://p.sf.net/sfu/intel-atom-d2d > > _______________________________________________ > > Amforth-devel mailing list > > Amf...@li... > > https://lists.sourceforge.net/lists/listinfo/amforth-devel > > > > > ------------------------------------------------------------------------------ > > Sell apps to millions through the Intel(R) > Atom(Tm) Developer Program > Be part of this innovative community and reach > millions of netbook users > worldwide. Take advantage of special opportunities > to increase revenue and > speed time-to-market. Join now, and jumpstart your > future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel |
|
From: pito <pi...@vo...> - 2010-08-29 09:09:15
|
Leon, I've found out finally I am desperate to test the fractions and the float so I did: > 1 s>f 30000 s>f f/ 10000 s>f f* 30000 s>f f* f>s . 9999 ok > Great! Thanks! PS: as the float source is for me a rocket science let me ask you a naive question - when ready the single precision - is an enhancement to double a significant rework (in the future)? Pito ----- PŮVODNÍ ZPRÁVA ----- Od: "Leon Nathaniel Maurer" <leo...@gm...> Komu: amf...@li... Předmět: [Amforth-devel] f* and f/ Datum: 29.8.2010 - 5:11:39 > It looks like they're good to go: > > > 70 s>f -8 s>f f/ 100 s>f f* f>s . > -875 ok > > I'll try to get some better input and output > functions worked out this week. > -Leon > > ------------------------------------------------------------------------------ > > Sell apps to millions through the Intel(R) > Atom(Tm) Developer Program > Be part of this innovative community and reach > millions of netbook users > worldwide. Take advantage of special opportunities > to increase revenue and > speed time-to-market. Join now, and jumpstart your > future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel |
|
From: Leon N. M. <leo...@gm...> - 2010-08-29 03:11:45
|
It looks like they're good to go: > 70 s>f -8 s>f f/ 100 s>f f* f>s . -875 ok I'll try to get some better input and output functions worked out this week. -Leon |
|
From: pito <pi...@vo...> - 2010-08-29 00:31:30
|
Marcin, MY BIG THANKS!! I simply thought the RAM ends at 0x4000.. So 0x40af = 16559 what is aproximately the magic number 16557 !!! Thanks again and sorry for my spaming the list.. Good night, Pito. ----- PŮVODNÍ ZPRÁVA ----- Od: "Marcin Cieslak" <sa...@sa...> Komu: "pito" <pi...@vo...> Předmět: Re: [Amforth-devel] .s on 1284p Datum: 29.8.2010 - 2:16:44 > On Sun, 29 Aug 2010, pito wrote: > > > Marcin, when I do .s I see an address higher > > then 16383 (16557). So > > > it is an indication for me something must be > > wrong there. Matthias > > > sent the .s definition, from what I can see is > > he prints out the > > > address (of RAM - I do assume - when talking > > data stack), and as I > > > have shown the number is 16557.. So outside the > > RAM space. Maybe I > > > am mistaken.. Just explain to me plz.. Assembly > > listing of what, > > > please? P. > > Please see m1264Pdef.inc file in your AVRASM > directory: > > ---8<------------------------------ > .equ SRAM_START = 0x0100 > .equ SRAM_SIZE = 16384 > .equ RAMEND = 0x40ff > .equ XRAMEND = 0x0000 > ---8<------------------------------ > > RAM begins at $0100 and ends at $40ff. > > So you have in your listing: > > 00002a ff 40 .dw rstackstart ; USER_RP^M > 00002c af 40 .dw stackstart ; USER_SP0^M > 00002e af 40 .dw stackstart ; USER_SP^M > > Your return stack starts at $40ff and grows down > and your data stack starts at $40af and grows > down. > > Most ATmegas have stack at $0100, but some AVR > CPUs have it at $0040, $0060 or $0200. > > My ATmega164P has RAM from $0100 until $08ff, > so my rstack starts at $08ff and my data stack > grows down from $08af. > > Hope it helps! > > --Marcin |
|
From: Marcin C. <sa...@sa...> - 2010-08-29 00:16:52
|
On Sun, 29 Aug 2010, pito wrote: > Marcin, when I do .s I see an address higher then 16383 (16557). So > it is an indication for me something must be wrong there. Matthias > sent the .s definition, from what I can see is he prints out the > address (of RAM - I do assume - when talking data stack), and as I > have shown the number is 16557.. So outside the RAM space. Maybe I > am mistaken.. Just explain to me plz.. Assembly listing of what, > please? P. Please see m1264Pdef.inc file in your AVRASM directory: ---8<------------------------------ .equ SRAM_START = 0x0100 .equ SRAM_SIZE = 16384 .equ RAMEND = 0x40ff .equ XRAMEND = 0x0000 ---8<------------------------------ RAM begins at $0100 and ends at $40ff. So you have in your listing: 00002a ff 40 .dw rstackstart ; USER_RP^M 00002c af 40 .dw stackstart ; USER_SP0^M 00002e af 40 .dw stackstart ; USER_SP^M Your return stack starts at $40ff and grows down and your data stack starts at $40af and grows down. Most ATmegas have stack at $0100, but some AVR CPUs have it at $0040, $0060 or $0200. My ATmega164P has RAM from $0100 until $08ff, so my rstack starts at $08ff and my data stack grows down from $08af. Hope it helps! --Marcin |
|
From: pito <pi...@vo...> - 2010-08-28 23:58:04
|
Marcin, the .lst I've sent you (zip) produces this: > ver amforth 4.0 ATmega1284P ok > 123 ok > .s 0 16557 123 ok >456 ok > .s 0 16555 456 1 16557 123 ok > Pito. ----- PŮVODNÍ ZPRÁVA ----- Od: "Marcin Cieslak" <sa...@sa...> Komu: "pito" <pi...@vo...> Předmět: Re: [Amforth-devel] .s on 1284p Datum: 29.8.2010 - 1:45:40 > On Sun, 29 Aug 2010, pito wrote: > > > I hope you are asking for this .lst (:-)). The > > whole .lst is 280k. > > > Can you gzip it and publish somewhere? Or mail me > privately. > > --Marcin |
|
From: Marcin C. <sa...@sa...> - 2010-08-28 23:45:48
|
On Sun, 29 Aug 2010, pito wrote: > I hope you are asking for this .lst (:-)). The whole .lst is 280k. Can you gzip it and publish somewhere? Or mail me privately. --Marcin |
|
From: pito <pi...@vo...> - 2010-08-28 23:43:36
|
Marcin, here is the .s part of the .lst of amforth for 1284p: .include "words/dot-s.asm" ; R( -- ) ; stack dump VE_DOTS: 000888 ff02 .dw $ff02 000889 732e .db ".s" 00088a 0881 .dw VE_HEAD .set VE_HEAD = VE_DOTS XT_DOTS: 00088b f00a .dw DO_COLON PFA_DOTS: 00088c f2a1 .dw XT_SP_FETCH 00088d 05db .dw XT_DEPTH 00088e f255 .dw XT_1MINUS 00088f f153 .dw XT_ZERO 000890 f2c4 .dw XT_DOQDO 000891 089f .dw PFA_DOTS2 PFA_DOTS1: 000892 f0c2 .dw XT_DUP 000893 f2da .dw XT_I 000894 f0c2 .dw XT_DUP 000895 0884 .dw XT_UDOT 000896 f22b .dw XT_2STAR 000897 f1bc .dw XT_PLUS 000898 f0c2 .dw XT_DUP 000899 0884 .dw XT_UDOT 00089a f09a .dw XT_FETCH 00089b 0884 .dw XT_UDOT 00089c 0344 .dw XT_CR 00089d f2e2 .dw XT_DOLOOP 00089e 0892 .dw PFA_DOTS1 PFA_DOTS2: 00089f f0ea .dw XT_DROP 0008a0 f048 .dw XT_EXIT I hope you are asking for this .lst (:-)). The whole .lst is 280k. Pito. ----- PŮVODNÍ ZPRÁVA ----- Od: "Marcin Cieslak" <sa...@sa...> Komu: "Everything around amforth" <amf...@li...> Předmět: Re: [Amforth-devel] .s on 1284p Datum: 28.8.2010 - 22:30:10 > On Sat, 28 Aug 2010, pito wrote: > > > Matthias, > > something is telling me that the adress (the > > 16557)cannot be higher > > > than > > 16384. P. > > Do you have an assembly .lst listing or can > produce one? > > --Marcin |
|
From: Marcin C. <sa...@sa...> - 2010-08-28 23:40:52
|
On Sun, 29 Aug 2010, pito wrote: > Marcin, when I do .s I see an address higher then 16383 (16557). So > it is an indication for me something must be wrong there. Matthias > sent the .s definition, from what I can see is he prints out the > address (of RAM - I do assume - when talking data stack), and as I > have shown the number is 16557.. So outside the RAM space. Maybe I > am mistaken.. Just explain to me plz.. Assembly listing of what, > please? P. When you run assembler (avra, avrasm2), please specify an option: -l listfilename Makefiles and antfiles supplied by amforth usually have this option enabled, so you might already have a "<imagename>.lst" file already. This is so-called assembly listing. --Marcin |
|
From: pito <pi...@vo...> - 2010-08-28 23:20:01
|
Marcin, when I do .s I see an address higher then 16383 (16557). So it is an indication for me something must be wrong there. Matthias sent the .s definition, from what I can see is he prints out the address (of RAM - I do assume - when talking data stack), and as I have shown the number is 16557.. So outside the RAM space. Maybe I am mistaken.. Just explain to me plz.. Assembly listing of what, please? P. ----- PŮVODNÍ ZPRÁVA ----- Od: "Marcin Cieslak" <sa...@sa...> Komu: "Everything around amforth" <amf...@li...> Předmět: Re: [Amforth-devel] .s on 1284p Datum: 28.8.2010 - 22:30:10 > On Sat, 28 Aug 2010, pito wrote: > > > Matthias, > > something is telling me that the adress (the > > 16557)cannot be higher > > > than > > 16384. P. > > Do you have an assembly .lst listing or can > produce one? > > --Marcin > |
|
From: Marcin C. <sa...@sa...> - 2010-08-28 20:30:21
|
On Sat, 28 Aug 2010, pito wrote: > Matthias, > something is telling me that the adress (the 16557)cannot be higher > than > 16384. P. Do you have an assembly .lst listing or can produce one? --Marcin |
|
From: pito <pi...@vo...> - 2010-08-28 19:30:54
|
Matthias, something is telling me that the adress (the 16557)cannot be higher than 16384. P. ----- PŮVODNÍ ZPRÁVA ----- Od: "Matthias Trute" <mt...@we...> Komu: "Everything around amforth" <amf...@li...> Předmět: Re: [Amforth-devel] .s on 1284p Datum: 28.8.2010 - 14:41:15 > Pito, > > > it is not stack address, but the 16557 does not > > fit somehow...p. > > > current implementation is like > > : .s > sp@ depth 1- 0 ?do > dup i > dup u. ( gives the "index" ) > 2* + dup u. ( prints the address ) > @ u. ( prints the current content ) > cr > loop > drop > ; > > (just reverse-coded manually from dot-s.asm) > > Matthias > > > > ------------------------------------------------------------------------------ > > Sell apps to millions through the Intel(R) > Atom(Tm) Developer Program > Be part of this innovative community and reach > millions of netbook users > worldwide. Take advantage of special opportunities > to increase revenue and > speed time-to-market. Join now, and jumpstart your > future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel |
|
From: <an...@ki...> - 2010-08-28 14:17:58
|
I saw this on thingiverse and thought of you.... http://www.thingiverse.com/thing:3901 |
|
From: Matthias T. <mt...@we...> - 2010-08-28 12:41:25
|
Pito,
> it is not stack address, but the 16557 does not fit somehow...p.
current implementation is like
: .s
sp@ depth 1- 0 ?do
dup i
dup u. ( gives the "index" )
2* + dup u. ( prints the address )
@ u. ( prints the current content )
cr
loop
drop
;
(just reverse-coded manually from dot-s.asm)
Matthias
|
|
From: pito <pi...@vo...> - 2010-08-28 08:43:26
|
it is not stack address, but the 16557 does not fit somehow...p. ----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <pi...@vo...> Komu: amf...@li... Předmět: [Amforth-devel] .s on 1284p Datum: 27.8.2010 - 23:52:16 > Hi, > is this stack address correct (decimal)? > > > .s > ok > > 123 > ok > > .s > 0 16557 123 > ok > > 456 > ok > > .s > 0 16555 456 > 1 16557 123 > ok > > > p. > > > ------------------------------------------------------------------------------ > > Sell apps to millions through the Intel(R) > Atom(Tm) Developer Program > Be part of this innovative community and reach > millions of netbook users > worldwide. Take advantage of special opportunities > to increase revenue and > speed time-to-market. Join now, and jumpstart your > future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel |
|
From: pito <pi...@vo...> - 2010-08-28 07:16:49
|
Crystal 25MHZ (comm 19k2): > ver amforth 4.0 ATmega1284P ok > primes 10 iterations. 6412 primes found, ok > Sieve: size 32000, 10 iterations in 50sec = 5.0sec/iter, @25MHz P. ----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <pi...@vo...> Komu: pi...@vo..., an...@ki..., amf...@li... Předmět: Re: [Amforth-devel] 1284p compilation Datum: 28.8.2010 - 9:08:14 > Crystal 22MHZ (comm 19k2): > > ver > amforth 4.0 ATmega1284P ok > > primes > > 10 iterations. > 6412 primes found, ok > > > Sieve: size 32000, 10 iterations in 57sec = > 5.7sec/iter, @22MHz > P. > > ----- PŮVODNÍ ZPRÁVA ----- > Od: "pito" <pi...@vo...> > Komu: pi...@vo..., an...@ki..., > amf...@li... > Předmět: Re: [Amforth-devel] 1284p compilation > Datum: 28.8.2010 - 8:56:56 > > > Now I've changed the fuses to: > > l=F7 h=D9 e=FF (full swing osc., slow rising) > > crystal = 20MHz (comm at 19k2 as the usart > > settings routine is quite > > intolerant as you know..): > > > ver > > amforth 4.0 ATmega1284P ok > > > primes > > > > 1 iterations. > > 6412 primes found, ok > > > > > Sieve: size 32000, 1 iteration done in 6sek > > @20MHz. > > Pito. > > > > ----- PŮVODNÍ ZPRÁVA ----- > > Od: "pito" <pi...@vo...> > > Komu: an...@ki..., > > amf...@li... > > Předmět: Re: [Amforth-devel] 1284p compilation > > Datum: 28.8.2010 - 8:19:06 > > > > > 11.05920 MHz. I may do experiments with > > > overclocking today.. Pito > > > > > > ----- PŮVODNÍ ZPRÁVA ----- > > > Od: an...@ki... > > > Komu: amf...@li... > > > Předmět: Re: [Amforth-devel] 1284p compilation > > > Datum: 28.8.2010 - 1:03:51 > > > > > > > OH something I forgot to ask. What crystal > > > > frequency are you running it > > > > at ?? > > > > > > > > Cheers > > > > > > > > > > > > ------------------------------------------------------------------------------ > > > > > > > > > > > > Sell apps to millions through the > > > > > > > Intel(R) > > > > > > > > > Atom(Tm) Developer Program > > > Be part of this innovative community and reach > > > millions of netbook users > > > worldwide. Take advantage of special > > > opportunities > > > > to increase revenue and > > > speed time-to-market. Join now, and jumpstart > > > your > > > > future. > > > http://p.sf.net/sfu/intel-atom-d2d > > > _______________________________________________ > > > > > Amforth-devel mailing list > > > Amf...@li... > > > https://lists.sourceforge.net/lists/listinfo/amforth-devel > > > > > > > > > |
|
From: pito <pi...@vo...> - 2010-08-28 07:08:23
|
Crystal 22MHZ (comm 19k2): > ver amforth 4.0 ATmega1284P ok > primes 10 iterations. 6412 primes found, ok > Sieve: size 32000, 10 iterations in 57sec = 5.7sec/iter, @22MHz P. ----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <pi...@vo...> Komu: pi...@vo..., an...@ki..., amf...@li... Předmět: Re: [Amforth-devel] 1284p compilation Datum: 28.8.2010 - 8:56:56 > Now I've changed the fuses to: > l=F7 h=D9 e=FF (full swing osc., slow rising) > crystal = 20MHz (comm at 19k2 as the usart > settings routine is quite > intolerant as you know..): > > ver > amforth 4.0 ATmega1284P ok > > primes > > 1 iterations. > 6412 primes found, ok > > > Sieve: size 32000, 1 iteration done in 6sek > @20MHz. > Pito. > > ----- PŮVODNÍ ZPRÁVA ----- > Od: "pito" <pi...@vo...> > Komu: an...@ki..., > amf...@li... > Předmět: Re: [Amforth-devel] 1284p compilation > Datum: 28.8.2010 - 8:19:06 > > > 11.05920 MHz. I may do experiments with > > overclocking today.. Pito > > > > ----- PŮVODNÍ ZPRÁVA ----- > > Od: an...@ki... > > Komu: amf...@li... > > Předmět: Re: [Amforth-devel] 1284p compilation > > Datum: 28.8.2010 - 1:03:51 > > > > > OH something I forgot to ask. What crystal > > > frequency are you running it > > > at ?? > > > > > > Cheers > > > > > > > > ------------------------------------------------------------------------------ > > > > > > Sell apps to millions through the Intel(R) > > Atom(Tm) Developer Program > > Be part of this innovative community and reach > > millions of netbook users > > worldwide. Take advantage of special > > opportunities > > > to increase revenue and > > speed time-to-market. Join now, and jumpstart > > your > > > future. > > http://p.sf.net/sfu/intel-atom-d2d > > _______________________________________________ > > Amforth-devel mailing list > > Amf...@li... > > https://lists.sourceforge.net/lists/listinfo/amforth-devel > > > |
|
From: pito <pi...@vo...> - 2010-08-28 06:57:04
|
Now I've changed the fuses to: l=F7 h=D9 e=FF (full swing osc., slow rising) crystal = 20MHz (comm at 19k2 as the usart settings routine is quite intolerant as you know..): > ver amforth 4.0 ATmega1284P ok > primes 1 iterations. 6412 primes found, ok > Sieve: size 32000, 1 iteration done in 6sek @20MHz. Pito. ----- PŮVODNÍ ZPRÁVA ----- Od: "pito" <pi...@vo...> Komu: an...@ki..., amf...@li... Předmět: Re: [Amforth-devel] 1284p compilation Datum: 28.8.2010 - 8:19:06 > 11.05920 MHz. I may do experiments with > overclocking today.. Pito > > ----- PŮVODNÍ ZPRÁVA ----- > Od: an...@ki... > Komu: amf...@li... > Předmět: Re: [Amforth-devel] 1284p compilation > Datum: 28.8.2010 - 1:03:51 > > > OH something I forgot to ask. What crystal > > frequency are you running it > > at ?? > > > > Cheers > > > > ------------------------------------------------------------------------------ > > Sell apps to millions through the Intel(R) > Atom(Tm) Developer Program > Be part of this innovative community and reach > millions of netbook users > worldwide. Take advantage of special opportunities > to increase revenue and > speed time-to-market. Join now, and jumpstart your > future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel |
|
From: pito <pi...@vo...> - 2010-08-28 06:19:15
|
11.05920 MHz. I may do experiments with overclocking today.. Pito ----- PŮVODNÍ ZPRÁVA ----- Od: an...@ki... Komu: amf...@li... Předmět: Re: [Amforth-devel] 1284p compilation Datum: 28.8.2010 - 1:03:51 > OH something I forgot to ask. What crystal > frequency are you running it > at ?? > > Cheers |
|
From: <an...@ki...> - 2010-08-27 23:03:59
|
OH something I forgot to ask. What crystal frequency are you running it at ?? Cheers Andy Kirby On 27/08/10 20:38, pito wrote: >> words > TIMER3_OVFAddr TIMER3_COMPBAddr TIMER3_COMPAAddr TIMER3_CAPTAddr > USART1_TXAddr USART1_UDREAddr USART1_RXAddr SPM_READYAddr TWIAddr > EE_READYAddr ADCAddr ANALOG_COMPAddr USART0_TXAddr USART0_UDREAddr > USART0_RXAddr SPI_STCAddr TIMER0_OVFAddr TIMER0_COMPBAddr > TIMER0_COMPAAddr TIMER1_OVFAddr TIMER1_COMPBAddr TIMER1_COMPAAddr > TIMER1_CAPTAddr TIMER2_OVFAddr TIMER2_COMPBAddr TIMER2_COMPAAddr > WDTAddr PCINT3Addr PCINT2Addr PCINT1Addr PCINT0Addr INT2Addr > INT1Addr INT0Addr WDTCSR UDR1 UCSR1C UCSR1B UCSR1A UBRR1L UBRR1H > UDR0 UCSR0C UCSR0B UCSR0A UBRR0L UBRR0H TWSR TWDR TWCR TWBR TWAR > TWAMR TIMSK3 TIFR3 TCNT3L TCNT3H TCCR3C TCCR3B TCCR3A OCR3BL OCR3BH > OCR3AL OCR3AH ICR3L ICR3H TIMSK2 TIFR2 TCNT2 TCCR2B TCCR2A OCR2B > OCR2A ASSR TIMSK1 TIFR1 TCNT1L TCNT1H TCCR1C TCCR1B TCCR1A OCR1BL > OCR1BH OCR1AL OCR1AH ICR1L ICR1H TIMSK0 TIFR0 TCNT0 TCCR0B TCCR0A > OCR0B OCR0A GTCCR SPSR SPDR SPCR PORTD PIND DDRD PORTC PINC DDRC > PORTB PINB DDRB PORTA PINA DDRA OCDR PCMSK3 PCMSK2 PCMSK1 PCMSK0 > PCIFR PCICR EIMSK EIFR EICRA EEDR EECR EEARL EEARH SREG SPL SPH SMCR > RAMPZ PRR1 PRR0 OSCCAL MCUSR MCUCR GPIOR2 GPIOR1 GPIOR0 CLKPR SPMCSR > DIDR1 ACSR DIDR0 ADMUX ADCSRB ADCSRA ADCL ADCH primes DO-PRIME 2drop > bit-reset bit? bit-addr flags size #times _sieve_ move blank nip > tuck ? xt>nfa >body chars char+ c, aligned align restore-input > save-input source-id marker postpone m+ 2variable 2constant 2! 2@ > 2tuck 2nip 2rot 2swap 2over 2dup 2drop 2r> 2>r .base calc-baudrate > .res .( erase i@ (i!) i! e@ e! not s>d up! up@ >< cmove> unloop i > sp! sp@ rp! rp@ +! rshift lshift 1- 1+ xor or and 2* 2/ invert um* > um/mod m* + - log2 d< d> 0> u> u< true 0 0< > < 0= = <> r@ >r r> rot > drop over swap ?dup dup c@ c! ! @ execute exit -int +int > show-wordlist +usart baud tx? tx rx? rx order get-order get-current > environment? environment end-code code abort abort" [char] immediate > recurse user constant variable [ ] ; :noname : does> create ?do > leave +loop loop do again until repeat while begin then else if > literal int! applturnkey is Rdefer Edefer words s" ." .s u. dinvert > d- d+ d2* 1ms fill set-order set-current init-user ee>ram ee-user > tib d2/ cmove dnegate dabs d>s j * defer@ defer! icompare find > search-wordlist to value unused noop ver ?stack interpret depth rp0 > sp sp0 cold pause quit place word /string source cscan parse 2swap >> number number char refill accept cskip throw catch handler ' type > count spaces space cr icount itype s, digit? ud/mod ud.r ud. . d. .r > d.r sign #> #s # <# hold hld within max min abs mod / negate u/mod > */ /mod */mod turnkey bl hex decimal bin ['] , compile ( \ allot > here edp dp /key key? key emit? emit pad #tib >in cell+ cells base > state f_cpu ok >> .res > free FLASH cells 56498 > free RAM cells 12078 > used EEPROM cells 62 > used data stack cells 0 > used return stack 10 > free return stack 70 > ok >> Pito > > ----- PŮVODNÍ ZPRÁVA ----- > Od: "pito" <pi...@vo...> > Komu: pi...@vo..., mt...@we..., > amf...@li... > Předmět: Re: [Amforth-devel] 1284p compilation > Datum: 27.8.2010 - 21:33:15 > >> size 16384, ~5sek @11.059MHz >>> primes >> >> 1 iterations. >> 3511 primes found, ok >>> >> >> size 32000, ~11sek @11.059MHz >>> primes >> >> 1 iterations. >> 6412 primes found, ok >>> >> >> ----- PŮVODNÍ ZPRÁVA ----- >> Od: "pito" <pi...@vo...> >> Komu: pi...@vo..., mt...@we..., >> amf...@li... >> Předmět: Re: [Amforth-devel] 1284p compilation >> Datum: 27.8.2010 - 21:13:46 >> >>>> .res >>> free FLASH cells 58231 >>> free RAM cells 16080 >>> used EEPROM cells 62 >>> used data stack cells 0 >>> used return stack 10 >>> free return stack 70 >>> ok >>>> Cool >>> >>> PS: shall be "free RAM bytes" >>> >>> Pito. >>> >>> ----- PŮVODNÍ ZPRÁVA ----- >>> Od: "pito" <pi...@vo...> >>> Komu: pi...@vo..., mt...@we..., >>> amf...@li... >>> Předmět: Re: [Amforth-devel] 1284p compilation >>> Datum: 27.8.2010 - 21:07:20 >>> >>>> RESULT: >>>> Fuses: l=FF h=D9 e=FF >>>> source burned with pony-stk200 via lpt1 and >>>> sinaprog (avrdude gui): >>>>> >>>> ok >>>>> ver >>>> amforth 4.0 ATmega1284P ok >>>>> words >>>> i@ (i!) i! e@ e! not s>d up! up@ >< cmove> >>>> unloop >>>>> i sp! sp@ rp! rp@ >>>> +! rshift lshift 1- 1+ xor or and 2* 2/ invert >>>> um* >>>>> um/mod m* + - >>>> log2 d< d> 0> u> u< true 0 0< > < 0= = <> r@ >>>>> r >>>>>> r> >>>>> rot drop over >>>> swap ?dup dup c@ c! ! @ execute exit -int +int >>>> show-wordlist +usart >>>> baud tx? tx rx? rx order get-order get-current >>>> environment? >>>> environment end-code code abort abort" [char] >>>> immediate recurse user >>>> constant variable [ ] ; :noname : does> create >>>> ?do >>>>> leave +loop loop >>>> do again until repeat while begin then else if >>>> literal int! >>>> applturnkey is Rdefer Edefer words s" ." .s u. >>>> dinvert d- d+ d2* 1ms >>>> fill set-order set-current init-user ee>ram >>>> ee-user tib d2/ cmove >>>> dnegate dabs d>s j * defer@ defer! icompare >>>> find >>>>>> search-wordlist to >>>> value unused noop ver ?stack interpret depth >>>> rp0 >>>>>> sp sp0 cold pause >>>> quit place word /string source cscan parse >>>> 2swap >>>>>>> number number char >>>> refill accept cskip throw catch handler ' type >>>> count spaces space cr >>>> icount itype s, digit? ud/mod ud.r ud. . d. .r >>>> d.r >>>>> sign #> #s # <# >>>> hold hld within max min abs mod / negate u/mod >>>> */ >>>>> /mod */mod turnkey >>>> bl hex decimal bin ['] , compile ( \ allot >>>> here >>>>>> edp dp /key key? key >>>> emit? emit pad #tib >in cell+ cells base state >>>> f_cpu ok >>>>> Pito >>>> >>>> >>>> >>>> ----- PŮVODNÍ ZPRÁVA ----- >>>> Od: "pito" <pi...@vo...> >>>> Komu: mt...@we..., >>>> amf...@li... >>>> Předmět: Re: [Amforth-devel] 1284p compilation >>>> Datum: 27.8.2010 - 20:12:48 >>>> >>>>> With (template.asm based on Matthias): >>>>> >>>>> ; initial baud rate of terminal >>>>> .equ BAUD = 115200 >>>>> .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0) >>>>> .equ WANT_ISR_RX = 1; >>>>> .if WANT_ISR_RX == 1 >>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>> (1<<RXEN0)| >>>>>>>> (1<<RXCIE0) >>>>> .else >>>>> .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0) >>>>> .endif >>>>> ; 8N1 is commonly used >>>>> .equ USART_C_VALUE = (3<<UCSZ00) >>>>> .include "drivers/usart_0.asm" >>>>> >>>>> the result of compilation is: >>>>> >>>>> ATmega1284P memory use summary [bytes]: >>>>> Segment Begin End Code Data >>>>> Used >>>>>>>> >>>>>>> >>>>>> Size Use% >>>>> --------------------------------------------------------------- >>>>>>>>>>>>>>>>>> [.cseg] 0x000000 0x01e7e2 1882 >>>>>>>>>>> 6134 >>>>>>>>>>>>>>> 8016 >>>>>>>> 131072 6.1% >>>>> [.dseg] 0x000100 0x000100 0 0 >>>>> 0 >>>>>>>> >>>>>>> 16384 0.0% >>>>> [.eseg] 0x000000 0x00003e 0 62 >>>>> 62 >>>>>>>> >>>>>>> >>>>>> 4096 1.5% >>>>> >>>>> Assembly complete, 0 errors. 0 warnings >>>>> >>>>> I hope WANT_ISR_RX = 1 is what I want.. >>>>> Pito >>>>> >>>>> ----- PŮVODNÍ ZPRÁVA ----- >>>>> Od: "Matthias Trute" <mt...@we...> >>>>> Komu: "Everything around amforth" >>>>> <amf...@li...> >>>>> Předmět: Re: [Amforth-devel] 1284p >>>>> compilation >>>>>>>> Datum: 27.8.2010 - 19:43:36 >>>>> >>>>>> Am Freitag, den 27.08.2010, 17:24 +0200 >>>>>> schrieb >>>>>>>> pito: >>>>>>> FYI - result of the compilation for >>>>>>> 1284p >>>>>>>>>>>> (avr >>>>>>>>>> studio 4.18), device >>>>>>>> from trunk: >>>>>>> >>>>>>> AVRASM: AVR macro assembler 2.1.42 >>>>>>> (build >>>>>>>>>>>> 1796 >>>>>>>>>> Sep 15 2009 10:48:36) >>>>>>>> Copyright (C) 1995-2009 ATMEL >>>>>>>> Corporation >>>>>>>>>>> >>>>>> Thats the version I use too. so far ok >>>>>> >>>>>>> >>>>>>> ... >>>>>>> C:\MyCode\AVR\WINAVR\projects\AMFORTH\core\drivers/usart.asm(2): >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Here lies probably the root cause: try> > > > > including >>>>>>>> the usart_0.asm >>>>>> file instead. >>>>>> >>>>>> The following template.asm snippet did >>>>>> work >>>>>>>>>> out >>>>>>>> of >>>>>>> the (trunk-) box >>>>>> (note the additional 0 digits almost >>>>>> everywhere) >>>>>>>> ----------- >>>>>> ... >>>>>> ; initial baud rate of terminal >>>>>> .equ BAUD = 9600 >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0) >>>>>>>>>> >>>>>> .if WANT_ISR_RX == 1 >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0)| >>>>>>>>> (1<<RXCIE0) >>>>>> .else >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0) >>>>>>>>>> .endif >>>>>> ; 8N1 is commonly used >>>>>> .equ USART_C_VALUE = (3<<UCSZ00) >>>>>> .include "drivers/usart_0.asm" >>>>>> .......... >>>>>> ----------------- >>>>>> >>>>>> template.hex: >>>>>> [echo] Producing Hexfiles for atmega1284p >>>>>> >>>>>> BUILD SUCCESSFUL >>>>>> Total time: 4 seconds >>>>>> >>>>>> ------------- >>>>>> >>>>>> Without that _0 the wrong usart drivers >>>>>> gets >>>>>>>>>> included (dont blame >>>>>> me for that). >>>>>> >>>>>> HTH >>>>>> >>>>>> Matthias >>>>>> >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------------------ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Sell apps >>>>>>>>>>>>>>>>>>>>>> to >>>>>>>>>>>>>>>>>>>>>> millions >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> through the> > > > > > > > > > > > > > > > > > > > > Intel(R) >>>>>>>>>>>> Atom(Tm) Developer Program >>>>>> Be part of this innovative community and >>>>>> reach >>>>>>>>> millions of netbook users >>>>>> worldwide. Take advantage of special >>>>>> opportunities >>>>>>> to increase revenue and >>>>>> speed time-to-market. Join now, and >>>>>> jumpstart >>>>>>>>> your >>>>>>> future. >>>>>> http://p.sf.net/sfu/intel-atom-d2d >>>>>> _______________________________________________ >>>>>>>>>>>>>>> Amforth-devel mailing list >>>>>> Amf...@li... >>>>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel >>>>>>>>>>>>>>> >>>>> >>>>> >>>>> ------------------------------------------------------------------------------ >>>>>>>>>>>>>>>>>>>>> Sell apps to millions >>>>>>>>>>>>>> through the >>>>>>>>>>>>>>>>>>>>> Intel(R) >>>>>>>>>>> Atom(Tm) Developer Program >>>>> Be part of this innovative community and >>>>> reach >>>>>>>> millions of netbook users >>>>> worldwide. Take advantage of special >>>>> opportunities >>>>>> to increase revenue and >>>>> speed time-to-market. Join now, and >>>>> jumpstart >>>>>>>> your >>>>>> future. >>>>> http://p.sf.net/sfu/intel-atom-d2d >>>>> _______________________________________________ >>>>>>>>>> Amforth-devel mailing list >>>>> Amf...@li... >>>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel >>>>>>>>>> >>>> >>> >>> >> >> > > > > ------------------------------------------------------------------------------ > Sell apps to millions through the Intel(R) Atom(Tm) Developer Program > Be part of this innovative community and reach millions of netbook users > worldwide. Take advantage of special opportunities to increase revenue and > speed time-to-market. Join now, and jumpstart your future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel > |
|
From: <an...@ki...> - 2010-08-27 23:01:12
|
Wow well done pito. That's one job sorted. On 27/08/10 20:38, pito wrote: >> words > TIMER3_OVFAddr TIMER3_COMPBAddr TIMER3_COMPAAddr TIMER3_CAPTAddr > USART1_TXAddr USART1_UDREAddr USART1_RXAddr SPM_READYAddr TWIAddr > EE_READYAddr ADCAddr ANALOG_COMPAddr USART0_TXAddr USART0_UDREAddr > USART0_RXAddr SPI_STCAddr TIMER0_OVFAddr TIMER0_COMPBAddr > TIMER0_COMPAAddr TIMER1_OVFAddr TIMER1_COMPBAddr TIMER1_COMPAAddr > TIMER1_CAPTAddr TIMER2_OVFAddr TIMER2_COMPBAddr TIMER2_COMPAAddr > WDTAddr PCINT3Addr PCINT2Addr PCINT1Addr PCINT0Addr INT2Addr > INT1Addr INT0Addr WDTCSR UDR1 UCSR1C UCSR1B UCSR1A UBRR1L UBRR1H > UDR0 UCSR0C UCSR0B UCSR0A UBRR0L UBRR0H TWSR TWDR TWCR TWBR TWAR > TWAMR TIMSK3 TIFR3 TCNT3L TCNT3H TCCR3C TCCR3B TCCR3A OCR3BL OCR3BH > OCR3AL OCR3AH ICR3L ICR3H TIMSK2 TIFR2 TCNT2 TCCR2B TCCR2A OCR2B > OCR2A ASSR TIMSK1 TIFR1 TCNT1L TCNT1H TCCR1C TCCR1B TCCR1A OCR1BL > OCR1BH OCR1AL OCR1AH ICR1L ICR1H TIMSK0 TIFR0 TCNT0 TCCR0B TCCR0A > OCR0B OCR0A GTCCR SPSR SPDR SPCR PORTD PIND DDRD PORTC PINC DDRC > PORTB PINB DDRB PORTA PINA DDRA OCDR PCMSK3 PCMSK2 PCMSK1 PCMSK0 > PCIFR PCICR EIMSK EIFR EICRA EEDR EECR EEARL EEARH SREG SPL SPH SMCR > RAMPZ PRR1 PRR0 OSCCAL MCUSR MCUCR GPIOR2 GPIOR1 GPIOR0 CLKPR SPMCSR > DIDR1 ACSR DIDR0 ADMUX ADCSRB ADCSRA ADCL ADCH primes DO-PRIME 2drop > bit-reset bit? bit-addr flags size #times _sieve_ move blank nip > tuck ? xt>nfa >body chars char+ c, aligned align restore-input > save-input source-id marker postpone m+ 2variable 2constant 2! 2@ > 2tuck 2nip 2rot 2swap 2over 2dup 2drop 2r> 2>r .base calc-baudrate > .res .( erase i@ (i!) i! e@ e! not s>d up! up@ >< cmove> unloop i > sp! sp@ rp! rp@ +! rshift lshift 1- 1+ xor or and 2* 2/ invert um* > um/mod m* + - log2 d< d> 0> u> u< true 0 0< > < 0= = <> r@ >r r> rot > drop over swap ?dup dup c@ c! ! @ execute exit -int +int > show-wordlist +usart baud tx? tx rx? rx order get-order get-current > environment? environment end-code code abort abort" [char] immediate > recurse user constant variable [ ] ; :noname : does> create ?do > leave +loop loop do again until repeat while begin then else if > literal int! applturnkey is Rdefer Edefer words s" ." .s u. dinvert > d- d+ d2* 1ms fill set-order set-current init-user ee>ram ee-user > tib d2/ cmove dnegate dabs d>s j * defer@ defer! icompare find > search-wordlist to value unused noop ver ?stack interpret depth rp0 > sp sp0 cold pause quit place word /string source cscan parse 2swap >> number number char refill accept cskip throw catch handler ' type > count spaces space cr icount itype s, digit? ud/mod ud.r ud. . d. .r > d.r sign #> #s # <# hold hld within max min abs mod / negate u/mod > */ /mod */mod turnkey bl hex decimal bin ['] , compile ( \ allot > here edp dp /key key? key emit? emit pad #tib >in cell+ cells base > state f_cpu ok >> .res > free FLASH cells 56498 > free RAM cells 12078 > used EEPROM cells 62 > used data stack cells 0 > used return stack 10 > free return stack 70 > ok >> Pito > > ----- PŮVODNÍ ZPRÁVA ----- > Od: "pito" <pi...@vo...> > Komu: pi...@vo..., mt...@we..., > amf...@li... > Předmět: Re: [Amforth-devel] 1284p compilation > Datum: 27.8.2010 - 21:33:15 > >> size 16384, ~5sek @11.059MHz >>> primes >> >> 1 iterations. >> 3511 primes found, ok >>> >> >> size 32000, ~11sek @11.059MHz >>> primes >> >> 1 iterations. >> 6412 primes found, ok >>> >> >> ----- PŮVODNÍ ZPRÁVA ----- >> Od: "pito" <pi...@vo...> >> Komu: pi...@vo..., mt...@we..., >> amf...@li... >> Předmět: Re: [Amforth-devel] 1284p compilation >> Datum: 27.8.2010 - 21:13:46 >> >>>> .res >>> free FLASH cells 58231 >>> free RAM cells 16080 >>> used EEPROM cells 62 >>> used data stack cells 0 >>> used return stack 10 >>> free return stack 70 >>> ok >>>> Cool >>> >>> PS: shall be "free RAM bytes" >>> >>> Pito. >>> >>> ----- PŮVODNÍ ZPRÁVA ----- >>> Od: "pito" <pi...@vo...> >>> Komu: pi...@vo..., mt...@we..., >>> amf...@li... >>> Předmět: Re: [Amforth-devel] 1284p compilation >>> Datum: 27.8.2010 - 21:07:20 >>> >>>> RESULT: >>>> Fuses: l=FF h=D9 e=FF >>>> source burned with pony-stk200 via lpt1 and >>>> sinaprog (avrdude gui): >>>>> >>>> ok >>>>> ver >>>> amforth 4.0 ATmega1284P ok >>>>> words >>>> i@ (i!) i! e@ e! not s>d up! up@ >< cmove> >>>> unloop >>>>> i sp! sp@ rp! rp@ >>>> +! rshift lshift 1- 1+ xor or and 2* 2/ invert >>>> um* >>>>> um/mod m* + - >>>> log2 d< d> 0> u> u< true 0 0< > < 0= = <> r@ >>>>> r >>>>>> r> >>>>> rot drop over >>>> swap ?dup dup c@ c! ! @ execute exit -int +int >>>> show-wordlist +usart >>>> baud tx? tx rx? rx order get-order get-current >>>> environment? >>>> environment end-code code abort abort" [char] >>>> immediate recurse user >>>> constant variable [ ] ; :noname : does> create >>>> ?do >>>>> leave +loop loop >>>> do again until repeat while begin then else if >>>> literal int! >>>> applturnkey is Rdefer Edefer words s" ." .s u. >>>> dinvert d- d+ d2* 1ms >>>> fill set-order set-current init-user ee>ram >>>> ee-user tib d2/ cmove >>>> dnegate dabs d>s j * defer@ defer! icompare >>>> find >>>>>> search-wordlist to >>>> value unused noop ver ?stack interpret depth >>>> rp0 >>>>>> sp sp0 cold pause >>>> quit place word /string source cscan parse >>>> 2swap >>>>>>> number number char >>>> refill accept cskip throw catch handler ' type >>>> count spaces space cr >>>> icount itype s, digit? ud/mod ud.r ud. . d. .r >>>> d.r >>>>> sign #> #s # <# >>>> hold hld within max min abs mod / negate u/mod >>>> */ >>>>> /mod */mod turnkey >>>> bl hex decimal bin ['] , compile ( \ allot >>>> here >>>>>> edp dp /key key? key >>>> emit? emit pad #tib >in cell+ cells base state >>>> f_cpu ok >>>>> Pito >>>> >>>> >>>> >>>> ----- PŮVODNÍ ZPRÁVA ----- >>>> Od: "pito" <pi...@vo...> >>>> Komu: mt...@we..., >>>> amf...@li... >>>> Předmět: Re: [Amforth-devel] 1284p compilation >>>> Datum: 27.8.2010 - 20:12:48 >>>> >>>>> With (template.asm based on Matthias): >>>>> >>>>> ; initial baud rate of terminal >>>>> .equ BAUD = 115200 >>>>> .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0) >>>>> .equ WANT_ISR_RX = 1; >>>>> .if WANT_ISR_RX == 1 >>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>> (1<<RXEN0)| >>>>>>>> (1<<RXCIE0) >>>>> .else >>>>> .set USART_B_VALUE = (1<<TXEN0) | (1<<RXEN0) >>>>> .endif >>>>> ; 8N1 is commonly used >>>>> .equ USART_C_VALUE = (3<<UCSZ00) >>>>> .include "drivers/usart_0.asm" >>>>> >>>>> the result of compilation is: >>>>> >>>>> ATmega1284P memory use summary [bytes]: >>>>> Segment Begin End Code Data >>>>> Used >>>>>>>> >>>>>>> >>>>>> Size Use% >>>>> --------------------------------------------------------------- >>>>>>>>>>>>>>>>>> [.cseg] 0x000000 0x01e7e2 1882 >>>>>>>>>>> 6134 >>>>>>>>>>>>>>> 8016 >>>>>>>> 131072 6.1% >>>>> [.dseg] 0x000100 0x000100 0 0 >>>>> 0 >>>>>>>> >>>>>>> 16384 0.0% >>>>> [.eseg] 0x000000 0x00003e 0 62 >>>>> 62 >>>>>>>> >>>>>>> >>>>>> 4096 1.5% >>>>> >>>>> Assembly complete, 0 errors. 0 warnings >>>>> >>>>> I hope WANT_ISR_RX = 1 is what I want.. >>>>> Pito >>>>> >>>>> ----- PŮVODNÍ ZPRÁVA ----- >>>>> Od: "Matthias Trute" <mt...@we...> >>>>> Komu: "Everything around amforth" >>>>> <amf...@li...> >>>>> Předmět: Re: [Amforth-devel] 1284p >>>>> compilation >>>>>>>> Datum: 27.8.2010 - 19:43:36 >>>>> >>>>>> Am Freitag, den 27.08.2010, 17:24 +0200 >>>>>> schrieb >>>>>>>> pito: >>>>>>> FYI - result of the compilation for >>>>>>> 1284p >>>>>>>>>>>> (avr >>>>>>>>>> studio 4.18), device >>>>>>>> from trunk: >>>>>>> >>>>>>> AVRASM: AVR macro assembler 2.1.42 >>>>>>> (build >>>>>>>>>>>> 1796 >>>>>>>>>> Sep 15 2009 10:48:36) >>>>>>>> Copyright (C) 1995-2009 ATMEL >>>>>>>> Corporation >>>>>>>>>>> >>>>>> Thats the version I use too. so far ok >>>>>> >>>>>>> >>>>>>> ... >>>>>>> C:\MyCode\AVR\WINAVR\projects\AMFORTH\core\drivers/usart.asm(2): >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Here lies probably the root cause: try> > > > > including >>>>>>>> the usart_0.asm >>>>>> file instead. >>>>>> >>>>>> The following template.asm snippet did >>>>>> work >>>>>>>>>> out >>>>>>>> of >>>>>>> the (trunk-) box >>>>>> (note the additional 0 digits almost >>>>>> everywhere) >>>>>>>> ----------- >>>>>> ... >>>>>> ; initial baud rate of terminal >>>>>> .equ BAUD = 9600 >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0) >>>>>>>>>> >>>>>> .if WANT_ISR_RX == 1 >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0)| >>>>>>>>> (1<<RXCIE0) >>>>>> .else >>>>>> .set USART_B_VALUE = (1<<TXEN0) | >>>>>> (1<<RXEN0) >>>>>>>>>> .endif >>>>>> ; 8N1 is commonly used >>>>>> .equ USART_C_VALUE = (3<<UCSZ00) >>>>>> .include "drivers/usart_0.asm" >>>>>> .......... >>>>>> ----------------- >>>>>> >>>>>> template.hex: >>>>>> [echo] Producing Hexfiles for atmega1284p >>>>>> >>>>>> BUILD SUCCESSFUL >>>>>> Total time: 4 seconds >>>>>> >>>>>> ------------- >>>>>> >>>>>> Without that _0 the wrong usart drivers >>>>>> gets >>>>>>>>>> included (dont blame >>>>>> me for that). >>>>>> >>>>>> HTH >>>>>> >>>>>> Matthias >>>>>> >>>>>> >>>>>> >>>>>> ------------------------------------------------------------------------------ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Sell apps >>>>>>>>>>>>>>>>>>>>>> to >>>>>>>>>>>>>>>>>>>>>> millions >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> through the> > > > > > > > > > > > > > > > > > > > > Intel(R) >>>>>>>>>>>> Atom(Tm) Developer Program >>>>>> Be part of this innovative community and >>>>>> reach >>>>>>>>> millions of netbook users >>>>>> worldwide. Take advantage of special >>>>>> opportunities >>>>>>> to increase revenue and >>>>>> speed time-to-market. Join now, and >>>>>> jumpstart >>>>>>>>> your >>>>>>> future. >>>>>> http://p.sf.net/sfu/intel-atom-d2d >>>>>> _______________________________________________ >>>>>>>>>>>>>>> Amforth-devel mailing list >>>>>> Amf...@li... >>>>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel >>>>>>>>>>>>>>> >>>>> >>>>> >>>>> ------------------------------------------------------------------------------ >>>>>>>>>>>>>>>>>>>>> Sell apps to millions >>>>>>>>>>>>>> through the >>>>>>>>>>>>>>>>>>>>> Intel(R) >>>>>>>>>>> Atom(Tm) Developer Program >>>>> Be part of this innovative community and >>>>> reach >>>>>>>> millions of netbook users >>>>> worldwide. Take advantage of special >>>>> opportunities >>>>>> to increase revenue and >>>>> speed time-to-market. Join now, and >>>>> jumpstart >>>>>>>> your >>>>>> future. >>>>> http://p.sf.net/sfu/intel-atom-d2d >>>>> _______________________________________________ >>>>>>>>>> Amforth-devel mailing list >>>>> Amf...@li... >>>>> https://lists.sourceforge.net/lists/listinfo/amforth-devel >>>>>>>>>> >>>> >>> >>> >> >> > > > > ------------------------------------------------------------------------------ > Sell apps to millions through the Intel(R) Atom(Tm) Developer Program > Be part of this innovative community and reach millions of netbook users > worldwide. Take advantage of special opportunities to increase revenue and > speed time-to-market. Join now, and jumpstart your future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel > |
|
From: pito <pi...@vo...> - 2010-08-27 22:09:10
|
Leon, e.g.? result = ((1/30000) * 30000) + 1.0 > 1 s>f 30000 s>f f/ 30000 s>f f* 1 s>f f+ f>s . ^ ?? -42 45 > P. ----- PŮVODNÍ ZPRÁVA ----- Od: "Leon Nathaniel Maurer" <leo...@gm...> Komu: amf...@li... Předmět: Re: [Amforth-devel] Leon's float Datum: 27.8.2010 - 23:32:34 > Got it. > > If all you want to test is that f+, f-, f*, and f/ > do what they're supposed to > do, then make floats from single length integers > with "s>f", then do what you > want and convert them back to integers with "f>s" > (that doesn't round -- it > just truncates the part after the decimal point). > > For now, there's no direct way to display or make > non-integers, but you can do > it indirectly by dividing or multpilying by powers > of 10 (e.g. you can get > 0.125 by "125 s>f 1000 s>f f/") > > -Leon > > On Friday, August 27, 2010 04:21:35 pm pito wrote: > > s>f defined after the first usage....You have to > > relocate the > > > Conversion words on the better place within the > > code(:-)). After the > > > second upload it has been taken. So now how to > > test??? I have no > > > idea... Float, float..P/ > > > > > > ----- PŮVODNÍ ZPRÁVA ----- > > Od: "pito" <pi...@vo...> > > Komu: amf...@li... > > Předmět: [Amforth-devel] Leon's float > > Datum: 27.8.2010 - 23:03:31 > > > > > Hi Leon, > > > I've tried to upload to my new 1284p, but > > > getting > > > > > this error: > > > > > > ..... > > > > > > > : f/ ( f1 f2 -- f1/f2 ) > > > > > > okfdup f0= abort" division by zero " > > > okfzeroexponent >r ( f1 f2, R: n2 ) > > > okfswap fzeroexponent r> - >r fswap ( f1 f2, > > > R: > > > > > n1-n2 ) > > > okf0 frot frot ( sum remainder divisor, R: > > > exponent ) > > > ok[ 1 s>f ] frot frot ( sum toadd remainder > > > divisor, R: exponent ) > > > ^ > > > ?? -13 8 > > > > > > > 25 0 do > > > > > > ok > > > > > > > fover f0= if leave then <<<<<<< here it > > > > crashed > > > > > > > so reset was > > > > > > > > > required > > > > > > Any prerequisite needed? > > > Pito > > > > > > > > > ------------------------------------------------------------------------- > > > > > > > > ----- > > > > > > > Sell apps to millions through the Intel(R) > > > > > > Atom(Tm) Developer Program > > > Be part of this innovative community and reach > > > millions of netbook users > > > worldwide. Take advantage of special > > > opportunities > > > > > to increase revenue and > > > speed time-to-market. Join now, and jumpstart > > > your > > > > > future. > > > http://p.sf.net/sfu/intel-atom-d2d > > > _______________________________________________ > > > > > Amforth-devel mailing list > > > Amf...@li... > > > https://lists.sourceforge.net/lists/listinfo/amforth-devel > > > > > > --------------------------------------------------------------------------- > > > > > --- Sell apps to millions through the Intel(R) > > Atom(Tm) Developer Program > > > Be part of this innovative community and reach > > millions of netbook users > > > worldwide. Take advantage of special > > opportunities to increase revenue and > > > speed time-to-market. Join now, and jumpstart > > your future. > > > http://p.sf.net/sfu/intel-atom-d2d > > _______________________________________________ > > Amforth-devel mailing list > > Amf...@li... > > https://lists.sourceforge.net/lists/listinfo/amforth-devel > > > ------------------------------------------------------------------------------ > > Sell apps to millions through the Intel(R) > Atom(Tm) Developer Program > Be part of this innovative community and reach > millions of netbook users > worldwide. Take advantage of special opportunities > to increase revenue and > speed time-to-market. Join now, and jumpstart your > future. > http://p.sf.net/sfu/intel-atom-d2d > _______________________________________________ > Amforth-devel mailing list > Amf...@li... > https://lists.sourceforge.net/lists/listinfo/amforth-devel |
8 messages has been excluded from this view by a project administrator.
