aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/hardware/1wire-crc8-test.frt
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2017-08-19 12:15:28 +0200
committerDimitri Sokolyuk <demon@dim13.org>2017-08-19 12:15:28 +0200
commit67d25d837ac55f28a366c0a3b262e439a6e75fc3 (patch)
treedf7715c7724c5935ab87c807f3b8b4ef529315e3 /amforth-6.5/common/lib/hardware/1wire-crc8-test.frt
parente0d6784e89dba33226c0edb815bb974486fa7c48 (diff)
Add AmForth
Diffstat (limited to 'amforth-6.5/common/lib/hardware/1wire-crc8-test.frt')
-rw-r--r--amforth-6.5/common/lib/hardware/1wire-crc8-test.frt54
1 files changed, 54 insertions, 0 deletions
diff --git a/amforth-6.5/common/lib/hardware/1wire-crc8-test.frt b/amforth-6.5/common/lib/hardware/1wire-crc8-test.frt
new file mode 100644
index 0000000..1c628d6
--- /dev/null
+++ b/amforth-6.5/common/lib/hardware/1wire-crc8-test.frt
@@ -0,0 +1,54 @@
+\ 2013-01-21 EW
+
+marker --start--
+
+include ewlib/1wire_crc8.fs
+
+\ testdata from Dallas Application Note 27
+\ A2 00 00 00 01 B8 1C 02
+\ ^^crc fam.code^^
+
+: run_test
+ $A2 \ crc
+ $00 $00 $00 $01 $B8 $1C $02 \ rom id
+ #7 \ N
+ .s
+ 1w.crc8? if
+ ." crc ok"
+ else
+ ." crc error"
+ then
+ cr
+ $A2 1+ \ WRONG CRC!
+ $00 $00 $00 $01 $B8 $1C $02 \ rom id
+ #7 \ N
+ .s
+ 1w.crc8? if
+ ." crc ok"
+ else
+ ." crc error"
+ then
+ cr
+
+ \ reverse test
+ $02 $1C $B8 $01 $00 $00 $00 $A2
+ #7 .s
+ 1w.crc8.rev? if
+ ." crc ok"
+ else
+ ." crc error"
+ then
+ cr
+
+ $02 $1C $B8 $01 $00 $00 $00 $A2 1+ \ WRONG CRC!
+ #7 .s
+ 1w.crc8.rev? if
+ ." crc ok"
+ else
+ ." crc error"
+ then
+ cr
+
+
+;
+