home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fresh Fish 5
/
FreshFish_July-August1994.bin
/
bbs
/
dev
/
rkrm.lha
/
RKRM
/
Keymap
/
d.asm
< prev
next >
Wrap
Assembly Source File
|
1992-09-03
|
25KB
|
659 lines
*
* Copyright (c) 1992 Commodore-Amiga, Inc.
*
* This example is provided in electronic form by Commodore-Amiga, Inc. for
* use with the "Amiga ROM Kernel Reference Manual: Devices", 3rd Edition,
* published by Addison-Wesley (ISBN 0-201-56775-X).
*
* The "Amiga ROM Kernel Reference Manual: Devices" contains additional
* information on the correct usage of the techniques and operating system
* functions presented in these examples. The source and executable code
* of these examples may only be distributed in free electronic form, via
* bulletin board or as part of a fully non-commercial and freely
* redistributable diskette. Both the source and executable code (including
* comments) must be included, without modification, in any copy. This
* example may not be published in printed form or distributed with any
* commercial product. However, the programming techniques and support
* routines set forth in these examples may be used in the development
* of original executable software products for Commodore Amiga computers.
*
* All other rights reserved.
*
* This example is provided "as-is" and is subject to change; no
* warranties are made. All use is at your own risk. No liability or
* responsibility is assumed.
*
**********************************************************************
*
* d.asm - d (GERMAN) A2000 key map
*
**********************************************************************
** Assemble and then link without startup code or linker libs
*------ Included Files -----------------------------------------------
INCLUDE "exec/types.i"
INCLUDE "devices/keymap.i"
*---------------------------------------------------------------------
DC.L 0,0 ; ln_Succ, ln_Pred
DC.B 0,0 ; ln_Type, ln_Pri
DC.L KMName ; ln_Name
DC.L KMLowMapType
DC.L KMLowMap
DC.L KMLCapsable
DC.L KMLRepeatable
DC.L KMHighMapType
DC.L KMHighMap
DC.L KMHCapsable
DC.L KMHRepeatable
*------ Key Translation Table ----------------------------------------
* Raw key codes
*
* 45 50 51 52 53 54 55 56 57 58 59
* 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 41 46 5F 5A 5B 5C 5D
* 42 10 11 12 13 14 15 16 17 18 19 1A 1B 44 3D 3E 3F 4A
* 63 62 20 21 22 23 24 25 26 27 28 29 2A 2B 4C 2D 2E 2F 5E
* 60 30 31 32 33 34 35 36 37 38 39 3A 61 4F 4D 4E 1D 1E 1F 43
* 64 66 40 67 65 0F 3C
*
*---------------------------------------------------------------------
* German (D) mapping
*
* ESC F1 F2 F3 F4 F5 F6 F7 F8 F9 F10
* `~ 1! 2" 3S 4$ 5% 6& 7/ 8( 9) 0= B? '` \| BS DEL HELP [{ ]} / *
* TAB qQ wW eE rR tT zZ uU iI oO pP uU +* RET 7 8 9 -
* CT CL aA sS dD fF gG hH jJ kK lL oO aA #^ UC 4 5 6 +
* SH <> yY xX cC vV bB nN mM ,; .: -_ SH LC DC RC 1 2 3 ENT
* ALT AM SPACE AM ALT 0 .
*
*---------------------------------------------------------------------
* For comparison, here's the USA1 mapping
*
* ESC F1 F2 F3 F4 F5 F6 F7 F8 F9 F10
* `~ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ \| BS DEL HELP (( )) // **
* TAB qQ wW eE rR tT yY uU iI oO pP [{ ]} RET 77 88 99 --
* CT CL aA sS dD fF gG hH jJ kK lL ;: '" [2B] UC 44 55 66 ++
* SH [30] zZ xX cC vV bB nN mM ,< .> /? SH LC DC RC 11 22 33 ENT
* ALT AM SPACE AM ALT 00 ..
*
*--------------------------------------------------------------------------
*
* 40 Space
* 41 Backspace
* 42 Tab
* 43 Enter
* 44 Return
* 45 Escape
* 46 Delete
* 4A Numeric Pad -
* 4C Cursor Up
* 4D Cursor Down
* 4E Cursor Forward
* 4F Cursor Backward
*
* 50-59 Function keys F1-F10
* 5A Numeric Pad [{ (A2000)
* 5B Numeric Pad ]} (A2000)
* 5C Numeric Pad / (A2000)
* 5D Numeric Pad * (A2000)
* 5E Numeric Pad + (A2000)
* 5F Help
*
* 60 Left Shift
* 61 Right Shift
* 62 Caps Lock
* 63 Control
* 64 Left Alt
* 65 Right Alt
* 66 Left Amiga
* 67 Right Amiga
*
* 68 Left Mouse Button (not converted)
* 69 Right Mouse Button (not converted)
* 6A Middle Mouse Button (not converted)
*
*---------------------------------------------------------------------
KMLCapsable: ; NL means NULL (undefined) and RE means RESERVED
DC.B %00000000 ; 7\ 6& 5% 4$ 3s 2" 1! [] 07 - 00
DC.B %00000000 ; 0N NL \| '` B? 0= 9) 8( 0F - 08
DC.B %11111111 ; iI uU zZ tT rR eE wW qQ 17 - 10
DC.B %00000111 ; 3N 2N 1N NL +* UU pP oO 1F - 18
DC.B %11111111 ; kK jJ hH gG fF dD sS aA 27 - 20
DC.B %00000111 ; 6N 5N 4N NL #' AA OO lL 2F - 28
DC.B %11111110 ; mM nN bB vV cC xX yY <> 37 - 30
DC.B %00000000 ; 9N 8N 7N .N NL -_ .: ,; 3F - 38
KMHCapsable:
DC.B %00000000 ; 47 - 40
DC.B %00000000 ; 4F - 48
DC.B %00000000 ; 57 - 50
DC.B %00000000 ; 5F - 58
DC.B %00000000 ; 67 - 60
DC.B %00000000 ; 6F - 68
DC.B %00000000 ; 77 - 70
KMLRepeatable:
DC.B %11111111 ; 7\ 6& 5% 4$ 3s 2" 1! [] 07 - 00
DC.B %10111111 ; 0N NL \| '` B? 0= 9) 8( 0F - 08
DC.B %11111111 ; iI uU zZ tT rR eE wW qQ 17 - 10
DC.B %11101111 ; 3N 2N 1N NL +* UU pP oO 1F - 18
DC.B %11111111 ; kK jJ hH gG fF dD sS aA 27 - 20
DC.B %11101111 ; 6N 5N 4N NL #' AA OO lL 2F - 28
DC.B %11111111 ; mM nN bB vV cC xX yY <> 37 - 30
DC.B %11110111 ; 9N 8N 7N .N NL -_ .: ,; 3F - 38
KMHRepeatable:
DC.B %01000111 ; 47 - 40
DC.B %11110100 ; 4F - 48
DC.B %11111111 ; 57 - 50
DC.B %01111111 ; 5F - 58
DC.B %00000000 ; 67 - 60
DC.B %00000000 ; 6F - 68
DC.B %00000000 ; 77 - 70
KMLowMapType:
DC.B KC_VANILLA ; [] $00
DC.B KCF_SHIFT+KCF_ALT ; 1!
DC.B KCF_SHIFT+KCF_ALT ; 2"
DC.B KCF_SHIFT+KCF_ALT ; 3s
DC.B KCF_SHIFT+KCF_ALT ; 4$
DC.B KCF_SHIFT+KCF_ALT ; 5%
DC.B KC_VANILLA ; 6&
DC.B KCF_SHIFT+KCF_ALT ; 7/
DC.B KCF_SHIFT+KCF_ALT ; 8( $08
DC.B KCF_SHIFT+KCF_ALT ; 9)
DC.B KCF_SHIFT+KCF_ALT ; 0=
DC.B KC_VANILLA ; B?
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT ; '`
DC.B KC_VANILLA ; \|
DC.B KCF_NOP ;NL
DC.B KC_NOQUAL ; 0N
DC.B KC_VANILLA ; qQ $10
DC.B KC_VANILLA ; wW
DC.B KCF_DEAD+KC_VANILLA ; eE
DC.B KC_VANILLA ; rR
DC.B KC_VANILLA ; tT
DC.B KC_VANILLA ; zZ
DC.B KCF_DEAD+KC_VANILLA ; uU
DC.B KCF_DEAD+KC_VANILLA ; iI
DC.B KCF_DEAD+KC_VANILLA ; oO $18
DC.B KC_VANILLA ; pP
DC.B KC_VANILLA ; omlatuU
DC.B KC_VANILLA ; +*
DC.B KCF_NOP ; NL
DC.B KC_NOQUAL ; 1N
DC.B KC_NOQUAL ; 2N
DC.B KC_NOQUAL ; 3N
DC.B KCF_DEAD+KC_VANILLA ; aA $20
DC.B KC_VANILLA ; sS
DC.B KC_VANILLA ; d