home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / disks / misc / hd-tools / s / 680x0-startup next >
Text File  |  1980-01-10  |  3KB  |  71 lines
  1. ; Startup-sequence für die Unterscheidung verschiedener Prozessortypen
  2.  
  3. FAILAT 21                               ; setze Fehlerlevel
  4.  
  5. 680x0-Test                              ; Teste den Prozessor
  6. if FAIL                                 ; bei 68030 - Prozessor
  7.  
  8.   ; Mounte eine Partition mit Kickstart 2.0
  9.  
  10.   path dh0:c                            ; durchsuche das neue C-Verzeichniss
  11.   assign sys: dh0:                      ; weise dem logischen Laufwerk SYS:
  12.                                         ; das Laufwerk dh0: zu
  13.   assign c: dh0:c
  14.   assign s: dh0:s
  15.   assign libs: dh0:libs
  16.   assign devs: dh0:devs
  17.   assign fonts: dh0:fonts
  18.   assign l: dh0:l
  19.   assign ENVARC: dh0:prefs/env-archive
  20.   cd dh0:                               ; wechsel das aktuelle Laufwerk
  21.   run >NIL: execute s/startup-sequence  ; führe die Startup-Sequence aus
  22.   wait 10                               ; warte 10 Sekunden
  23.   prefs/palette use                     ; setze die richtigen Farben
  24.   prefs/pointer use                     ; setze den richtigen Mauszeiger
  25.   endcli                                ; beende den CLI-Prozeß
  26. endif
  27.  
  28. 680x0-Test                              ; Teste den Prozessor
  29. if ERROR                                ; bei 68020 - Prozessor
  30.  
  31.   ; Mounte eine Partition mit Kickstart 2.0
  32.  
  33.   path dh0:c                            ; durchsuche das neue C-Verzeichniss
  34.   assign sys: dh0:                      ; weise dem logischen Laufwerk SYS:
  35.                                         ; das Laufwerk dh0: zu
  36.   assign c: dh0:c
  37.   assign s: dh0:s
  38.   assign libs: dh0:libs
  39.   assign devs: dh0:devs
  40.   assign fonts: dh0:fonts
  41.   assign l: dh0:l
  42.   assign ENVARC: dh0:prefs/env-archive
  43.   cd dh0:                               ; wechsel das aktuelle Laufwerk
  44.   run >NIL: execute s/startup-sequence  ; führe die Startup-Sequence aus
  45.   wait 10                               ; warte 10 Sekunden
  46.   prefs/palette use                     ; setze die richtigen Farben
  47.   prefs/pointer use                     ; setze den richtigen Mauszeiger
  48.   endcli                                ; beende den CLI-Prozeß
  49. endif
  50.  
  51. 680x0-Test                              ; Teste den Prozessor
  52. if WARN                                 ; bei 68010 - Prozessor
  53.  
  54.   ; Mounte eine Partition mit Kickstart 1.3
  55.  
  56.   path dh1:c                            ; durchsuche das neue C-Verzeichnis
  57.   assign sys: dh1:                      ; weise dem logischen Laufwerk SYS:
  58.                                         ; das Laufwerk dh0: zu
  59.   assign c: dh1:c
  60.   assign s: dh1:s
  61.   assign libs: dh1:libs
  62.   assign devs: dh1:devs
  63.   assign fonts: dh1:fonts
  64.   assign l: dh1:l
  65.   cd dh1:                               ; wechsel das aktuelle Laufwerk
  66.   execute s/startup-sequence            ; führe die Startup-Sequence aus
  67.   endcli                                ; beende den CLI-Prozeß
  68. endif
  69.  
  70. ; startup-sequence für 68000 Prozessor
  71.