|
1908
|
1 ****************************************************************************
|
|
|
2 *
|
|
|
3 * instrument.a - acquires all needed data values from various instruments
|
|
|
4 *
|
|
|
5 *
|
|
|
6
|
|
|
7 psect instrument_a,0,0,3,0,0
|
|
|
8
|
|
1909
|
9 vsect
|
|
|
10 speed rmb 2
|
|
|
11 mileage rmb 4
|
|
|
12 engtemp rmb 2
|
|
|
13 fuelamt rmb 2
|
|
|
14 endsect
|
|
|
15
|
|
|
16 * initialize hardware
|
|
|
17 *
|
|
|
18 * Entry: None
|
|
|
19 *
|
|
|
20 * Exit: D = speed value in miles per hour
|
|
|
21 insinit:
|
|
|
22 ldd #55
|
|
|
23 std speed,u
|
|
|
24
|
|
|
25 ldd #(171556/65536)
|
|
|
26 std mileage,u
|
|
|
27 ldd #40439
|
|
|
28 std mileage+2,u
|
|
|
29
|
|
|
30 ldd #200
|
|
|
31 std engtemp,u
|
|
|
32
|
|
|
33 ldd #9
|
|
|
34 std fuelamt,u
|
|
|
35
|
|
|
36 rts
|
|
1908
|
37
|
|
|
38 * Get the current speed
|
|
|
39 *
|
|
|
40 * Entry: None
|
|
|
41 *
|
|
|
42 * Exit: D = speed value in miles per hour
|
|
|
43 getspeed:
|
|
1909
|
44 ldd speed,u 55 mph
|
|
1908
|
45 rts
|
|
|
46
|
|
1909
|
47 speedplus:
|
|
|
48 ldd speed,u
|
|
|
49 addd #$0001
|
|
|
50 std speed,u
|
|
|
51 rts
|
|
1908
|
52
|
|
|
53 * Get the odometer value
|
|
|
54 *
|
|
|
55 * Entry: None
|
|
|
56 *
|
|
|
57 * Exit: D = bits 23-16 of odometer
|
|
|
58 * X = bits 15-0 of odometer
|
|
|
59 getmileage:
|
|
1909
|
60 ldd mileage,u
|
|
|
61 ldx mileage+2,u
|
|
1908
|
62 rts
|
|
|
63
|
|
|
64
|
|
|
65 * Get the current engine temperature
|
|
|
66 *
|
|
|
67 * Entry: None
|
|
|
68 *
|
|
|
69 * Exit: D = engine temperature value in Farenheit
|
|
|
70 getengtemp:
|
|
1909
|
71 ldd engtemp,u
|
|
1908
|
72 rts
|
|
|
73
|
|
|
74
|
|
|
75 * Get the current fuel amount
|
|
|
76 *
|
|
|
77 * Entry: None
|
|
|
78 *
|
|
|
79 * Exit: D = fuel amount in 16ths
|
|
|
80 getfuel:
|
|
1909
|
81 ldd fuelamt,u
|
|
1908
|
82 rts
|
|
|
83
|
|
|
84
|
|
|
85 endsect
|
