diff --git a/demos/lovebyte2024/en_16/ebox.s b/demos/lovebyte2024/en_16/ebox.s new file mode 100644 index 00000000..93c135e6 --- /dev/null +++ b/demos/lovebyte2024/en_16/ebox.s @@ -0,0 +1,124 @@ +; Tiny Entropy Boxes +; by Vince `Deater` Weaver / dSr + +; based on: + +; Entropy +; by Dave McKellar of Toronto +; Two-line BASIC program +; Found on Beagle Brother's Apple Mechanic Disk + +; 24001 ROT=0:FOR I=1 TO 15: READ A,B: POKE A,B: NEXT: DATA +; 232,252,233,29,7676,1,7678,4,7679,0,7680,18,7681,63, +; 7682,36,7683,36,7684,45,7685,45,7686,54,7687,54,7688,63, +; 7689,0 +; 24002 FOR I=1 TO 99: HGR2: FOR E=.08 TO .15 STEP .01: +; FOR Y=4 to 189 STEP 6: FOR X=4 to 278 STEP 6: +; SCALE=(RND(1)shape_table (in zero page so 0) + + jsr XDRAW0 ; XDRAW 1 AT X,Y + ; Both A and X are 0 at exit + + jsr RESTORE ; restore FLAGS/X/Y/A + +nextx: ; NEXT X + inc frame_smc+1 + + ; X was restored into A + + ; carry usually clear, close enough? +; clc ; 1 + adc #6 ; x+=6 ; 2 + tax + bne xloop ; if so, loop ; 2 + +nexty: + ; carry always set if we get here +; sec + tya + sbc #6 ; y-=6 + tay + bne yloop ; if so, loop + beq eloop ; bra + +shape_table: ; C B A +; .byte 18 ; $12 00 010 010 NDN NDN nop +; .byte 63 ; $3F 00 111 111 LT LT nop +; .byte 36 ; $24 00 100 100 UP UP nop +; .byte 36 ; $24 00 100 100 UP UP nop +; .byte 45 ; $2D 00 101 101 RT RT nop +; .byte 45 ; $2D 00 101 101 RT RT nop +; .byte 54 ; $36 00 110 110 DN DN nop +; .byte 54 ; $36 00 110 110 DN DN nop +; .byte 63 ; $3F 00 111 111 LT LT nop +; .byte 0 + .byte 58 + .byte 36 + .byte 45 + .byte 54 + .byte 7 + .byte 0 diff --git a/demos/lovebyte2024/hhhh_16/Makefile b/demos/lovebyte2024/hhhh_16/Makefile new file mode 100644 index 00000000..1b96488f --- /dev/null +++ b/demos/lovebyte2024/hhhh_16/Makefile @@ -0,0 +1,48 @@ +include ../../../Makefile.inc + +DOS33 = ../../../utils/dos33fs-utils/dos33 +TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft +EMPTYDISK = ../../../empty_disk/empty.dsk + +all: hhhh_16.dsk + +hhhh_16.dsk: HELLO HHHH_16 + cp $(EMPTYDISK) hhhh_16.dsk + $(DOS33) -y hhhh_16.dsk SAVE A HELLO + $(DOS33) -y hhhh_16.dsk BSAVE -a 0xE7 HHHH_16 + +### + +submit: hhhh_16.zip + +hhhh_16.zip: HHHH_16 hhhh_16.s file_id.diz hhhh_16.dsk + mkdir -p lovebyte2024_hhhh_16 + cp HHHH_16 ./lovebyte2024_hhhh_16 + cp hhhh_16.s ./lovebyte2024_hhhh_16 + cp file_id.diz ./lovebyte2024_hhhh_16 + cp hhhh_16.dsk ./lovebyte2024_hhhh_16 + cp monitor.txt ./lovebyte2024_hhhh_16 + cp hhhh_16_720p.mp4 ./lovebyte2024_hhhh_16 + cp hhhh_16_screen.png ./lovebyte2024_hhhh_16 + zip -r hhhh_16.zip lovebyte2024_hhhh_16 + +#### + + +#### + +HELLO: hello.bas + $(TOKENIZE) < hello.bas > HELLO + +### + +HHHH_16: hhhh_16.o + ld65 -o HHHH_16 hhhh_16.o -C ./apple2_e7_zp.inc + +hhhh_16.o: hhhh_16.s + ca65 -o hhhh_16.o hhhh_16.s -l hhhh_16.lst + +#### + +clean: + rm -f *~ *.o *.lst HELLO HHHH_16 *.zip