Return to usb-kbd-device-support.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / slof / fs / usb

Annotation of qemu/roms/SLOF/slof/fs/usb/usb-kbd-device-support.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: 00 value kbd-addr
                     15: to kbd-addr
                     16: 8 alloc-mem to kbd-report
                     17: 4 chars alloc-mem value kbd-data
                     18: 
                     19: : rw-endpoint
                     20:   s" rw-endpoint" $call-parent ;
                     21: 
                     22: : controlxfer
                     23:   s" controlxfer" $call-parent ;
                     24: 
                     25: : control-std-get-device-descriptor
                     26:   s" control-std-get-device-descriptor" $call-parent ;
                     27: 
                     28: : control-std-get-configuration-descriptor
                     29:   s" control-std-get-configuration-descriptor" $call-parent ;
                     30: 
                     31: : control-std-set-configuration
                     32:   s" control-std-set-configuration" $call-parent ;
                     33: 
                     34: : control-cls-set-protocol ( reportvalue FuncAddr -- TRUE|FALSE )
                     35:   to temp1
                     36:   to temp2
                     37:   210b000000000100 setup-packet ! 
                     38:   temp2 kbd-data l!-le
                     39:   1 kbd-data 1 setup-packet DEFAULT-CONTROL-MPS temp1 controlxfer  
                     40: ;
                     41: 
                     42: : control-cls-set-idle ( reportvalue FuncAddr -- TRUE|FALSE )
                     43:   to temp1
                     44:   to temp2
                     45:   210a000000000000 setup-packet ! 
                     46:   temp2 kbd-data l!-le
                     47:   0 kbd-data 0 setup-packet DEFAULT-CONTROL-MPS temp1 controlxfer  
                     48: ;
                     49: 
                     50: : control-std-get-report-descriptor ( data-buffer data-len MPS FuncAddr -- TRUE|FALSE )
                     51:   to temp1
                     52:   to temp2
                     53:   to temp3
                     54:   8106002200000000 setup-packet ! 
                     55:   temp3 setup-packet 6 + w!-le
                     56:   0 swap temp3 setup-packet temp2 temp1 controlxfer  
                     57: ;
                     58: 
                     59: : kbd-init
                     60:     s" Starting to initialize keyboard" usb-debug-print
                     61:     s" MPS-INTIN" get-my-property
                     62:     if
                     63:        s" not possible" usb-debug-print
                     64:     else
                     65:        decode-int nip nip to mps-int-in
                     66:     then
                     67:     s" INT-IN-EP-ADDR" get-my-property
                     68:     if
                     69:        s" not possible" usb-debug-print
                     70:     else
                     71:        decode-int nip nip to int-in-ep
                     72:     then
                     73: 
                     74:   7f alloc-mem to cfg-buffer
                     75:   s" Allocated buffers!!" usb-debug-print
                     76: 
                     77:   cfg-buffer 12 8 kbd-addr                   \ get device descriptor
                     78:   control-std-get-device-descriptor
                     79:   drop
                     80:   \ s" dev_desc=" type cfg-buffer 12 dump cr
                     81: 
                     82:   cfg-buffer 9 8 kbd-addr                    \ get config descriptor  
                     83:   control-std-get-configuration-descriptor
                     84:   drop
                     85:   \ s" cfg_desc=" type cfg-buffer 9 dump cr
                     86: 
                     87:   cfg-buffer 5 + c@ kbd-addr                 \ set configuration  
                     88:   control-std-set-configuration
                     89:   drop
                     90:   s" KBDS: Set config returned" usb-debug-print 
                     91: 
                     92:   0 kbd-addr control-cls-set-idle drop       \ set idle  
                     93:   s" KBDS: Set idle returned" usb-debug-print
                     94: 
                     95:   cfg-buffer 40 8 kbd-addr                   \ get report descriptor
                     96:   control-std-get-report-descriptor
                     97:   drop
                     98:   \ s" report_desc=" type cfg-buffer 40 dump cr
                     99: 
                    100:   s" Finished initializing keyboard" usb-debug-print 
                    101: ;
                    102: 

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