qemu/roms/SLOF/board-js2x/slof/dart.fs

   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
   8 \ *
   9 \ * Contributors:
  10 \ *     IBM Corporation - initial implementation
  11 \ ****************************************************************************/
  12
  13
  14 \ CPC9x5 DART.
  15
  16 new-device
  17
  18 s" dart" 2dup device-name device-type
  19 u3? IF s" u3-dart" compatible THEN
  20 u4? IF s" u4-dart" compatible THEN
  21
  22 0 encode-int  f8033000 encode-int+
  23 0 encode-int+     7000 encode-int+ s" reg" property
  24
  25 : open  true ;
  26 : close ;
  27
  28 \ Now clear and disable the DART.
  29 20000000 f8033000 rl!
  30
  31 finish-device