added dio interface, standard mouse and joystick functions, osmaperrno

git-svn-id: svn://svn.cc65.org/cc65/trunk@773 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/geos/mousesprite/mouse.s

@@ -0,0 +1,160 @@
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 2.7.2001
+;
+; Wrapper for GEOS standard input device interface
+;
+
+   	.export	    	_mouse_init, _mouse_done
+   	.export	    	_mouse_hide, _mouse_show
+   	.export	    	_mouse_box, _mouse_info
+   	.export		_mouse_x, _mouse_y
+   	.export	    	_mouse_move, _mouse_buttons
+						   
+       	.import	       	popax, popsreg, addysp1
+   	.importzp   	sp, sreg
+
+	.include "../inc/const.inc"
+	.include "../inc/jumptab.inc"
+	.include "../inc/geossym.inc"
+
+;	.macpack	generic
+
+.code
+
+; --------------------------------------------------------------------------
+;
+; unsigned char __fastcall__ mouse_init (unsigned char port,
+;					 unsigned char sprite,
+;					 unsigned char type);
+;
+
+_mouse_init:
+	jsr	popax			; ignore all parameters
+
+	jsr	StartMouseMode
+	jsr	MouseOff
+
+	lda	#0
+	sta	mouseTop
+	sta	mouseLeft
+	sta	mouseLeft+1
+	lda	#199
+	sta	mouseBottom
+	lda	#<319
+	sta	mouseRight
+	lda	#>319
+	sta	mouseRight+1
+
+	lda 	#0
+; --------------------------------------------------------------------------
+;
+; void mouse_done (void);
+;
+_mouse_done:
+	rts
+
+; --------------------------------------------------------------------------
+;
+; void mouse_hide (void);
+;
+
+_mouse_hide = MouseOff
+
+; --------------------------------------------------------------------------
+;
+; void mouse_show (void);
+;
+
+_mouse_show = MouseUp
+
+; --------------------------------------------------------------------------
+;
+; void __fastcall__ mouse_box (int minx, int miny, int maxx, int maxy);
+;
+
+_mouse_box:
+   	ldy 	#0			; Stack offset
+
+   	sta 	mouseBottom
+;   	stx 	YMax+1			; maxy
+
+   	lda 	(sp),y
+   	sta 	mouseRight
+   	iny
+   	lda 	(sp),y
+   	sta 	mouseRight+1		; maxx
+
+   	iny
+   	lda	(sp),y
+   	sta	mouseTop
+   	iny
+;   	lda	(sp),y
+;  	sta	YMin+1			; miny
+
+   	iny
+   	lda	(sp),y
+   	sta	mouseLeft
+   	iny
+   	lda	(sp),y
+   	sta	mouseLeft+1		; minx
+
+   	jmp	addysp1			; Drop params, return
+
+; --------------------------------------------------------------------------
+;
+; int __fastcall__ mouse_x (void);
+;
+
+_mouse_x:
+	lda	mouseXPos
+	ldx	mouseXPos+1
+      	rts
+
+; --------------------------------------------------------------------------
+;
+; int __fastcall__ mouse_y (void);
+;
+
+_mouse_y:
+	lda	mouseYPos
+	ldx	#0
+      	rts
+
+; --------------------------------------------------------------------------
+;
+; void mouse_info (...);
+;
+
+_mouse_info:
+      	rts
+
+
+; --------------------------------------------------------------------------
+;
+; void __fastcall__ mouse_move (int x, int y);
+;
+
+_mouse_move:
+	jsr	popsreg			; Get X
+	sei				; Disable interrupts
+
+	sta	mouseYPos
+;	stx	YPos+1
+	lda	sreg
+	ldx	sreg+1
+   	sta	mouseXPos
+	stx	mouseXPos+1
+	rts
+
+; --------------------------------------------------------------------------
+;
+; unsigned char mouse_buttons (void);
+;
+
+_mouse_buttons:
+	lda	pressFlag
+	and	#SET_MOUSE
+	lsr
+	rts