mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-25 09:29:35 +00:00
hgr: boxes
This commit is contained in:
parent
6d5a85c7f7
commit
87dff8394f
69
graphics/hgr/boxes/Makefile
Normal file
69
graphics/hgr/boxes/Makefile
Normal file
|
@ -0,0 +1,69 @@
|
||||||
|
include ../../../Makefile.inc
|
||||||
|
|
||||||
|
DOS33 = ../../../utils/dos33fs-utils/dos33
|
||||||
|
TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
|
||||||
|
LINKERSCRIPTS = ../../../linker_scripts
|
||||||
|
EMPTYDISK = ../../../empty_disk/empty.dsk
|
||||||
|
|
||||||
|
all: boxes.dsk make_boxes
|
||||||
|
|
||||||
|
boxes.dsk: HELLO A2_BOXES BOXES RR NYAN
|
||||||
|
cp $(EMPTYDISK) boxes.dsk
|
||||||
|
$(DOS33) -y boxes.dsk SAVE A HELLO
|
||||||
|
$(DOS33) -y boxes.dsk BSAVE -a 0x300 BOXES
|
||||||
|
$(DOS33) -y boxes.dsk BSAVE -a 0xC00 A2_BOXES
|
||||||
|
$(DOS33) -y boxes.dsk BSAVE -a 0xC00 RR
|
||||||
|
$(DOS33) -y boxes.dsk BSAVE -a 0xC00 NYAN
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
HELLO: hello.bas
|
||||||
|
$(TOKENIZE) < hello.bas > HELLO
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
A2_BOXES: a2_boxes.o
|
||||||
|
ld65 -o A2_BOXES a2_boxes.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
a2_boxes.o: a2_boxes.s
|
||||||
|
ca65 -o a2_boxes.o a2_boxes.s -l a2_boxes.lst
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
RR: rr.o
|
||||||
|
ld65 -o RR rr.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
rr.o: rr.s
|
||||||
|
ca65 -o rr.o rr.s -l rr.lst
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
NYAN: nyan.o
|
||||||
|
ld65 -o NYAN nyan.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
nyan.o: nyan.s
|
||||||
|
ca65 -o nyan.o nyan.s -l nyan.lst
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
BOXES: boxes.o
|
||||||
|
ld65 -o BOXES boxes.o -C $(LINKERSCRIPTS)/apple2_300.inc
|
||||||
|
|
||||||
|
boxes.o: boxes.s
|
||||||
|
ca65 -o boxes.o boxes.s -l boxes.lst
|
||||||
|
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
make_boxes: make_boxes.o
|
||||||
|
$(CC) -o make_boxes make_boxes.o $(LFLAGS)
|
||||||
|
|
||||||
|
make_boxes.o: make_boxes.c
|
||||||
|
$(CC) $(CFLAGS) -c make_boxes.c
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *~ *.o *.lst HELLO A2_BOXES BOXES RR make_boxes
|
2
graphics/hgr/boxes/hello.bas
Normal file
2
graphics/hgr/boxes/hello.bas
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
5 HOME
|
||||||
|
10 PRINT CHR$(4);"CATALOG"
|
27
graphics/hgr/boxes/myst.bas
Normal file
27
graphics/hgr/boxes/myst.bas
Normal file
|
@ -0,0 +1,27 @@
|
||||||
|
1HGR2
|
||||||
|
2READC,D,A,B,V,W:IFC>127THENEND
|
||||||
|
3P=0:FORY=BTOW:HCOLOR=C:IFPTHENHCOLOR=D
|
||||||
|
4P=NOTP:HPLOTA,YTOV,Y:NEXT:GOTO2
|
||||||
|
50 DATA 3,3,0,0,140,90
|
||||||
|
52 DATA 3,3,140,0,279,90
|
||||||
|
60 DATA 1,6,0,90,140,191
|
||||||
|
62 DATA 1,6,140,90,279,191
|
||||||
|
64 DATA 4,1,157,121,208,191
|
||||||
|
70 DATA 0,7,141,116,231,135
|
||||||
|
71 DATA 7,0,156,20,209,126
|
||||||
|
72 DATA 0,7,210,17,213,121
|
||||||
|
75 DATA 7,0,145,9,212,20
|
||||||
|
76 DATA 0,7,162,0,220,20
|
||||||
|
77 DATA 5,0,172,91,187,123
|
||||||
|
78 DATA 7,7,169,31,191,63
|
||||||
|
79 DATA 7,7,165,39,194,60
|
||||||
|
80 DATA 5,1,0,163,63,191
|
||||||
|
82 DATA 5,1,63,167,177,191
|
||||||
|
84 DATA 5,1,177,185,230,191
|
||||||
|
90 DATA 5,0,23,0,39,178
|
||||||
|
91 DATA 1,5,1,13,99,44
|
||||||
|
92 DATA 5,0,0,0,20,191
|
||||||
|
94 DATA 0,5,66,0,81,187
|
||||||
|
96 DATA 1,5,66,1,99,19
|
||||||
|
97 DATA 0,0,177,32,181,50
|
||||||
|
999 DATA 128,0,0,0,0,0
|
22
graphics/hgr/boxes/myst.points
Normal file
22
graphics/hgr/boxes/myst.points
Normal file
|
@ -0,0 +1,22 @@
|
||||||
|
3 3 0 0 140 90 ; sky left
|
||||||
|
3 3 140 0 279 90 ; sky right
|
||||||
|
1 6 0 90 140 191 ; ocean left
|
||||||
|
1 6 140 90 279 191 ; ocean right
|
||||||
|
4 1 157 121 208 191 ; tower shadow
|
||||||
|
0 7 141 116 231 135 ; gear base
|
||||||
|
7 0 156 20 209 126 ; tower
|
||||||
|
0 7 210 17 213 121 ;
|
||||||
|
7 0 145 9 212 20
|
||||||
|
0 7 162 0 220 20
|
||||||
|
5 0 172 91 187 123
|
||||||
|
7 7 169 31 191 63 ; clock face tall
|
||||||
|
7 7 165 39 194 60 ; clock face wide
|
||||||
|
5 1 0 163 63 191 ; grass
|
||||||
|
5 1 63 167 177 191 ; grass
|
||||||
|
5 1 177 185 230 191 ; grass
|
||||||
|
5 0 23 0 39 178 ; tree
|
||||||
|
1 5 1 13 99 44 ; leaves
|
||||||
|
5 0 0 0 20 191 ; tree
|
||||||
|
0 5 66 0 81 187 ; tree
|
||||||
|
1 5 66 1 99 19 ; leaves
|
||||||
|
0 0 177 32 181 50 ; clock hand
|
4
graphics/hgr/boxes/myst_tiny.bas
Normal file
4
graphics/hgr/boxes/myst_tiny.bas
Normal file
|
@ -0,0 +1,4 @@
|
||||||
|
0REM## fM##f eM!& MfR!&fMeR$!n\9C 'fZM) 'z(0T' n*:U' h$A% 'q =*% vM'0''t/+0''r3.*%! q?.%!?sY,%!x|:#% + (y!% &Q/% *~ %A '}!%A 0) x0")
|
||||||
|
1DEFFNP(X)=2*PEEK(2054+I*6+X)-64:HGR2
|
||||||
|
3P=0:FORY=FNP(3)TOFNP(3)+FNP(5):HCOLOR=FNP(0)/2:IFPTHENHCOLOR=FNP(1)/2
|
||||||
|
4P=NOTP:HPLOTFNP(2),YTOFNP(2)+FNP(4),Y:NEXT:I=I+1:GOTO3
|
Loading…
Reference in New Issue
Block a user