home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / getadd.sit < prev    next >
Internet Message Format  |  1992-11-05  |  9KB

  1. From: Thomas Fruin <thomas@heraldo.apple.cl>
  2. Organization: Apple Chile 
  3. Date: Tue, 07 Jul 92 14:23:57 EST 
  4. Subject: GetAddressingMode XFCN - tells if Mac is in 24 or 32 bit mode 
  5.  
  6. Some time back I asked the net for an XFCN to determine if a machine is
  7. running with 24-bit addressing or 32-bit addressing. As Dan LaSota already
  8. pointed out in an earlier digest, the GestaltLook! set of XFCNs include
  9. that functionality.
  10.  
  11. While browsing on AppleLink I also found the GetAddressingMode external.
  12. GetAddressingMode does exactly what its name implies and fills the above-
  13. mentioned need. It's also shareware, so I'm submitting it to the archives.
  14.  
  15. -- Thomas Fruin          Santiago, Chile         thomas@heraldo.apple.cl
  16.  
  17. (This file must be converted with BinHex 4.0)
  18.  
  19. :&8GPG%&NC(*PFh0TEQG0Ef4P,R0TG!"6593K8dP8)3!!!!!AEJ!!!!$M890*9#%
  20. !!3!!&fjb6'&e!3!!!!!!!!!#!KT(CA4"C'4bCA0cD@jR6@pNC5"B4N01)$%Z-2m
  21. !!`$r!2m!r`$r!Fa@&J(*IL3"c,r#!m)"#J!G!!%!!!(-9M"69%&,9dP-4!%!Sef
  22. E,UCHA-m!!!Jr!!!L!!!!"Y!!!"!B3*PfV3!!!!!!!%Q!!!!%#!MJ3+L!"Ji'p!6
  23. RJ*3bFiDmJC2()85*&"d1!B'N$*Z'$b01e(#N$*dJC-M)J6JRMCXc6Gk3!#N$!SZ
  24. 4)8j!a(!"ii`!JN#$#Ke+&+JT,eaq""4"%-%2"R"NR2)J!XN%2J"qGXMbk!@2*81
  25. 3!%J4FLB'[hrr&RK+"HV&K6-"4D@5"1),U"3MS!#JB1,VN!!J8)5im@G-X$pQ3Gc
  26. p!p!#L6pKH!#B4DZ@UpFP63#6r4"%)&ZhCRa!HD5%b"N#2`LNdT6B(b`TD!"`!-9
  27. JM34EU!#!-11ZbL-NEKB("&3d)#L#HJ2#)AKF)*L!`)J(#!F-`!!Ca!eX#-MJQ3-
  28. !'8jm!$"MhRJ`!6j"-!EJ'i4N2*aK5%+#d2ck1*Va)-BM'3"LID36J'*S#9IFJ3J
  29. #0F0!a!9%NNNSUF555c$*4*0011R%8`4Ab*%'(A58i3B)BZ3"JK)eb$(('fi3e+"
  30. 3I[!68)`cpS-@M3!i%!icbHJB43XkGJ*N1%@Xi%!r@23SBiifrZ-!"`%p'5@8!$#
  31. !38!Fi"!3"M!%K-0b!-$`(!"J9!F!%!d'NZ#Da48J!KMI!B#K%`mS"&33q[cM6JM
  32. )*1$-F`-JiB39!B(!3d#SI(++%5mJB+KaVBaL4#cIR1%!##j8'8SV)V5)J!L)J'%
  33. #RJ$B!!-2kN3K3UB-b),*'3BSmDS%B0JcK$kk6310%p&d#X#RJ!J"4!p!!!#"%el
  34. 80CS6d*bUMK4JZ'0('5S5"%BEBB`4@d"Nc*((((B3K!JFFV`a"N'5Q!&((5!3j%N
  35. FC)$3EN$SV#&'[!%&S%%BG,#a4Vj#Y0%'ZrQU&%BEm`D!#"Yb(*`[)N6"%3!BJSL
  36. !K`#Z`%%!!fN!8-H[CdM!X3$K)Q!'!9)!!BB"%1$!`#aF!2,F2f!X"`-1!@JaXaA
  37. ,Y4c!#bR2V!3$@K,`maNi)&$d!L+F33-)6mM6i$`R`(#"#dJ`!-3('*aKJGBrG!d
  38. "f$KBU[8(C51`(*`5Jk%!(!+X$-F!B!L`0J#,-B$($rm)i)JE(*bDk+)N1(SS!+X
  39. -X1LM!J&!#b*Q'1$ffJB`rY0crMM6XJ!HN!"U3985G!f!2p,)!S!CpN55$!J)B#l
  40. ,!"-X)%!!"Ka!3!%)*!$!FNVJ)%!NDeJJ!Fllc!l!!``-&)!CMPl-$33S&)3j)84
  41. RpA-E&[6XFL`-j(X'!peEe`B"8kKX0jQMJb'iSNB8cMJUMbb1-`+2Rk%!9cmFDJ(
  42. m)(b!Z3i`H!%!#$#%G`$!!$)!3$Q5))eJJ%"9Pd$#13!!$MN!3!T)!)-'5-#[[@K
  43. !'J)J!`-S%B!TR%m10"-!",34"@AmJap43-Brb-'%Eac!@)&`34+N%!33A)&C,e#
  44. !#0l`+a)3N3%"0"B0!#!"$FJLK!+J3!!N))bk5B#&,Z3(,!*!JLr8j3N'9!#c"K@
  45. 3!"F`!!8YFJ!%@)8%3#!"'#NS&K45i#N!8#%(@)%!!*M`!KB!!!PeF3)N82!&C0A
  46. &'c)5ikkXX"JcJX"63e$-lRiJ!Qc%m)9SV&*L&T-#*!!!#RJXb"llq-G!3U)&E0L
  47. GX3KTb#p!i3PM*&5B@!8'$c`b4lF#`01b!B*XD2#@$XJP"hT*6&mU`!"!U-!VcU#
  48. 1mTd"'khN!LbKNB!UZ'%QCR"*'FK`!'ZZ`3e[Z)-E"T82G%J3E5ei`J[a&!!l4()
  49. Ik)#$!bTj5Aj8i3PH#80+j!#FIk$$#EVJ"b4km!8p#HBIl(K"TKcP!Rr+S+(X'!!
  50. !V!!-)J"J2-$aacpei3pi+#%ilMJ$4pa3cKmde"d[F!"!rb%&,$`KIhJ$6MNcZP&
  51. rF1+HqGaR2cI+$aX39%mp`%S!%+V3Af(+S4#9+%8YLP%hp+1QP2LSRN3U8h5B9%m
  52. T"DJrl1&5Q2kMUX"jUPD"J&-Hk&-P1`AS2V6a8hF%05Y%AHK4dI&3K#UeSKIpSa[
  53. i89-F5$@N)bhT5E2+88edp9"I*DNjplV4IT!!!kb$-DFH!+#%X%Vf6-$K+d`,!0"
  54. qm1'`-98XF264@&PN!Cm,(@e0(H@T%(`"!%+S)3I`J5`AI-)*G3J!#h5lJj+FC*m
  55. 6HNP-CP+6Qq4N*c!!!8Ebi+%cS)%1)%L&6R+3!!-CN!$)4%SSJaR-!))N6%Y&,#)
  56. )cJ$`SJ%JY`@qMG"+jY!5i9USZ"P#ER4M3&hVCRHlhIhZLPV8Z)!B"#&fmJ4MeJ%
  57. 0"&L!)&#b)-QS0BI'D5!*3i"Pif3`*i)S35"S38JC'+-1V!JJ``%K")GjdB-Z#D8
  58. &k3!'$GJcJARYJX18U"-!00#Z!#LP"HV!K!4m1i59m+X-42Ja4pl3KM)B3!dTfQm
  59. %dJYFpP*SZ'8!!!!J!$#&5T!!*Im5rJ[)-+##J#)B$Qa)-@!!Kq3BAJ5`i%,!#)3
  60. U0R``K'+"J""%UQ`S!!!J!!)J[)`j8bD!B(T'&@XBB%)!1!,5$)$6F)!C!LpA+Ph
  61. +Y+R6Te#M5Te+YDV9UeLcUQc`,##$5!'XY04+YUcCXfM6UP@lX#f!IiJ!4)`EN4Q
  62. !'3$XiQ@'D)B)[RlG)GSP3M"KGmafc8#Xq"qcIc-F3rlRlYmZbTB9ANki#a!%!5!
  63. #)!"#3+&TZ#)3T9iG33344+eI%`2%!-d3!6"-a))aB!-fB!`DU3)`[$J!e99@*dH
  64. 8[!Tc%9AZG*01[9Y5LUUUC0pHC3!K*$!B#!J33"#4(%3%N3q!L)+)))L#L+!!#&!
  65. 3(`J38"JRJJ!M1L*FJ!N%[J###!,V))!))#8J)d-LC*!!`)3NSR!5K#mU*%2"1N#
  66. !%K!"$lN%"!J`%6$3F#r&pG)rfV8i(!)FL"!-)!%)8&TpJ2b6(`,i!(M%)aH)%-F
  67. [!2cb#ba)`[,2(ljd)8S3,qP6Mj5J3&(P@PKQUH@@A(ETjCGJKLNQPfk!-!FGBFK
  68. "4ae`0("''A5Jm8BECD6KKKP[0&#''f5BLDDDE$E`4TPhK+(('hQ'iFBFGj3K"`J
  69. L[#'''Q@-33F)C,a4aKaZR("T'ALNFDB)H[)*3U'(jMQSQ@+FfX!FFYi"JKKd%&T
  70. URh1))@LCZECkakZacRV'V,@kZLHZBZLkkKaQZ!VV'l+D`8DI[ajVTKQlQMP'Xlm
  71. q+qXBI8T,lDhDBVXU'VifJ%BDC*4"V+h@STXYZZQZfkk`laTV+VhcFUXZZqk+Ufq
  72. ID*KE*KVEZQU[Zq##)(#eqfkEl4MTPN&''TI1-BBFDF"ak4[0dJU[U44RQkba&fH
  73. mFFFIKcbXb!22UQbC#9HEXVBFH``#b#!dr$#j%UmUKVm@Bi`cbcXhql1e3fGEKl0
  74. `JP$(()kb8BBGCE!"!Ke[a&c([(5SQ`FFMY,4aU#P"Y45%d%8C0TCP'3%`#`HA43
  75. *!$9f"B!PTq"03%N!`+-h&#%"3%8-BbDZq1+-0qliif!#`N35"Ae81%8E6@34!#'
  76. e41)!*!T`K%B95B$i4T!!8c83&%%F884!TPF%%MKiLa&34f!!!8K)&QM#!!+#&""
  77. ")b!3%!Sj&KaK3$!)#$-#!$+dN!!%1-RJ!)N'Vi#!!3S`J)#!'`EJJBXG4$#""bC
  78. Xr&)M!#M8!8`)!Q#!#4*%N!!""!PB!0'#$Ja)38`K4pK#)"""#3!)`4kAN!!*+b+
  79. `"6%3!!dNf!3@ZJ%%A05!%FNKKLNU%)d-i!)!JB"(-D#!!L`-K!9S)%#05K')!#3
  80. "!Sj)5HTQ5--Df[#'1-bK$RI)`alkm)G!$+)3KdM%)KVaL%K-SK+Ab-3D!N%)5cJ
  81. #%6"5%3IdV5)E8B$FY-J3Mf4P!+!3!YZJ%"!VVJ4e'K%,jY3B!"YB4)e1'3!9"-'
  82. )F&`J!1*!!#N+SBK`X#!1`-!!!m)"!@"8i!!##%FDIN#MCi5!(fGS53$i`8JD2#!
  83. Fr*M!!#6`KaP`B"$%8'3-!#%!835#%@FB5!!B-8SD-#!-M*L#!))3#%m!3`BU%!!
  84. Ur!J"-)3M"`)33"KQ%!$2K'-&")"!"J6`KCB3SMib!!,l8-!!-*3JQ'L3!)$I!!#
  85. *#m3)%K+S!9)J3B4"*!!!3*!!35%")!&mN!!"$Kk!"pl`)3-#%-!"iD!!"LTJJ!e
  86. !S!3"--J!r%%!(!3$$Z#!3Nc`aSGkJLJ&#!""1#aJJ(V#C!JB#)3d`a!!1L#!$rQ
  87. !"cmR%$i#'#!'aJK!#"""$!C`i"J(')3M!)#$!)#!"'%)"$J`N!#$40J8"cJ!4`B
  88. F3#)(J'%F(KJ$)+*JJ(dJ)"L"%-%SDf!!!$"!9KfBJ60J3J&Lk#!'20L%%6!!J)c
  89. m!"L55!!Nk##')2J$!2))!b$`J!%#!!!$NeJ'$p`!""%J3$c#J)%C[+%00J3#%'-
  90. !`di$-))D-)-0&%$"#!`!J@&!B3`+)!8$B""3!2`J')+!!3"!B3bh"J!)``!!+R!
  91. Je8U)S"*!X!)B'1!0HQ"$![B)4M"!33F"''!0hX!''DS!!5!)J!N!')BU**!!$!3
  92. )!"d!3))!J)!%)-JMS#@3!)3!K!!*&`4###)33`,8%!3!)%8)!fN(0S3"$!m!i!6
  93. a!-3"#$%)"S"!!!pS!J`J-3)%+'!%#L"%-#K!"")!SANf&810J!!"&#$#JIk*#!6
  94. %)!))3)!!fQ6U2M!!KQ!)JcCM`)!a"J!!S`!$'aX`J``!`BBK!)%6bC4!")+"!a$
  95. )Q!#3!1$Q&!)!!8(!!3K5X'N5Z#N((L-P#1H-3dI[1J-3+%-)S3!!"f!3M0DJ!!#
  96. &#)!""%!"#-L"!)5)D(k5'i56N!!'%$NQ!!JB6!)#a!8#9,$RIGAX'J"%BD!SJ%-
  97. jf1[H!)#M!2N!a`c-J)B821-![$!!&8$cNJ!%!`B%!)*a%6!#!9$"!+G&!##QS)6
  98. 3KN"'"#K!D&5!!0SPBJ3"')33GQGH$J5J'2ria!D1m3&mj--(0rM%"$!aMfAJia2
  99. iq-F(PN%-IVcK"mI!4cb@`!0FP')Cm3M(-iV"!MNNiKp@+)!!#NJ#9m2k!iGiaJr
  100. !JB0r21!6MaM'2)l"Mcq!J`F(1-B`r2'"(rJC"mIJ!4r'`1i$2'-F()M(-Il"L'a
  101. ['`!8B-0&FS`#8,J!"5KiJ3")U3JV''!!C-@!$dJ8"%)#i3-%'%!i-"#!#J2""9#
  102. !`!F#)()NB!!)"X#!#qa,5$#)(!X@S"%*!0%$!3!$%"q3!%$,(f$HDIJJ!B(!`!H
  103. B)()9$-!42MK!!2$a!4`-S""113!SKK!%+8b4)ejX#!6daT6B!B#,GSe!3!B!$Eb
  104. YR5i!5)!!6Q)&[!@J"J&BL%VXHNk[X%31Cpq)'eZ#h%L!BLbNmcY+MJ#R)*!!J3a
  105. bf03Fl(5'*VbKA3&CeGQQ9SBUY!N1GEM8Qp$dq-M2BI*Z1-2CfS@#&)$!6P`$34M
  106. )X2Sb0%"4M(+8l'PrHGZRS9NB+d-E3"#$T1fqpPY$`jj!!2T,LB!+bJG"'m)`KR@
  107. j`9eR5K-G,#Be1*`+BfJ!`3bL*`DMc4lbNUHm#d6`HMI%2Jjef"3GdS#fV&'0qD'
  108. (&26G0IhUfmPG&p-RE[!''I-RPm)QhaFRiNGqjPGkkCGkkpGqlaGrCd*rEY!![rG
  109. kfcGm-Q"mXiGmFE*mc3FT),"rdNGpeZFZD"!'Fl#!,9"qPc)'F`)(B6"rBQ!eCT)
  110. (Cb*m)(!SeaH"B@!'frFSm#Gr&UJRE("r)mKq*YKr+BJTQX)TRJ)#+iJe,JL$261
  111. $0CJ'0iKp1VL"26JSC3#%3UKl49L"D*1"`6Gm6FBc(pKlb5H#qFH%dHH%rrGk,6K
  112. q,fJdBa!'00L&C$L%)(#'meGr5HJZ5eL#GBL#GbJU)$#!Pk+(@0L(IfJeJ@L'&&L
  113. )&iKlM8+%QAL%eV*j910j$1%K%,!4a*30KT0h*")325"DU--!$!%"5$!RCC!!H@8
  114. LLThA*RBJ+R83"PTc-DIh"QaJKE&hJp5h"Jh3Lh2`Lm%S+R0!M-EB0AH`,YZhM,i
  115. )M*J#MG,S,XI)"XQ)MFfSMF)BMF9SHfI30A*#*q5LLjlA!!c"#3!3!4YK!3'`$G#
  116. $H!&"!mEJGSS(!"#J"'9J"QD!Lp,h"TaA"1lR++m50H[#"X&RI(mbHP[60A3J"r(
  117. AMJK*03SjK!f3!#fkb!4P%!CBdj!!Pr+3!"(*-a-C0E&R"X")04V*H5**NVBA%2p
  118. `$pi"!)a("ik(IUG(HCCh,fLb"T[bL&e$Jh)3"R3bK(2J!L#3!!5A%RPV)JH,NRb
  119. 4jbjV1!FXd(kbPi9Y-(dYd#i3f3E"ebF3H5C1#C8m@(b1H*(aphV0%S)Rk(rAjbI
  120. Dahd)H!IJGi80k*1SG`CT#BBGf*BBLC9aZBKdUB)Xb*FaU)8fL)0cm)8mk)0Mq*4
  121. Jf'5%qCBC+*Gf@*H1+)Pmk)GK!)JJ-!3313CVX$0PSLKNm!*[m#LJST4h+*FDNc-
  122. Y%iHc%RTFXjTLm!E6D#CPS),3SS'RmTTV-!FKm*&"B#E6a`CD!bYT8JD&%RN1%jc
  123. '4`)eJ)FJ%(Q%b(dCQ!F)+6Ah&bH1L!9'-!41i$#[+AYZN!!(j*PkXl)T!01#C#-
  124. (dHJ'fXKj,[#45G!Xi2Nd9FJ`Fd)RlUH9JrL*Jf+JkpQ-Cr!QD,JS@rQI2D-S@HK
  125. qe(FTG-+9LT)(%KPpH1+Fd%*jTa)'1UJ$(`N#+)UL38!R(01()2!%EJ#4ekF$)+!
  126. %0@#IUj+L1VUM1aS%F!!(9X-%GV)'0"S%6-!%,K!%69!%8T!!"&cR"!f`Sd-`Jh8
  127. `"Bk#065UScGJ!cC`!cA!!M&`!cI3J6aDTUlM"QP3"PQDSMD+SaHiSdQ`N!"8#5G
  128. VUU0UF+2h#34K3)`Z))2$9kBS5J9C8`C`)#Fc#J)f%!-fi!)j3!-ji!)`-!-dB!-
  129. RUU09i*46i*40%!CT`!Ce@UB#5C!!6iNeEKUPJ(UUTcS$1%!$aAF&kc)(p5QL9d#
  130. L)%!%FS#T43!#)a!$-"!$TSUU`+UM4j!!P+BL"Al),LhB"%Q!SSjD!j2D!M@`UMN
  131. !Me24%Q)8"'3%N!"NKd9B"%F0)32k'"$JqK3"3!Zi)!L+B!))%!!F!!MLX!!Q!!2
  132. p0!$LB&p6*`4f96`8d$p%a`-`)3)qm!("m!q"-!r"!!mY`3(L!!)(3!m5)!$mBe8
  133. N)!)6%!bHF!$V%!#`))Xq)!j!S!!$J3##0!+!F$mA&J`"S!!33#)i!!"")!i33!%
  134. 6N!!!i4!%#N"@&$!$SL8#iK!%GR9K1R"D`(!$J)!!8%#bJ"!14#F-9qB"*i!h`)!
  135. $#r!!"h!)K2!#"`!))J!2("!-!`!-"F"C9iB!iN!!BY!(*b!"K`!1r#!-01!,Mr!
  136. %@-!0M`!(S6!)l1!($q!KJ$!")&#fFL!#43XD4'!#`K!*8!!*N!!J#4#3!'-meKm
  137. +"3BH)!%88,BKi!1Na$`AF9S%3!4!-!96!#+H-3%H)!i(%!8bi!-!i!*!-!-I-!%
  138. 6J!3(!!bJ-`%+8,Bb`%JI3!3IJ!`,3P*6F!$b4#-5J%I*K!*jB!"')%d8!!)S8!B
  139. '3%CA4J"PDf#J3!,N)3),!!`ki&aD@ap+#`88-&U!!!)d!!8T*`3$!!J88!$"d"*
  140. GaJ"A4J%9`,0`X!!b'`J!S!%M%!bHQ`$)8&e50J+))!V")!*`F'&RGiSL`!![#`$
  141. %B!$im!B@!!Z0B!qq3!ihF!QA)!Q5F!AYJ!M2`!GId!EJ3!)MJ!NB#`B!N!!$`0#
  142. aM#!6,@!Lik!),[!"`$!1$`F#ie!)$`F(1[`"i$!1SL!)82'j9#!%b'99Gk-8D-3
  143. P3'!%5Ec%A#%5i3S!3l!ZICL1(f*jq#Q$@"%!B!!&8Z!%9"!3*%%49A84C!!!E5b
  144. ,&m(#(N)(Sd8kj)%hiq'26E6(I#`5Q`X!M#!&Ci`h+Q!%8P!%4N!40(%4m"!'HVF
  145. 5$b#SeGH+!&##3C!!"%c`0Jca!%l`0)V`+1f5-@`3HXN!KB3!!!:
  146.