From 87bb6efe1f133ff595e62ab6fdfaceab0a0d9542 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9my=20GIBERT?= <burniouf@users.noreply.github.com>
Date: Tue, 17 Mar 2015 23:05:33 +0100
Subject: [PATCH] Start Implementing Mouse Support

---
 A2OSX.BUILD.HDV     | Bin 864256 -> 864256 bytes
 A2osX.STARTUP.txt   |   1 +
 DRV/MOUSE.DRV.S.txt | 151 ++++++++++++++++++++++++++++++++++++++++++++
 INC/A2osX.I.txt     |   2 +-
 4 files changed, 153 insertions(+), 1 deletion(-)
 create mode 100644 DRV/MOUSE.DRV.S.txt

diff --git a/A2OSX.BUILD.HDV b/A2OSX.BUILD.HDV
index a4141b1537b4c6d01ead218e99c38770497194e1..ce9b7e05720dd69cec7a51311e2db7c1b53d3939 100644
GIT binary patch
delta 2924
zcmZuzTTmP46+Qw9FCZ)-#N8!pg9+DV#Z}meU68~jL6=AZUz(-}X)($yD<LhmNRx=)
zwuBpuoj?XfGkI{_iD!7|6q}jQcASa*(5c&}^d-|ibefq?J?)Gi98cSav}Jnsf-Jj1
z!|wk7`Tp;G=RfB^yUSnqE`Qy-eP63xXeg-O__g+<!i9#qjcHvIP8_e?xS~5@Jgb37
zLp{|9e*su%D5=`{N_VYD3jl_l1^xAkjb(lDMfx*ZbJVNR?>5IYs~Ts!(>>{PFm~@0
z<3k{Pd!+CHoGQWP{gueG6_&jH5^8fW2?S7dv`_;-mAuF>pk>&~UR;C!1-pCkLYEPB
z)m3IZmkYm;pH?bTg}W6gZRa12_Cu(XmUP}dC5hklyrKJ*xxC>4_!zrmiWy;KcPqQK
zaou0_pDpWNT{BF$hwOAtMcKwTp<A~O7WHn5n)dRlV#qT75rR>4$&k!RQDe<SUn-=M
z)d%6MXEfrBEXKK2#_<|C>p>XQ8gSY_AN7ba%hT!hZlH|NcCWb;j+TSZ;g{L2O3Ruo
z-Dw{u#>u?Igx3&9fHfh=JLQmJ?<ugJl#h#@4+l9JnnY|^5V=@vF)9*huK=%O$S&h$
zw@sGbw3iEn_Iaa`cvuWa1OhfQ*d`o9-hA%9l#S;CvHt^$5yFy|*+`6pI9?3M>RJh$
ztc0Y;?aL3MAJyf8$T`FH0fJ%0Iz!xSSl~hgO$7R?P{NSYlP_T)pI|1kD4_JPfXgq0
zg;3-I>aK<{w^P}YRi;edI&121V^j07<CwK?H_MBPHcG<(+E`|_$viQrVKEv-2|PC|
zl3*kza4`~@B|$zgAC=e%Ox3`+Yg|c+x_g5uFBg9rkqnL#<ibD#i@ZqA2lz!U-jRpN
zi#kcz4i=bNI4#FH;Z{=3_6}H6JO(qfByy4l=~<>`2z1q{=&|vA^vJX5x$wEUr|^0>
z^DKEElFN{prB}a${*a2#(f5s5FROS3p2rW=_mpz2YsmcPqNX<a0<>W|qKhIq24yr3
zPLr33&1r{&hoLRal4Hc}ak#*A1V`OC8g=*`Qx2CO${KN|SF%s~!O#S4m-=yFn{fLa
zKpj<_lr<xvZNh%N$!>*;7jf{4(?eR?Iufndng(oOXh}lbM~yh?9~z!;fT0zKUAZCE
zrqCGM!RBLp{vogbYLE|sp#!pSVvbuF3o?PB6BtW|u@5Oy%Nab}ILIm0cPSH+(1Wb<
ztmr&s$&}yJ)D_frXQuyLP^rHRRFC4asy7q4tEqgw53+nHKpLBD7BKfiHjalS*9Y1y
zpc{ZJ)LSJ1d?-O0u^aiuN0|vuI490^TA=P2Fx_ZcBC5qbJBy{&k$|e>8Mdy#oUDEc
zvOx?+wNFXqhvw3kAv?n@5T*xoC(uXNNyvtUV7~K9LWIl*#Nb>95o1e4;1VK<^AYi$
zmI3qk72)|>%Z3zB7>pJ4!^kgiB*|E?%h*(BgM%qoL?k29F_llLuq0D<5H5jjMmPsL
zJBlfB0MnBRaVT>HS4Mflbc1>9J6w+c;cYE#qy_q2dYJ}ThtQp^`>CCq+PmxY?K^+U
z(8<Ro4|hJ@`R#)*A3Z+tJLBI!-Dx$96|-wM=(*y1YoE|1__ubGz6m!9KL42h;K`$p
z>Bq*uJ^1p;mga_uzDVDw#mkmw{YlOA)+6imoxRjQ9`51wpAYx8z&c%nzp>Ev&px43
zw{LH!w&(b5&>bk%|Jz!lp}*2P-362E&cc;x&E|x@sI-Y40qPaVM&|;V|NcfpCn+Zm
z_yCl-ARCFvb-;qjt<-^(u?e@|CIIDuY#`19^_qJ3s&}7qH~F7gA+VsE#BD5{l6DNM
zh6VE}>2ZlPDlatGkkbLW)3pdPp8;k7D<~jUh%}GIQFAuq`Mst(`2$R7G_h}h(%02A
zT7mkZR4xgi-jMD~Q2HY!-OK>!rjeBnD9LKHq#QzEhUYqnC&KfXVfkGErkQ;`>N^dL
zK|FNv7#VfT-5qoxNM@myQ*pUIdr9uEV4Qspeh$5w=J0&W=ZQ_>DIlkzDlE@n;I`b0
zgFyM4IGgXx#P2V($P3Rv)jYHvMy}^q3eT*(<tl1U;!Z};`HN9ttnx;xo2-5{wC{gI
zD1EJJLCIB1)Xtr^MetRe5L<zY;a2lOpyH5?iE+@0$XLG!%;4ar91teQIqGE`Ua!kN
zb_%HT$ifAo_yU-v1q7&s+IW`$JJZHD@0gRNZ>dROf%>t6r`}fhsdp4~>AQe!Yg2Ze
zR87l@sSID8Qn$S>8!xKHON!BO8Pr6rV=;p%B?a{sb`SN-225#8pITLF6`NO-$a5g<
zZ&g<mi7mOw){Z4G{p2|$Q12-R#k{Jv=BId|t}2>J)}%J>aM^*r2Do2IsZ%QbaD^H3
z5w?#VV24@T$S}NcT>?mUxgTDU%sp0%m9=!U_I_aB-#06bc18M<%3si_4it8%|3Jb^
zhiCnS$LIHsyGF?oXQz9TJpvW$GM9XiSD9fSu|UPf{*=I~Q`CpM_eZIpYto6LbmBld
TL8TML=|o97QF<$(|Hc0R-Q1g%

delta 3807
zcmZXXd3Y4%9mn5fvk6BUBZ&bb4Oa-rG3-qC-pwX6^S-k??Ci`iGkb)3a3l&?xux;3
z?PeoJTRd78Sy!nRwRlvNmZzrLTF_ci3a!XvTl!BC`#e1!tyZZ=mDu0A2aJ_Jcz)l{
z@B3cA_n6J_8TarR_rVwH@|QU4^GECUI5u^(<X1X7>o#^=(U!m68EKB!pp6}uPne6|
zLTE!rYtx}WIPa>j`!+(ohc-9f-I5<}oH#P;nOQaSjG9SfU0Z5)*5uzG(Dsiv)Q)bi
z8Qos{%yx&;RJWmHT3bQi;W%81Zfm*KG1hWx-ICMI!VKts7VZ95X*%YZezo(t*0D*&
zhKDDOJ^d}`^4hWStTS<EA>J_YXZxG#-C3j<hL%Vhd_qv;?6L0e9ziHZ5tXOAcY*{5
zf5EYB=KBtWqPmtQMpA#<i++ueENY71CCNtON;f(KS%EiYQNc?E#|4#6{KEaG4-mq!
zsKKpwpM_9_F#BfY9E3!OM^!vec<)1mq!@Ik83<i^4iYh4Gu3<D>2j=SmdlMkhHi8S
zXM3kZNMeetlJ`9eXq=*PBga83iHc#0#!{E})3UHMeV;c9nP^lnMP3mRx+Y7dN-`FV
zx!N^Ao0)`)h<7sx3>~O%g!xZ^>xOFanN!|aSqO?6XFSV55Zw?I?v(G3{{@#pqS(|Q
z@^!$VkRUuh(Yq94EUU6L-kYa$ff1~XwUz7p6lD<s6*YKQypl<)xWly(L=+Nw+7Pev
zy+9Szl+O8C&uLIZAd12Uguhl}4xw|@#p4vOisY#KJSZt8V=ZZ|>uLTBAwe(^YNtU`
zKku0X0Zv(bRzRo|Vgj+iBXlk0#1z>9PJocskZAfN?hNHIEkTZYS3@X>#`q%Y6%=VC
zw23;QQktS1aP0*_M1^R|PTyk?<1{Z@jcnt2zy^+!esAyPG=@l4Ls`}XLNc%z<Bhm?
zH5DRVfl}+gj*2L;6m`V`?|Ry%BzAi@UP!PA?JPAhV4du9-n*y^CX%!)&!1@mwx-`A
z-oCeJLN{V0^O5%*h_MKs#oqU_r3Mfy2l&O~z!O@Eobq@flv2cyrT#A8)s!o;X(6-*
zLPA6C_U>WofjyGdRFc~Pf^L|q8HpX9d?f|-N9Z6GnbMU|-G`{4TdAqh#V?N2{kIHW
zB>!e#f($k-q9b$yLXtLQi$p!|QB04~8Sj$MOKTv8aljLV7}G=Wvac6HN!AQv8q<51
zm4(Tt$lKi+Dhy&J4RvaFKNXsS4b%F_HwZ#ZXsRRYTL&SmT3zu;_)%(s8mq~~Q;|M|
zP&}c?OoGqoycLW3tAtk+O_Yu0Px|4&pagg@sj?3{;Xt7nFy7*oxI-8O83nmKDO=C`
zhe0Wz=z;|3C7yl9mjgySDJ{4JLxB-s%YeaTEIC2C{YL=E07PhMk)gl~6$6}A%h38?
z4ZK(}7)0e0<hB4jOGt$VuqTqN5LuP9djl_3Aaq-SS#3$+H<hNEN*|Bw#Fs(SNz(gg
z5J}Gbi$7XH(6EfYDZT=TE=<#j`jP)tP;|m7Nz?!C5RX;Tbfw?${}vQ2N@<OI#p4wz
zDp}1WrvoP{T2hi`tRe6_khC+HKmu+>d*JsK0K-#o!v7ioS`Kg!O*-p8S<zqs{dnN@
zi+Ld_JsUW6F%SClKn-XO+A~==O^m=}cv_T4gLQyu(U>Y#tx#}Y)k`64yOdOv*5G`g
zbdDvfthI&~0HE7g0;+~d>JtAVd(*T5wbQKeAY-Fh2Agp+En5qNeKyR%rJ{%K??HN;
zN;9RSOQJwW9}L3N{e_9bHoYE%yLQp4tC}ULcwvaxX{t<b4oVf8ElpP{<L?Kfb~8@u
z^pyNE7_(D&9}FX@YC+jfQ<_3&_KyHMOmCI~Ne4vIGE?Ub@<g~EL=3~xrN{YzIFaVe
zev@Pk<JwRoO@e}JWW}C$T>=uDFv?}&W(b!-DRs**U6}0(Pq6_Ov%YYv4RDx^h1+bP
z8?*i4X*S@-?D}xK4P-r-y*WI?M!cB4BivyFKFmH4nq>nn%sm~NV*@Paj)XdGfWzF$
zP?rsKWA1EdfepAZ_d#gkVR-+l%kyBaF1*-g@nY^Ty^Ia`Fn4Fj1wev|z#BCdW-CHe
zt(U@FMJT2vE$pkb1K}bnoD3d-2ImiJ@b>Ech8&GqeW6Sia5O;@@byz}Bb%s-Dh%8a
zsjX)iR7_Sa_?=_1^Lj>Xl5_X$u*vRceWNz%PKUk+Qlk5<Xs>tfqJnO`qItZ#K@f$c
zh=R~PhqEArq##>wv3sbibX?ex$h}k~crhm9eLeK4iI)Xq_3Pwp4*)p-rF4lfvOKn+
z51{r%sDIou{AEgx_uO8gSs0+&gZNC(kuRI&nGqMzWtEQMr(moEs>1_dSk8ZCWEQv*
z7hR0k?T$46A9MTf?xBy2Qt_EtdOeyVwKi7zF}X29pQ!4fq7t9qT`bi{vEYM#(0w0>
zC|u7B+>F`&`>BFU$BR}f;@(S*VgmEncq8%v2tq%HnKsXZ)wuuN$T`|XP_uF9j%^YC
zQ<hY5*6a_df(ywQmbudN8C9~t$KmE9bRJYphR~EX_06T@G#RfZKc`9Rqe-(DmVlyG
zLWfDR+kAA96~)zbp;-tW<FlM*X5h7xt(+JAO;`=^IA3Dr?@Vqg`mAf`MGDo%Mk+UL
zWHy>N{}Aw3%kC9^SFR1+*!vow6J-STpda0rC&3B(C*W7;C|-|?`wj@yG#iXqo@T<q
zCzW2Oj9hk0*A7U+zx`@`*OC-!E~4Vs2Ug`|U6i7WZ$hp2QGHWxuF1epMrJMCMAUvi
zDz3R<Q(<#kL(7!Odr@)qhQS;YK+YeaBAWL=;mtLUxwY*N7G@V5(`sk@Fu!?sd+pSH
zg<MO`Wev`Uz|;9~Vflb#PHp=mB~M4|k5F;zwpF<my0m504TH+y1{O`&kBaLy+=SX6
zEqNBTJ@zHfA{IFxhwhr5u+15D{J3yt!12{7Pr|$gH|H1*%{YLH>$h&n6;7^ow0>ps
zQ;=A*l}>o((}m@`>Zca2S?Q=>(sZyqKxyTu@h9NgvMR^;{mA)K7^L|SVz@%JGzIq3
zn%1d2#;CEs+8q>N1sIvH<*&MDNzIjoleg3_n0OT`ZrQdKO}{4p?$EU9D`AMiHE8lG
z!~_C+Xu`P~ngrJ5Z`|eY96-g0Y4!6^2YP_eltBPG{6a|Q6eeLtU1;vL`IEcm)T}M6
z+)~@tcMF=d4l!(D)7l|)>H2aF7L?mwfhJ#nVg1u@xUh#<g+D697-3|6QFne*{(9$x
f?Wi~~I#fS8)G#_UVRUHX=+LCmp~?G)8h`#jms?V}

diff --git a/A2osX.STARTUP.txt b/A2osX.STARTUP.txt
index 8ff6129b..d650d964 100644
--- a/A2osX.STARTUP.txt
+++ b/A2osX.STARTUP.txt
@@ -18,5 +18,6 @@ EXEC DHCPCLNT
 *EXEC TELNETD
 *MOUNT TFTP 192.168.1.5:/AO2SX /TFTP
 LOAD DHGR.DRV
+LOAD MOUSE.DRV
 MAN
 TEXT A2OSX.STARTUP
diff --git a/DRV/MOUSE.DRV.S.txt b/DRV/MOUSE.DRV.S.txt
new file mode 100644
index 00000000..9d83bbf8
--- /dev/null
+++ b/DRV/MOUSE.DRV.S.txt
@@ -0,0 +1,151 @@
+PR#3
+PREFIX /A2OSX.BUILD
+NEW
+INC 1
+AUTO 6
+				.LIST OFF	
+				.OP	65C02
+				.OR $2000
+				.TF DRV/MOUSE.DRV
+*--------------------------------------
+				.INB INC/MACROS.I
+				.INB INC/A2OSX.I
+*--------------------------------------
+ZPGoMouse		.EQ ZPDRV
+ZPTmpPtr1		.EQ ZPDRV+2
+*--------------------------------------
+SETMOUSE		.EQ $12  				Sets mouse mode 
+SERVEMOUSE		.EQ $13					Services mouse interrupt 
+READMOUSE		.EQ $14  				Reads mouse position 
+CLEARMOUSE		.EQ $15					Clears mouse position to 0 (for delta mode) 
+POSMOUSE		.EQ $16					Sets mouse position to a user-defined pos 
+CLAMPMOUSE		.EQ $17					Sets mouse bounds in a window 
+HOMEMOUSE 		.EQ $18					Sets mouse to upper-left corner of clamp win 
+INITMOUSE 		.EQ $19					Resets mouse clamps to default values,sets mouse position to 0,0
+XCLAMPLO		.EQ $0478 				low byte of low clamp. 
+XCLAMPHI		.EQ $04F8 				low byte of high clamp. 
+YCLAMPLO		.EQ $0578 				high byte of low clamp. 
+YCLAMPHI		.EQ $05F8				high byte of high clamp.
+*--------------------------------------
+* Main DRV entry point
+* input :
+* X = CMD
+*	0 : OPEN
+*	2 : GETEVENT
+*	4 : OUT
+*   6 : CLOSE
+*--------------------------------------
+* CLD 			$D8
+* JMP (*,x)		$7C
+* 				#JMPTABLE
+*				/JMPTABLE
+*--------------------------------------
+CS.START		cld
+				jmp (.1,x)
+.1				.DA OPEN
+				.DA GETEVENT
+				.DA OUT
+				.DA CLOSE
+				.DA 0					end or relocation
+				.DA CS.END-CS.START				
+*--------------------------------------
+OPEN			stz ZPTmpPtr1
+				lda #$C1
+				sta ZPTmpPtr1+1
+				
+.1				ldx #DEVSIG.Length-1
+
+.2				ldy DEVSIG.Offset,x
+				lda (ZPTmpPtr1),y
+				cmp DEVSIG.Value,x
+				beq .3
+				
+				inc ZPTmpPtr1+1			no match, try next slot....
+				lda ZPTmpPtr1+1
+				cmp #$C8
+				bne .1	
+				beq .99					Not Found in any slot, exiting
+				
+.3				dex
+				bpl .2
+
+				lda ZPTmpPtr1+1
+				and #$0F
+				pha
+				ora #$30
+				sta DEVNAME+4
+				pla
+				ora #$C0
+				sta DEVSLOTCn
+				asl
+				asl
+				asl
+				asl
+				sta DEVSLOTn0
+				
+				ldx #0
+				ldy #S.DEV.NAME
+				
+.7				lda DEVNAME,x
+				sta (pDevContext),y
+				cpx DEVNAME
+				beq .8
+				inx
+				iny
+				bne .7
+				
+				lda #1					Enable, Polling mode
+				ldy #SETMOUSE
+				jsr GOMOUSE
+				
+				ldy #INITMOUSE			Reset
+				jsr GOMOUSE
+				
+*				lda #0					set X
+*				ldy #CLAMPMOUSE 
+*				jsr GOMOUSE
+
+*				lda #1					set Y
+*				ldy #CLAMPMOUSE 
+*				jsr GOMOUSE
+				
+.8				lda #S.DEV.F.MOUSE+S.DEV.F.EVENT
+				sta (pDevContext)
+				clc
+				rts
+				
+.99				lda #DEVMGR.ERRNOHW
+				sec
+				rts	
+*--------------------------------------
+GETEVENT		>PULLW pEvent
+				lda #0
+				sec
+				rts
+*--------------------------------------
+OUT				clc
+				rts
+*--------------------------------------
+CLOSE			clc
+				rts
+*--------------------------------------
+GOMOUSE			pha
+				stz ZPGoMouse
+				lda DEVSLOTCn
+				sta ZPGoMouse+1
+				lda (ZPGoMouse),y
+				sta ZPGoMouse
+				pla
+				jmp (ZPGoMouse)
+*--------------------------------------
+CS.END
+DEVSIG.Offset	.HS 05070B0CFB
+DEVSIG.Value	.HS 38180120D6
+DEVSIG.Length	.EQ DEVSIG.Value-DEVSIG.Offset
+DEVNAME			>PSTRING "MOU0"
+DEVSLOTCn		.BS 1
+DEVSLOTn0		.BS 1
+*--------------------------------------
+MAN
+SAVE DRV/MOUSE.DRV.S
+ASM
diff --git a/INC/A2osX.I.txt b/INC/A2osX.I.txt
index 696c9074..e8e2cbfa 100644
--- a/INC/A2osX.I.txt
+++ b/INC/A2osX.I.txt
@@ -197,7 +197,7 @@ S.DEV.F			.EQ 0
 S.DEV.F.INUSE 	.EQ %10000000
 S.DEV.F.EVENT	.EQ %01000000
 S.DEV.F.OUT		.EQ %00100000
-S.DEV.F.XYP		.EQ %00010000
+S.DEV.F.MOUSE	.EQ %00010000
 S.DEV.F.GFX		.EQ %00001000
 S.DEV.F.NET		.EQ %00000100
 S.DEV.F.BLOCK	.EQ %00000010