home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / EDIR.ZIP / NO-WRITE.ASM < prev    next >
Assembly Source File  |  1990-11-24  |  2KB  |  68 lines
  1.  
  2. ;NO-WRITE FOR CP/M 2.2 AS OF 11/28/87
  3. ;COPYRIGHT (C) 1987 ROBERT GREENLEE, P.O. BOX 23286, SAN DIEGO CA 92123
  4. ;PHONE VOICE 619-268-0112
  5. ;      MODEM 619-569-8613.
  6. ;
  7. ;THIS PROGRAM IS A PAL OF EDIR'S.  REFER TO EDIR.DOC.
  8. ;
  9. ;
  10. ;ON MOST COMPUTERS THIS PROGRAM ONLY LASTS UNTIL THE NEXT WARM BOOT.  
  11. ;
  12.  
  13. ORG 0100H
  14.  
  15. JMP START
  16.  
  17. MESSAGE:
  18. DB 0DH,0AH
  19. DB 'NO-WRITE v1.0 (C) 1987 by Robert Greenlee, P.O. Box 23286,',0DH,0AH
  20. DB 'San Diego, CA 92123.  619-268-0112 Voice.  Modem 619-569-8613.',0DH,0AH
  21. DB 0DH,0AH
  22. DB 'If you don''t know what this program does then please reset',0DH,0AH
  23. DB 'your computer NOW.  This program is basically a W-O-R-M !!!',0DH,0AH
  24. DB 'This particular worm can be used to help recover disk data',0DH,0AH
  25. DB 'once belonging to erased files which are no longer unerasable.',0DH,0AH
  26. DB 0DH,0AH
  27. DB 'Immediately after running this program the CP/M SAVE command',0DH,0AH
  28. DB 'could be used to capture unallocated disk data into a file or',0DH,0AH
  29. DB 'files.  For example the command:  A>SAVE 128 FILE1 <cr> would',0DH,0AH
  30. DB 'create a 32K file named FILE1 containing data from previously',0DH,0AH
  31. DB 'unallocated disk space.  Remember to reset your computer after',0DH,0AH
  32. DB 'issuing the SAVE command(s) in order to kill the worm.',0DH,0AH 
  33. DB 0DH,0AH
  34. DB 'Refer to EDIR.DOC for detailed instructions.  Good luck.',0DH,0AH
  35. DB 0DH,0AH
  36. DB '$'
  37.  
  38. SAYOOPS:
  39. DB 0DH,0AH
  40. DB 'Oh darn nothing happened!  It seems you''re not using the real',0DH,0AH
  41. DB 'CP/M 2.2 BDOS which NO-WRITE needs in order for it to work.',0DH,0AH
  42. DB '$'
  43.  
  44. START:
  45. LDA 2
  46. SUI 4
  47. MOV H,A
  48. MVI L,0A1H
  49. MVI A,0C1H
  50. CMP M
  51.  
  52. MVI C,9        ;IF NOT REAL CP/M 2.2 BDOS ABORT AND TELL USER
  53. LXI D,SAYOOPS
  54. JNZ 5
  55.  
  56. INR L
  57. MVI M,1         ;OPCODE FOR LXI B,
  58. MVI L,0C0H
  59. MVI M,1         ;OPCODE FOR LXI B,
  60.  
  61. ;GIVE WORM WARNING MESSAGE
  62. MVI C,9
  63. LXI D,MESSAGE
  64. JMP 5
  65.  
  66.  END
  67.  
  68.