以上是正常wun32for4.2.671反編譯出來的結果.
這些指令都數屬pc側的指令.
-----------------------------------------------------------------------
試著將  words'  所list出來的東西  存成 f51list.f  供以後參考.
或同時開兩個hh51w364.exe供切換觀看.
-----------------------------------------------------------------------
words' 所列出的指令都是tetherred forth51側的指令.
這很容易分辨出來:凡是  T:  出頭的都是 tetherred forth51的指令( 副程式位址標籤 Tag 或一般稱 label ),
see  +
                         T:  +
  ( 3067  26         )                              A+(0)
  ( 3068  08         )                           `  R0+
  ( 3069  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  -
  ( 306A  C6         )                              A<->(0)
  ( 306B  C3         )                              c=0
  ( 306C  96         )                              A-(0)-c
  ( 306D  08         )                           `  R0+
  ( 306E  22         )                              RET
=================================================
你會發覺: 那pc側的 + 和 - ......等相同名稱的指令如何呼叫使用呢?
為此困擾了很多類似情況的設計者.而我覺得都沒有處理得很令我滿意.使用上怪怪地.

pc側的指令只要在其名稱後加一個逗點   .  即可並行不背.
here'      11   22   +.    a=#      u
  ( 323E  74  33     )                           `  A=33
 
 

 

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

謝謝，我試著 words' 但它不停止，一直list，直到我強行中止程式執行。
請問我該如何做?

目前用G指令，已可控制各個Port的i/o 了，覺得功能強大，正慢慢了解中。

請問如果我希望eforth51一開機就直接執行自己寫的小程式，可以嗎?
還是要等到FORTH功力夠了才可以做到。

謝謝。
2009/10/14 chang luke <holin...@yahoo.com.tw>

報歉休假兩天今才回.
words' 只要快速地連按<esc>加任意鍵或快速地連按任意兩鍵或快速地連按F1至F12之任一鍵就能讓它停止.然後存成檔以供參研.

用G' 還可看stack之內容喔.謝謝,好說,好說.
eforth51 須外掛xram, 供variable及延伸程式用. 以單晶片而言,rom很大.但xram很少不適合延伸大程式.我自製的eForth51發展板則有64k rom, 64k ram 才有可能寫出 full eForth51系統.內含assembler/disassembler/compiler(eForth51)/decompiler....等等.這麼大 的程式要8051 cpu 去compile的話,須要很長的時間.可想當年之辛苦.
 
現在tetherred Forth用pc來compile 上兩三萬行程式是輕鬆快速得多了.
在tetherred Forth加上eforth 的話,則可如虎添翅.同志仍須努力,以求貫澈forth的偉大理想.
 
很容易只要在forth 主迴路上加入你的程式即可
see forth'
  \ --------------------------------------------------------------------------- -----
                         T:  FORTH'
  ( 28CF  75  81  2F )                           `  R81=2F          \ SP
  ( 28D2  12  22  9B )                              INIT.51
  ( 28D5  78  50     )                           `  R0=50
  ( 28D7  79  74     )                           `  R1=74
  \ --------------------------------------------------------------------------- -----
                         T:  FORTH"    \ 你的程式加在此地即可.
  ( 28D9  12  30  16 )                              DUP
  ( 28DC  12  22  4D )                              GET.COMMAND'
  ( 28DF  FD         )                           `  R5=A
  ( 28E0  B4  04  06 )         ` IF'A=4                                                        
  ( 28E3  12  08  A3 )                              ENTER.NUMBER2
  ( 28E6  EA         )                           `  A=R2
  ( 28E7  80   6     )           ELSE'                                                          
  ( 28E9  ED         )                           `  A=R5
  ( 28EA  12  28  BE )                              EXECUTE.COMMAND(forth)
  ( 28ED  F5  4F     )                           `  R4F=A
  ( 28EF             )           ENDIF'                                         \
  ( 28EF  80  E8     )                      FORTH" RJMP
 
 

--- 09/10/15 (四)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月15日,四,上午5:55

謝謝，我試著 words' 但它不停止，一直list，直到我強行中止程式執行。
請問我該如何做?
 
目前用G指令，已可控制各個Port的i/o 了，覺得功能強大，正慢慢了解中。
 
請問如果我希望eforth51一開機就直接執行自己寫的小程式，可以嗎?
還是要等到FORTH功力夠了才可以做到。

謝謝。
 
 
2009/10/14 chang luke <holin...@yahoo.com.tw>

以上是正常wun32for4.2.671反編譯出來的結果.
這些指令都數屬pc側的指令.
-----------------------------------------------------------------------
試著將  words'  所list出來的東西  存成 f51list.f  供以後參考.
或同時開兩個hh51w364.exe供切換觀看.
-----------------------------------------------------------------------
words' 所列出的指令都是tetherred forth51側的指令.
這很容易分辨出來:凡是  T:  出頭的都是 tetherred forth51的指令( 副程式位址標籤 Tag 或一般稱 label ),
see  +
                         T:  +
  ( 3067  26         )                              A+(0)
  ( 3068  08         )                           `  R0+
  ( 3069  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  -
  ( 306A  C6         )                              A<->(0)
  ( 306B  C3         )                              c=0
  ( 306C  96         )                              A-(0)-c
  ( 306D  08         )                           `  R0+
  ( 306E  22         )                              RET
=================================================
你會發覺: 那pc側的 + 和 - ......等相同名稱的指令如何呼叫使用呢?
為此困擾了很多類似情況的設計者.而我覺得都沒有處理得很令我滿意.使用上怪怪地.

pc側的指令只要在其名稱後加一個逗點   .  即可並行不背.
here'      11   22   +.    a=#      u
  ( 323E  74  33     )                           `  A=33
 
 

 

___________________________________________________
您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
http://messenger.yahoo.com.tw

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

--------------------------------------------------------------------------- ----------------
彈性很大.不必要等到FORTH功力夠了才可以做到.
也可以在main程式中加入你要執行的subroutine名稱,但要如下:
T:   test    begin'    led.on   100.ms   led.off   100,ms   again'   \ 永久迴圈不然會跳出.
see main
  \ --------------------------------------------------------------------------- -----
                         T:  MAIN
  ( 2348  75  81  2F )                           `  R81=2F          \ SP
  ( 234B  12  22  9B )                              INIT.51
                                                            test            \  <---- 加在這裡也可以.
  ( 234E  D2  09     )                           `  _9=1            \ INTERACTIVE.MESSAGE
  ( 2350  20  97  0E )         ` IF'_97=0                           \ P1.7                      
  ( 2353  20  96  05 )            ` IF'_96=0                        \ P1.6   
                                                        test   \  <---- 加在這裡也可以.
  ( 2356  12  0B  5D )         \  Pulse.High(Addr*256)+Low(Data)(82E54) 則被取代掉
  ( 2359  80   3     )              ELSE'                                                       \
  ( 235B  12  0C  2B )                          test   \  <---- 或加在這裡也可以.
                                         \    0.4uS~45uS(82E54)P1.0~1.VR  則被取代掉
  ( 235E             )              ENDIF'                                      \               
  ( 235E  00         )                              NOP
  ( 235F  80   6     )           ELSE'                                                          
  ( 2361  20  96  03 )            ` IF'_96=0                        \ P1.6    
                                                           test   \  <----或 加在這裡也可以.
  ( 2364  12  0C  71 )                             \ 2uS~100uS(82E54)P1.0~1.VR  \ 則被取代掉
  ( 2367             )              ENDIF'                                      \              
   ( 2367             )           ENDIF'                                         \               
  ( 2367  12  07  8D )                              PRINT" HH51W361'72"
  ( 2376             )           BEGIN'            test   \  <----或 加在這裡也可
  (  2376  12  07  50 )                              CR'
  ( 2379  12  07  8D )                              PRINT" command>"
                                                            test   \  <----或 加在這裡也可
  ( 2385  12  22  39 )                              GET.COMMAND+echo
  ( 2388  12  22  75 )                              EXECUTE.COMMAND
                                                           test   \  <----或 加在這裡也可
  ( 238B  E4         )                              A=0
  ( 238C  60  E8     )           UNTIL'A<>0

test   \  <----或 加在這裡就不可以了.  因執行不到它.
 
起始位址 0 改為  
 
0 org    main  jmp  
 
0 u
  ( 0000  02  23  48 )                        MAIN  JMP
-------------------------------------------------------------------------
prefix? on     0 u
  ( 0000  02  23  48 )                              JMP   MAIN
prefix?  on  看起來比較習慣.  
prefix? off   比較容易設計程式.
 
魚與熊掌在此都可兼得.  哈!
 
 
 
--------------------------------------------------------------------------- ----------
--- 09/10/15 (四)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月15日,四,上午5:55

謝謝，我試著 words' 但它不停止，一直list，直到我強行中止程式執行。
請問我該如何做?
 
目前用G指令，已可控制各個Port的i/o 了，覺得功能強大，正慢慢了解中。
 
請問如果我希望eforth51一開機就直接執行自己寫的小程式，可以嗎?
還是要等到FORTH功力夠了才可以做到。

謝謝。

 

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

哇!!! 要五毛給一塊。
在這裡真的可以學到很多:-)
chang luke 真謝謝您!!!
感恩啊。

不好意思，還是要再請問:
當我一步步做到:

 >0 org    main  jmp

接著我用了
0 here' >hex
但無法得到完整的HEX檔，只有兩三行而已。
請問此時要如何才可得到完整的hex檔。

謝謝!!!

2009/10/19 chang luke <holin...@yahoo.com.tw>

chang luke 您好，

 >但無法得到完整的HEX檔，只有兩三行而已。

我想到的方法如下，這樣可以嗎?

在輸入 T:   test.led    begin'    led.on   500.ms   led.off   500.ms   again'
之後
用see test.led
  \
--------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  22         )                              RET
  ( 326F  00         )                              NOP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP
  ( 327E  00         )                              NOP
  ( 327F  00         )                              NOP
  ( 3280  00         )                              NOP
記住 最後位置326E
則往後要用 >hex 命令時就可用到了。 0 326e >HEX 即可建出完整的Hex檔。
不會在0 org    main  jmp
0 u
之後用0 here' >hex 就只能看到兩三行hex 而已。
------------------------------------------------------------------------

2009/10/19 lu albert <lu.alb...@gmail.com>

see here
: HERE          HERE' ;  ok
see here'
: HERE'         CP @ ;  ok
see cp
12E790 VARIABLE CP Value = 323C  ok
here' .s. [1] 323Ch  ok
 -------------------------------------------
see org
: ORG           ORG' ;  ok.
see org'
: ORG'          CP ! ;  ok.
0 org  ok.
see cp
12E790 VARIABLE CP Value = 0  ok.
可見 org 改變了cp 也即 here'
----------------------------------
org  如果是做  "插隊行為"  的話,為了不影響順序.故加入
insert{     0 org   jmp main       }insert
這樣就ok了.
 
see insert{
: INSERT{       HERE' >R.INSERT ;  ok

see }insert
: }INSERT       R>.INSERT ORG' ;  ok

see >R.INSERT
: >R.INSERT     INSERT.STACK.POINTER @ DUP lit "0x7C" > ABORT"  INSERT.STACK.OVER.FLOW " INSERT.STACK + ! lit "0x4"
                INSERT.STACK.POINTER +! ;  ok

see R>.INSERT
: R>.INSERT     INSERT.STACK.POINTER @ DUP lit "0x4" < ABORT"  INSERT.STACK.UNDER.FLOW " lit "0x4" - INSERT.STACK
                + @ lit 0xFFFFFFFC INSERT.STACK.POINTER +! ;  ok
這些指令可以在  hh51w238.f  看到其定義.  在  hh51w238.f  按<alt>S   F   
---------------------------------------------------
你可以看到  insert{  都是出現在有org的地方
INSERT{
   3 ORG'  ( 0 LJMP )  RETI
  0B ORG'  ( 0 LJMP )  RETI
  13 ORG'  ( 0 LJMP )  RETI
  1B ORG'  ( 0 LJMP )  RETI
  23 ORG'  ( 0 LJMP )  RETI
  2B ORG'  ( 0 LJMP )  RETI
  33 ORG'  ( 0 LJMP )  RETI

 
 

--- 09/10/20 (二)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:633] Re: RE： [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月20日,二,上午5:57

chang luke 您好，
 

 
我想到的方法如下，這樣可以嗎?
 
在輸入 T:   test.led    begin'    led.on   500.ms   led.off   500.ms   again' 之後
用see test.led
  \ --------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  22         )                              RET
  ( 326F  00         )                              NOP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP
  ( 327E  00         )                              NOP
  ( 327F  00         )                              NOP
  ( 3280  00         )                              NOP             
記住 最後位置326E
則往後要用 >hex 命令時就可用到了。 0 326e >HEX 即可建出完整的Hex檔。
不會在0 org    main  jmp 
0 u
之後用0 here' >hex 就只能看到兩三行hex 而已。
------------------------------------------------------------------------

2009/10/19 lu albert <lu.alb...@gmail.com>

哇!!! 要五毛給一塊。
在這裡真的可以學到很多:-)
chang luke 真謝謝您!!!
感恩啊。
 
不好意思，還是要再請問:
當我一步步做到:

 
接著我用了
0 here' >hex
但無法得到完整的HEX檔，只有兩三行而已。
請問此時要如何才可得到完整的hex檔。
 
謝謝!!!
  
 

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

謝謝!!!謝謝您詳細的指導。
經由您的指導已經做到了，51的板子一開機就看到test.led的閃爍，真好。

是不是都要經過hex檔燒入板子中才可以測試，
請問，可以直接從PC端送新的word 到51上測試嗎?要如何做到呢?

還有我發現個情形，
在輸入test.led時有錯，所以用forget test.led，再重新輸入trest.led，發現寫的位置變了，不是接在led.off
之後，不知這樣是正常嗎?如下所示:
see led.off
  \
--------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \
--------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  80  F2     )                    test.led RJMP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP              ok...
forget test.led  ok...
see led.off
  \
--------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \
--------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  80  F2     )                    test.led RJMP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP              ok....
T:   test.led    begin'    led.on   500.ms   led.off   500.ms   again'  ok..
..
see led.off
  \
--------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \
--------------------------------------------------------------------------- -----
                         T:
Error: led.off  *** CFA'>NFA' failed ***
see test.led
  \
--------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3270  12  32  5C )                              led.on
  ( 3273  12  32  4B )                              500.ms
  ( 3276  12  32  5F )                              led.off
  ( 3279  12  32  4B )                              500.ms
  ( 327C  80  F2     )                    test.led RJMP
  ( 327E  00         )                              NOP
  ( 327F  00         )                              NOP
  ( 3280  00         )                              NOP
  ( 3281  00         )                              NOP
  ( 3282  00         )                              NOP
  ( 3283  00         )                              NOP
  ( 3284  00         )                              NOP
  ( 3285  00         )                              NOP
  ( 3286  00         )                              NOP
  ( 3287  00         )                              NOP
  ( 3288  00         )                              NOP
  ( 3289  00         )                              NOP
  ( 328A  00         )                              NOP
  ( 328B  00         )                              NOP
  ( 328C  00         )                              NOP
  ( 328D  00         )                              NOP
  ( 328E  00         )                              NOP
  ( 328F  00         )                              NOP              ok.
謝謝!!!

2009/10/20 chang luke <holin...@yahoo.com.tw>

...

閱讀更多 »

用  forget'   test.led
 
see forget' ========  tetherred forth
see forget  ========  win32forth

可以.   very  tricky.
 
T:''  TEST.P1.7=01
   BEGIN''
\    ^ P1.7=0  ( 100 #  ^ MS'   ^ '2DROP  )  ^  P1.7=1  ( 100 #  ^ MS'  ^ '2DROP  )  \ ^ 'KEY?
     ^ P1.7=0   5555 #  ^ MS'   ^ '2DROP     ^  P1.7=1   5555 #  ^ MS'  ^ '2DROP     \ ^ 'KEY?
   AGAIN''       ;''
 
TEST.P1.7=01  

 
 
 --- 09/10/21 (三)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:637] Re: RE： [符式協會:633] Re: RE： [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月21日,三,上午6:26

謝謝!!!謝謝您詳細的指導。
經由您的指導已經做到了，51的板子一開機就看到test.led的閃爍，真好。
 
請問，可以直接從PC端送新的word 到51上測試嗎?要如何做到呢
是不是都要經過hex檔燒入板子中才可以測試，?
 
還有我發現個情形，
在輸入test.led時有錯，所以用forget test.led，再重新輸入trest.led，發現寫的位置變了，不是接在led.off 之後，不知這樣是正常嗎?如下所示:
see led.off
  \ --------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  80  F2     )                    test.led RJMP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP              ok...
forget test.led  ok...
see led.off
  \ --------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  80  F2     )                    test.led RJMP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP              ok....
T:   test.led    begin'    led.on   500.ms   led.off   500.ms   again'  ok..
..
see led.off
  \ --------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:
Error: led.off  *** CFA'>NFA' failed ***
see test.led
  \ --------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3270  12  32  5C )                              led.on
  ( 3273  12  32  4B )                              500.ms
  ( 3276  12  32  5F )                              led.off
  ( 3279  12  32  4B )                              500.ms
  ( 327C  80  F2     )                    test.led RJMP
  ( 327E  00         )                              NOP
  ( 327F  00         )                              NOP
  ( 3280  00         )                              NOP
  ( 3281  00         )                              NOP
  ( 3282  00         )                              NOP
  ( 3283  00         )                              NOP
  ( 3284  00         )                              NOP
  ( 3285  00         )                              NOP
  ( 3286  00         )                              NOP
  ( 3287  00         )                              NOP
  ( 3288  00         )                              NOP
  ( 3289  00         )                              NOP
  ( 328A  00         )                              NOP
  ( 328B  00         )                              NOP
  ( 328C  00         )                              NOP
  ( 328D  00         )                              NOP
  ( 328E  00         )                              NOP
  ( 328F  00         )                              NOP              ok.

謝謝!!!
 

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

真是厲害ㄝ。
但是我還沒成功做到。
因為我的板子led在P2，所以我將程式改為
T:''  TEST.P2.1=01
   BEGIN''
\    ^ P1.7=0  ( 100 #  ^ MS'   ^ '2DROP  )  ^  P1.7=1  ( 100 #  ^ MS'  ^
'2DROP  )  \ ^ 'KEY?
     ^ P2.1=0   5555 #  ^ MS'   ^ '2DROP     ^  P2.1=1   5555 #  ^ MS'  ^
'2DROP     \ ^ 'KEY?
   AGAIN''       ;''

TEST.P2.1=01
沒有反應，再用
T:''  TEST.LED.P2.1=01
     ^ P2.1=1         ;''

TEST.LED.P2.1=01
想說只讓P2.1的led off，結果還是沒成功。請問我要如何debug?

還有一點，用了字view，但出現
view p2.7  loaded from: C:\WIN32FOR\HH51W364.F at line: 22291
File doesn't exist, create it? [Y/N] (N):
Error: C:\WIN32FOR\HH51W364.F Aborting

請問要在那裡找HH51W364.F ?

謝謝!!!

2009/10/21 chang luke <holin...@yahoo.com.tw>

sorry!   忘了加  G''
 
G''   TEST.LED.P2.1=01

因內容過於龐大,尚待清除瘦身,才敢見人. 
請參考 HH51W238.F. 尤其有  T:  定義的指令之 Target 程式的寫法.
 
 
--- 09/10/22 (四)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:639] Re: RE： [符式協會:637] Re: RE： [符式協會:633] Re: RE： [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月22日,四,下午9:44

真是厲害ㄝ。
但是我還沒成功做到。
因為我的板子led在P2，所以我將程式改為
T:''  TEST.P2.1=01
   BEGIN''
\    ^ P1.7=0  ( 100 #  ^ MS'   ^ '2DROP  )  ^  P1.7=1  ( 100 #  ^ MS'  ^ '2DROP  )  \ ^ 'KEY?
     ^ P2.1=0   5555 #  ^ MS'   ^ '2DROP     ^  P2.1=1   5555 #  ^ MS'  ^ '2DROP     \ ^ 'KEY?
   AGAIN''       ;''
 
TEST.P2.1=01
沒有反應，再用
T:''  TEST.LED.P2.1=01
     ^ P2.1=1         ;''
 
TEST.LED.P2.1=01
想說只讓P2.1的led off，結果還是沒成功。請問我要如何debug?
 
還有一點，用了字view，但出現
view p2.7  loaded from: C:\WIN32FOR\HH51W364.F at line: 22291
File doesn't exist, create it? [Y/N] (N):
Error: C:\WIN32FOR\HH51W364.F Aborting
 
請問要在那裡找HH51W364.F ?
 
謝謝!!!
 

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

這是將 R80~RFF( indirect register )作為儲存閒接呼叫 ( indirectl call ) 程式的一種技巧 ( tricky ). 用此方法加上外部 eeprom 等外部記憶體的話,可以無限延伸程式.但須有一些儲存取用管理機制,稍稍麻煩.在此先只使用R80~RFF.
不知在別的系統如何成功此事?!
 
這是比較旁門的部分,不要誤入太深,以免和正軌的造成混淆.
 
 
--- 09/10/22 (四)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:639] Re: RE： [符式協會:637] Re: RE： [符式協會:633] Re: RE： [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月22日,四,下午9:44

真是厲害ㄝ。
但是我還沒成功做到。
因為我的板子led在P2，所以我將程式改為
T:''  TEST.P2.1=01
   BEGIN''
\    ^ P1.7=0  ( 100 #  ^ MS'   ^ '2DROP  )  ^  P1.7=1  ( 100 #  ^ MS'  ^ '2DROP  )  \ ^ 'KEY?
     ^ P2.1=0   5555 #  ^ MS'   ^ '2DROP     ^  P2.1=1   5555 #  ^ MS'  ^ '2DROP     \ ^ 'KEY?
   AGAIN''       ;''
 
TEST.P2.1=01
沒有反應，再用
T:''  TEST.LED.P2.1=01
     ^ P2.1=1         ;''
 
TEST.LED.P2.1=01
想說只讓P2.1的led off，結果還是沒成功。請問我要如何debug?
 
還有一點，用了字view，但出現
view p2.7  loaded from: C:\WIN32FOR\HH51W364.F at line: 22291
File doesn't exist, create it? [Y/N] (N):
Error: C:\WIN32FOR\HH51W364.F Aborting
 
請問要在那裡找HH51W364.F ?
 
謝謝!!!
 
   

2009/10/21 chang luke <holin...@yahoo.com.tw>

用  forget'   test.led
 
see forget' ========  tetherred forth
see forget  ========  win32forth

可以.   very  tricky.
 
T:''  TEST.P1.7=01
   BEGIN''
\    ^ P1.7=0  ( 100 #  ^ MS'   ^ '2DROP  )  ^  P1.7=1  ( 100 #  ^ MS'  ^ '2DROP  )  \ ^ 'KEY?
     ^ P1.7=0   5555 #  ^ MS'   ^ '2DROP     ^  P1.7=1   5555 #  ^ MS'  ^ '2DROP     \ ^ 'KEY?
   AGAIN''       ;''
 
TEST.P1.7=01  

 
 
 --- 09/10/21 (三)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:637] Re: RE： [符式協會:633] Re: RE： [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月21日,三,上午6:26

謝謝!!!謝謝您詳細的指導。
經由您的指導已經做到了，51的板子一開機就看到test.led的閃爍，真好。
 
請問，可以直接從PC端送新的word 到51上測試嗎?要如何做到呢
是不是都要經過hex檔燒入板子中才可以測試，?

 
還有我發現個情形，
在輸入test.led時有錯，所以用forget test.led，再重新輸入trest.led，發現寫的位置變了，不是接在led.off 之後，不知這樣是正常嗎?如下所示:
see led.off
  \ --------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  80  F2     )                    test.led RJMP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP              ok...
forget test.led  ok...
see led.off
  \ --------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3262  12  32  5C )                              led.on
  ( 3265  12  32  4B )                              500.ms
  ( 3268  12  32  5F )                              led.off
  ( 326B  12  32  4B )                              500.ms
  ( 326E  80  F2     )                    test.led RJMP
  ( 3270  00         )                              NOP
  ( 3271  00         )                              NOP
  ( 3272  00         )                              NOP
  ( 3273  00         )                              NOP
  ( 3274  00         )                              NOP
  ( 3275  00         )                              NOP
  ( 3276  00         )                              NOP
  ( 3277  00         )                              NOP
  ( 3278  00         )                              NOP
  ( 3279  00         )                              NOP
  ( 327A  00         )                              NOP
  ( 327B  00         )                              NOP
  ( 327C  00         )                              NOP
  ( 327D  00         )                              NOP              ok....
T:   test.led    begin'    led.on   500.ms   led.off   500.ms   again'  ok..
..
see led.off
  \ --------------------------------------------------------------------------- -----
                         T:  led.off
  ( 325F  C2  A0     )                           `  _0A0=0          \ P2.0
  ( 3261  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:
Error: led.off  *** CFA'>NFA' failed ***
see test.led
  \ --------------------------------------------------------------------------- -----
                         T:  test.led
  ( 3270  12  32  5C )                              led.on
  ( 3273  12  32  4B )                              500.ms
  ( 3276  12  32  5F )                              led.off
  ( 3279  12  32  4B )                              500.ms
  ( 327C  80  F2     )                    test.led RJMP
  ( 327E  00         )                              NOP
  ( 327F  00         )                              NOP
  ( 3280  00         )                              NOP
  ( 3281  00         )                              NOP
  ( 3282  00         ...

閱讀更多 »

sorry for the mistake I took.
按H可以看到
  ( OO <esc>  .S'  M>51  CPU  CPU'  DM  M>EE  2 EE>M  3 new.block  >S  >s'  G execute''  G'' TEST''  4 dump.eeprom ) ok
SEE  DM
按 DM,  You'll see a lot...
*** 3 block ***   \   XRAM00~FF的程式 存入EEPROM的第3個BLOCK 或取出.
                  T:''  T90'
  ( xRAM 00  3D4D )             doLIT''     0
  ( xRAM 03  306F )             1+
  ( xRAM 05  3016 )             DUP
  ( xRAM 07   430 )             R90=A
  ( xRAM 09  3D4D )             doLIT''    10
  ( xRAM 0C  31A9 )             MS
  ( xRAM 0E  3045 )             0=
  ( xRAM 10  3DB3 )             [UNTIL'']  \     3
  ( xRAM 14  3011 )             DROP
  ( xRAM 16     0 )             ;''
                  T:''  T90
  ( xRAM 18  3D4D )             doLIT''     0
  ( xRAM 1B  306F )             1+
  ( xRAM 1D  3016 )             DUP
  ( xRAM 1F   430 )             R90=A
  ( xRAM 21  3D4D )             doLIT''    10
  ( xRAM 24  2284 )             MS'
  ( xRAM 26  3011 )             DROP
  ( xRAM 28  3045 )             0=
  ( xRAM 2A  3DB3 )             [UNTIL'']  \    1B
  ( xRAM 2E  3011 )             DROP
  ( xRAM 30     0 )             ;''
                  T:''  IR
  ( xRAM 32   430 )             R90=A
  ( xRAM 34  3011 )             DROP
  ( xRAM 36  2132 )             P3.0=0
  ( xRAM 38  214A )             P3.0=1
  ( xRAM 3A  2132 )             P3.0=0
  ( xRAM 3C     0 )             ;''
                  T:''  DR
  ( xRAM 3E   430 )             R90=A
  ( xRAM 40  3011 )             DROP
  ( xRAM 42  2150 )             P3.2=1
  ( xRAM 44  214A )             P3.0=1
  ( xRAM 46  2132 )             P3.0=0
  ( xRAM 48     0 )             ;''
                  T:''  INITLCD
  ( xRAM 4A  3D4D )             doLIT''    3C
  ( xRAM 4D  3D4D )             doLIT''    32
  ( xRAM 50  3212 )             EXECUTE''(bank1)
  ( xRAM 52  3D4D )             doLIT''     1
  ( xRAM 55  3D4D )             doLIT''    32
  ( xRAM 58  3212 )             EXECUTE''(bank1)
  ( xRAM 5A  3D4D )             doLIT''     F
  ( xRAM 5D  3D4D )             doLIT''    32
  ( xRAM 60  3212 )             EXECUTE''(bank1)
  ( xRAM 62     0 )             ;''
                  T:''  CLEAR
  ( xRAM 64  3D4D )             doLIT''     1
  ( xRAM 67  3D4D )             doLIT''    32
  ( xRAM 6A  3212 )             EXECUTE''(bank1)
  ( xRAM 6C     0 )             ;''
                  T:''  HOME
  ( xRAM 6E  3D4D )             doLIT''     2
  ( xRAM 71  3D4D )             doLIT''    32
  ( xRAM 74  3212 )             EXECUTE''(bank1)
  ( xRAM 76     0 )             ;''
                  T:''  LOWER
  ( xRAM 78  3D4D )             doLIT''    C0
  ( xRAM 7B  3D4D )             doLIT''    32
  ( xRAM 7E  3212 )             EXECUTE''(bank1)
  ( xRAM 80     0 )             ;''
                  T:''  RSHIFT
  ( xRAM 82  3D4D )             doLIT''    18
  ( xRAM 85  3D4D )             doLIT''    32
  ( xRAM 88  3212 )             EXECUTE''(bank1)
  ( xRAM 8A     0 )             ;''
                  T:''  LSHIFT
  ( xRAM 8C  3D4D )             doLIT''    1C
  ( xRAM 8F  3D4D )             doLIT''    32
  ( xRAM 92  3212 )             EXECUTE''(bank1)
  ( xRAM 94     0 )             ;''
                  T:''  TT
  ( xRAM 96  3D4D )             doLIT''    4A
  ( xRAM 99  3212 )             EXECUTE''(bank1)
  ( xRAM 9B  3D4D )             doLIT''    64
  ( xRAM 9E  3212 )             EXECUTE''(bank1)
  ( xRAM A0  3D4D )             doLIT''    6E
  ( xRAM A3  3212 )             EXECUTE''(bank1)
  ( xRAM A5  3D4D )             doLIT''    78
  ( xRAM A8  3212 )             EXECUTE''(bank1)
  ( xRAM AA     0 )             ;''
這些是在pc側的程式,還沒有load 到8051.必須再執行  M>51  才行.
 see M>51
: M>51          SEND.PROGRAM.IN.PC.XRAM00~FF>8051.XRAM00~FF ;  ok.
 
MPC82G516有1K的XRAM,夠多了.
-------------------------------------------------------
善用  SEE  去聊瞭解指令的意思.
 
SEE NEW.BLOCK
: NEW.BLOCK     ERASE.XRAM    BLOCK.N !    0 TO CP0''    CP'' OFF ;  ok.

1  NEW.BLOCK 
DM
*** 1 block ***
  ( xRAM 00     0 )             ;''
ok
 
T:''   TEST.LED     FF  #8   R90=A   DROP  ;''  ok.
  ok.
DM
*** 1 block ***
                  T:''  TEST.LED
  ( xRAM 00  3D4D )             doLIT''    FF
  ( xRAM 03   430 )             R90=A
  ( xRAM 05  3011 )             DROP
  ( xRAM 07     0 )             ;''
 
 執行  M>51 
G''   TEST.LED 
-------------------------------
SEE    R90=A
  \ --------------------------------------------------------------------------- -----
                         T:  R90=A
  ( 0430  F5  90     )                           `  R90=A           \ P1
  ( 0432  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  R91=A
  ( 0433  F5  91     )                           `  R91=A           \ P1M0
  ( 0435  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  R92=A
  ( 0436  F5  92     )                           `  R92=A           \ P1M1
  ( 0438  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  R93=A
  ( 0439  F5  93     )                           `  R93=A           \ P0M0
  ( 043B  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  R94=A
  ( 043C  F5  94     )                           `  R94=A           \ P0M1
  ( 043E  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  R95=A
  ( 043F  F5  95     )                           `  R95=A           \ P2M0
  ( 0441  22         )                              RET
  \ --------------------------------------------------------------------------- -----
                         T:  R96=A
  ( 0442  F5  96     )                           `  R96=A           \ P2M1  ok
 --------------------------------------------------------------------------- ---------------
以上TRY 看看.
 

--- 09/10/27 (二)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
 日期: 2009年10月27日,二,下午8:42

我還是試不出來，請問是不是要有外部記憶體才可以?
(我用的MPC82G516AE板子上沒有外部記憶體)。
 
謝謝您指導，在這可以學到很多，接下來就是自己的努力了。
謝謝!!!
 

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

這個 topic 似乎是兩人的對話戲.真要表達更完整的話,恐非十幾二十次可以達成.
我很願意將此一系統推成約50個page左右的報告手冊,一來向上級交差,二來可以呈供forth同好進一步改善加強.個人不才,僅能作出這最底層.最低級( low level assembly ) 的東西,也作的不怎麼樣.我的能力僅此而已. 不過數十年的 forth 經驗,我發現最低級的東西很少被重視改進,以至於今天的assembly與數十年以前的assembly沒有太大的進步.forth在這些地方也沒增進多少.這 正是我們可以發揮改進的地方.結合assembly 和  forth 是最佳絕配.  tetherred forth 使之更上一層.苟有人能將eForth架在此上,那就更完美了.
 

 

 

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/

謝謝!!!

這部分已成功測試了 :-)

慢慢的感覺到您系統的神奇強大，再次感謝您的指導。
期許自己從這將forth學起來。謝謝。
也期待您的手冊，相信它可給我們想入門者有更好的指引。

2009/10/27 chang luke <holin...@yahoo.com.tw>

   謝謝你一路來相挺, 也一路來用硬體實做,驗證我所言不虛.不是瞎掰的. 再次謝謝你
   至於手冊,不知有人有興趣否寫來供大家分享.
 
   今天是月底,在armForth討論區,一個月來又要跳空無人討論或上傳檔案身為 major contributrier的一員,恐怕該討論區被下市拆台.所以勉強擠出一點豬頭皮油(台語: 豬頭皮炸無油)來充斥一下請笑納.  hh51w36500.f.

--- 09/10/30 (五)，lu albert <lu.alb...@gmail.com> 寫道：

寄件者: lu albert <lu.alb...@gmail.com>
主旨: [符式協會:645] Re: RE： [符式協會:643] RE： [符式協會:642] Re: RE： [符式協會:639] Re: RE： [符式協會:637] Re: RE： [符式協會:633] Re: RE： [符式協會:628] Re: RE： [符式協會:626] RE： [符式協會:625] Re: RE： [符式協會:621] Re: RE： [符式協會:614] Re: RE： [符式協會:611] Re: RE： [符式協會:606] Re: 有關eForth51
收件者: figtaiwan@googlegroups.com
日期: 2009年10月30日,五,下午10:32

謝謝!!!

這部分已成功測試了 :-)
 
慢慢的感覺到您系統的神奇強大，再次感謝您的指導。
期許自己從這將forth學起來。謝謝。
也期待您的手冊，相信它可給我們想入門者有更好的指引。
 
 
 
 
 

2009/10/27 chang luke <holin...@yahoo.com.tw>

這個 topic 似乎是兩人的對話戲.真要表達更完整的話,恐非十幾二十次可以達成.
我很願意將此一系統推成約50個page左右的報告手冊,一來向上級交差,二來可以呈供forth同好進一步改善加強.個人不才,僅能作出這最底層.最低級( low level assembly ) 的東西,也作的不怎麼樣.我的能力僅此而已. 不過數十年的 forth 經驗,我發現最低級的東西很少被重視改進,以至於今天的assembly與數十年以前的assembly沒有太大的進步.forth在這些地方也沒增進多少.這 正是我們可以發揮改進的地方.結合assembly 和 forth 是最佳絕配.  tetherred forth 使之更上一層.苟有人能將eForth架在此上,那就更完美了.
 

 

 

___________________________________________________
您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
http://messenger.yahoo.com.tw

___________________________________________________
 您的生活即時通 － 溝通、娛樂、生活、工作一次搞定！
 http://messenger.yahoo.com.tw/