From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- .../common/lib/hardware/1wire-crc8-test.frt | 54 ++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 amforth-6.5/common/lib/hardware/1wire-crc8-test.frt (limited to 'amforth-6.5/common/lib/hardware/1wire-crc8-test.frt') 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 + + +; + -- cgit v1.2.3