lovebyte: update last bits

This commit is contained in:
Vince Weaver 2024-02-09 21:23:46 -05:00
parent 75ad84da5b
commit a891b33bb9
4 changed files with 62 additions and 1 deletions

View File

@ -1,7 +1,7 @@
; Tiny Entropy Boxes
; by Vince `Deater` Weaver / dSr
; based on:
; roughly based on:
; Entropy
; by Dave McKellar of Toronto
@ -117,6 +117,9 @@ shape_table: ; C B A
; .byte 54 ; $36 00 110 110 DN DN nop
; .byte 63 ; $3F 00 111 111 LT LT nop
; .byte 0
; this is half the size but we have to scale *2
.byte 58
.byte 36
.byte 45

View File

@ -0,0 +1,23 @@
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-
box_entropy 64
--------------------------------------
Hi-res Xdraw Pattern
by Deater / dSr
I attempted this before as a 64-byter
but managed to fit a more complete
version this time.
roughly based on:
; Entropy
; by Dave McKellar of Toronto
; Two-line BASIC program
; Found on Beagle Brother's Apple Mechanic Disk
XORs a box pattern, but randomly doubles the
size of the box. It's hard to generate good
random numbers on 6502 in 64 bytes.
Lovebyte 2024
--------------------------------------

View File

@ -0,0 +1,11 @@
5 HOME
10 PRINT " -= BOX_ENTROPY 64 =-"
11 PRINT " ''''''''''''''''"
12 PRINT " FOR LOVEBYTE 2024"
15 PRINT " BY DEATER / DSR"
17 PRINT " BASED ON 2-LINER BY D. MCKELLAR"
20 PRINT CHR$(4)"CATALOG"
25 PRINT:PRINT "PRESS ANY KEY TO 'BRUN BOX_ENTROPY'"
30 GET A$
35 PRINT
40 PRINT CHR$(4)"BRUN BOX_ENTROPY"

View File

@ -0,0 +1,24 @@
# box
2
START
NDN NDN
LT LT
UP UP
UP UP
RT RT
RT RT
DN DN
DN DN
LT LT
STOP
START
NDN
LT
UP
UP
RT
RT
DN
DN
LT
STOP