This repository has been archived by the owner on Oct 8, 2019. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathkeyboard.fs
101 lines (91 loc) · 2.24 KB
/
keyboard.fs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
\ read the keyboard line status
asm: keyboard-status@
; ( line -- status )
di
in a,(0aah)
and 0f0h
add a,c
out (0aah),a
ei
in a,(0a9h)
ld b,0
ld c,a
ei
;asm
\ return 1 if the key is pressed
: is-key-pressed ( key-bit key-line -- status )
keyboard-status@
swap and
if 0 else 1 then ;
: KEY-7 0b10000000 0 ;
: KEY-6 0b01000000 0 ;
: KEY-5 0b00100000 0 ;
: KEY-4 0b00010000 0 ;
: KEY-3 0b00001000 0 ;
: KEY-2 0b00000100 0 ;
: KEY-1 0b00000010 0 ;
: KEY-0 0b00000001 0 ;
: KEY-; 0b10000000 1 ;
: KEY-] 0b01000000 1 ;
: KEY-[ 0b00100000 1 ;
: KEY-\ 0b00010000 1 ;
: KEY-= 0b00001000 1 ;
: KEY-- 0b00000100 1 ;
: KEY-9 0b00000010 1 ;
: KEY-8 0b00000001 1 ;
: KEY-B 0b10000000 2 ;
: KEY-A 0b01000000 2 ;
: KEY-??? 0b00100000 2 ;
: KEY-/ 0b00010000 2 ;
: KEY-. 0b00001000 2 ;
: KEY-, 0b00000100 2 ;
: KEY-' 0b00000010 2 ;
: KEY-` 0b00000001 2 ;
: KEY-J 0b10000000 3 ;
: KEY-I 0b01000000 3 ;
: KEY-H 0b00100000 3 ;
: KEY-G 0b00010000 3 ;
: KEY-F 0b00001000 3 ;
: KEY-E 0b00000100 3 ;
: KEY-D 0b00000010 3 ;
: KEY-C 0b00000001 3 ;
: KEY-R 0b10000000 4 ;
: KEY-Q 0b01000000 4 ;
: KEY-P 0b00100000 4 ;
: KEY-O 0b00010000 4 ;
: KEY-N 0b00001000 4 ;
: KEY-M 0b00000100 4 ;
: KEY-L 0b00000010 4 ;
: KEY-K 0b00000001 4 ;
: KEY-Z 0b10000000 5 ;
: KEY-Y 0b01000000 5 ;
: KEY-X 0b00100000 5 ;
: KEY-W 0b00010000 5 ;
: KEY-V 0b00001000 5 ;
: KEY-U 0b00000100 5 ;
: KEY-T 0b00000010 5 ;
: KEY-S 0b00000001 5 ;
: KEY-Z 0b10000000 6 ;
: KEY-Y 0b01000000 6 ;
: KEY-X 0b00100000 6 ;
: KEY-W 0b00010000 6 ;
: KEY-V 0b00001000 6 ;
: KEY-U 0b00000100 6 ;
: KEY-T 0b00000010 6 ;
: KEY-S 0b00000001 6 ;
: KEY-F3 0b10000000 7 ;
: KEY-F2 0b01000000 7 ;
: KEY-F1 0b00100000 7 ;
: KEY-CODE 0b00010000 7 ;
: KEY-CAP 0b00001000 7 ;
: KEY-GRAPH 0b00000100 7 ;
: KEY-CTRL 0b00000010 7 ;
: KEY-SHIFT 0b00000001 7 ;
: KEY-RIGHT 0b10000000 8 ;
: KEY-DOWN 0b01000000 8 ;
: KEY-UP 0b00100000 8 ;
: KEY-LEFT 0b00010000 8 ;
: KEY-DEL 0b00001000 8 ;
: KEY-INS 0b00000100 8 ;
: KEY-HOME 0b00000010 8 ;
: KEY-SPACE 0b00000001 8 ;