� > ReadKeys
'ș "Z80_ReadKeyMapAddress" � keymap
� inkey$(&67), speckey$(39)
(�I%=0 � 39
2� speckey$(I%)
<�
F�I%=&10 � &67
P� inkey$(I%)
Z�
d&�I%=0 � 1023 � 4 : keymap!I%=0 : �
n
xQ=�"<Z80Em$Res>.Keys"
�,� Q=0 � � 0,"<Z80Em$Res>.Keys not found"
��
�S$=�getword
�� �S$,1)="#" �
�  �ignoreline
��
�  � S$<>"" �
�    S%=�getspec(S$)
�	    �
�    A$=�getword
�    � A$<>"" �

      K%=�getarc(A$)

      I%=S% � 5

      J%=S% � 5

"C      keymap!(K%*4)=(keymap!(K%*4) << 8) + (I%) + (1 << (J%+3))

,	    �

6    �A$=""

@  �

J�

T� S$="" � �#Q

^

_�#Q

�

��

�

�
ݤgetword

�� I%,A$

�� I%=�#Q : � I%>32 � I%=10

�� I%=10 � =""

�
A$=�I%

�"� I%=�#Q : A$=A$+�I% : � I%<33

�
�#Q=�#Q-1

�=�A$,�A$-1)

�
��ignoreline
�I%
� I%=�#Q : �I%=&A
&�
0
:ݤgetspec(A$)
D
�I%,J%
N� I%=0 � 39
X#� speckey$(I%)=A$ � J%=I%:I%=41
b�
l=J%
v
�ݤgetarc(A$)
�
�I%,J%
�� I%=&10 � &67
�"� inkey$(I%)=A$ � J%=I%:I%=&68
��
�=J%


�� CapsShift, Z, X, C, V, A, S, D, F, G, Q, W, E, R, T, 1, 2, 3, 4, 5, 0, 9, 8, 7, 6, P, O, I, U, Y, Enter, L, K, J, H, Space, SymbolShift, M, N, B

