home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_progs
/
prog_c
/
dvrakkymp.lzh
/
DVORAKKEYMAP
/
DVORAK.S
next >
Wrap
Text File
|
1991-11-01
|
13KB
|
550 lines
**********************************************************************
*
* usa2 (Dvorak) key map
*
* Copyright 1986, Commodore-Amiga Inc. All Rights Reserved.
*
* Programmer: Bob 'Kodiak' Burns
*
* Note that this key map requires kickstart release 1.2, which
* supports the dead keys described here. The ALT key layout uses
* the official layout for all 1.2 keymaps, whatever the country.
* The un-ALTed is my interpretation of the ANSI alternate keymap
* layout (i.e. Dvorak) as applies to the Amiga.
*
**********************************************************************
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 DVName ; ln_Name
DC.L DVLowMapType
DC.L DVLowMap
DC.L DVLCapsable
DC.L DVLRepeatable
DC.L DVHighMapType
DC.L DVHighMap
DC.L DVHCapsable
DC.L DVHRepeatable
*------ Key Translation Table ----------------------------------------
*
* 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 3D 3E 3F
* 10 11 12 13 14 15 16 17 18 19 1A 1B 2D 2E 2F
* 20 21 22 23 24 25 26 27 28 29 2A 2B 1D 1E 1F
* 30 31 32 33 34 35 36 37 38 39 3A 0F 3C
*
* `~ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) \| =+ }{ 7 8 9
* '" ,< .> pP yY fF gG cC rR lL /? ][ 4 5 6
* aA oO eE uU iI dD hH tT nN sS -_ 1 2 3
* ;: qQ jJ kK xX bB mM wW vV zZ 0 .
*
*---------------------------------------------------------------------
*
* for reference, here's USA
*
* `~ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ \| 7 8 9
* qQ wW eE rR tT yY uU iI oO pP [{ ]} 4 5 6
* aA sS dD fF gG hH jJ kK lL ;: '" 1 2 3
* zZ xX cC vV bB nN mM ,< .> /? 0 .
*
*---------------------------------------------------------------------
*
* 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
* 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)
*
*---------------------------------------------------------------------
DVLCapsable:
DC.B %00000000,%00000000,%11111000,%00000011
DC.B %11111111,%00000011,%11111100,%00000111
DVHCapsable:
DC.B %00000000,%00000000,%00000000,%00000000
DC.B %00000000,%00000000,%00000000
DVLRepeatable:
DC.B %11111111,%10111111,%11111111,%11101111
DC.B %11111111,%11111111,%11111111,%11110111
DVHRepeatable:
DC.B %01000111,%11110100,%11111111,%00000011
DC.B %00000000,%00000000,%00000000
DVLowMapType:
DC.B KC_VANILLA,KCF_SHIFT+KCF_ALT
DC.B KC_VANILLA,KCF_SHIFT+KCF_ALT
DC.B KCF_SHIFT+KCF_ALT,KCF_SHIFT+KCF_ALT
DC.B KC_VANILLA,KCF_SHIFT+KCF_ALT
DC.B KCF_SHIFT+KCF_ALT,KCF_SHIFT+KCF_ALT
DC.B KCF_SHIFT+KCF_ALT,KC_VANILLA
DC.B KCF_SHIFT,KC_VANILLA,KCF_NOP,KC_NOQUAL
DC.B KCF_SHIFT+KCF_ALT,KCF_SHIFT+KCF_ALT
DC.B KCF_SHIFT+KCF_ALT,KC_VANILLA
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL,KC_VANILLA
DC.B KC_VANILLA,KC_VANILLA
DC.B KC_VANILLA,KC_VANILLA,KC_VANILLA,KC_VANILLA
DC.B KCF_NOP,KC_NOQUAL,KC_NOQUAL,KC_NOQUAL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL
DC.B KCF_DEAD+KCF_SHIFT+KCF_ALT+KCF_CONTROL,KC_VANILLA
DC.B KC_VANILLA,KCF_NOP
DC.B KCF_NOP,KC_NOQUAL,KC_NOQUAL,KC_NOQUAL
DC.B KCF_SHIFT+KCF_ALT,KCF_SHIFT+KCF_ALT
DC.B KC_VANILLA,KC_VANILLA
DC.B KC_VANILLA,KC_VANILLA,KC_VANILLA,KC_VANILLA
DC.B KC_VANILLA,KC_VANILLA,KC_VANILLA,KCF_NOP
DC.B KC_NOQUAL,KC_NOQUAL,KC_NOQUAL,KC_NOQUAL
DVHighMapType:
DC.B KCF_DEAD+KCF_ALT,KC_NOQUAL
DC.B KCF_STRING+KCF_SHIFT,KC_NOQUAL
DC.B KCF_CONTROL,KCF_ALT,KC_NOQUAL,KCF_NOP
DC.B KCF_NOP,KCF_NOP,KC_NOQUAL,KCF_NOP
DC.B KCF_STRING+KCF_SHIFT,KCF_STRING+KCF_SHIFT
DC.B KCF_STRING+KCF_SHIFT,KCF_STRING+KCF_SHIFT
DC.B KCF_STRING+KCF_SHIFT,KCF_STRING+KCF_SHIFT
DC.B KCF_STRING+KCF_SHIFT,KCF_STRING+KCF_SHIFT
DC.B KCF_STRING+KCF_SHIFT,KCF_STRING+KCF_SHIFT
DC.B KCF_STRING+KCF_SHIFT,KCF_STRING+KCF_SHIFT
DC.B KCF_STRING+KCF_SHIFT,KCF_STRING+KCF_SHIFT
DC.B KCF_NOP,KCF_NOP
DC.B KCF_NOP,KCF_NOP,KCF_NOP,KCF_STRING
DC.B KCF_NOP,KCF_NOP,KCF_NOP,KCF_NOP
DC.B KCF_NOP,KCF_NOP,KCF_NOP,KCF_NOP
DC.B KCF_NOP,KCF_NOP,KCF_NOP,KCF_NOP
DC.B KCF_NOP,KCF_NOP,KCF_NOP,KCF_NOP
DC.B KCF_NOP,KCF_NOP,KCF_NOP,KCF_NOP
DC.B KCF_NOP,KCF_NOP,KCF_NOP,KCF_NOP
DVLowMap:
DC.B '~','`','~','`' ; `, ~ / Vanilla
DC.B '!',$B9,'!','1' ; 1, !, super 1, !
DC.B '@',$B2,'@','2' ; 2, @, super 2, @ / Vanilla
DC.B '#',$B3,'#','3' ; 3, #, super 3, #
DC.B '$',$A2,'$','4' ; 4, $, cents, $
DC.B '%',$BC,'%','5' ; 5, %, 1/4, %
DC.B '^',$BD,'^','6' ; 6, ^, 1/2, ^ / Vanilla
DC.B '&',$BE,'&','7' ; 7, &, 3/4, &
DC.B '*',$B7,'*','8' ; 8, *, bullet, *
DC.B '(',$AB,'(','9' ; 9, (, <<, (
DC.B ')',$BB,')','0' ; 0, ), >>, )
DC.B '_','-','|','\' ; \, |, -, _ / Vanilla
DC.B '+','=','+','=' ; =, +
DC.B '|','\','{','}' ; }, {, \, | / Vanilla
DC.L 0
DC.B 0,0,0,'0' ; 0
DC.B $C5,$E5,'"',$27 ; ', ", dot a, dot A
DC.B $B0,$B0,'<',',' ; ,, <, dot, dot
DC.B $A9,$A9,'>','.' ; ., >, (c), (c)
DC.B $AE,$AE,'P','p' ; p, P, (r), (r) / Vanilla
DC.L key14 ; y, Y, thorn, THORN / Accents
DC.B $A5,$A4,'F','f' ; f, F, IMS, Yen / Vanilla
DC.B $B5,$B5,'G','g' ; g, G, micro, micro / Vanilla
DC.B $A6,$A1,'C','c' ; c, C, inverted !, broken | / Vanilla
DC.B $D8,$F8,'R','r' ; r, R, slash o, slash O / Vanilla
DC.B $B6,$B6,'L','l' ; l, L, paragraph, paragraph / Vanilla
DC.B '{','[','?','/' ; /, ?, [, { / Vanilla
DC.B '}',']','[',']' ; ], [, ], } / Vanilla
DC.L 0
DC.B 0,0,0,'1' ; 1
DC.B 0,0,0,'2' ; 2
DC.B 0,0,0,'3' ; 3
DC.L key20 ; a, A, ae, AE / Accents
DC.L key21 ; o, O, sharp s, section / Accents
DC.L key22 ; e, E, bar d, bar D / Accents
DC.L key23 ; u, U, dead ' / Accents
DC.L key24 ; i, I, dead ` / Accents
DC.L key25 ; d, D, dead ^
DC.L key26 ; h, H, dead ~
DC.L key27 ; t, T, dead "
DC.L key28 ; n, N, pound, pound / Accents
DC.B ':',';','S','s' ; s, S, ;, : / Vanilla
DC.B '"',$27,'_','-' ; -, _, ', " / Vanilla
DC.L 0
DC.L 0
DC.B 0,0,0,'4' ; 4
DC.B 0,0,0,'5' ; 5
DC.B 0,0,0,'6' ; 6
DC.B $BB,$AB,'>','<' ; <, >, <<, >>
DC.B $AC,$B1,':',';' ; ;, :, +/-, not
DC.B $F7,$D7,'Q','q' ; q, Q, times, divide / Vanilla
DC.B $C7,$E7,'J','j' ; j, J, c cedilla, C cedilla / Vanilla
DC.B $AA,$AA,'K','k' ; k, K, female ordinal, / Vanilla
DC.B $BA,$BA,'X','x' ; x, X, male ordinal / Vanilla
DC.B $AF,$AD,'B','b' ; b, B, SHY, overbar / Vanilla
DC.B $BF,$B8,'M','m' ; m, M, cedilla, inverted ? / Vanilla
DC.B '<',',','W','w' ; w, W, ,, < / Vanilla
DC.B '>','.','V','v' ; v, V, ., > / Vanilla
DC.B '?','/','Z','z' ; z, Z, /, ? / Vanilla
DC.L 0
DC.B 0,0,0,'.' ; .
DC.B 0,0,0,'7' ; 7
DC.B 0,0,0,'8' ; 8
DC.B 0,0,0,'9' ; 9
DVHighMap:
DC.L key40
DC.B 0,0,0,$08
DC.L key42
DC.B 0,0,0,$0D
DC.B 0,0,$0A,$0D
DC.B 0,0,$9B,$1B
DC.B 0,0,0,$7F
DC.L 0
DC.L 0
DC.L 0
DC.B 0,0,0,'-'
DC.L 0
DC.L key4C
DC.L key4D
DC.L key4E
DC.L key4F
DC.L key50
DC.L key51
DC.L key52
DC.L key53
DC.L key54
DC.L key55
DC.L key56
DC.L key57
DC.L key58
DC.L key59
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L key5F
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
DC.L 0
;------ dead keys
key14: ; y, Y, thorn, THORN
DC.B DPF_MOD,key14u-key14,DPF_MOD,key14s-key14
DC.B 0,$FE,0,$DE
DC.B 0,$19,0,$19,0,$99,0,$99 ; control translation
key14u:
DC.B 'y','y',$FD,'y','y',$FF
key14s:
DC.B 'Y','Y',$DD,'Y','Y','Y'
key20: ; a, A, ae, AE
DC.B DPF_MOD,key20u-key20,DPF_MOD,key20s-key20
DC.B 0,$E6,0,$C6
DC.B 0,$01,0,$01,0,$81,0,$81 ; control translation
key20u:
DC.B 'a',$E0,$E1,$E2,$E3,$E4
key20s:
DC.B 'A',$C0,$C1,$C2,$C3,$C4
key21: ; o, O, sharp s, section
DC.B DPF_MOD,key21u-key21,DPF_MOD,key21s-key21
DC.B 0,$DF,0,$A7
DC.B 0,$0F,0,$0F,0,$8F,0,$8F ; control translation
key21u:
DC.B 'o',$F2,$F3,$F4,$F5,$F6
key21s:
DC.B 'O',$D2,$D3,$D4,$D5,$D6
key22: ; e, E, bar d, bar D
DC.B DPF_MOD,key22u-key22,DPF_MOD,key22s-key22
DC.B 0,$F0,0,$D0
DC.B 0,$05,0,$05,0,$85,0,$85 ; control translation
key22u:
DC.B 'e',$E8,$E9,$EA,'e',$EB
key22s:
DC.B 'E',$C8,$C9,$CA,'E',$CB
key23: ; u, U, dead '
DC.B DPF_MOD,key23u-key23,DPF_MOD,key23s-key23
DC.B DPF_DEAD,1,DPF_DEAD,1
DC.B 0,$15,0,$15,0,$95,0,$95 ; control translation
key23u:
DC.B 'u',$F9,$FA,$FB,'u',$FC
key23s:
DC.B 'U',$D9,$DA,$DB,'U',$DC
key24: ; i, I, dead `
DC.B DPF_MOD,key24u-key24,DPF_MOD,key24s-key24
DC.B DPF_DEAD,2,DPF_DEAD,2
DC.B 0,$09,0,$09,0,$89,0,$89 ; control translation
key24u:
DC.B 'i',$EC,$ED,$EE,'i',$EF
key24s:
DC.B 'I',$CC,$CD,$CE,'I',$CF
key25:
DC.B 0,'d',0,'D' ; d, D, dead ^
DC.B DPF_DEAD,3,DPF_DEAD,3
DC.B 0,$04,0,$04,0,$84,0,$84 ; control translation
key26:
DC.B 0,'h',0,'H' ; h, H, dead ~
DC.B DPF_DEAD,4,DPF_DEAD,4
DC.B 0,$08,0,$08,0,$88,0,$88 ; control translation
key27:
DC.B 0,'t',0,'T' ; t, T, dead "
DC.B DPF_DEAD,5,DPF_DEAD,5
DC.B 0,$15,0,$15,0,$95,0,$95 ; control translation
key28: ; n, N, pound, pound
DC.B DPF_MOD,key28u-key28,DPF_MOD,key28s-key28
DC.B 0,$A3,0,$A3
DC.B 0,$0E,0,$0E,0,$8E,0,$8E ; control translation
key28u:
DC.B 'n','n','n','n',$F1,'n'
key28s:
DC.B 'N','N','N','N',$D1,'N'
key40: ; space,, NBSP, and accents
DC.B DPF_MOD,key40d-key40,0,$A0
key40d:
DC.B ' ','`',$B4,'^','~',$A8
;------ string keys
key42:
DC.B key42ue-key42us,key42us-key42
DC.B key42se-key42ss,key42ss-key42
key42us:
DC.B $09
key42ue:
key42ss:
DC.B $9B,'Z'
key42se:
key4C:
DC.B key4Cue-key4Cus,key4Cus-key4C
DC.B key4Cse-key4Css,key4Css-key4C
key4Cus:
DC.B $9B,'A'
key4Cue:
key4Css:
DC.B $9B,'T'
key4Cse:
key4D:
DC.B key4Due-key4Dus,key4Dus-key4D
DC.B key4Dse-key4Dss,key4Dss-key4D
key4Dus:
DC.B $9B,'B'
key4Due:
key4Dss:
DC.B $9B,'S'
key4Dse:
key4E:
DC.B key4Eue-key4Eus,key4Eus-key4E
DC.B key4Ese-key4Ess,key4Ess-key4E
key4Eus:
DC.B $9B,'C'
key4Eue:
key4Ess:
DC.B $9B,' ','@'
key4Ese:
key4F:
DC.B key4Fue-key4Fus,key4Fus-key4F
DC.B key4Fse-key4Fss,key4Fss-key4F
key4Fus:
DC.B $9B,'D'
key4Fue:
key4Fss:
DC.B $9B,' ','A'
key4Fse:
key50:
DC.B key50ue-key50us,key50us-key50
DC.B key50se-key50ss,key50ss-key50
key50us:
DC.B $9B,'0~'
key50ue:
key50ss:
DC.B $9B,'10~'
key50se:
key51:
DC.B key51ue-key51us,key51us-key51
DC.B key51se-key51ss,key51ss-key51
key51us:
DC.B $9B,'1~'
key51ue:
key51ss:
DC.B $9B,'11~'
key51se:
key52:
DC.B key52ue-key52us,key52us-key52
DC.B key52se-key52ss,key52ss-key52
key52us:
DC.B $9B,'2~'
key52ue:
key52ss:
DC.B $9B,'12~'
key52se:
key53:
DC.B key53ue-key53us,key53us-key53
DC.B key53se-key53ss,key53ss-key53
key53us:
DC.B $9B,'3~'
key53ue:
key53ss:
DC.B $9B,'13~'
key53se:
key54:
DC.B key54ue-key54us,key54us-key54
DC.B key54se-key54ss,key54ss-key54
key54us:
DC.B $9B,'4~'
key54ue:
key54ss:
DC.B $9B,'14~'
key54se:
key55:
DC.B key55ue-key55us,key55us-key55
DC.B key55se-key55ss,key55ss-key55
key55us:
DC.B $9B,'5~'
key55ue:
key55ss:
DC.B $9B,'15~'
key55se:
key56:
DC.B key56ue-key56us,key56us-key56
DC.B key56se-key56ss,key56ss-key56
key56us:
DC.B $9B,'6~'
key56ue:
key56ss:
DC.B $9B,'16~'
key56se:
key57:
DC.B key57ue-key57us,key57us-key57
DC.B key57se-key57ss,key57ss-key57
key57us:
DC.B $9B,'7~'
key57ue:
key57ss:
DC.B $9B,'17~'
key57se:
key58:
DC.B key58ue-key58us,key58us-key58
DC.B key58se-key58ss,key58ss-key58
key58us:
DC.B $9B,'8~'
key58ue:
key58ss:
DC.B $9B,'18~'
key58se:
key59:
DC.B key59ue-key59us,key59us-key59
DC.B key59se-key59ss,key59ss-key59
key59us:
DC.B $9B,'9~'
key59ue:
key59ss:
DC.B $9B,'19~'
key59se:
key5F:
DC.B key5Fe-key5Fs,key5Fs-key5F
key5Fs:
DC.B $9B,'?~'
key5Fe:
DVName:
DC.B 'usa2',0
kmEnd
END