summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/board-js2x/slof/sio.fs
diff options
context:
space:
mode:
Diffstat (limited to 'qemu/roms/SLOF/board-js2x/slof/sio.fs')
-rw-r--r--qemu/roms/SLOF/board-js2x/slof/sio.fs85
1 files changed, 0 insertions, 85 deletions
diff --git a/qemu/roms/SLOF/board-js2x/slof/sio.fs b/qemu/roms/SLOF/board-js2x/slof/sio.fs
deleted file mode 100644
index 554cf83e3..000000000
--- a/qemu/roms/SLOF/board-js2x/slof/sio.fs
+++ /dev/null
@@ -1,85 +0,0 @@
-\ *****************************************************************************
-\ * Copyright (c) 2004, 2008 IBM Corporation
-\ * All rights reserved.
-\ * This program and the accompanying materials
-\ * are made available under the terms of the BSD License
-\ * which accompanies this distribution, and is available at
-\ * http://www.opensource.org/licenses/bsd-license.php
-\ *
-\ * Contributors:
-\ * IBM Corporation - initial implementation
-\ ****************************************************************************/
-
-
-\ National Semiconductor SIO.
-\ See http://www.national.com/pf/PC/PC87417.html for the datasheet.
-
-\ We use both serial ports, and the RTC.
-
-\ See 3.7.5.
-new-device 3f8 1 set-unit
-
-s" serial" 2dup device-name device-type
-
-\ Enable this UART.
-3 7 siocfg! 1 30 siocfg!
-
-\ 8 bytes of ISA I/O space
-my-unit encode-int rot encode-int+ 8 encode-int+ s" reg" property
-d# 19200 encode-int s" current-speed" property
-44 encode-int 0 encode-int+ s" interrupts" property
-
-: open true ;
-: close ;
-: write ( adr len -- actual ) tuck type ;
-: read ( adr len -- actual ) 0= IF drop 0 EXIT THEN
- serial-key? 0= IF 0 swap c! -2 EXIT THEN
- serial-key swap c! 1 ;
-
-finish-device
-
-
-new-device 2f8 1 set-unit
-
-s" serial" 2dup device-name device-type
-
-\ Enable this UART.
-2 7 siocfg! 1 30 siocfg!
-
-\ 8 bytes of ISA I/O space
-my-unit encode-int rot encode-int+ 8 encode-int+ s" reg" property
-d# 19200 encode-int s" current-speed" property
-43 encode-int 0 encode-int+ s" interrupts" property
-
-: open true ;
-: close ;
-: write ( adr len -- actual ) tuck type ;
-: read ( adr len -- actual ) 0= IF drop 0 EXIT THEN
- serial-key? 0= IF 0 swap c! -2 EXIT THEN
- serial-key swap c! 1 ;
-
-finish-device
-
-
-
-\ See the "Device Support Extensions" OF Recommended Practice document.
-new-device 1070 1 set-unit
-
-s" rtc" 2dup device-name device-type
-\ Following is for Linux, to recognize this RTC:
-s" pnpPNP,b00" compatible
-
-: rtc! my-space io-c! my-space 1+ io-c! ;
-: rtc@ my-space io-c! my-space 1+ io-c@ ;
-
-\ 10 bytes of ISA I/O space, at 1070.
-my-unit encode-int rot encode-int+ 10 encode-int+ s" reg" property
-
-: open true ;
-: close ;
-
-\ XXX: dummy methods.
-: get-time ( -- sec min hr day mth yr ) 38 22 c 1 1 d# 1973 ;
-: set-time ( sec min hr day mth yr -- ) 3drop 3drop ;
-
-finish-device