mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-02 01:29:06 +00:00
70 lines
1.5 KiB
C
70 lines
1.5 KiB
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);
|
|
}
|