[comp.binaries.mac] Mouse defroster

maarten@uva.UUCP (Maarten Carels) (06/01/87)

[Mouse defroster (also for old mac)]

As response to the mouse defrosting FKEY posted by Greg Dudek, I decided to
try to adapt it to other (read older) Macs. To locate the same routine Greg
used in the 64 K rom was not difficult, so here the extended FKEY resource,
along with the source files (MDS assembler, but should not be too hard to
convert to other assemblers)

Have fun with it, and if someone extends it to Lisa (if anyone still
has such a beastiie) or the new machines, please post your results....

---
(This file must be converted with BinHex 4.0)

:#d4PCR*[Fh3ZF'Pd!&"*9#"3593J!*!%$6X!N!5M-9"0B@F,4'9QFQpcG#jKFfd
!35DD!*!$33aQ!*!'S#-!!N,L!!%C(J""!3)!(J!j!*!$$!#3!``!N!2F!%%Pq!!
!9%9B9%e"3d%"!*!&#PB!N!5FHa!%R(X3"'RQ1b"8D'Pc)%C,49NJDA-JB@iJB@4
KF(4TEfiJEfBJG'KP)'pbD@GTEQ&X)'e[GA0P)'4PCR*[Fh4PFL"KFb"YB@4P)'*
j$6XJ4h*PCb"%G@4PDb!SC(9NC@Y!GA4KD5j99803,L")CA*P)(4SC5"[FQPRD@j
KE#"NCA0MFQP`G'P[EL"QEfaXEhGc1Jd01b!YN!B01b"'FQpY1L"NG@4PDd"eG'&
T,P993e!J+%GbC@FJ4(9NC@XT$6XJ8h9LDQ9MG$SJ6@peFf8JCR*PCATP1L"NC@C
bEh0dCA)01b"%BA4P1L!b)%eKFL!i0b!`0$Sd0$S`15"(69301b!01b#3!eGPE'`
X)("PEh"XC5"SBACP)'*PC@iJBfpYF'aKD@jTEQFJB@*[GA3JD'ph)'&ZEQpjD@j
R)'Pd)'Pc)(4[$6XJD'&fC5"dEb"bC5eLEfpd)(GSC@iJG'KP)'e[GA0P)'CbC@9
kCA-Z)#"*)'YZEhFJ55GfC5"QEh9ZC#"TG#"K$6XJF'&TELiJ)&4SC5"PEQ0XEh0
PC#"'5d9C)#KQG@jMG'P[EL"VCANT)(*PFfpeFQ0P)'0KE'ac)(4SC5"56dd01b"
dEb"bC5eTEQPd)(4SC5"63d-JB@jN)'KPEQ0P)#*NC@CbEh0d)L"dD'8JE@peFf8
Z$6XJN!0*G#"MB@aXFb"K)(*[GA4TEQ8J55"QEh9ZC#"TEL"dD'8J-6)i5b"56dd
X)(0[)'Pd)'&XE@pcG#"MCA*dB@PZE(N01b"hD@aX)%j29#"hEh*V)'pZ)(4SC5!
f0%XJ8Np0)'eKBfKTEQ9c,L!J55"QEh9ZC#"dD'8JFQpeG'PZC5"eFfPZC`dl)%e
KBh0LG@FJB@jN)'4TC'iRG#"hEh*V)(4[Eb"SBA*N)'&d)'CTCh9bD@jR)'Pd)'p
eG#`JFfmJB@adD'peCfJ01b"**hCP)(9cC@3JDA3JFQ9`C@&dC@4XH5"hDA4SEh9
d)(4bEh9LE'8X)%NRE5"ZEh3JE@&VD@jR)'&ZH5"`FQpYDA0PFbi01b#3!eG"8Nj
*6NFk)'e[GA0P)'CbC@9kC5"TFb"MD'&bB@0dCA*TFh4TBb"[CL"hD@aN)'ePE@p
bH5"bC@CPFQ9ZBf9c)'*j)'%01b"`FQpRFQ&Y,L!J9'KP)'CKG@adH5"`FQpRFQ&
Y)'eKH5"SBACP)'4[EQ8JEh4SCA)JEQ&cG(NJG'KTEQGc)(4[Eb`01b"cEb"LC5"
`FQ9`BA*PC#"QEh)JFh9NC'9Z)(0jFh4PE5"MFQ&cD'9c)'9fC@iJD@BJG'KP)'e
[GA0P)'4[CA-01b"NC5eQFQpcG#i01b!01b"(FQ9R)%4eC'9V$6XJN!9%CA"d,L"
[CL"$Efe`GA4PFL"6BfPPEQ0P)#KfDA0TEfiJCh*[GA!T)*!%9@jTGQ9bFfPdH5"
[CL"8Eh*[ER4[$6XJN!99Ff9ZCA3k#AYXD@jeFb`JD@KZF$3X)'&XE'9RFQ%X)'4
PBhCKH#`JCQa[H@4p)A9dBh0bD5&NG@4PD`dl)*!&3e01493k#@4eC'9V3'&T,R4
[FQpZG'mZC@4e$6XJN!9"8P""1JPNG@4PDb9KD5jdEh*[ER4[,Q9NG8"MFfjPG#e
bC@aKH3dl)*!&4%9-8%K*1L#3"8G%984&5`dl)*!&8'&`CA)JE@&TE$SJ-6!J5fP
ZCbGc)%0[E'aPCf8J3fPbBfaP,#"8Eh*[ER4[,#"$B@jKC'%01b!01b!YN!B0$6X
J3fKKEQGPFcS01b"MD'9MDb"QEh)JG'KP)(*[E5"fCA*cD@pZ$6XJBfpNC5"`FQp
fD@4PC#"LEh4S)'C[FL"dD'8J0M3JDb"bEfdJ+$%b1#"KEQ3J06%b)'XJE@&MFbN
JB@jN)(4SC5!a-MJJDb"bEfd01b"#C@9`Fb"TCL"eFf9N)(GTG'JJG@jVEQphEL"
bEfd01b"PBA0TE(NJCAK`B@jNB@*XC3d01b""Fb"ZEb"MEh"jFQPRD(3JE@9cFf&
RC5"KF("PBA*PC#"TEL"dD'8JEh*TCfPZB@`J4NY&@5`J55"dD'PZDb"hC5"MB@i
01b"NC@0XBA*P)'Pd)(4[)'*P)("eBQaTBb"NEfeKD@iZ)&"XC@&cC5"`Eh0d)'j
PGb"fCA*cD@pZFb!SEQ9h)&*265`JE'PcB5N01b"KFb"hD@4P)'&c)("[Fh0TBQa
P$3dl)&4SDA-JGQ9bFfP[EL"YB@4P)'*j$6XJ#3P0B@&bG'9Z)%0KFQ9XF`dl)!N
*3fpYF(9dCA)J8f0TC@jMC5"%CA"KFR4YC@jd$6XJ#3P9EQPfCA*cDA4j)'pQ)%&
YFh4PFQ4KE3dl)'9YB@PX1JPYB@&bG'9Z3(9fB3dl)!N*Hh"SD@aKBR-X)'4PBhC
KH#`JFf9TFfe[I5&YBhCKH#&eGQ%KE@&KFR4PEJdl)!f3!e*&8dp98N0&)#G'5d9
C*b!f)#*%C@CbEh0d)Jd0,P4539!*#9p6HA0#C@9`#54"18-i$3eB6&*[E3P&898
**$F`4NB0EfaN8QpY#89493Na-$8*#6XJ9Q9bFfP[EL"ZG@eLCA)JEfBJEfaN)&*
263e`E(9c8QpY#89493Na-6F*#6XJ9Q9bFfP[EL"ZG@eLCA)JEfBJF'aeFb"56dd
0$@pXC%pQCJP&898**$9#33N*1b"2CQCcCA3JEfBJ8d0$)&*P,@PZDA3JFQpeG'P
ZC5"TEL"[E'3J8Np0$A"XGA02CQB*49&9#53i-N-*#6XJ6fCQFf9d)'pQ)&0$3b"
5C5eTEQPd)(*[GA4TEQ8JD@iJF'aeFb"56dd0$9*[E8*KFf8*49&9#53b3880$84
PCR*[Fh3*68p@45j-#9*[E8*KFf8X36!*1b"56ddJ8h4KFR3J3@4NFQ9cF`d*68p
@43Ni+%%`+5a%-!Nl)&*265"@CA*cD@pZ$3d*3de3#50[E'45EfdX4$!0#8*&83P
[E'3*#6XJEfaN,#!f0%XJ8Np0$3d*3de3#50`E(9c8QpY,%3`$3P#49%*F'aeF`N
*1b"0B@-V)'&ZC#!e-6*&)#Ja-MK,+5"56dd0$3P$69!*)eK-8QpY,%3`$3P#49%
*@%`*#6XJ6@&M)&K-)#K-DA0K+3d0#8e29N8*)c)X,5K68#N*1b"eEQYZEhGZ)&*
263d*Ae0jFd*PCA!*#6XJBQ9PF#"KEQ3JC'pZ*h3JFh"[D@`JB@jjG'KTEQFJCR9
bG'KPFJd*8P46$3e[E'3*5Ne3#@pXC%pQCLK"-#N*1b"-CA3JG'KP)&*265"bEh9
dD@jP)'4PCR*[Fh3JG'KP)'pXC#"YB@-0$A"XGA-*5Ne3#A"XGA02CQBS36!T#6X
J6'9d)(4SC5"56ddJFQpeG'PZC5"NC@CbEh0d)(4SC5"`E(9c$3eB6!P06eC&#5-
b,#dS8e!T#6XJ4'pZ*h3JDfj[Gb"SEhFJG'mJC'9QFQpcG#"B6!d*Ae0jFd*PCA!
0#9*88`d*$3P&6N30d3G36@&R$%4PCR*[Fh3Z6'PZDd%QQJ#3!d%-CJ#3"U!M!!*
#iJ!"'4i!33%#!"i!13#3!``!N!--!*!$h!""*IJ!!&4&@&40380"!3#3"Mm!N!5
FHEK0R(Qj$P@p,h4jF'8J*dC,49NR)#G$9dC,*`d0,fpeG("eG#"%C@CbEh0d$3d
[FQ9cEh9bBf9c$3e%C@CbEh0d$3d[C@jNE`a36@&R"d4PCR*[Fh3Z6'PZDd%QQJ#
3!d%-CJ#3"U!M!!*#iJ!"'4i!33%#!"i!13#3!``!N!--!*!$h!""*IJ!!%C,49P
$9dC,!3#3#3&fR(VS,Cakll%l*3!!!3#3!`%m!*!$2!#3!cVrrfF!ra463'F!ra*
63'H'8d"R!2m)B0`-ES!!rpKQ!!G%C@CbEh0d!J#3!dC,49P$9dC,!3#3"33P!!!
Er!!!4NY&@80A4NX"!*!&"#8!#P@Z!*!$#!!!!GJ!!3!!R(VS,3#3"J&frIa)jbB
ih[crqLeZrIcpYMeZrJ$pZNkk!JTF6dcI('3N5%MR*MK)E[i#)"p1Z[`D60mFC#C
)3K4)jbBi)#lpd#)ZrFK1Z[NZ60mFC%MR*MJJ,[h-6VVlmL)))#lpd%kkq44-haa
N51FQ1#!ZrFK1ZP)`60mFC%jH6R919[r),8lrr!#3!cJJH!+Z-#J!#!a!!'PR!!!
D$%!!G@F!!"B-3($rC`!!%Mmm!!+Tb%je6ZJ&ZNlS##`r2!!#UFK1G3!!!3#3!`%
m!*!$2!#3!cS!!!ZB!$i!N!-F!$)!!%C,49N!N!-+!!B!N!F",r!(4'9QFQpcG,B
)8%9ZC,p,!!!:
---