dos33fsprogs/basic/z/z.c

/* by qkumba */

/* plaintext machine language for 6+2 encoding suitable for basic bot */

/* unfortunately the tokenizer has apple II enhanced behavior */
/*	where lowercase letters outside of quotes/rem are uppercased */


#include <fcntl.h>
//#include <io.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>

#ifndef O_BINARY
#define O_BINARY  0
#define O_TEXT    0
#endif

static unsigned char decoder[] = "\"******GRASCDEFITa!DEL0GR)@I\\q}F0jjjjjjjF0jFORLOGASCsONERR0)}=LENpPOSlo";

void main(int argc, char *argv[])
{
	int i, l, j, b2, b6;
	unsigned char b[150];
	unsigned char bb2[150];
	unsigned char bb6[150];
	char call[32];

	memset(b, 0, sizeof(b));
	i = open(argv[1], O_RDONLY | O_BINARY);
	l = read(i, b, sizeof(b));
	close(i);

	j = 0;
	b2 = 0;
	b6 = sizeof(bb6);

	do
	{
		unsigned char c;

		if (!(j % 3))
		{
			c = ((((b[j + 0] >> 6) & 2) + (b[j + 0] & 1)) << 0)
	 		  + ((((b[j + 1] >> 6) & 2) + (b[j + 1] & 1)) << 2)
			  + ((((b[j + 2] >> 6) & 2) + (b[j + 2] & 1)) << 4)
			  + 0x2b
			  - (7 * (int) !j);

			bb2[b2++] = c;
		}

		c = ((b[j] >> 1) & 0x3f) + 0x23 + (int) !(j % 3);

		bb6[--b6] = c;
	}
	while (++j < l);

	sprintf(call, "0CALL%d\"", 2049+10+b2+6+(int)sizeof(bb6)-b6+1);
	i = open("out", O_WRONLY | O_BINARY | O_CREAT | O_TRUNC, 0x80);
	write(i, call, strlen(call));
	write(i, bb2, b2);
	write(i, "\n1\"", sizeof("\n1\"")-1);
	write(i, bb6 + b6, sizeof(bb6) - b6);
	write(i, decoder, sizeof(decoder)-1);
	write(i, "\n",1);
	close(i);
}