home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / DICEC-1.DMS / in.adf / s / startup-sequence < prev   
Encoding:
Text File  |  1993-07-21  |  3.6 KB  |  163 lines
  1.  
  2. ;*********************************************
  3. ;       SYSTEM ORGANIZATION             *
  4. ;*********************************************
  5. ;
  6. ; The startup-sequence depends on the fact that certain OS 2.0 commands
  7. ; are internal, so by pointing the path to the 1.3 commands and running a
  8. ; command without a path prefix, the 1.3 command will be run under 1.3
  9. ; and the 2.0 command will be run under 2.0.  The only exception is
  10. ; the Wait command.  The 1.3 Wait works under 2.0 which simplifies the
  11. ; startup greatly.
  12. ;
  13. ;        1.3        2.0
  14. ; --------------------------------------
  15. ; RUN        c/        INTERNAL
  16. ; FAILAT    c/        INTERNAL
  17. ; EXECUTE    c/        INTERNAL
  18. ; WAIT        c/        -
  19. ; PATH        c/        INTERNAL
  20. ; IF        c1.3/        INTERNAL
  21. ; ELSE        c1.3/        INTERNAL
  22. ; ENDIF     c1.3/        INTERNAL
  23. ; CD        c1.3/        INTERNAL
  24. ; ECHO        c1.3/        INTERNAL
  25. ; SETENV    c1.3/        INTERNAL
  26. ; ASSIGN    c1.3/        c2.0/
  27. ; DIR        c1.3/        c2.0/
  28. ; LIST        c1.3/        c2.0/
  29. ;
  30. ; The directories c/, s/, and l/ are not compressed.  All other directories
  31. ; are compressed.
  32.  
  33. c/avail
  34. run <nil: >nil: l/fsovl-handler
  35. wait 5 sec            ; wait for handler to finish loading
  36. failat 21
  37. path reset arch:xdcc1/c1.3
  38.  
  39. arch:xdcc1/bin/noreq
  40.  
  41. resident >nil: force        ; error code 20 if running under 1.3
  42. if WARN
  43. ;*********************************************
  44. ;            1.3 OS             *
  45. ;*********************************************
  46. echo "DICE Boot for 1.3"
  47. SetPatch
  48. assign l: arch:xdcc1/l1.3
  49. assign libs: arch:xdcc1/libs1.3
  50. assign DCC1: arch:xdcc1
  51. if exists XDCC2:
  52. assign DCC2: arch:xdcc2
  53. endif
  54. if exists XDCC3:
  55. assign DCC3: arch:xdcc3
  56. endif
  57.  
  58. else
  59. ;*********************************************
  60. ;            2.0 OS             *
  61. ;*********************************************
  62.  
  63. echo "DICE Boot for 2.0"
  64. path reset arch:xdcc1/c2.0
  65. SetPatch
  66. resident arch:xdcc1/c2.0/assign
  67. assign c: arch:xdcc1/c2.0
  68. assign l: arch:xdcc1/l2.0
  69. assign libs: arch:xdcc1/libs2.0 arch:xdcc1/libs
  70. assign DCC1: arch:xdcc1
  71. assign DCC2: arch:xdcc2 DEFER
  72. assign DCC3: arch:xdcc3 DEFER
  73. endif
  74.  
  75. arch:xdcc1/bin/noreq off
  76.  
  77. ;*********************************************
  78. ;           MISC OS             *
  79. ;*********************************************
  80.  
  81. assign sys: arch:xdcc1
  82. assign ENV: ram:
  83. assign t: ram:
  84. assign c: arch:XDCC1/C
  85. cd sys:
  86.  
  87. ;*********************************************
  88. ;            DICE SETUP             *
  89. ;*********************************************
  90. ;
  91.  
  92. stack 8192
  93. execute DCC1:s/startup-dice DCC1:
  94.  
  95. ;*********************************************
  96. ;       RECOGNITION OF OTHER FLOPPIES     *
  97. ;*********************************************
  98. ;
  99. ; GENERAL RECOGNITION
  100.  
  101. noreq
  102.  
  103. if exists XDCC2:bin
  104. path add DCC2:bin
  105. endif
  106.  
  107. if exists XDCC3:bin
  108. path add DCC3:bin
  109. endif
  110.  
  111. resident >nil: force        ; error code 20 if running under 1.3
  112. if WARN
  113. ;******************************
  114. ;      1.3 specific          *
  115. ;******************************
  116.  
  117.  
  118. else
  119. ;******************************
  120. ;      2.0 specific          *
  121. ;******************************
  122.  
  123. if exists XDCC2:include
  124. assign dinclude: DCC2:include ADD
  125. endif
  126. if exists XDCC2:dlib
  127. assign dlib: DCC2:dlib ADD
  128. endif
  129.  
  130. if exists XDCC3:include
  131. assign dinclude: DCC3:include ADD
  132. endif
  133. if exists XDCC3:dlib
  134. assign dlib: DCC3:dlib ADD
  135. endif
  136.  
  137. endif
  138.  
  139. noreq off
  140.  
  141. ;*********************************************
  142. ;           README FILE             *
  143. ;*********************************************
  144. ;
  145.  
  146. c/avail
  147. run <nil: >nil: dme XDCC1:README.DOC
  148.  
  149. ;*********************************************
  150. ;           SPECIAL 1.3 CRAP          *
  151. ;*********************************************
  152. ;
  153. ; we have to bring up a new CLI using Shell-Seg
  154. ; so execution of resident'd programs work.
  155.  
  156. resident >nil: force        ; error code 20 if running under 1.3
  157. if WARN
  158. resident CLI l1.3/Shell-Seg SYSTEM REPLACE
  159. newcli con:0/100/640/100/Command_Line_Interface
  160. endcli >nil:
  161. endif
  162.  
  163.