mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-13 22:29:14 +00:00
entropy: more comments
This commit is contained in:
parent
8df4d4c3e3
commit
de27045079
@ -115,21 +115,21 @@ xloop:
|
|||||||
; SCALE=RND(1)*E*20+1
|
; SCALE=RND(1)*E*20+1
|
||||||
; EPOS is E*100, so RND(1)*(EPOS/10)*2+1
|
; EPOS is E*100, so RND(1)*(EPOS/10)*2+1
|
||||||
|
|
||||||
; put random value in FAC
|
; put random value in FAC
|
||||||
; ldx #1 ; RND(1), Force 1, this set from earlier
|
; ldx #1 ; RND(1), Force 1, this set from earlier
|
||||||
jsr RND+6 ; skip arg parsing in RND
|
jsr RND+6 ; skip arg parsing in RND
|
||||||
|
|
||||||
lda EPOS
|
lda EPOS
|
||||||
jsr FLOAT ; convert value in A to float in FAC
|
jsr FLOAT ; convert value in A to float in FAC
|
||||||
jsr DIV10 ; FAC=FAC/10
|
jsr DIV10 ; FAC=FAC/10
|
||||||
|
|
||||||
ldy #>RND_EXP ; point (Y,A) to RND value
|
ldy #>RND_EXP ; point (Y,A) to RND value
|
||||||
lda #<RND_EXP
|
lda #<RND_EXP
|
||||||
jsr FMULT ; multiply FAC by (Y,A)
|
jsr FMULT ; multiply FAC by (Y,A)
|
||||||
|
|
||||||
inc FAC_EXP ; multiply by 2
|
inc FAC_EXP ; multiply by 2
|
||||||
|
|
||||||
jsr CONINT ; convert to int (in X)
|
jsr CONINT ; convert to int (in X)
|
||||||
|
|
||||||
inx ; add 1
|
inx ; add 1
|
||||||
|
|
||||||
@ -168,11 +168,10 @@ nextx: ; NEXT X
|
|||||||
;============
|
;============
|
||||||
; 20
|
; 20
|
||||||
nexty: ; NEXT Y
|
nexty: ; NEXT Y
|
||||||
pla
|
pla ; YPOS on stack
|
||||||
; lda YPOS ; y+=6
|
adc #5 ; y+=6
|
||||||
adc #5 ; carry always set coming in, so only add 5
|
; carry always set coming in, so only add 5
|
||||||
; sta YPOS
|
pha ; YPOS back on stack
|
||||||
pha
|
|
||||||
cmp #189 ; see if less than 189
|
cmp #189 ; see if less than 189
|
||||||
bcc yloop ; if so, loop
|
bcc yloop ; if so, loop
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user