*INTRO CPM:AUTO DIR CLRS: T:{ T:This program automatically runs FORMAT, SYSGEN, and copies AUTO.COM. T: T:Diskettes prepared by this program AUTOmatically display their directory. T: T: T:Using this program is an easy way to prepare new diskettes for the Morrow. T: T:It will also completely erase and "reclaim" used diskettes. T: T: T: To prepare a diskette, type P and press RETURN. T: T: To return to CP/M, type C and press RETURN. T: *RESPOND T: TNR:Type either P or C and press RETURN. A: M: P , C , JY:*STEP JN:*RESPOND *STEP M: P , JY:*MAINPGM M: C , CPMY:AUTO PILOT NEWDISK END: *MAINPGM CLRS: T: T: T: Since FORMAT erases everything on a diskette, be sure T: you don't put a diskette with anything valuable on it T: in thc ;Save the logical drive number sta cpmdrv, cpi maxlog ;Check for a valid drive number jnc zret ;Illegal drive$ mov a,e ;Check if bit 0 of (e) = 1 ani 1- jnz setd3 ;Drive has allready been accessed& mov h,c ;M FORMAT B;;SYS... CPM:FORMAT B D;;SYSGEN;A;B;;PIP B:=A:AUTO.COM[V] CLRS: T: T:The blank diskette is now ready for use. T: T:Remove it from the UPPER (B:) drive. T: T:You may now prepare another diskette (P), T: or you may return to CP/M (C). T: J:*RESPOND R:End of program