just wanted to have a current IoT5500 setup and loaded latest Tachyon + EXTEND
here is the output with the strange message on top.
loaded with TeraTerm 921600 + 20 ms line delay
EDIT !! - different line delays give different errors
EDIT 2 - at 50ms line delay for paste it takes for ever - but no errors
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 Cold start - no user code - setting defaults
Setting up dictionary
--------------------------------------------------------------------------------
0000.01F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ ??? in LOCATE$ at DROPYTHEN
.. ok seed not found
End of source code, 0001 errors found Load time = 0 cycles at 96MHz = 0.000us
Code bytes used = 7488
CODE:$3880 = 13952 bytes
NAME:$5928 = 6872 bytes
DATA:$770C = 252 bytes
FREE: = 8360 bytes
Data Stack (0)
ok
..
..
.. errors W@ 0= IF SAVEROMS THEN
COPY ROMS from $3DC4 for 3,200
ok
.. ---
.. 0 U@ DROP ok
. FORGET SAVEROMS
..
..
.. errors W@ 0= IF AUTORUN BOOT THEN
.. I2C400 ?BACKUP BACKUP ok
..
.. REBOOT
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400
*** MODULES ***
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400
1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000
AUTORUN BOOT
FREQ = 96.0MHz
*** INITS ***
Loading cog 3 E50A F32
*** ROMS ***
E01C: VGA32x15 848
E37C: HSUART 392
E514: F32 1900
F29C: MONO16 196
F370: F32 1900
*** I2C ***
$A0 EEPROM
I/O = 31:UHU~ 27:U~~~ 23:~~~U 19:~~U~ 15:D~~~ 11:~~~~ 7:~~~~ 3:~~UU
INTERCOM: &00.00.00.00 @2,000,000
CODE:$37EE = 13806 bytes
NAME:$5934 = 6860 bytes
DATA:$770C = 252 bytes
FREE: = 8518 bytes
Data Stack (0)
2001/01/01 MON 00:00:00
--------------------------------------------------------------------------------
..
.. WORDS
DICTIONARY WORDS @5934
BOOT DEFER !DEFER ?DEFER defstk ,WORD$ FSQRT FSIN F/ F* F- F+ F> >F FCMD fnumB fnumA result f32cmd LOADCOG FINDROM NEXTROM lsroms .rom romsz roms OK KEY: EVAL$ tib tibwr ID! ?? .FREQ .AUTO .INTERCOM INTERCOM! PPBAUD! .TIMERS .TASKS .INDEX .VARS ~V WWORDS ~W .MODULES ~M +NFA CTYPE PRINT$ MLEN$ NFA>BFA MU@ MW@ MC@ MC@++ EE? .ES lsi2c ~I ~R lsio ~p !POLLS +POLL ?POLL polls TIMER.TASK TIMERJOB _job !RTC CountDown .TEMP 'F 'C STAMP@ .DT .ASMONTH .DATE .DTF .TIME .DAY DAY DAY@ SUN SAT FRI THU WED TUE MON DATE! SDT! DT! TIME! DATE@ TIME@ DEC>BCD BCD>DEC RTC RTC@ RTC! WRRTC RDRTC <RTC> <RTC NORTC RTCEE MCP79410 =rtc DS3231 @rtc rtcbuf! rtcbuf@ rtcbuf @day @date @time runtime WATCHDOG wdt TIMEOUT? ALARM COUNTUP +TIMER TIMEOUT ttint tid timers TIMER AUTORUN EE BACKUP ?BACKUP CONBAUD ECOPY EFILL ELOAD ESAVE ep I2CPINS EEPROM ESAVEB E! E@ EW@ EW! EC@ EC! ENDRD EERD @EEWAIT @EE eeadr I2C400 I2C100 ~D I2CFAST FI2C@ nakI2C@ I2C@ ackI2C@ I2C! I2C!? I2CSTOP I2CSTART I2C> <I2C> <I2C ?I2C i2cflg RECLAIM LEDS LED ansi LEDPIN brg DHT DHT? DHTBYTE DHTBIT htsav rh htref htck DISTANCE PING MODPINS SETPINS SPIPINS MASK? @SPISCK @SCL @CNT @CE @MISO @MOSI @SCK *SDA *SCL BLINK MUTE HZ KHZ MHZ HZCON FRQ DAC! BPIN APIN PLLDIV PLL DUTY DIFF CTR! CTRMODE NCO CTR@ ~C CTR B A _ctr SERIN ISERIAL ~S SERIAL ~S ISEROUT SEROUT TXSER SERBAUD baudcnt +VECTOR ~v REVECTOR (FORGET) FORGET STRIP (STRIP) lsini ?INITS INIT -INIT +INIT ~I inits .HEAD$ ?ANSI MARGINS BOLD REVERSE ATR PLAIN CURSOR ERLINE ERSCN CLS XY .PAR CUR PAPER COL PEN ESCB HOME ESC AEMIT _ansi white cyan magenta blue yellow green red black PRINT& ~1 .EMIT U.R .DEC PRINTDEC .DECX D. .DP PRINTNUM (.NUM) (SEP) RADIX> >RADIX RADIX radix COGINIT TASKREGS RUN TASK? RND LONGFILL 3++ 3@ 3! @3 2++ 2@ 2! @2 1++ 1@ 1! @1 C~~ W~~ ~~ C-- C++ W-- W++ -- ++ W>L B>L B>W W>B L>W >W RELEASE LOCAL X4 X3 X2 X1 @X @x4 @x3 @x2 locals AVG OUT PIN! ELAPSED? =CNT CNT@ P! P@ VSCL VCFG PHSB PHSA FRQB FRQA CTRB CTRA DIRB DIRA OUTB OUTA INB INA CNT PAR SPR STRING TABLE VAR LEFT$ RIGHT$ MID$ +CHAR APPEND$ $= COMPARE$ LOCATE$ $! COPY$ NULL$ boot CON] CON [CON ~c NULLOUT MB KB R@ INVERT DROP; MOD 2OVER 3DUP 2SWAP @. => <= DS DS+ clong cword cbyte A> >A A@ astk FALSE 0-1 TRUE .. WAITHI WAITLO s |< ] =[ LONGS BYTES LONG WORD BYTE ORG BREAK CASE SWITCH@ SWITCH QUIET NUM>STR NUM$ NUMBER LIMIT >| WW! U@ U! ulong ANYCASE PUBLIC PRIVATE UNSMUDGE IMMEDIATE @HATR CLKMHZ CLKFREQ EXTEND.fth NOP DUP 2DUP OVER DROP 2DROP SWAP ROT -ROT NIP 3DROP ?DUP 3RD 4TH >R R> !RP !SP AND ANDN OR XOR ROL ROR SHR >> 8>> SHL << 8<< 2/ 2* 4* SAR SPLIT9 REV MASK >N >B 0= NOT 1+ 1- + - 2+ 4+ 2- MIN MAX * UM* U/ U/MOD / UM/MOD64 UM/MOD32 */ UM*/ ABS ?NEGATE NEGATE FROM BY ADO FOR NEXT LOOP +LOOP I J LEAVE FOR@ FOR! BY! LP! IF ELSE THEN ENDIF BEGIN UNTIL AGAIN WHILE REPEAT IC! IC@ C@ W@ @ C+! C! C@++ W+! W! +! ! C~ W~ ~ BIT? SET? SET CLR BIT! CMOVE ERASE FILL <CMOVE RESET 0EXIT EXIT ?EXIT CALL JUMP (WAITPNE) RUNMOD (WAITPEQ) (EMIT) (EMITX) LOADMOD COG@ COG! COGSTOP pCOGINIT COGID REBOOT CLK CLKSET DELTA WAITCNT LAP .LAP LAP@ CLOCK CLKIN CLKOUT H L P T F SHROUT SHRINP OUTSET OUTCLR OUTPUTS INPUTS HIGH LOW FLOAT PIN@ IN SPIWRB SPIWR16 SPIWR SPIRD SPICE 0<> <> WITHIN U> = > < U< 0< HEX DECIMAL BINARY READBUF KEY WKEY (KEY) KEY! doKEY EMIT CLS SPACE SPACES EMITS BELL CR <CR> TAB TABS XTAB SPINNER .HEX .BYTE .WORD .LONG @PAD HOLD >CHAR #> <# # #S <D> PRINT$ CTYPE LEN$ U. .DP PRINT . ZPRINT CREATE CREATE$ GETWORD SEARCH FINDSTR NFA>BFA CFA>NFA NFA>NFA @NAMES names WORDS UNSMUDGE ALLOT ALLOCATED HERE , || | [W] [B] W, EXECUTE VER .VER TACHYON END CONSOLE ECHO us ms seconds second DISCARD TASK REG BUFFERS COLD RAM DUMP: DUMPX DUMP DUMPW DUMPL DUMPC DUMPA DUMPAW QD DEPTH .S DEBUG .STATS IDLE NOOP --- \ '' ( { } IFDEF IFNDEF " (") ." PRINT" (.") == org @org byte word long bytes words longs ALIGNORG ALIGN : pre pub pri ; RETURN [C] ' ['] NFA' OFF ON 0-1 ALIAS GRAB [WS2812] [SDRDF] [SDRD] [SDWR] [SDIO] [SSD!] [PWM32] [PWM32!] [PLOT] [ROL3] [CAP] [WAV] [MCP32] [RCTIME] dmm errors uhere uthere flags prompt uauto keypoll lastkey rxpars rx id keytable @WORD uemit ukey base num uswitch undef V4 *end*
ok
..
@mjb - try giving TeraTerm 2 stop bits although it shouldn't really need it. The line delay can be dropped down as low as 6ms which is the delay I use. Maybe I will have to see what's happening with it.
I loaded up quite a few modules and it still fits. Now if I perform an extra COMPACT operation to move the latest dictionary names from hub to EEPROM then that will give me over 4k free even after all this baggage. The 1-wire includes the ROM scan operations from MJB which allows multiple 1W devices to share the same wire.
loading in EASYFILE at 50ms gives
HMS is not in WORDS list, so not defined
in the source it is there ...
trying at 115200 now ... and 100ms line delay
EDIT ... still fighting ...
EDIT2
no success
give up for now ... :-((
??? in FCLOSE at sector E ) Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 ok
.. ok
End of source code, 0001 errors found Load time = 626260736 cycles at 96MHz = 6.523sec
Code bytes used = 4280
CODE:$48AE = 18094 bytes
NAME:$5096 = 9066 bytes
DATA:$7AD2 = 1218 bytes
FREE: = 2024 bytes
Data Stack (0)
ok
..
.. ' MOUNT +INIT ok
..
..
.. ?BACKUP BACKUP ok
..
.. ---
.. SD1656 SDPINS ok
strange that ?BACKUP seems to backup even with listed errors ... ???
@mjb - I just tried TeraTerm with 10ms line delay and 2 stop bits at 921600 and it loaded EASYFILE fine. I will check it further.
BTW - if you are powering your board from the same serial USB port then there shouldn't be any problems but beware ground currents which seem to upset the poor FTDI chips.
@mjb - I just tried TeraTerm with 10ms line delay and 2 stop bits at 921600 and it loaded EASYFILE fine. I will check it further.
BTW - if you are powering your board from the same serial USB port then there shouldn't be any problems but beware ground currents which seem to upset the poor FTDI chips.
I have the IoT5500 on a breadboard with breadbord regulator and PropPlug-clone running from one single USB port.
I was wondering if the Wiz5500 might draw too much power?
When I put the NW cable in somtimes I get reboots.
So I had it umplugged for the SW buildt.
--- Close the current file
pub FCLOSE
--- flush and clear sector (-1)
FLUSH sector ~~
--- clear file pointer
_file @FILE ~
--- blank out file name
NULL$ FILE$ $!
--- wipe dir entry
dirbuf 32 ERASE
;
shouldn't this be
FLUSH @sector ~~
bit difficult to revers engineer with all the SECTOR
@sector
@sectors
but I think I get it now.
AND it seems to work with the change
Data Stack (0)
2001/01/01 MON 00:00:00
Mounted 504B.6474-3035.6234 NO NAME FAT32 15,927MB (32,768/cluster)
--------------------------------------------------------------------------------
.. ls
NO NAME
COMPACT .FTH EXTEND~1.FTH FRED .TXT LIFE .FTH SEE .FTH
.. QV SEE:FTH
.. QV SEE.FTH
0000.0000: TACHYON V4..FORGET SEE.fth.: SEE.fth.PRINT" Tachyon+ decompiler
0000.0040: " ;..@org W@ 2 ALIGN org.word indent.8 words ifs..pri +IF..ifs B
0000.0080: EGIN DUP W@ WHILE 2+ REPEAT..W! indent C++..;..pri -IF..ifs BEGI
0000.00C0: N DUP W@ 3RD <> WHILE 2+ REPEAT..W~ DROP indent C--..;..pri ?IF.
..
but when plug the NW cable into the router - not touching the IoT setup,
then the terminal freezes
the propplug blinks when I press keys
the yellow LED is on
the green LED blinks short some times
I have the breadboard powered via active USB hub - should be enough ...
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400
*** MODULES ***
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400
52CA: EASYNET.fth WIZNET NETWORK SERVERS 170708.0000
4A5E: W5500.fth WIZNET W5500 driver 170708.0000
37F6: EASYFILE.fth SDHC card + FAT32 Virtual Memory Access File System Layer V1.2 170807-1600
1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000
AUTORUN ÿ
FREQ = 96.0MHz
*** INITS ***
INIT#0 3D70
INIT#1 56B4 EASYNET
Loading cog 3 E50A F32
*** ROMS ***
E01C: VGA32x15 848
E37C: HSUART 392
E514: F32 1900
F29C: MONO16 196
F370: F32 1900
*** I2C ***
$A0 EEPROM
I/O = 31:UHU~ 27:U~~~ 23:~~~U 19:~~U~ 15:D~~~ 11:~~~~ 7:~~~~ 3:~~UU
INTERCOM: &00.00.00.00 @2,000,000
CODE:$570A = 21770 bytes
NAME:$6878 = 2952 bytes
DATA:$7B92 = 1410 bytes
FREE: = 4462 bytes
Data Stack (0)
2001/01/01 MON 00:00:00
Mounted 504B.6474-3035.6234 NO NAME FAT32 15,927MB (32,768/cluster)
*** Tachyon Forth EASYNET Network Servers and EASYFILE File Server ***
... ready!
NETWORK STATUS:
LINK DOWN
HARDWARE: WIZnet W5500 V4
SRC IP 192.168.001.111
MASK 255.255.255.000
GATEWAY 192.168.001.001
MAC 02.FF.35.F2.33.B4.
SKT HH:MM:SS MODE PORT DEST TXRD TXWR RXRD RXWR RXSZ IR STATUS IP ADDR
#3 00:00:52 TCP 10001 . . . . . 00 14 LISTEN
* WEB, FTP, and TELNET servers running *
--------------------------------------------------------------------------------
..
..
..
.. ipconfig ???
.. ifconfig
NETWORK STATUS:
LINK DOWN
HARDWARE: WIZnet W5500 V4
SRC IP 192.168.001.111
MASK 255.255.255.000
GATEWAY 192.168.001.001
MAC 02.FF.35.F2.33.B4.
SKT HH:MM:SS MODE PORT DEST TXRD TXWR RXRD RXWR RXSZ IR STATUS IP ADDR
#3 00:01:55 TCP 10001 . . . . . 00 14 LISTEN
..
Hi there eager people - currently not using bleeding edge tachyon. This is working for me as there was some trouble with line delays on linux with minicom 115200 8n1:
In the current build files I get this error in easynet.fth after doing the following on a IOT5500 module (P8) mounted on a PPDB using a wall wort supply
1. Load the spin file at 115200
2. Load extend using TeraTerm 8N1 50ms line delay
3. Load easyfile.fth
4. Load compact.fth
5. Run COMPACT and backup
6. Load easynet.fth
Here is the easynet error, I did comment the FL easynet.fth at the top and also each time I tried to define +FTP I had problems. The system ping but no FTP, Telnet or HTTP
.. ---
.. OFF ANYCASE ok
..
.. ( Please define +FTP to IFDEF compile FTP and HTTP servers )
.. ??? in ?TELNET at FILEIN eller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 ok
..
End of source code, 0001 errors found Load time = 379386112 cycles at 96MHz = 3.951sec
Code bytes used = 3270
CODE:$5724 = 21796 bytes
NAME:$6878 = 2952 bytes
DATA:$7B92 = 1410 bytes
FREE: = 4436 bytes
Data Stack (0)
ok
..
.. ' EASYNET +INIT ok
..
.. ?BACKUP BACKUP ok
Re loading errors - I've done a little investigation and found that TeraTerm seems to run too efficiently at 921600 baud, which is normally a good thing except that the characters it sends are back-to-back without any gaps other than the stop bits. When I try this on minicom there seems to be around 100us or more between characters but it might be the terminal emulator itself since even TeraTerm is running on top of WinXP in VirtualBox inside Linux.
So I tried this with GtkTerm which only goes up to 115200 baud but it was back-to-back like TeraTerm so it pointed back to minicom. Again I fired up minicom at 115200 this time and there it was, the 100us or more delay between characters.
Ok, I will look at my side of things to see if I can speed it up a bit more. I do have the FL mode which loads to a file first and then compiles source from the file but this only works once we have EXTEND and EASYFILE loaded. Maybe it might be better to drop back to 115200 baud for compatibility perhaps but I've got a feeling that this is because I paste the text and minicom is using an inefficient method for getting another character. Perhaps I might modify the minicom source and fix up a few other things while I'm at it.
Regarding those errors with "sector" vs "@sector" and FILEIN etc I think this is because the Dropbox files that are used aren't the very latest. Is there a better way of synchronizing them perhaps?
@MJB - all those 2 words were traditionally "double operators" but since all data is untyped in Forth a 2DROP is used to drop 2 singles or 2DUP used to dup the top 2 singles etc. 2OVER however could never be just OVER OVER as that is essentially a 2DUP operation so 2OVER is only for doubles. The same goes for 2SWAP.
With regard to leaving out the ; perhaps I should have stated that ; has two purposes normally: that of appending an EXIT to the routine and also of unsmudging and validating the name. In Tachyon Forth we allow one definition to fall through into the next if desired so the unsmudging is also done by CREATE used in : and pub/pri/pre etc. In the case of the code in question I could have put a ; after the jump but it is already redundant. The same holds true of endless BEGIN AGAIN loops, they don't really need a ; at the end either.
I downloaded Tachyon V4.5 earlier today, compiled it using PropellerIDE on a Linux PC, then downloaded the result to two different Propeller Boards (Activity Board WX and Propeller Keyfob). Using the terminal in PropellerIDE at 115200 Baud, I get garbage on a reset. Similarly on a Mac with CoolTerm, I can't get either board to produce proper output. The source indicates the console is on the usual pins at 115200 Baud. Suggestions?
Interesting. On the Activity Board, I can load EXTEND.FTH, EASYFILE.FTH, and COMPACT.FTH. With the keyfob, I can load EXTEND.FTH then the following repeats indefinitely
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400.[5n
*** MODULES ***
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400
1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000
Sounds like that hardware must have a pin that ends up reseting the Prop when it checks the state of the I/O pins.
Try commenting out line 2073 in EXTEND with a \ like this:
\ CR BOLD PRINT" I/O = " PLAIN red PEN lsio PLAIN
Do you have a schematic for this keyfob? Maybe the offending pin is on P25 or P24 just where it killed the lsio operation.
Hello Peter, it would bring the world forward to fix the sd-card issues. I now ordered some sandisk sd cards, but still there is some bad feeling: will it work. While I like NEON, we are hanging in the dawn ;-)
Comments
here is the output with the strange message on top.
loaded with TeraTerm 921600 + 20 ms line delay
EDIT !! - different line delays give different errors
EDIT 2 - at 50ms line delay for paste it takes for ever - but no errors
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 Cold start - no user code - setting defaults Setting up dictionary -------------------------------------------------------------------------------- 0000.01F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................ ??? in LOCATE$ at DROPYTHEN .. ok seed not found End of source code, 0001 errors found Load time = 0 cycles at 96MHz = 0.000us Code bytes used = 7488 CODE:$3880 = 13952 bytes NAME:$5928 = 6872 bytes DATA:$770C = 252 bytes FREE: = 8360 bytes Data Stack (0) ok .. .. .. errors W@ 0= IF SAVEROMS THEN COPY ROMS from $3DC4 for 3,200 ok .. --- .. 0 U@ DROP ok . FORGET SAVEROMS .. .. .. errors W@ 0= IF AUTORUN BOOT THEN .. I2C400 ?BACKUP BACKUP ok .. .. REBOOT Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 *** MODULES *** Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000 AUTORUN BOOT FREQ = 96.0MHz *** INITS *** Loading cog 3 E50A F32 *** ROMS *** E01C: VGA32x15 848 E37C: HSUART 392 E514: F32 1900 F29C: MONO16 196 F370: F32 1900 *** I2C *** $A0 EEPROM I/O = 31:UHU~ 27:U~~~ 23:~~~U 19:~~U~ 15:D~~~ 11:~~~~ 7:~~~~ 3:~~UU INTERCOM: &00.00.00.00 @2,000,000 CODE:$37EE = 13806 bytes NAME:$5934 = 6860 bytes DATA:$770C = 252 bytes FREE: = 8518 bytes Data Stack (0) 2001/01/01 MON 00:00:00 -------------------------------------------------------------------------------- .. .. WORDS DICTIONARY WORDS @5934 BOOT DEFER !DEFER ?DEFER defstk ,WORD$ FSQRT FSIN F/ F* F- F+ F> >F FCMD fnumB fnumA result f32cmd LOADCOG FINDROM NEXTROM lsroms .rom romsz roms OK KEY: EVAL$ tib tibwr ID! ?? .FREQ .AUTO .INTERCOM INTERCOM! PPBAUD! .TIMERS .TASKS .INDEX .VARS ~V WWORDS ~W .MODULES ~M +NFA CTYPE PRINT$ MLEN$ NFA>BFA MU@ MW@ MC@ MC@++ EE? .ES lsi2c ~I ~R lsio ~p !POLLS +POLL ?POLL polls TIMER.TASK TIMERJOB _job !RTC CountDown .TEMP 'F 'C STAMP@ .DT .ASMONTH .DATE .DTF .TIME .DAY DAY DAY@ SUN SAT FRI THU WED TUE MON DATE! SDT! DT! TIME! DATE@ TIME@ DEC>BCD BCD>DEC RTC RTC@ RTC! WRRTC RDRTC <RTC> <RTC NORTC RTCEE MCP79410 =rtc DS3231 @rtc rtcbuf! rtcbuf@ rtcbuf @day @date @time runtime WATCHDOG wdt TIMEOUT? ALARM COUNTUP +TIMER TIMEOUT ttint tid timers TIMER AUTORUN EE BACKUP ?BACKUP CONBAUD ECOPY EFILL ELOAD ESAVE ep I2CPINS EEPROM ESAVEB E! E@ EW@ EW! EC@ EC! ENDRD EERD @EEWAIT @EE eeadr I2C400 I2C100 ~D I2CFAST FI2C@ nakI2C@ I2C@ ackI2C@ I2C! I2C!? I2CSTOP I2CSTART I2C> <I2C> <I2C ?I2C i2cflg RECLAIM LEDS LED ansi LEDPIN brg DHT DHT? DHTBYTE DHTBIT htsav rh htref htck DISTANCE PING MODPINS SETPINS SPIPINS MASK? @SPISCK @SCL @CNT @CE @MISO @MOSI @SCK *SDA *SCL BLINK MUTE HZ KHZ MHZ HZCON FRQ DAC! BPIN APIN PLLDIV PLL DUTY DIFF CTR! CTRMODE NCO CTR@ ~C CTR B A _ctr SERIN ISERIAL ~S SERIAL ~S ISEROUT SEROUT TXSER SERBAUD baudcnt +VECTOR ~v REVECTOR (FORGET) FORGET STRIP (STRIP) lsini ?INITS INIT -INIT +INIT ~I inits .HEAD$ ?ANSI MARGINS BOLD REVERSE ATR PLAIN CURSOR ERLINE ERSCN CLS XY .PAR CUR PAPER COL PEN ESCB HOME ESC AEMIT _ansi white cyan magenta blue yellow green red black PRINT& ~1 .EMIT U.R .DEC PRINTDEC .DECX D. .DP PRINTNUM (.NUM) (SEP) RADIX> >RADIX RADIX radix COGINIT TASKREGS RUN TASK? RND LONGFILL 3++ 3@ 3! @3 2++ 2@ 2! @2 1++ 1@ 1! @1 C~~ W~~ ~~ C-- C++ W-- W++ -- ++ W>L B>L B>W W>B L>W >W RELEASE LOCAL X4 X3 X2 X1 @X @x4 @x3 @x2 locals AVG OUT PIN! ELAPSED? =CNT CNT@ P! P@ VSCL VCFG PHSB PHSA FRQB FRQA CTRB CTRA DIRB DIRA OUTB OUTA INB INA CNT PAR SPR STRING TABLE VAR LEFT$ RIGHT$ MID$ +CHAR APPEND$ $= COMPARE$ LOCATE$ $! COPY$ NULL$ boot CON] CON [CON ~c NULLOUT MB KB R@ INVERT DROP; MOD 2OVER 3DUP 2SWAP @. => <= DS DS+ clong cword cbyte A> >A A@ astk FALSE 0-1 TRUE .. WAITHI WAITLO s |< ] =[ LONGS BYTES LONG WORD BYTE ORG BREAK CASE SWITCH@ SWITCH QUIET NUM>STR NUM$ NUMBER LIMIT >| WW! U@ U! ulong ANYCASE PUBLIC PRIVATE UNSMUDGE IMMEDIATE @HATR CLKMHZ CLKFREQ EXTEND.fth NOP DUP 2DUP OVER DROP 2DROP SWAP ROT -ROT NIP 3DROP ?DUP 3RD 4TH >R R> !RP !SP AND ANDN OR XOR ROL ROR SHR >> 8>> SHL << 8<< 2/ 2* 4* SAR SPLIT9 REV MASK >N >B 0= NOT 1+ 1- + - 2+ 4+ 2- MIN MAX * UM* U/ U/MOD / UM/MOD64 UM/MOD32 */ UM*/ ABS ?NEGATE NEGATE FROM BY ADO FOR NEXT LOOP +LOOP I J LEAVE FOR@ FOR! BY! LP! IF ELSE THEN ENDIF BEGIN UNTIL AGAIN WHILE REPEAT IC! IC@ C@ W@ @ C+! C! C@++ W+! W! +! ! C~ W~ ~ BIT? SET? SET CLR BIT! CMOVE ERASE FILL <CMOVE RESET 0EXIT EXIT ?EXIT CALL JUMP (WAITPNE) RUNMOD (WAITPEQ) (EMIT) (EMITX) LOADMOD COG@ COG! COGSTOP pCOGINIT COGID REBOOT CLK CLKSET DELTA WAITCNT LAP .LAP LAP@ CLOCK CLKIN CLKOUT H L P T F SHROUT SHRINP OUTSET OUTCLR OUTPUTS INPUTS HIGH LOW FLOAT PIN@ IN SPIWRB SPIWR16 SPIWR SPIRD SPICE 0<> <> WITHIN U> = > < U< 0< HEX DECIMAL BINARY READBUF KEY WKEY (KEY) KEY! doKEY EMIT CLS SPACE SPACES EMITS BELL CR <CR> TAB TABS XTAB SPINNER .HEX .BYTE .WORD .LONG @PAD HOLD >CHAR #> <# # #S <D> PRINT$ CTYPE LEN$ U. .DP PRINT . ZPRINT CREATE CREATE$ GETWORD SEARCH FINDSTR NFA>BFA CFA>NFA NFA>NFA @NAMES names WORDS UNSMUDGE ALLOT ALLOCATED HERE , || | [W] [B] W, EXECUTE VER .VER TACHYON END CONSOLE ECHO us ms seconds second DISCARD TASK REG BUFFERS COLD RAM DUMP: DUMPX DUMP DUMPW DUMPL DUMPC DUMPA DUMPAW QD DEPTH .S DEBUG .STATS IDLE NOOP --- \ '' ( { } IFDEF IFNDEF " (") ." PRINT" (.") == org @org byte word long bytes words longs ALIGNORG ALIGN : pre pub pri ; RETURN [C] ' ['] NFA' OFF ON 0-1 ALIAS GRAB [WS2812] [SDRDF] [SDRD] [SDWR] [SDIO] [SSD!] [PWM32] [PWM32!] [PLOT] [ROL3] [CAP] [WAV] [MCP32] [RCTIME] dmm errors uhere uthere flags prompt uauto keypoll lastkey rxpars rx id keytable @WORD uemit ukey base num uswitch undef V4 *end* ok ..I loaded up quite a few modules and it still fits. Now if I perform an extra COMPACT operation to move the latest dictionary names from hub to EEPROM then that will give me over 4k free even after all this baggage. The 1-wire includes the ROM scan operations from MJB which allows multiple 1W devices to share the same wire.
HMS is not in WORDS list, so not defined
in the source it is there ...
trying at 115200 now ... and 100ms line delay
EDIT ... still fighting ...
EDIT2
no success
give up for now ... :-((
strange that ?BACKUP seems to backup even with listed errors ... ???
BTW - if you are powering your board from the same serial USB port then there shouldn't be any problems but beware ground currents which seem to upset the poor FTDI chips.
no, it is not.
It is a framework.
I was wondering if the Wiz5500 might draw too much power?
When I put the NW cable in somtimes I get reboots.
So I had it umplugged for the SW buildt.
pub EASYFILE.fth PRINT" SDHC card + FAT32 Virtual Memory Access File System Layer V1.2 170807-1600 " ;
loaded
shouldn't this be
bit difficult to revers engineer with all the
SECTOR
@sector
@sectors
but I think I get it now.
AND it seems to work with the change
I obviously need to COMPACT
this is in seperate file now.
After loading and running the listing shows the modules printed twice
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 *** MODULES *** Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 37F6: EASYFILE.fth SDHC card + FAT32 Virtual Memory Access File System Layer V1.2 170807-1600 1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000 AUTORUN BOOT FREQ = 96.0MHz *** INITS *** INIT#0 3D70 MOUNT Loading cog 3 E50A F32 *** ROMS *** E01C: VGA32x15 848 E37C: HSUART 392 E514: F32 1900 F29C: MONO16 196 F370: F32 1900 *** I2C *** $A0 EEPROM I/O = 31:UHU~ 27:U~~U 23:~~~U 19:~~U~ 15:D~~~ 11:~~~~ 7:~~~~ 3:~~UU INTERCOM: &00.00.00.00 @2,000,000 CODE:$48B0 = 18096 bytes NAME:$5096 = 9066 bytes DATA:$7AD2 = 1218 bytes FREE: = 2022 bytes Data Stack (0) 2001/01/01 MON 00:00:00 Mounted 504B.6474-3035.6234 NO NAME FAT32 15,927MB (32,768/cluster) -------------------------------------------------------------------------------- .. COMPACT ??? .. ACHYON V4 ( V4.5 ) Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 End of source code, 0000 errors found Load time = 434263920 cycles at 4294MHz = 0.000sec Code bytes used = 422 CODE:$4A56 = 18518 bytes NAME:$5006 = 9210 bytes DATA:$7AF4 = 1252 bytes FREE: = 1456 bytes Data Stack (0) .. .. --- .. pub TACHYON TACHYON ~H ; .. pub END END ~H ; .. 73F2 *end* .. Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 *** MODULES *** Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 37F6: EASYFILE.fth SDHC card + FAT32 Virtual Memory Access File System Layer V1.2 170807-1600 1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000 37F6: EASYFILE.fth SDHC card + FAT32 Virtual Memory Access File System Layer V1.2 170807-1600 1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000 AUTORUN BOOT FREQ = 96.0MHz *** INITS *** INIT#0 3D70 MOUNT Loading cog 3 E50A F32 *** ROMS *** E01C: VGA32x15 848 E37C: HSUART 392 E514: F32 1900 F29C: MONO16 196 F370: F32 1900 *** I2C *** $A0 EEPROM I/O = 31:UHU~ 27:U~~U 23:~~~U 19:~~U~ 15:D~~~ 11:~~~~ 7:~~~~ 3:~~UU INTERCOM: &00.00.00.00 @2,000,000 CODE:$48B0 = 18096 bytes NAME:$5096 = 9066 bytes DATA:$7AD2 = 1218 bytes FREE: = 2022 bytes Data Stack (0) 2001/01/01 MON 00:00:00 Mounted 504B.6474-3035.6234 NO NAME FAT32 15,927MB (32,768/cluster) -------------------------------------------------------------------------------- ..so now EASYNET ...I need a stable base before I go into changing EASYNET again ...
complicated enough
after
COMPACT
BACKUP
: +FTP ; --- used CREATE +FTP before but not sure it worked
I paste in EASYNET.FTH again, 2 errors listed but still ?BACKUP performed ??
after reboot
.. Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 *** MODULES *** Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 52CA: EASYNET.fth WIZNET NETWORK SERVERS 170708.0000 4A5E: W5500.fth WIZNET W5500 driver 170708.0000 37F6: EASYFILE.fth SDHC card + FAT32 Virtual Memory Access File System Layer V1.2 170807-1600 1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000 AUTORUN ÿ FREQ = 96.0MHz *** INITS *** INIT#0 3D70 INIT#1 56B4 EASYNET Loading cog 3 E50A F32 *** ROMS *** E01C: VGA32x15 848 E37C: HSUART 392 E514: F32 1900 F29C: MONO16 196 F370: F32 1900 *** I2C *** $A0 EEPROM I/O = 31:UHU~ 27:U~~U 23:~~~U 19:~~U~ 15:D~~~ 11:~~~~ 7:~~~~ 3:~~UU INTERCOM: &00.00.00.00 @2,000,000 CODE:$570A = 21770 bytes NAME:$6878 = 2952 bytes DATA:$7B92 = 1410 bytes FREE: = 4462 bytes Data Stack (0) 2001/01/01 MON 00:00:00 Mounted 504B.6474-3035.6234 NO NAME FAT32 15,927MB (32,768/cluster) *** Tachyon Forth EASYNET Network Servers and EASYFILE File Server *** ... ready! NETWORK STATUS: LINK DOWN HARDWARE: WIZnet W5500 V4 SRC IP 192.168.000.099 MASK 255.255.255.000 GATEWAY 192.168.000.001 MAC 02.FF.35.F2.33.B4. SKT HH:MM:SS MODE PORT DEST TXRD TXWR RXRD RXWR RXSZ IR STATUS IP ADDR #3 00:00:52 TCP 10001 . . . . . 00 14 LISTEN * WEB, FTP, and TELNET servers running * -------------------------------------------------------------------------------- .. ..now set my NW config ...but still wondering about the 2 errors and the ?BACKUP performed anyhow ???
but when plug the NW cable into the router - not touching the IoT setup,
then the terminal freezes
the propplug blinks when I press keys
the yellow LED is on
the green LED blinks short some times
I have the breadboard powered via active USB hub - should be enough ...
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 *** MODULES *** Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400 52CA: EASYNET.fth WIZNET NETWORK SERVERS 170708.0000 4A5E: W5500.fth WIZNET W5500 driver 170708.0000 37F6: EASYFILE.fth SDHC card + FAT32 Virtual Memory Access File System Layer V1.2 170807-1600 1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000 AUTORUN ÿ FREQ = 96.0MHz *** INITS *** INIT#0 3D70 INIT#1 56B4 EASYNET Loading cog 3 E50A F32 *** ROMS *** E01C: VGA32x15 848 E37C: HSUART 392 E514: F32 1900 F29C: MONO16 196 F370: F32 1900 *** I2C *** $A0 EEPROM I/O = 31:UHU~ 27:U~~~ 23:~~~U 19:~~U~ 15:D~~~ 11:~~~~ 7:~~~~ 3:~~UU INTERCOM: &00.00.00.00 @2,000,000 CODE:$570A = 21770 bytes NAME:$6878 = 2952 bytes DATA:$7B92 = 1410 bytes FREE: = 4462 bytes Data Stack (0) 2001/01/01 MON 00:00:00 Mounted 504B.6474-3035.6234 NO NAME FAT32 15,927MB (32,768/cluster) *** Tachyon Forth EASYNET Network Servers and EASYFILE File Server *** ... ready! NETWORK STATUS: LINK DOWN HARDWARE: WIZnet W5500 V4 SRC IP 192.168.001.111 MASK 255.255.255.000 GATEWAY 192.168.001.001 MAC 02.FF.35.F2.33.B4. SKT HH:MM:SS MODE PORT DEST TXRD TXWR RXRD RXWR RXSZ IR STATUS IP ADDR #3 00:00:52 TCP 10001 . . . . . 00 14 LISTEN * WEB, FTP, and TELNET servers running * -------------------------------------------------------------------------------- .. .. .. .. ipconfig ??? .. ifconfig NETWORK STATUS: LINK DOWN HARDWARE: WIZnet W5500 V4 SRC IP 192.168.001.111 MASK 255.255.255.000 GATEWAY 192.168.001.001 MAC 02.FF.35.F2.33.B4. SKT HH:MM:SS MODE PORT DEST TXRD TXWR RXRD RXWR RXSZ IR STATUS IP ADDR #3 00:01:55 TCP 10001 . . . . . 00 14 LISTEN ..Hope it helps, regards
proplem
I will try to build a stable 5500 on a IOT RSN. Will update.
as soon as I plug the NW cable in - the terminal hangs
when I unplugged again after a while it seemes to react again ... strange ...
last 2 times it did a reboot after I unplugged the remote end of the NW cable again ...
so does not look like a loose cable at the breadboard.
1. Load the spin file at 115200
2. Load extend using TeraTerm 8N1 50ms line delay
3. Load easyfile.fth
4. Load compact.fth
5. Run COMPACT and backup
6. Load easynet.fth
Here is the easynet error, I did comment the FL easynet.fth at the top and also each time I tried to define +FTP I had problems. The system ping but no FTP, Telnet or HTTP
So I tried this with GtkTerm which only goes up to 115200 baud but it was back-to-back like TeraTerm so it pointed back to minicom. Again I fired up minicom at 115200 this time and there it was, the 100us or more delay between characters.
Ok, I will look at my side of things to see if I can speed it up a bit more. I do have the FL mode which loads to a file first and then compiles source from the file but this only works once we have EXTEND and EASYFILE loaded. Maybe it might be better to drop back to 115200 baud for compatibility perhaps but I've got a feeling that this is because I paste the text and minicom is using an inefficient method for getting another character. Perhaps I might modify the minicom source and fix up a few other things while I'm at it.
Regarding those errors with "sector" vs "@sector" and FILEIN etc I think this is because the Dropbox files that are used aren't the very latest. Is there a better way of synchronizing them perhaps?
in EXTEND I found those 'interresting' code sections
pub 2OVER 4TH 4TH ;
I would have expected
pub 2OVER ( a b -- a b a b ) OVER OVER ;
and
this is a 'trick' leaving the ';' out at the end ??
because JUMP goes somewhere else anyhow and no EXIT needs to be compiled?
A Tachyon Forth definition doesn't need a ; to "unsmudge" since the creation of the next word also does an "unsmudge" automatically.
we would not want to leave all the ; out since it would overflow to the next definition even if "unsmudge"d automatically.
With regard to leaving out the ; perhaps I should have stated that ; has two purposes normally: that of appending an EXIT to the routine and also of unsmudging and validating the name. In Tachyon Forth we allow one definition to fall through into the next if desired so the unsmudging is also done by CREATE used in : and pub/pri/pre etc. In the case of the code in question I could have put a ; after the jump but it is already redundant. The same holds true of endless BEGIN AGAIN loops, they don't really need a ; at the end either.
CON { *** CLOCK MODES *** } '{ 5/10MHZ CRYSTAL _clkmode = xtal1 + pll8x _xinfreq = 10_000_000 ' <--- AUTOMATIC 5 or 10MHz operation change at boot sysfreq = 80_000_000 '} { 6MHZ CRYSTAL _clkmode = xtal1 + pll16x _xinfreq = 6_000_000 sysfreq = 96_000_000 '} baud = 115200 ' <-- user change - tested from 300 baud to 3M baud 'baud = 921600The 5Mhz section is commented out.
Uncomment that section and comment the 6Mhz section.
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400.[5n
*** MODULES ***
Propeller .:.:--TACHYON--:.:. Forth V4.5 DAWN 450170727.1400
1B40: EXTEND.fth Primary extensions to TACHYON V4.5 kernel - 1708030-1000
AUTORUN BOOT
FREQ = 80.0MHz
*** INITS ***
Loading cog 3 E50A F32
*** ROMS ***
E01C: VGA32x15 848
E37C: HSUART 392
E514: F32 1900
F298: MONO16 196
*** I2C ***
$3A unknown
$A0 EEPROM
I/O = 31:UHU~ 27:DDU
Try commenting out line 2073 in EXTEND with a \ like this:
Do you have a schematic for this keyfob? Maybe the offending pin is on P25 or P24 just where it killed the lsio operation.