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

entropy: more comments

Browse Source
This commit is contained in:
Vince Weaver 2018-05-28 01:38:48 -04:00
parent de27045079
commit 5a905926f1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
two-liners/entropy.s
View File

@ -115,6 +115,11 @@ 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
; What this does:
; if EPOS is 8,9 then value is either 1 or 2
; if EPOS is 10,11,12,13,14 then value is either 1, 2, or 3
; 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
@ -138,9 +143,8 @@ done:
ldy XPOSH ; setup X and Y co-ords ldy XPOSH ; setup X and Y co-ords
ldx XPOS ldx XPOS
pla pla ; YPOS is on stack
pha pha
; lda YPOS
jsr HPOSN ; X= (y,x) Y=(a) jsr HPOSN ; X= (y,x) Y=(a)