Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 00:30:31 +00:00
Code Issues Projects Releases Wiki Activity

entropy: shave another byte off thanks to Nick Westgate

Browse Source
This commit is contained in:
Vince Weaver 2018-05-31 12:47:28 -04:00
parent 59025a1d5d
commit 25a8d7b497
3 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
two-liners/README.entropy
View File

@ -52,7 +52,7 @@ This sound simple, but it leads to some neat patterns.
======================= =======================
I thought it would be neat to see how small I could make this in assembly I thought it would be neat to see how small I could make this in assembly
language. Currently I have it down to 119 bytes (the executable is 123 language. Currently I have it down to 118 bytes (the executable is 122
bytes because DOS33 includes size/address filesystem metadata in the file bytes because DOS33 includes size/address filesystem metadata in the file
itself). itself).

BIN
two-liners/entropy.dsk
View File

Binary file not shown.

22
two-liners/entropy.s
View File

@ -2,7 +2,7 @@
; by Dave McKellar of Toronto ; by Dave McKellar of Toronto
; Two-line BASIC program ; Two-line BASIC program
; Found on Beagle Brother's Apple Mechanic Disk ; Found on Beagle Brother's Apple Mechanic Disk
; Converted to 6502 Assembly by Vince Weaver ; Converted to 6502 Assembly by Deater (Vince Weaver) vince@deater.net
; 24001 ROT=0:FOR I=1 TO 15: READ A,B: POKE A,B: NEXT: DATA ; 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, ; 232,252,233,29,7676,1,7678,4,7679,0,7680,18,7681,63,
@ -26,9 +26,12 @@
; 126 bytes: nextx: simplify by using knowledge of possible x/y vals ; 126 bytes: nextx: simplify by using knowledge of possible x/y vals
; 124 bytes: qkumba noticed we can bump yloop up to include the ; 124 bytes: qkumba noticed we can bump yloop up to include the
; pha, letting us remove two now unneeded stack ops ; pha, letting us remove two now unneeded stack ops
; 123 byts: qkumba noticed XDRAW0 always exits with X==0 so ; 123 bytes: qkumba noticed XDRAW0 always exits with X==0 so
; we can move some things to use X instead and ; we can move some things to use X instead and
; can get a "1" value simply by using INX ; can get a "1" value simply by using INX
; 122 bytes: Nick Westgate noticed that we could save a byte
; in eloop by pushing the stx ELOOP to the beginning
; rather than the end.
;BLT=BCC, BGE=BCS ;BLT=BCC, BGE=BCS
@ -69,11 +72,14 @@ XDRAW0 = $F65D
entropy: entropy:
jsr HGR2 ; Hi-res graphics, no text at bottom jsr HGR2 ; Hi-res graphics, no text at bottom
; Y=0, A=$60 after this call
lda #8 ; Unlike the BASIC, our loop is *100 ldx #8 ; Unlike the BASIC, our loop is *100
sta EPOS ; 8 to 15 rather than .08 to .15 ; 8 to 15 rather than .08 to .15
eloop: eloop:
stx EPOS ; EPOS was temporarily in X
lda #4 ; FOR Y=4 to 189 STEP 6 lda #4 ; FOR Y=4 to 189 STEP 6
yloop: yloop:
pha ; YPOS stored on stack pha ; YPOS stored on stack
@ -196,9 +202,9 @@ nexty: ; NEXT Y
bcc yloop ; if so, loop bcc yloop ; if so, loop
nexte: ; NEXT E nexte: ; NEXT E
inc EPOS ldx EPOS
lda EPOS inx ; EPOS saved at beginning og eloop
cmp #15 cpx #15
bcc eloop ; branch if <15 bcc eloop ; branch if <15
bcs entropy bcs entropy