Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-28 09:30:41 +00:00
Code Issues Projects Releases Wiki Activity

twoline: of course qkumba did it better

Browse Source
This commit is contained in:
Vince Weaver 2020-10-04 12:44:50 -04:00
parent 9a6ef1a7ae
commit e2ac01dd91
3 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
two-liners/Makefile
View File

@ -6,7 +6,7 @@ TOKENIZE = ../asoft_basic-utils/tokenize_asoft
all: entropy.dsk convert_to convert_back
entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.BAS \
CIRCLES.BAS AUTUMN.BAS LOAD
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS LOAD
$(DOS33) -y entropy.dsk BSAVE -a 0x0C00 ENTROPY
$(DOS33) -y entropy.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y entropy.dsk SAVE A ENTROPY.BAS
@ -15,6 +15,7 @@ entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y entropy.dsk SAVE A FLAME2.BAS
$(DOS33) -y entropy.dsk SAVE A AUTUMN.BAS
$(DOS33) -y entropy.dsk SAVE A CIRCLES.BAS
$(DOS33) -y entropy.dsk SAVE A QKUMBA.BAS
###
@ -49,6 +50,10 @@ LOAD: load.o
load.o: load.s
ca65 -o load.o load.s -l load.lst
####
QKUMBA.BAS: qkumba_seasons.bas
$(TOKENIZE) < qkumba_seasons.bas > QKUMBA.BAS
####

14
two-liners/convert_qkumba.c Normal file
View File

@ -0,0 +1,14 @@
i = 0;
e = 0;
do
{
enc[e++] = ((in[i + 2] & 3) << 4) + ((in[i + 1] & 3) << 2) + (in[i + 0] & 3) + 32;
in[i + 0] = (in[i + 0] >> 2) + 32;
in[i + 1] = (in[i + 1] >> 2) + 32;
in[i + 2] = (in[i + 2] >> 2) + 32;
write(o, in + i, 3);
}
while ((i += 3) < filesize);
write(o, enc, sizeof(enc));

2
two-liners/qkumba_seasons.bas Normal file
View File

@ -0,0 +1,2 @@
1REM(V\I\I]B.Y]A\FY]R@:A]9\&B9]A]F9]R@:A]9]9]9^9^9^L'Y^T Y_I\:@A\D Y].J Y]A]J Y]A]I^")_1_A^*!" JI],HI]*\TG([]I\I]I](5]K 0,CIJ2 AJ4A 'P.(53&&.6%98:N8*YHT1C"151FM2T=:R10@.4,A0V)P
2FOR I=0TO127:C=INT((PEEK(2183+I/3)-32)/4^(I-INT(I/3)*3)):POKE 4096+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL4096