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
txa ; move to A
; lsr
; clc
; adc #1
done:
sta HGR_SCALE
sta HGR_SCALE ; set scale value
ldy XPOSH
ldy XPOSH ; setup X and Y co-ords
ldx XPOS
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
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
lda XPOS ; 2
@ -186,16 +182,16 @@ nextx: ; NEXT X
; 20
nexty: ; NEXT Y
lda YPOS ; y+=6
; clc ; carry always set coming in, so only add 5
adc #5
adc #5 ; carry always set coming in, so only add 5
sta YPOS
cmp #189 ; see if less than 189
bcc yloop ; if so, loop
nexte: ; NEXT E
inc EPOS
lda EPOS
cmp #15
bcc eloop
bcc eloop ; branch if <15
jmp entropy