r1165 - dev/usb2/device

Author: wmb
Date: 2009-04-30 00:52:13 +0200 (Thu, 30 Apr 2009)
New Revision: 1165

Modified:
   dev/usb2/device/debugport.fth
Log:
USB Debug Device driver: changed ." messages to abort" so they
can be suppressed by a catch.  The output device may not be present
when the device is being initialized.

Modified: dev/usb2/device/debugport.fth
===================================================================
--- dev/usb2/device/debugport.fth	2009-04-29 21:55:19 UTC (rev 1164)
+++ dev/usb2/device/debugport.fth	2009-04-29 22:52:13 UTC (rev 1165)
@@ -94,11 +94,9 @@
    1 2 dbgp-b!                     \ Turn off the done bit
    0 dbgp-b@ h# 40 and  if         \ Error
       0 dbgp-l@ 7 rshift 7 and
-      case
-         1 of  ." DBGP USB hardware error" cr  endof
-         2 of  ." DBGP transacation error" cr  endof
-      endcase
-      abort
+      dup 1 =  abort" DBGP USB hardware error"
+      dup 2 =  abort" DBGP transacation error
+      0<> abort" DBGP reserved exception"
    then
 ;
 : data-toggle  ( -- )  5 dbgp-b@  h# 88 xor  5 dbgp-b!  ;