aboutsummaryrefslogtreecommitdiff
path: root/src/ubox/ubox_read_ctl.z80
blob: 91963c0c27ff17511f0ee4c3b2e6550ff7895e11 (plain)
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
.globl _ubox_read_ctl

RDPSG = 0x0096
WRTPSG = 0x0093
SNSMAT = 0x0141

_ubox_read_ctl::
	ld a, l
	or a
	jr z, is_keyb
	dec a
	jr z, is_joy1
	dec a
	jr z, is_joy2

	ld l, #0
	ret

is_joy2:
	; select
	ld e, #0xcf
	jr call_psg

is_joy1:
	; select
	ld e, #0x8f

call_psg:
	ld a, #0x0f
	call WRTPSG

	ld a, #0x0e

	di
	call RDPSG
	ei
	cpl
        and #0x3f
        ld e, a

	; button 2 (M)
	ld a, #4
	call SNSMAT
	rra
	rra
	rra
	ld a, #0x20
	jr nc, joy_extra_m
        xor a
joy_extra_m:
        or e
	ld l, a
	ret

is_keyb:
	; button 2 (M)
	ld a, #4
	call SNSMAT
	rra
	rra
	rra
	ld e, #0x20
	jr nc, is_keyb_dir

	ld e, #0

is_keyb_dir:
	; direction
	ld a, #8
	call SNSMAT
	cpl
	rrca
	rrca
	ld c, a

	and #4
	ld b, a
	; b has left

	ld a, c
	rrca
	rrca
	ld c, a

	and #0x18
	or b
	ld b, a
	; added space and right

	ld a, c
	rrca
	and #3
	or b
	; added down and up

	or e
	; added 2nd fire (M)

	ld l, a
	ret