���d X;NOFORMATn X;BY GLENN K. SMITHx X;(c)1988, ANTIC PUBLISHING� EI� F� P� X;� X;THIS PROGRAM WILL SETUP A� !X;RAMDISK AS DRIVE #8. IT WILL� "X;NOT FORMAT IT SO ANY PREVIOUS� !X;FILES WILL REMAIN INTACT. IT� "X;ALSO CHECKS TO SEE IF DUP.SYS� X;IS PRESENT IN THE RAMDISK.� X;� �ROWCRS T� �COLCRS U �RTCLOK �CURSOR � �ICCOM B" �ICSTA C, �ICBAL D6 �ICBAH E@ �ICBLL HJ �ICBLH IT�ICAUX1 J^�ICAUX2 Kh �SIOV Y�r �CIOV V�|�DRVBYT � �DINIT ���DUPDRV ?�X;� �RAMDISK�#�CURSOR;;HIDE CURSOR� �CLRS;;CLEAR SCREEN�Q>;;POSITION 6,4� P�ROWCRS�Q>� P�COLCRS� �PRINT�& A�Setting Up ATARI 130XE RAMDisk A� = Q>;;8 SPACES OVER P�COLCRS �PRINT& A�RAMDisk Not Formatted! A0 = = = = = :Q> ;;13 SPACES OVERD P�COLCRSN �PRINTX A�����������Ab = l!Q�DRVBYT;;SAY WE HAVE DRIVE #8vL>�� P�DRVBYT� �DINIT;;INIT DRIVE #8�X;� �CLOSE;;CLOSE IOCB�$>@;;IOCB #4� Q>;;OPEN� P�ICCOM9�Q>4�DUPSYS;;D8:DUP.SYS� P�ICBAL9� Q>5�DUPSYS� P�ICBAH9�Q>;;INPUT� P�ICAUX19Q> ;;AUX #2 P�ICAUX29 �CIOV;;DO IT $>@;;IOCB #4*Q�ICSTA9;;GET STATUS4G�NOTFND;;FILE NOT FOUND>X;HQ> 8;;IS D8:R P�DUPDRV\ �NOTFNDf �CLOSE;;CLOSE IOCBpX;zQ�RTCLOK;;WAIT�,�O>�;;128 JIFFIES��WAIT� R�RTCLOK� H�WAIT�X;�"�CURSOR;;RESTORE CURSOR�!�CLRS;;CLEAR SCREEN�X;� �PRINT�7;;GET STRING ADDR-1�P�STRING�7P�STRING �NEXTCH #�STRING;;GET CORRECT ADDR$ H�STRING.X;8#�STRINGB �STRINGLQ��;;STRING ADDRVF�ENDOUT;;ALL DONE?`X;j �COUT;;PRINT CHARt !�NEXTCH;;GET ANOTHER ONE~X;� �ENDOUT� Q�STRING;;GET RETURN ADDR�5�Q�STRING�5�:�X;��COUT�$> ;;IOCB #0�&�ICBLL;;LENGTH LSB�&�ICBLH;;LENGTH MSB� %> ;;PUT '�ICCOM !�CIOV;;PUT CHARX; �CLRS( �PRINT;;CLEAR SCREEN2 A�}A< = F:PX;Z �CLOSEd$>@;;CLOSE IOCB #4nQ> x P�ICCOM9� !�CIOV�X;� �DUPSYS� A�D8:DUP.SYSA� �X;� �� �RAMDISK�
Back to previous page