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: update some comments

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

22
two-liners/entropy.s
View File

@ -147,26 +147,22 @@ less:
inx inx
txa ; move to A txa ; move to A
; lsr
; clc
; adc #1
done: done:
sta HGR_SCALE sta HGR_SCALE ; set scale value
ldy XPOSH ldy XPOSH ; setup X and Y co-ords
ldx XPOS ldx XPOS
lda YPOS lda YPOS
jsr HPOSN ; X= (y,x) Y=(a)
jsr HPOSN ; X= (y,x) Y=(a)
ldx #<shape_table ldx #<shape_table ; point to our shape
ldy #>shape_table ldy #>shape_table
lda #0 ; ROT=0 lda #0 ; ROT=0
jsr XDRAW0 ; XDRAW 1 AT X,Y jsr XDRAW0 ; XDRAW 1 AT X,Y
nextx: ; NEXT X nextx: ; NEXT X
lda XPOS ; 2 lda XPOS ; 2
@ -186,16 +182,16 @@ nextx: ; NEXT X
; 20 ; 20
nexty: ; NEXT Y nexty: ; NEXT Y
lda YPOS ; y+=6 lda YPOS ; y+=6
; clc ; carry always set coming in, so only add 5 adc #5 ; carry always set coming in, so only add 5
adc #5
sta YPOS sta YPOS
cmp #189 ; see if less than 189 cmp #189 ; see if less than 189
bcc yloop ; if so, loop bcc yloop ; if so, loop
nexte: ; NEXT E nexte: ; NEXT E
inc EPOS inc EPOS
lda EPOS lda EPOS
cmp #15 cmp #15
bcc eloop bcc eloop ; branch if <15
jmp entropy jmp entropy