https://oldwiki.cpcwiki.eu/index.php?action=history&feed=atom&title=SF2%3Ascan_mouse
SF2:scan mouse - Revision history
2026-08-30T05:05:37Z
Revision history for this page on the wiki
MediaWiki 1.25.1
https://oldwiki.cpcwiki.eu/index.php?title=SF2:scan_mouse&diff=94186&oldid=prev
TFM: OS function to work with the SF2 proportional mouse
2015-09-14T23:49:44Z
<p>OS function to work with the SF2 proportional mouse</p>
<p><b>New page</b></p><div>This code is part of [[FutureOS]]. Please give credit if you use it for your own applications. Questions can be posed to [[TFM]] who wrote this code.<br />
<br />
<pre><br />
<br />
06920 ;PS/2-Mausabfrage(+) This is part of the FutureOS ROM D<br />
06921 <br />
06922 ;Subroutine<br />
06923 <br />
06924 FB5C 22 00 60 MRNM LD (KS0XL),HL<br />
06925 <br />
06926 ;Call OS function here! by TFM of FutureSoft, please credit.<br />
06927 <br />
06928 FB5F 01 10 FD R_PS2 LD BC,&FD10<br />
06928 FB62 ED 78 IN A,(C)<br />
06928 FB64 3C INC A<br />
06928 FB65 C8 RET Z<br />
06928 FB66 3D DEC A<br />
06929 <br />
06930 FB67 57 LD D,A<br />
06930 FB68 07 RLCA <br />
06930 FB69 38 29 JR C,MVMB ;Vertikal/Button<br />
06931 <br />
06932 FB6B 07 RLCA <br />
06932 FB6C D0 RET NC ;Mouse not moved<br />
06933 <br />
06934 FB6D 07 RLCA <br />
06934 FB6E 7A LD A,D<br />
06934 FB6F 38 13 JR C,MLMM ;left<br />
06935 <br />
06936 FB71 E6 1F AND A,&1F ;Mouse right, A = %000 00001 to %000 11111<br />
06937 <br />
06938 FB73 16 00 LD D,&00<br />
06938 FB75 5F LD E,A<br />
06939 FB76 2A 00 60 LD HL,(KS0XL)<br />
06939 FB79 19 ADD HL,DE<br />
06940 FB7A 7C LD A,H<br />
06940 FB7B FE 02 CP A,&02<br />
06940 FB7D 20 DD JR NZ,MRNM<br />
06941 FB7F 21 FF 01 LD HL,&01FF<br />
06941 FB82 20 D8 JR NZ,MRNM<br />
06942 <br />
06943 ;Mouse left<br />
06944 <br />
06945 FB84 F6 E0 MLMM OR A,&E0 ;A = %111 11111 (-1) to %111 00000<br />
06946 <br />
06947 FB86 16 FF LD D,&FF<br />
06947 FB88 5F LD E,A<br />
06948 FB89 2A 00 60 LD HL,(KS0XL)<br />
06948 FB8C 19 ADD HL,DE<br />
06948 FB8D 38 CD JR C,MRNM<br />
06949 FB8F 21 00 00 LD HL,&0000<br />
06949 FB92 38 C8 JR C,MRNM<br />
06950 <br />
06951 ;auf/ab od. Ohr<br />
06952 <br />
06953 FB94 07 MVMB RLCA <br />
06953 FB95 38 21 JR C,MBMW ;Button/Wheel<br />
06954 <br />
06955 FB97 07 RLCA <br />
06955 FB98 7A LD A,D<br />
06955 FB99 30 0F JR NC,MAMM<br />
06956 <br />
06957 FB9B F6 E0 OR A,&E0 ;Maus runter, A=11111111(-1) - 11100000<br />
06958 FB9D ED 44 NEG <br />
06959 FB9F 21 02 60 LD HL,KS0YL<br />
06960 FBA2 86 ADD A,(HL)<br />
06960 FBA3 30 02 JR NC,MUMO<br />
06961 FBA5 3E FF LD A,&FF<br />
06962 <br />
06963 FBA7 77 MUMO LD (HL),A<br />
06963 FBA8 18 B5 JR R_PS2<br />
06964 <br />
06965 ;Maus rauf<br />
06966 <br />
06967 FBAA E6 1F MAMM AND A,&1F ;A = 00000001 - 00011111<br />
06968 <br />
06969 FBAC ED 44 NEG <br />
06970 FBAE 21 02 60 LD HL,KS0YL<br />
06971 FBB1 86 ADD A,(HL)<br />
06971 FBB2 38 01 JR C,MAMO<br />
06972 FBB4 AF XOR A,A<br />
06973 <br />
06974 FBB5 77 MAMO LD (HL),A<br />
06974 FBB6 18 A7 JR R_PS2<br />
06975 <br />
06976 ;Maus-Ohren, -Rad<br />
06977 <br />
06978 FBB8 07 MBMW RLCA <br />
06978 FBB9 38 0B JR C,MWSO<br />
06979 <br />
06980 FBBB 07 RLCA ; CALL C,backward<br />
06981 FBBC 07 RLCA ; CALL C,forward<br />
06982 FBBD 07 RLCA ; CALL C,MIDDLE_Fire2<br />
06983 FBBE 07 RLCA <br />
06983 FBBF 38 11 JR C,F1_TUR_E ;Fire 1 (right button)<br />
06984 FBC1 07 RLCA <br />
06984 FBC2 38 12 JR C,F0_KCF0 ;Fire 0 (left button)<br />
06985 FBC4 18 99 JR R_PS2<br />
06986 <br />
06987 ;Mouse wheel was turned<br />
06988 <br />
06989 FBC6 07 MWSO RLCA <br />
06989 FBC7 7A LD A,D<br />
06989 FBC8 38 04 JR C,MWMM ;Wheel turned in negative direction (back)<br />
06990 <br />
06991 FBCA E6 1F AND A,&1F ;A[Bits 3-0] = scroll wheel offset positive!<br />
06992 <br />
06993 ;0000 0001 = 1<br />
06994 ;0000 0010 = 2<br />
06995 ;0000 0011 = 3<br />
06996 ;0000 0100 = 4<br />
06997 <br />
06998 FBCC 18 91 JR R_PS2<br />
06999 <br />
07000 ;Mouse turned wheel backward<br />
07001 <br />
07002 FBCE F6 F0 MWMM OR A,&F0 ;A[Bits 3-0] = scroll wheel offset (negative signed, 2s Complement)<br />
07003 <br />
07004 ;1111 1111 = -1<br />
07005 ;1111 1110 = -2<br />
07006 ;1111 1101 = -3<br />
07007 ;1111 1100 = -4<br />
07008 <br />
07009 FBD0 18 8D JR R_PS2<br />
07010 <br />
07011 ;Adjust Stack!<br />
07012 <br />
07013 FBD2 E1 F1_TUR_E<br />
POP HL<br />
07013 FBD3 C3 6B F7 JP TUR_E ;or where ever you want to go!<br />
<br />
07014 FBD6 E1 F0_KCF0 POP HL<br />
07014 FBD7 C3 75 FA JP KCF0 ;or where ever you want to go!<br />
07015 <br />
<br />
</pre><br />
<br />
== See also ==<br />
<br />
* [[Programming:SYMBiFACE_II|SYMBiFACE II documentations]]<br />
<br />
[[Category:FutureOS]]<br />
[[Category:Programming]]</div>
TFM