dsr_shape: initial commit

This commit is contained in:
Vince Weaver 2020-06-13 22:54:38 -04:00
parent d91169a2e7
commit e985c20ed5
8 changed files with 125 additions and 0 deletions

40
shapetable_party/Makefile Normal file
View File

@ -0,0 +1,40 @@
include ../Makefile.inc
DOS33 = ../dos33fs-utils/dos33
PNG_TO_40x96 = ../gr-utils/png_to_40x96
PNG_TO_40x48D = ../gr-utils/png_to_40x48d
PNG2RLE = ../gr-utils/png2rle
B2D = ../bmp2dhr/b2d
all: dsr_shape.dsk
dsr_shape.dsk: HELLO DSRSHAPE
cp empty.dsk dsr_shape.dsk
$(DOS33) -y dsr_shape.dsk SAVE A HELLO
# $(DOS33) -y dsr_shape.dsk SAVE A DSR.BAS
# $(DOS33) -y dsr_shape.dsk BSAVE -a 0x1000 DSR
$(DOS33) -y dsr_shape.dsk BSAVE -a 0x1000 DSRSHAPE
DSRSHAPE: dsr_shape.o
ld65 -o DSRSHAPE dsr_shape.o -C ../linker_scripts/apple2_1000.inc
dsr_shape.o: dsr_shape.s
ca65 -o dsr_shape.o dsr_shape.s -l dsr_shape.lst
###
HELLO: hello.bas
../asoft_basic-utils/tokenize_asoft < hello.bas > HELLO
###
DSR.BAS: dsr.bas
../asoft_basic-utils/tokenize_asoft < dsr.bas > DSR.BAS
####
clean:
rm -f *~ *.o *.lst HELLO DSR DSRSHAPE

View File

@ -0,0 +1,13 @@
# Person, raising arm
1
START
NRT NRT
NRT NRT
NRT NRT
NRT NRT
NRT
UP UP UP UP UP
UP UP
RT
NDN DN DN DN DN DN DN
STOP

View File

@ -0,0 +1,8 @@
# Number of shapes
1
START
RT RT DN DN LT LT NLT
LT LT UP UP RT RT NDN NDN UP UP UP UP NDN NDN NRT
UP UP RT RT NRT NRT NRT NDN NDN LT LT DN DN
STOP

Binary file not shown.

View File

@ -0,0 +1,29 @@
# Person, shoulders up
1
START
RT RT
RT UP
UP LT
UP UP
UP RT
UP RT
RT DN
LT DN
LT RT NRT
RT UP
DN NDN
LT LT
LT DN NRT
RT RT
DN NLT
LT DN
RT RT
RT RT
RT NDN
LT LT
LT LT
LT LT
LT LT
LT LT
LT
STOP

BIN
shapetable_party/empty.dsk Normal file

Binary file not shown.

View File

@ -0,0 +1,6 @@
5 HOME
10 HTAB 10:PRINT "DSR SHAPETABLE PARTY"
20 HTAB 15:PRINT "BY DEATER"
30 PRINT
40 PRINT "TO RUN: BRUN DSRSHAPE"
120 PRINT CHR$(4);"CATALOG"

View File

@ -0,0 +1,29 @@
# Person, shoulders up
1
START
RT RT
RT UP
UP LT
UP UP
UP RT
UP RT
RT DN
LT DN
LT RT NRT
RT UP
DN NDN
LT LT
LT DN NRT
RT RT
DN NLT
LT DN
RT RT
RT RT
RT NDN
LT LT
LT LT
LT LT
LT LT
LT LT
LT
STOP