home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / maksiu / kurs-ma / konfiguracja_przyklad.amos / konfiguracja_przyklad.amosSourceCode
AMOS Source Code  |  1998-01-25  |  2KB  |  81 lines
  1. Screen Open 0,640,256,2,Hires
  2. Curs Off : Palette $0,$FFF
  3. Cls 0 : Flash Off : Ink 1,0
  4. _ATTNFLAG=Peek(Leek(4)+$129)
  5. CPU=_ATTNFLAG
  6. CCPU=_ATTNFLAG
  7. For X=4 To 6
  8.    Bclr X,CPU
  9. Next X
  10. If CPU=0 Then MOTOROLA$="68000"
  11. If CPU=1 Then MOTOROLA$="68010"
  12. If CPU=3 Then MOTOROLA$="68020"
  13. If CPU=7 Then MOTOROLA$="68030"
  14. If CPU=15 Then MOTOROLA$="68040"
  15. If CPU=143 Then MOTOROLA$="68060"
  16. K68881=Btst(4,CCPU)
  17. K68882=Btst(5,CCPU)
  18. K_WBUDOWANY=Btst(6,CCPU)
  19. KOPROCESOR$="brak"
  20. If K68881 Then KOPROCESOR$="68881"
  21. If K68882 Then KOPROCESOR$="68882"
  22. If CPU=15 and K_WBUDOWANY Then KOPROCESOR$="wbudowany w procesor 68040"
  23. If CPU=143 and K_WBUDOWANY Then KOPROCESOR$="wbudowany w procesor 68060"
  24. MMU$="brak"
  25. If CPU=15 or CPU=7 or CPU=143 Then MMU$="Wykryty"
  26. Print "Procesor: ";MOTOROLA$
  27. Print "Koprocesor: ";KOPROCESOR$
  28. Print "Uk�ad MMU: ";MMU$
  29. DENISE=Peek($DFF07D)
  30. DENISE$="OCS"
  31. If DENISE=$F8 Then DENISE$="AGA"
  32. If DENISE=$FC Then DENISE$="ECS"
  33. Print "Uk�ad graficzny: ";DENISE$
  34. Dreg(1)=1
  35. PUBLIC=Execall(-216)
  36. Dreg(1)=2
  37. CHIP=Execall(-216)
  38. Dreg(1)=4
  39. FAST=Execall(-216)
  40. Print "Pami�� CHIP ";CHIP
  41. Print "Pami�� FAST ";FAST
  42. Print "Pami�� ca�kowita ";PUBLIC
  43. STACJA1=Drive("df0:")
  44. STACJA2=Drive("df1:")
  45. STACJA3=Drive("df2:")
  46. STACJA4=Drive("df3:")
  47. STACJA$="Stacje dysk�w: "
  48. If STACJA1 Then STACJA$=STACJA$+" DF0:"
  49. If STACJA2 Then STACJA$=STACJA$+" DF1:"
  50. If STACJA3 Then STACJA$=STACJA$+" DF2:"
  51. If STACJA4 Then STACJA$=STACJA$+" DF3:"
  52. Print STACJA$
  53. HD0=Drive("hd0:")
  54. DH0=Drive("dh0:")
  55. TWARDY$=""
  56. If HD0 or DH0
  57.  
  58.    A=0
  59.    Do 
  60.       HD$=("hd"+Str$(A))-" "+":"
  61.       If Drive(HD$)
  62.          TWARDY$=TWARDY$+HD$+" "
  63.       Else Exit 
  64.       End If 
  65.       Inc A
  66.    Loop 
  67.  
  68.    A=0
  69.    Do 
  70.       DH$=("dh"+Str$(A))-" "+":"
  71.       If Drive(DH$)
  72.          TWARDY$=TWARDY$+DH$+" "
  73.       Else Exit 
  74.       End If 
  75.       Inc A
  76.    Loop 
  77.  
  78. Else TWARDY$="nieznaleziony"
  79.  
  80. End If 
  81. Print "Dysk twardy: ";TWARDY$