fl wvariable ee_buf : eeDump \ (address -- ) ." eeprom address 0x" dup .word cr ." " 10 0 do i . ." " loop cr dictend W@ 10 - ee_buf W! 20 0 do i 10 u* dup 10 < if ." 00" . else dup 100 < if ." 0" . else . then then \ address 10 0 do dup EC@ ee_buf W@ i + C! 1+ loop ee_buf W@ 10 0 do dup i + C@ .byte space loop drop ." " ee_buf W@ 10 0 do dup i + C@ dup 20 < if ." ." drop else dup 7e > if ." ." drop else emit then then loop drop cr loop drop ; { fsls 008000 002272 propforth.f 00A280 000E77 LogicAnalyzer.f 00B140 0020CE asm.f 00D240 000D0F norom.f 00DF80 001426 com.f 00F3C0 000221 comnorom.f 00F600 000112 snet.f 8C0 bytes free in files system 8000 eeDump eeprom address 0x8000 0 1 2 3 4 5 6 7 8 9 A B C D E F 000 72 22 0B 70 72 6F 70 66 6F 72 74 68 2E 66 0D 68 r".propforth.f.h 010 65 78 0D 0D 31 20 77 63 6F 6E 73 74 61 6E 74 20 ex..1 wconstant 020 62 75 69 6C 64 5F 70 72 6F 70 66 6F 72 74 68 0D build_propforth. 030 0D 0D 0D 5B 69 66 20 63 74 72 61 0D 31 46 38 09 ...[if ctra.1F8. 040 77 63 6F 6E 73 74 61 6E 74 20 63 74 72 61 20 5D wconstant ctra ] 050 0D 0D 5B 69 66 20 63 74 72 62 0D 31 46 39 09 77 ..[if ctrb.1F9.w 060 63 6F 6E 73 74 61 6E 74 20 63 74 72 62 20 5D 0D constant ctrb ]. 070 0D 5B 69 66 20 66 72 71 61 0D 31 46 41 09 77 63 .[if frqa.1FA.wc 080 6F 6E 73 74 61 6E 74 20 66 72 71 61 20 5D 0D 0D onstant frqa ].. 090 5B 69 66 20 66 72 71 62 0D 31 46 42 09 77 63 6F [if frqb.1FB.wco 0A0 6E 73 74 61 6E 74 20 66 72 71 62 20 5D 0D 0D 5B nstant frqb ]..[ 0B0 69 66 20 70 68 73 61 0D 31 46 43 09 77 63 6F 6E if phsa.1FC.wcon 0C0 73 74 61 6E 74 20 70 68 73 61 20 5D 0D 0D 5B 69 stant phsa ]..[i 0D0 66 20 70 68 73 62 0D 31 46 44 09 77 63 6F 6E 73 f phsb.1FD.wcons 0E0 74 61 6E 74 20 70 68 73 62 20 5D 0D 0D 5B 69 66 tant phsb ]..[if 0F0 20 76 63 66 67 0D 31 46 45 09 77 63 6F 6E 73 74 vcfg.1FE.wconst 100 61 6E 74 20 76 63 66 67 20 5D 0D 0D 5B 69 66 20 ant vcfg ]..[if 110 76 73 63 6C 0D 31 46 46 09 77 63 6F 6E 73 74 61 vscl.1FF.wconsta 120 6E 74 20 76 73 63 6C 20 5D 0D 0D 5B 69 66 20 5F nt vscl ]..[if _ 130 66 61 64 64 72 6D 61 73 6B 0D 3A 20 5F 66 61 64 faddrmask.: _fad 140 64 72 6D 61 73 6B 20 31 20 5F 63 76 20 3B 20 5D drmask 1 _cv ; ] 150 0D 0D 5B 69 66 20 5F 66 6C 6F 6E 67 6D 61 73 6B ..[if _flongmask 160 0D 3A 20 5F 66 6C 6F 6E 67 6D 61 73 6B 20 32 20 .: _flongmask 2 170 5F 63 76 20 3B 20 5D 0D 0D 5B 69 66 20 5F 73 74 _cv ; ]..[if _st 180 70 74 72 0D 3A 20 5F 73 74 70 74 72 20 35 20 5F ptr.: _stptr 5 _ 190 63 76 20 3B 20 5D 20 0D 0D 5B 69 66 20 5F 73 74 cv ; ] ..[if _st 1A0 74 6F 73 0D 3A 20 5F 73 74 74 6F 73 20 37 20 5F tos.: _sttos 7 _ 1B0 63 76 20 3B 20 5D 0D 0D 5B 69 66 20 5F 74 72 65 cv ; ]..[if _tre 1C0 67 31 0D 3A 20 5F 74 72 65 67 31 20 38 20 5F 63 g1.: _treg1 8 _c 1D0 76 20 3B 20 5D 0D 0D 5B 69 66 20 5F 74 72 65 67 v ; ]..[if _treg 1E0 32 0D 3A 20 5F 74 72 65 67 32 20 39 20 5F 63 76 2.: _treg2 9 _cv 1F0 20 3B 20 5D 0D 0D 5B 69 66 20 5F 74 72 65 67 33 ; ]..[if _treg3 Prop0 Cog6 ok }