;NO-WRITE FOR CP/M 2.2 AS OF 11/28/87 ;COPYRIGHT (C) 1987 ROBERT GREENLEE, P.O. BOX 23286, SAN DIEGO CA 92123 ;PHONE VOICE 619-268-0112 ; MODEM 619-569-8613. ; ;THIS PROGRAM IS A PAL OF EDIR'S. REFER TO EDIR.DOC. ; ; ;ON MOST COMPUTERS THIS PROGRAM ONLY LASTS UNTIL THE NEXT WARM BOOT. ; ORG 0100H JMP START MESSAGE: DB 0DH,0AH DB 'NO-WRITE v1.0 (C) 1987 by Robert Greenlee, P.O. Box 23286,',0DH,0AH DB 'San Diego, CA 92123. 619-268-0112 Voice. Modem 619-569-8613.',0DH,0AH DB 0DH,0AH DB 'If you don''t know what this program does then please reset',0DH,0AH DB 'your computer NOW. This program is basically a W-O-R-M !!!',0DH,0AH DB 'This particular worm can be used to help recover disk data',0DH,0AH DB 'once belonging to erased files which are no longer unerasable.',0DH,0AH DB 0DH,0AH DB 'Immediately after running this program the CP/M SAVE command',0DH,0AH DB 'could be used to capture unallocated disk data into a file or',0DH,0AH DB 'files. For example the command: A>SAVE 128 FILE1 would',0DH,0AH DB 'create a 32K file named FILE1 containing data from previously',0DH,0AH DB 'unallocated disk space. Remember to reset your computer after',0DH,0AH DB 'issuing the SAVE command(s) in order to kill the worm.',0DH,0AH DB 0DH,0AH DB 'Refer to EDIR.DOC for detailed instructions. Good luck.',0DH,0AH DB 0DH,0AH DB '$' SAYOOPS: DB 0DH,0AH DB 'Oh darn nothing happened! It seems you''re not using the real',0DH,0AH DB 'CP/M 2.2 BDOS which NO-WRITE needs in order for it to work.',0DH,0AH DB '$' START: LDA 2 SUI 4 MOV H,A MVI L,0A1H MVI A,0C1H CMP M MVI C,9 ;IF NOT REAL CP/M 2.2 BDOS ABORT AND TELL USER LXI D,SAYOOPS JNZ 5 INR L MVI M,1 ;OPCODE FOR LXI B, MVI L,0C0H MVI M,1 ;OPCODE FOR LXI B, ;GIVE WORM WARNING MESSAGE MVI C,9 LXI D,MESSAGE JMP 5 END