← Back to branch summary

~chickendude/z80monopoly/trunk

« back to all changes in this revision

Viewing changes to directin.inc

  • Committer: chickendude
  • Date: 2012-01-14 18:18:25 UTC
  • Revision ID: chickendude-20120114181825-0hl3b1fgrgb4zd62
Uploading current source

Show diffs side-by-side

added added

removed removed

Lines of Context:
directin.inc
 
1
;#########################################################
 
2
; Direct Input equates for the TI-82/TI-83/TI-83+/TI-85/TI-86
 
3
; By James Vernon - Ti-Calculator Programming Alliance
 
4
; james@calc.org <> http://tcpa.calc.org <> ICQ#: 71589304
 
5
; Created on 11-02-2001 DDMMYYYY
 
6
;
 
7
; USAGE (TI-82/83/83+):
 
8
;  #include "directin.inc"
 
9
;
 
10
; USAGE (TI-85/86):
 
11
;  #define DIRECTIN_8586
 
12
;  #include "directin.inc"
 
13
;#########################################################
 
14
 
 
15
;****************************
 
16
; GROUP CODES
 
17
; Example:
 
18
;       ld      a,$FF
 
19
;       out     (1),a           ; Clear keyport
 
20
;       ld      a,KG_ARROW
 
21
;       out     (1),a           ; Open arrow pad for reading
 
22
;****************************
 
23
KG_1            = $DF
 
24
KG_2            = $EF
 
25
KG_3            = $F7
 
26
KG_4            = $FB
 
27
KG_5            = $FD
 
28
KG_ARROW        = $FE
 
29
KG_TOP          = $BF
 
30
 
 
31
;****************************
 
32
; KEY BIT CODES
 
33
; Example:
 
34
;       ld      a,$FF
 
35
;       out     (1),a           ; Clear keyport
 
36
;       ld      a,KG_TOP
 
37
;       out     (1),a           ; Open top row for reading
 
38
;       in      a,(1)           ; Get keypresses from top row
 
39
;       bit     DI_MODE,a       ; Is [MODE] being pressed?
 
40
;       jr      z,modePressed
 
41
;****************************
 
42
#ifdef DIRECTIN_8586
 
43
DI_F1           = 4
 
44
DI_F2           = 3
 
45
DI_F3           = 2
 
46
DI_F4           = 1
 
47
DI_F5           = 0
 
48
DI_2ND          = 5
 
49
DI_EXIT         = 6
 
50
DI_MORE         = 7
 
51
#else
 
52
DI_Y            = 4
 
53
DI_WINDOW       = 3
 
54
DI_ZOOM         = 2
 
55
DI_TRACE        = 1
 
56
DI_GRAPH        = 0
 
57
DI_2ND          = 5
 
58
DI_MODE         = 6
 
59
DI_DEL          = 7
 
60
#endif
 
61
 
 
62
DI_UP           = 3
 
63
DI_DOWN         = 0
 
64
DI_LEFT         = 1
 
65
DI_RIGHT        = 2
 
66
DI_ALPHA        = 7
 
67
 
 
68
#ifdef DIRECTIN_8586
 
69
DI_XVAR         = 7
 
70
DI_DEL          = 7
 
71
DI_GRAPH        = 6
 
72
DI_TABLE        = 6
 
73
DI_PRGM         = 6
 
74
DI_CUSTOM       = 6
 
75
#else
 
76
DI_XTON         = 7
 
77
DI_STAT         = 7
 
78
DI_MATH         = 6
 
79
DI_MATRX        = 6
 
80
DI_PRGM         = 6
 
81
DI_VARS         = 6
 
82
#endif
 
83
 
 
84
DI_CLEAR        = 6
 
85
 
 
86
#ifdef DIRECTIN_8586
 
87
DI_LOG          = 5
 
88
#else
 
89
DI_X1           = 5     ; X^-1
 
90
#endif
 
91
 
 
92
DI_SIN          = 5
 
93
DI_COS          = 5
 
94
DI_TAN          = 5
 
95
DI_POWER        = 5     ; ^
 
96
 
 
97
#ifdef DIRECTIN_8586
 
98
DI_LN           = 4
 
99
DI_EE           = 4
 
100
#else
 
101
DI_X2           = 4     ; X^2
 
102
DI_COMMA        = 4     ; ,
 
103
#endif
 
104
 
 
105
DI_LPAR         = 4     ; (
 
106
DI_RPAR         = 4     ; )
 
107
DI_DIV          = 4     ; /
 
108
 
 
109
#ifdef DIRECTIN_8586
 
110
DI_X2           = 3     ; X^2
 
111
#else
 
112
DI_LOG          = 3
 
113
#endif
 
114
 
 
115
DI_7            = 3
 
116
DI_8            = 3
 
117
DI_9            = 3
 
118
DI_MUL          = 3     ; *
 
119
 
 
120
#ifdef DIRECTIN_8586
 
121
DI_COMMA        = 2     ; ,
 
122
#else
 
123
DI_LN           = 2
 
124
#endif
 
125
 
 
126
DI_4            = 2
 
127
DI_5            = 2
 
128
DI_6            = 2
 
129
DI_MINUS        = 2     ; -
 
130
DI_STO          = 1     ; STO->
 
131
DI_1            = 1
 
132
DI_2            = 1
 
133
DI_3            = 1
 
134
DI_PLUS         = 1     ; +
 
135
DI_0            = 0
 
136
DI_DEC          = 0     ; .
 
137
DI_NEG          = 0     ; (-)
 
138
DI_ENTER        = 0
 
139
 
 
140
.end