[1.4.6] RedPower 2 [Prerelease 6]

#include <stdio[paste][/paste]h>#include <stdlib[paste][/paste]h>#include <sys/stat[paste][/paste]h>int main(int argc, char *argv[]){	struct stat st;	FILE *f_img;	FILE *f_txt;	unsigned short buf;	int i;	if(argc != 3)	{		printf("The command line argument is not valid\n");		exit(0);	}	if (stat(argv[1],&st) != 0)	{		printf("Error\n");		return 1;	}	if ((f_img=fopen(argv[1],"rb")) == NULL)	{		printf("Error\n");		return 1;	}	if ((f_txt=fopen(argv[2],"w")) == NULL)	{		printf("Error\n");		return 1;	}	fprintf(f_txt,"%X\n",(int)st[paste][/paste]st_size/2);	for (i=0; i<st[paste][/paste]st_size/2; i++)	{		fread(&buf,sizeof(buf),1,f_img);		if feof(f_img)		{			printf("Error\n");			return 1;		}		fprintf(f_txt,"%X\n",buf);	}	fclose(f_img);	fclose(f_txt);	return 0;}

\ Ввод беззнакового 2-х байтного числа[paste][/paste]\ ( -- n)6 ALLOT CONSTANT buf_rn: read_numbuf_rn 6 ACCEPT		\ Теперь по адресу buf_rn находится введеная строка[paste][/paste]DROPbuf_rn UATOI;HEX80 ALLOT CONSTANT disk_bufVARIABLE disk_sector	\ Текущий сектор диска[paste][/paste]VARIABLE disk_n	\ Количество байт записанных в текущий сектор[paste][/paste]\ Запись вводимых с клавиатуры данных на диск[paste][/paste]\ Порядок байт: старший байт по большему адресу[paste][/paste]\ Первое введеное число это количество записываемых на диск двухбайтных чисел[paste][/paste]DECIMAL: disk_recCR0 disk_sector !0 disk_n !\ Цикл от 0 до первого введеного числа[paste][/paste]0  read_num SWAP DO	CR	read_num disk_buf disk_n @ + !	2 disk_n +!	128 disk_n @ = IF		\ Если ввели в память 128 байт		disk_buf disk_sector @ DISKWS	\ Записываем все на диск[paste][/paste]		1 disk_sector +!		0 disk_n !	THENLOOP\ Проверка, не пустой ли буфер, если пустой, то заполняем нулями пустую часть буфера и записываем на диск[paste][/paste]\ Для загрузочных дисков эта проверка не обязательна[paste][/paste]disk_n @ 0= IF ELSE	disk_buf disk_n @ +	128 disk_n @ -	0	FILL	disk_buf disk_sector @ DISKWSTHEN;