home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / ramdos2.sda / RAMDOS.BAS (.txt) < prev    next >
Commodore BASIC  |  1992-06-29  |  2KB  |  70 lines
  1. 5 D=PEEK(186)
  2. 6 POKE53280,6:POKE53281,6
  3. 10 REM F$="RAMDOS.BAS":OPEN1,D,15,"S0:"+F$:CLOSE1:SAVEF$,D
  4. 15 IF P THEN 320
  5. 20 PRINT"[147]";
  6. 30 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  7. 40 PRINT"[221] [158]RAMDISK ][ [159]INSTALLATION - [153]VERSION 1[221]"
  8. 50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT
  9. 60 :
  10. 100 GOSUB9000:IF A=0 THEN 350
  11. 110 U=9:PRINT"INSTALL RAM DISK AS UNIT     10[157][157][157][157]";:INPUTU
  12. 120 : U=INT(U): IF U<4 OR U>30 THEN 110
  13. 125 IF F=0 THEN P=207: L=6: ML=25344: RE=780: F$="RAMDOS64.BIN*"
  14. 126 IF F=1 THEN P=14:  L=5: ML=8960:  RE=6:   F$="RAMDOS128.BIN*"
  15. 130 PRINT "RAM DISK INTERFACE PAGE IS  ";P;LEFT$("[157][157][157][157][157][157]",L);:INPUT P
  16. 140 : IF F=0 AND (P<2 OR P>207) THEN 125
  17. 145 : IF F=1 AND (P<2 OR P>32)  THEN 125
  18. 150 A$="N": INPUT "INITIALIZE RAM DISK          N[157][157][157]";A$
  19. 160 : M=3: IF LEFT$(A$,1)="Y" THEN M=0
  20. 170 :
  21. 180 IF (F=0 AND P=207) OR (F=1 AND P=14) THEN 280
  22. 190 : A$="N": INPUT "CHECK INTERFACE PAGE: ARE YOU SURE  N[157][157][157]";A$
  23. 200 : IF LEFT$(A$,1)<>"Y" THEN 20
  24. 210 :
  25. 215 REM  C128  C64      WHAT IT DO
  26. 220 REM $2300 $6300 --> INSTALL    RAM DISK
  27. 230 REM     3     3 --> RE-INSTALL RAM DISK
  28. 240 REM     6     6 --> INSTALL    RAM DISK W/ ARG: UNIT=.A PAGE=.X
  29. 250 REM     9     9 --> RE-INSTALL RAM DISK W/ ARG: UNIT=.A PAGE=.X
  30. 260 REM     C     C --> DISPLAY COPYRIGHT NOTICE
  31. 270 :
  32. 280 A$="Y":INPUT"RESTORE I/O VECTORS          Y[157][157][157]";A$
  33. 281 IFA$="N"THEN285
  34. 282 PRINT " * RESTORING SYSTEM VECTORS": SYS 65418
  35. 285 : IF F=0 THEN 300
  36. 290 PRINT " * ALLOCATING GRAPHIC AREA FOR RAM DISK": (null)1,1
  37. 295 : IF PEEK((null)("D7"))=0 THEN (null)0
  38. 300 PRINT " * LOADING RAMDISK DRIVER"
  39. 305 : IF F=0 THEN LOAD F$,D,1
  40. 306 : IF F=1 THEN (null) (F$)
  41. 310 :
  42. 320 SYS ML+12              :REM  PRINT EMBEDDED COPYRIGHT NOTICE
  43. 325 POKE RE,U: POKE RE+1,P :REM  LDA UNIT: LDX PAGE
  44. 330 SYS ML+6+M             :REM  (RE)INSTALL RAMDISK, USING UNIT# & PAGE
  45. 340 :
  46. 350 PRINT: END
  47. 360 END
  48. 370 END
  49. 380 END                   :REM  GOODBYE
  50. 390 :
  51. 9000 REM VERIFY PRESENCE OF RAM CARD
  52. 9005 :
  53. 9010 R=57088: A=1
  54. 9020 FORI=2TO5:POKER+I,I:NEXT
  55. 9030 FORI=2TO5:IFPEEK(R+I)<>ITHEN9050
  56. 9040 NEXT: GOTO9080
  57. 9050 A=0: PRINT " RAM EXPANDER NOT PRESENT ": RETURN
  58. 9060 :
  59. 9070 REM DETERMINE IF C64 OR C128
  60. 9075 :
  61. 9080 F=ABS(PEEK(65533)=255) :REM F=0 IF C64, F=1 IF C128
  62. 9090 IF F THEN (null) 15      :REM SELECT 128 SYSTEM BANK
  63. 9100 RETURN
  64. 9110 :
  65. 9995 REM F.BOWEN 08/07/87 COPYRIGHT 1987 COMMODORE BUSINESS MACHINES, INC.
  66. 9996 :
  67. 9997 REM   2MB PATCHES 01/03/91
  68. 9998 REM   BY ANDREW E. MILESKI
  69. 9999 REM     ALIAS 'RECURSION'
  70.