AppleIIAsm-Collection/disks/disk4_math/T.RAND8.MIN

** RAND8
*
         LDX   #8
         LDA   RNDL+0
:A
         ASL
         ROL   RNDL+1
         BCC   :B
         EOR   #$2D
:B
         DEX
         BNE   :A
         STA   RNDL+0
         STA   RETURN
         LDY   #1
         STY   RETLEN
         CMP   #0
         RTS
Math Routines 0.2.0 update - fixed a plethora of bugs - overhauled demo - integrated shared required library and macros - began early planning of floating-point routines and macros - created minified, no-comment versions of every routine 2018-12-21 21:47:01 +00:00			`** RAND8`
			`*`
			`LDX #8`
			`LDA RNDL+0`
			`:A`
			`ASL`
			`ROL RNDL+1`
			`BCC :B`
			`EOR #$2D`
			`:B`
			`DEX`
			`BNE :A`
			`STA RNDL+0`
			`STA RETURN`
			`LDY #1`
			`STY RETLEN`
			`CMP #0`
			`RTS`