�� `,1,2,3,4,5,6,7,8,9,0,-,=,�,<-|,Insert,Home,PageUp,NumLock,K/,K*,K#,Tab,Q,W,E,R,T,Y,U,I,O,P,[,],\,Delete,Copy,PageDown,K7,K8,K9,K-,LCtrl,A,S,D,F,G,H,J,K,L,;,',Return,K4,K5,K6,K+
q� LShift,,Z,X,C,V,B,N,M,",",.,/,RShift,Up,K1,K2,K3,CapsLock,LAlt,Space,RAlt,RCtrl,Left,Down,Right,K0,K.,Enter
�

00000000  0d 00 0a 10 f4 20 3e 20  52 65 61 64 4b 65 79 73  |..... > ReadKeys|
00000010  0d 00 14 27 c8 99 20 22  5a 38 30 5f 52 65 61 64  |...'.. "Z80_Read|
00000020  4b 65 79 4d 61 70 41 64  64 72 65 73 73 22 20 b8  |KeyMapAddress" .|
00000030  20 6b 65 79 6d 61 70 0d  00 1e 1f de 20 69 6e 6b  | keymap..... ink|
00000040  65 79 24 28 26 36 37 29  2c 20 73 70 65 63 6b 65  |ey$(&67), specke|
00000050  79 24 28 33 39 29 0d 00  28 0e e3 49 25 3d 30 20  |y$(39)..(..I%=0 |
00000060  b8 20 33 39 0d 00 32 12  f3 20 73 70 65 63 6b 65  |. 39..2.. specke|
00000070  79 24 28 49 25 29 0d 00  3c 05 ed 0d 00 46 11 e3  |y$(I%)..<....F..|
00000080  49 25 3d 26 31 30 20 b8  20 26 36 37 0d 00 50 10  |I%=&10 . &67..P.|
00000090  f3 20 69 6e 6b 65 79 24  28 49 25 29 0d 00 5a 05  |. inkey$(I%)..Z.|
000000a0  ed 0d 00 64 26 e3 49 25  3d 30 20 b8 20 31 30 32  |...d&.I%=0 . 102|
000000b0  33 20 88 20 34 20 3a 20  6b 65 79 6d 61 70 21 49  |3 . 4 : keymap!I|
000000c0  25 3d 30 20 3a 20 ed 0d  00 6e 04 0d 00 78 19 51  |%=0 : ...n...x.Q|
000000d0  3d 8e 22 3c 5a 38 30 45  6d 24 52 65 73 3e 2e 4b  |=."<Z80Em$Res>.K|
000000e0  65 79 73 22 0d 00 82 2c  e7 20 51 3d 30 20 8c 20  |eys"...,. Q=0 . |
000000f0  85 20 30 2c 22 3c 5a 38  30 45 6d 24 52 65 73 3e  |. 0,"<Z80Em$Res>|
00000100  2e 4b 65 79 73 20 6e 6f  74 20 66 6f 75 6e 64 22  |.Keys not found"|
00000110  0d 00 8c 05 f5 0d 00 96  0f 53 24 3d a4 67 65 74  |.........S$=.get|
00000120  77 6f 72 64 0d 00 aa 12  e7 20 c0 53 24 2c 31 29  |word..... .S$,1)|
00000130  3d 22 23 22 20 8c 0d 00  b4 11 20 20 f2 69 67 6e  |="#" .....  .ign|
00000140  6f 72 65 6c 69 6e 65 0d  00 be 05 cc 0d 00 c8 10  |oreline.........|
00000150  20 20 e7 20 53 24 3c 3e  22 22 20 8c 0d 00 d2 17  |  . S$<>"" .....|
00000160  20 20 20 20 53 25 3d a4  67 65 74 73 70 65 63 28  |    S%=.getspec(|
00000170  53 24 29 0d 00 dc 09 20  20 20 20 f5 0d 00 e6 13  |S$)....    .....|
00000180  20 20 20 20 41 24 3d a4  67 65 74 77 6f 72 64 0d  |    A$=.getword.|
00000190  00 fa 12 20 20 20 20 e7  20 41 24 3c 3e 22 22 20  |...    . A$<>"" |
000001a0  8c 0d 01 04 18 20 20 20  20 20 20 4b 25 3d a4 67  |.....      K%=.g|
000001b0  65 74 61 72 63 28 41 24  29 0d 01 0e 13 20 20 20  |etarc(A$)....   |
000001c0  20 20 20 49 25 3d 53 25  20 81 20 35 0d 01 18 13  |   I%=S% . 5....|
000001d0  20 20 20 20 20 20 4a 25  3d 53 25 20 83 20 35 0d  |      J%=S% . 5.|
000001e0  01 22 43 20 20 20 20 20  20 6b 65 79 6d 61 70 21  |."C      keymap!|
000001f0  28 4b 25 2a 34 29 3d 28  6b 65 79 6d 61 70 21 28  |(K%*4)=(keymap!(|
00000200  4b 25 2a 34 29 20 3c 3c  20 38 29 20 2b 20 28 49  |K%*4) << 8) + (I|
00000210  25 29 20 2b 20 28 31 20  3c 3c 20 28 4a 25 2b 33  |%) + (1 << (J%+3|
00000220  29 29 0d 01 2c 09 20 20  20 20 cd 0d 01 36 0e 20  |))..,.    ...6. |
00000230  20 20 20 fd 41 24 3d 22  22 0d 01 40 07 20 20 cd  |   .A$=""..@.  .|
00000240  0d 01 4a 05 cd 0d 01 54  11 fd 20 53 24 3d 22 22  |..J....T.. S$=""|
00000250  20 84 20 c5 23 51 0d 01  5e 04 0d 01 5f 07 d9 23  | . .#Q..^..._..#|
00000260  51 0d 01 90 04 0d 01 9a  05 e0 0d 01 a4 04 0d 01  |Q...............|
00000270  ae 0d dd a4 67 65 74 77  6f 72 64 0d 01 b8 0b ea  |....getword.....|
00000280  20 49 25 2c 41 24 0d 01  c2 1e f5 20 49 25 3d 9a  | I%,A$..... I%=.|
00000290  23 51 20 3a 20 fd 20 49  25 3e 33 32 20 84 20 49  |#Q : . I%>32 . I|
000002a0  25 3d 31 30 0d 01 cc 11  e7 20 49 25 3d 31 30 20  |%=10..... I%=10 |
000002b0  8c 20 3d 22 22 0d 01 d6  0a 41 24 3d bd 49 25 0d  |. =""....A$=.I%.|
000002c0  01 e0 22 f5 20 49 25 3d  9a 23 51 20 3a 20 41 24  |..". I%=.#Q : A$|
000002d0  3d 41 24 2b bd 49 25 20  3a 20 fd 20 49 25 3c 33  |=A$+.I% : . I%<3|
000002e0  33 0d 01 ea 0d cf 23 51  3d 8f 23 51 2d 31 0d 01  |3.....#Q=.#Q-1..|
000002f0  f4 0f 3d c0 41 24 2c a9  41 24 2d 31 29 0d 01 fe  |..=.A$,.A$-1)...|
00000300  04 0d 02 08 10 dd f2 69  67 6e 6f 72 65 6c 69 6e  |.......ignorelin|
00000310  65 0d 02 12 07 ea 49 25  0d 02 1c 15 f5 20 49 25  |e.....I%..... I%|
00000320  3d 9a 23 51 20 3a 20 fd  49 25 3d 26 41 0d 02 26  |=.#Q : .I%=&A..&|
00000330  05 e1 0d 02 30 04 0d 02  3a 11 dd a4 67 65 74 73  |....0...:...gets|
00000340  70 65 63 28 41 24 29 0d  02 44 0a ea 49 25 2c 4a  |pec(A$)..D..I%,J|
00000350  25 0d 02 4e 0f e3 20 49  25 3d 30 20 b8 20 33 39  |%..N.. I%=0 . 39|
00000360  0d 02 58 23 e7 20 73 70  65 63 6b 65 79 24 28 49  |..X#. speckey$(I|
00000370  25 29 3d 41 24 20 8c 20  4a 25 3d 49 25 3a 49 25  |%)=A$ . J%=I%:I%|
00000380  3d 34 31 0d 02 62 05 ed  0d 02 6c 07 3d 4a 25 0d  |=41..b....l.=J%.|
00000390  02 76 04 0d 02 80 10 dd  a4 67 65 74 61 72 63 28  |.v.......getarc(|
000003a0  41 24 29 0d 02 8a 0a ea  49 25 2c 4a 25 0d 02 94  |A$).....I%,J%...|
000003b0  12 e3 20 49 25 3d 26 31  30 20 b8 20 26 36 37 0d  |.. I%=&10 . &67.|
000003c0  02 9e 22 e7 20 69 6e 6b  65 79 24 28 49 25 29 3d  |..". inkey$(I%)=|
000003d0  41 24 20 8c 20 4a 25 3d  49 25 3a 49 25 3d 26 36  |A$ . J%=I%:I%=&6|
000003e0  38 0d 02 a8 05 ed 0d 02  b2 07 3d 4a 25 0d 05 00  |8.........=J%...|
000003f0  04 0d 05 0a 96 dc 20 43  61 70 73 53 68 69 66 74  |...... CapsShift|
00000400  2c 20 5a 2c 20 58 2c 20  43 2c 20 56 2c 20 41 2c  |, Z, X, C, V, A,|
00000410  20 53 2c 20 44 2c 20 46  2c 20 47 2c 20 51 2c 20  | S, D, F, G, Q, |
00000420  57 2c 20 45 2c 20 52 2c  20 54 2c 20 31 2c 20 32  |W, E, R, T, 1, 2|
00000430  2c 20 33 2c 20 34 2c 20  35 2c 20 30 2c 20 39 2c  |, 3, 4, 5, 0, 9,|
00000440  20 38 2c 20 37 2c 20 36  2c 20 50 2c 20 4f 2c 20  | 8, 7, 6, P, O, |
00000450  49 2c 20 55 2c 20 59 2c  20 45 6e 74 65 72 2c 20  |I, U, Y, Enter, |
00000460  4c 2c 20 4b 2c 20 4a 2c  20 48 2c 20 53 70 61 63  |L, K, J, H, Spac|
00000470  65 2c 20 53 79 6d 62 6f  6c 53 68 69 66 74 2c 20  |e, SymbolShift, |
00000480  4d 2c 20 4e 2c 20 42 0d  05 14 04 0d 05 1e b7 dc  |M, N, B.........|
00000490  20 60 2c 31 2c 32 2c 33  2c 34 2c 35 2c 36 2c 37  | `,1,2,3,4,5,6,7|
000004a0  2c 38 2c 39 2c 30 2c 2d  2c 3d 2c a3 2c 3c 2d 7c  |,8,9,0,-,=,.,<-||
000004b0  2c 49 6e 73 65 72 74 2c  48 6f 6d 65 2c 50 61 67  |,Insert,Home,Pag|
000004c0  65 55 70 2c 4e 75 6d 4c  6f 63 6b 2c 4b 2f 2c 4b  |eUp,NumLock,K/,K|
000004d0  2a 2c 4b 23 2c 54 61 62  2c 51 2c 57 2c 45 2c 52  |*,K#,Tab,Q,W,E,R|
000004e0  2c 54 2c 59 2c 55 2c 49  2c 4f 2c 50 2c 5b 2c 5d  |,T,Y,U,I,O,P,[,]|
000004f0  2c 5c 2c 44 65 6c 65 74  65 2c 43 6f 70 79 2c 50  |,\,Delete,Copy,P|
00000500  61 67 65 44 6f 77 6e 2c  4b 37 2c 4b 38 2c 4b 39  |ageDown,K7,K8,K9|
00000510  2c 4b 2d 2c 4c 43 74 72  6c 2c 41 2c 53 2c 44 2c  |,K-,LCtrl,A,S,D,|
00000520  46 2c 47 2c 48 2c 4a 2c  4b 2c 4c 2c 3b 2c 27 2c  |F,G,H,J,K,L,;,',|
00000530  52 65 74 75 72 6e 2c 4b  34 2c 4b 35 2c 4b 36 2c  |Return,K4,K5,K6,|
00000540  4b 2b 0d 05 1f 71 dc 20  4c 53 68 69 66 74 2c 2c  |K+...q. LShift,,|
00000550  5a 2c 58 2c 43 2c 56 2c  42 2c 4e 2c 4d 2c 22 2c  |Z,X,C,V,B,N,M,",|
00000560  22 2c 2e 2c 2f 2c 52 53  68 69 66 74 2c 55 70 2c  |",.,/,RShift,Up,|
00000570  4b 31 2c 4b 32 2c 4b 33  2c 43 61 70 73 4c 6f 63  |K1,K2,K3,CapsLoc|
00000580  6b 2c 4c 41 6c 74 2c 53  70 61 63 65 2c 52 41 6c  |k,LAlt,Space,RAl|
00000590  74 2c 52 43 74 72 6c 2c  4c 65 66 74 2c 44 6f 77  |t,RCtrl,Left,Dow|
000005a0  6e 2c 52 69 67 68 74 2c  4b 30 2c 4b 2e 2c 45 6e  |n,Right,K0,K.,En|
000005b0  74 65 72 0d ff                                    |ter..|
000005b5