AppleIIAsm-Collection/source/disk4_math/T.RAND16.SUB.MIN

RAND16
         LDA   RNDL
         STA   :SEED
         LDA   RNDH
         STA   :SEED+1
         LDA   :SEED
         BEQ   :LOW0
         ASL   :SEED
         LDA   :SEED+1
         ROL
         BCC   :NOEOR
:DOEOR                    ; HIGH BYTE IN A
         EOR   #>$0369
         STA   :SEED+1
         LDA   :SEED
         EOR   #<$0369
         STA   :SEED
         JMP   :EXIT
:LOW0
         LDA   :SEED+1
         BEQ   :DOEOR
         ASL
         BEQ   :NOEOR
         BCS   :DOEOR
:NOEOR
         STA   :SEED+1
:EXIT    LDX   :SEED+1
         LDY   :SEED
         STY   RETURN
         STX   RETURN+1
         LDA   #2
         STA   RETLEN
         RTS
:SEED    DS    2
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 16:47:01 -05:00			`RAND16`
			`LDA RNDL`
			`STA :SEED`
			`LDA RNDH`
			`STA :SEED+1`
			`LDA :SEED`
			`BEQ :LOW0`
			`ASL :SEED`
			`LDA :SEED+1`
			`ROL`
			`BCC :NOEOR`
Disk 4: MATH 0.3.0 updates - separated each subroutine into own file - minor changes to comments - not too many changes for 0.3.0, really. Major changes for this disk will come with 0.5.0 2019-01-20 22:03:35 -05:00			`:DOEOR ; HIGH BYTE IN A`
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 16:47:01 -05:00			`EOR #>$0369`
			`STA :SEED+1`
			`LDA :SEED`
			`EOR #<$0369`
			`STA :SEED`
			`JMP :EXIT`
			`:LOW0`
			`LDA :SEED+1`
			`BEQ :DOEOR`
			`ASL`
			`BEQ :NOEOR`
			`BCS :DOEOR`
			`:NOEOR`
			`STA :SEED+1`
			`:EXIT LDX :SEED+1`
			`LDY :SEED`
			`STY RETURN`
			`STX RETURN+1`
			`LDA #2`
			`STA RETLEN`
			`RTS`
			`:SEED DS 2`