mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-07 21:30:39 +00:00
lovebyte: update last bits
This commit is contained in:
parent
75ad84da5b
commit
a891b33bb9
@ -1,7 +1,7 @@
|
|||||||
; Tiny Entropy Boxes
|
; Tiny Entropy Boxes
|
||||||
; by Vince `Deater` Weaver / dSr
|
; by Vince `Deater` Weaver / dSr
|
||||||
|
|
||||||
; based on:
|
; roughly based on:
|
||||||
|
|
||||||
; Entropy
|
; Entropy
|
||||||
; by Dave McKellar of Toronto
|
; by Dave McKellar of Toronto
|
||||||
@ -117,6 +117,9 @@ shape_table: ; C B A
|
|||||||
; .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 63 ; $3F 00 111 111 LT LT nop
|
||||||
; .byte 0
|
; .byte 0
|
||||||
|
|
||||||
|
; this is half the size but we have to scale *2
|
||||||
|
|
||||||
.byte 58
|
.byte 58
|
||||||
.byte 36
|
.byte 36
|
||||||
.byte 45
|
.byte 45
|
23
demos/lovebyte2024/box_entropy_64/file_id.diz
Normal file
23
demos/lovebyte2024/box_entropy_64/file_id.diz
Normal 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
|
||||||
|
--------------------------------------
|
11
demos/lovebyte2024/box_entropy_64/hello.bas
Normal file
11
demos/lovebyte2024/box_entropy_64/hello.bas
Normal 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"
|
24
demos/lovebyte2024/box_entropy_64/shape.table
Normal file
24
demos/lovebyte2024/box_entropy_64/shape.table
Normal 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
|
Loading…
x
Reference in New Issue
Block a user