1;
2;	Game device library for the SMC-777
3;
4
5	SECTION code_clib
6        PUBLIC    joystick
7	PUBLIC	_joystick
8	EXTERN	get_psg
9
10
11.joystick
12._joystick
13	;__FASTCALL__ : joystick no. in HL
14	ld	bc,$0151
15	dec	l
16	jr	z,got_port
17	ld	bc,$0051
18	dec	l
19	jr	z,got_port
20	ld	hl,0
21	ret
22
23got_port:
24	in	a,(c)
25	ld	hl,0
26	cpl
27	rra		;UP
28	rl	l
29	rra		;DOWN
30	rl	l
31	rra		;LEFT
32	rl	l
33	rra		;RIGHT
34	rl	l
35	rra		;FIRE1
36	ret	nc
37	set	4,l
38	ret
39
40