aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/hardware/1wire-crc8-test.frt
diff options
context:
space:
mode:
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
+
+
+;
+