Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 17:29:49 +00:00
Code Issues Projects Releases Wiki Activity

appleiibot: more rle examples

Browse Source
This commit is contained in:
Vince Weaver 2020-10-28 01:04:16 -04:00
parent 03509cb5cb
commit f56464fae9
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
appleiibot/Makefile
View File

@ -9,7 +9,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
RLEASM.BAS
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@ -39,6 +40,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A A2_4EVER.BAS
$(DOS33) -y appleiibot.dsk SAVE A RLE.BAS
$(DOS33) -y appleiibot.dsk SAVE A RLE2.BAS
$(DOS33) -y appleiibot.dsk SAVE A RLEASM.BAS
###
@ -229,5 +231,10 @@ RLE2.BAS: rle2.bas
####
RLEASM.BAS: rleasm.bas
$(TOKENIZE) < rleasm.bas > RLEASM.BAS
####
clean:
rm -f *~ *.o *.lst convert_to convert_from convert_qkumba make_boxes convert_back LOAD *.BAS

7
appleiibot/rle3.bas Normal file
View File

@ -0,0 +1,7 @@
1REM E< F< D,& *? 6-& +/" 5)& +/# 4!' */$ 3"' */% 3&% +'& @20/+"% 2-$""?!#"$/#"& /-&""/"1$#2/$"' --$)#""/+"( .-%""/+") /-#""'*/+ 120/)7/, _ _ K'_'_'B
2GR:VTAB1:I=2054
3C=PEEK(I)-32:IFC>15THENL=1:C=C-16:GOTO5
4I=I+1:L=PEEK(I)-32:IFL=0THENEND
5I=I+1
6POKEPEEK(40)+PEEK(41)*256+PEEK(36),C*17:CALL-1036:L=L-1:IFLTHEN6
7GOTO3

2
appleiibot/rleasm.bas Normal file
View File

@ -0,0 +1,2 @@
1REM\)'\)'\);H'\%;L+\%:L/\%<H3\$<H7\$5L9\($$O4\$3(',0/8\#;(+$-$3<T3.(O@X7(OD\#/(IO\$$$G%S (0^J A)(6^H N; 2(9^:2222\ZR#T!RN; JA_I,(\^RT^I_R3S 3P $( ,&3Q0,+SR@L8>N<>X2Y2N<^D\#<%\0, H*U QR!L #..
2FORI=0TO140:C%=(PEEK(2194+I/3)-32)/4^(I-INT(I/3)*3):POKE876+I,C%+4*(PEEK(2054+I)-32-INT(C%/4)):NEXT:&