Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-07-06 22:29:00 +00:00
Code Issues Projects Releases Wiki Activity

entropy: another byte off

Browse Source
This commit is contained in:
Vince Weaver 2018-05-28 00:30:40 -04:00
parent 6a0aaeb009
commit 920ba01aa2
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
two-liners/entropy.s
View File

@ -15,7 +15,8 @@
; Optimization
; 144 bytes: first working version (including DOS33 4-byte size/addr)
; 141 bytes: optimize "nextx" routine
; 141 bytes: nextx: cache XPOS in X register
; 140 bytes: nexty: we know state of carry flag
;BLT=BCC, BGE=BCS
@ -184,12 +185,12 @@ nextx: ; NEXT X
;============
; 20
nexty: ; NEXT Y
lda YPOS
clc
adc #6
lda YPOS ; y+=6
; clc ; carry always set coming in, so only add 5
adc #5
sta YPOS
cmp #189
bcc yloop
cmp #189 ; see if less than 189
bcc yloop ; if so, loop
nexte: ; NEXT E
inc EPOS
lda EPOS