Return to sio.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof

Annotation of qemu/roms/SLOF/board-js2x/slof/sio.fs, revision 1.1.1.1

1.1       root        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: \ National Semiconductor SIO.
                     15: \ See http://www.national.com/pf/PC/PC87417.html for the datasheet.
                     16: 
                     17: \ We use both serial ports, and the RTC.
                     18: 
                     19: \ See 3.7.5.
                     20: new-device   3f8 1 set-unit
                     21: 
                     22: s" serial" 2dup device-name device-type
                     23: 
                     24: \ Enable this UART.
                     25: 3 7 siocfg!  1 30 siocfg!
                     26: 
                     27: \ 8 bytes of ISA I/O space
                     28: my-unit encode-int rot encode-int+ 8 encode-int+ s" reg" property
                     29: d# 19200 encode-int s" current-speed" property
                     30: 44 encode-int 0 encode-int+ s" interrupts" property
                     31: 
                     32: : open  true ;
                     33: : close ;
                     34: : write ( adr len -- actual )  tuck type ;
                     35: : read  ( adr len -- actual )  0= IF drop 0 EXIT THEN
                     36:                                serial-key? 0= IF 0 swap c! -2 EXIT THEN
                     37:                                serial-key swap c! 1 ;
                     38: 
                     39: finish-device
                     40: 
                     41: 
                     42: new-device   2f8 1 set-unit
                     43: 
                     44: s" serial" 2dup device-name device-type
                     45: 
                     46: \ Enable this UART.
                     47: 2 7 siocfg!  1 30 siocfg!
                     48: 
                     49: \ 8 bytes of ISA I/O space
                     50: my-unit encode-int rot encode-int+ 8 encode-int+ s" reg" property
                     51: d# 19200 encode-int s" current-speed" property
                     52: 43 encode-int 0 encode-int+ s" interrupts" property
                     53: 
                     54: : open  true ;
                     55: : close ;
                     56: : write ( adr len -- actual )  tuck type ;
                     57: : read  ( adr len -- actual )  0= IF drop 0 EXIT THEN
                     58:                                serial-key? 0= IF 0 swap c! -2 EXIT THEN
                     59:                                serial-key swap c! 1 ;
                     60: 
                     61: finish-device
                     62: 
                     63: 
                     64: 
                     65: \ See the "Device Support Extensions" OF Recommended Practice document.
                     66: new-device   1070 1 set-unit
                     67: 
                     68: s" rtc" 2dup device-name device-type
                     69: \ Following is for Linux, to recognize this RTC:
                     70: s" pnpPNP,b00" compatible
                     71: 
                     72: : rtc!  my-space io-c!  my-space 1+ io-c! ;
                     73: : rtc@  my-space io-c!  my-space 1+ io-c@ ;
                     74: 
                     75: \ 10 bytes of ISA I/O space, at 1070.
                     76: my-unit encode-int rot encode-int+ 10 encode-int+ s" reg" property
                     77: 
                     78: : open   true ;
                     79: : close ;
                     80: 
                     81: \ XXX: dummy methods.
                     82: : get-time ( -- sec min hr day mth yr )  38 22 c 1 1 d# 1973 ;
                     83: : set-time ( sec min hr day mth yr -- )  3drop 3drop ;
                     84: 
                     85: finish-device

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.