home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / cs-dos.arc / AUTOEXEC < prev    next >
Encoding:
Text File  |  1990-03-24  |  498 b   |  16 lines
  1. SLOW
  2. REM "╙ET ┼RRORLEVEL TO 1 IF 1750 IS PRESENT OR 0 IF NOT PRESENT.
  3. BANK15:Y=PEEK(57094):POKE 57094,Y+1:POKE 7136,ABS(PEEK(57094)-Y)
  4. Z:IF NOT ERRORLEVEL 1 Z:AUTOEXEC.NO1750
  5. Z:SETRAM 16,2
  6. POKE 7136,1                                    :REM SET ERROR LEVEL TO 1
  7. IF ERRORLEVEL 1 GOTO RAMDISK-ALREADY-THERE
  8. Z:GETRAM RAMDISK
  9. POKE 7120,2*16+8     :REM 1750 WORKSPACE FOR ╠╚┴
  10. POKE 7120,2*16+8     :REM 1750 WORKSPACE FOR ├╙┴╥├1750
  11. :RAMDISK-ALREADY-THERE
  12. IF (PEEK(215) AND 128) THEN FAST
  13. TEXT
  14. NEW
  15. RDIR/W
  16.