home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 8 / amigaformatcd08.iso / in_the_mag / emulation / ql / qdos4amiga3.lha / BOOT < prev    next >
Text File  |  1996-03-07  |  3KB  |  85 lines
  1. 1000 DIM Dev$(5),V$(4),Dat$(20)
  2. 1010 Dev$="Flp1_":V$=VER$
  3. 1020 True%=NOT(0):False%=NOT(True%)
  4. 1030 REMark -- PDTK TOOLKIT --
  5. 1040 _Base=RESPR(3148):LBYTES Dev$&"PDTK_rext",_Base:CALL _Base
  6. 1050 REMark -- TURBO TOOLKIT --
  7. 1060 REMark * TURBO keywords must be
  8. 1070 REMark   initialised before other
  9. 1080 REMark   toolkit keywords with the
  10. 1090 REMark   with the same name.
  11. 1110 _Base=RESPR(7204):LBYTES Dev$&"TURBO_TOOLKIT_code",_Base:CALL _Base
  12. 1120 REMark -- INITIALISE PDTK TOOLKIT --
  13. 1130 PDTK_EXT
  14. 1140 REMark -- CHECK IF ROM AREA FREE --
  15. 1150 SoftROM%=False%
  16. 1160 IF PEEK_L(49152)<>HEX("4AFB0001") THEN 
  17. 1170  Arbitrary=HEX("ABBA1978")
  18. 1180  POKE_L 49152,Arbitrary
  19. 1190  IF PEEK_L(49152)=Arbitrary THEN 
  20. 1200   POKE_L 49152,0
  21. 1210   SoftROM%=True%
  22. 1220  END IF 
  23. 1230 END IF 
  24. 1240 REMark -- TK2 TOOLKIT --
  25. 1250 IF WHERE("TK2_EXT")>0 THEN 
  26. 1260  TK2_EXT
  27. 1270  TOOLKILL
  28. 1280 ELSE 
  29. 1290  IF SoftROM% AND FTEST(Dev$&"TK2_rom")=0 THEN 
  30. 1300   LBYTES Dev$&"TK2_rom",49152
  31. 1310   RESET
  32. 1320  ELSE 
  33. 1330   INSTALL(Dev$&"TK2_cde")
  34. 1340   IF WHERE("TK2_ext")>0 THEN 
  35. 1350    TK2_EXT
  36. 1360    TOOLKILL
  37. 1370   END IF 
  38. 1380  END IF 
  39. 1390 END IF 
  40. 1400 REMark -- D68K TOOLKIT --
  41. 1410 INSTALL(Dev$&"D68K_rext")
  42. 1420 REMark -- DIY RANDOM ACCESS --
  43. 1430 INSTALL(Dev$&"RANDOM_code")
  44. 1440 REMark -- DIY SEARCH MEM --
  45. 1450 INSTALL(Dev$&"SEARCH2_code")
  46. 1460 REMark -- QLIB LIBRARIES --
  47. 1470 INSTALL(Dev$&"QLIB_runtimes")
  48. 1480 REMark -- DIY TOOLKIT --
  49. 1490 INSTALL(Dev$&"DIY_code")
  50. 1500 REMark -- SPEEDSCREEN --
  51. 1510 INSTALL(Dev$&"SPEEDSCREEN_code")
  52. 1520 REMark -- INSTALL RAM DISK --
  53. 1530 IF DDTEST("RAM") THEN 
  54. 1540  INSTALL(Dev$&"DYNAMIC_RAMDRIVE_cde")
  55. 1550  IF DDTEST("RAM") THEN 
  56. 1560   INSTALL(Dev$&"RAMDISC_cde")
  57. 1570   IF DDTEST("RAM")=0 THEN 
  58. 1580    FORMAT "ram1_128"
  59. 1590   END IF 
  60. 1600  END IF 
  61. 1610 END IF 
  62. 1620 REMark -- DATE AND TIME --
  63. 1630 Dat$=DATE$
  64. 1640 IF Dat$(1 TO 4)="1961" THEN 
  65. 1650  IF FTEST(Dev$&"SETDATE_task")=0 THEN 
  66. 1660   EXEC_W Dev$&"SETDATE_task"
  67. 1670  END IF 
  68. 1680 END IF 
  69. 1690 REMark -- SYSTEM INFO --
  70. 1700 MODE 512
  71. 1730 Dat$=DATE$
  72. 1740 CLS#0:CLS#2:CLS:PRINT\" QDOS version ";QDOS$\" BASIC version ";VER$\\" ";DAY$;" ";Dat$(10 TO 11);Dat$(5 TO 9);Dat$(1 TO 4);\\
  73. 1750 IF SoftROM% THEN PRINT " ROM area 49152 to 65536 free":END IF 
  74. 1765 PRINT " ";FREE_MEM;" bytes available"\\
  75. 1770 STOP
  76. 1780 :
  77. 1860 REMark ---- INSTALL A TOOLKIT ----
  78. 1870 DEFine PROCedure INSTALL(file$)
  79. 1880  LOCal size
  80. 1890  IF FTEST(file$)=0 THEN 
  81. 1900   LRESPR(file$)
  82. 1910   TOOLKILL
  83. 1920  END IF 
  84. 1930 END DEFine INSTALL
  85.