1 \ *****************************************************************************
2 \ * Copyright (c) 2004, 2008 IBM Corporation
3 \ * All rights reserved.
4 \ * This program and the accompanying materials
5 \ * are made available under the terms of the BSD License
6 \ * which accompanies this distribution, and is available at
7 \ * http://www.opensource.org/licenses/bsd-license.php
10 \ * IBM Corporation - initial implementation
11 \ ****************************************************************************/
18 s" dart" 2dup device-name device-type
19 u3? IF s" u3-dart" compatible THEN
20 u4? IF s" u4-dart" compatible THEN
22 0 encode-int f8033000 encode-int+
23 0 encode-int+ 7000 encode-int+ s" reg" property
28 \ Now clear and disable the DART.