mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2024-11-28 03:52:10 +00:00
35 lines
685 B
Plaintext
35 lines
685 B
Plaintext
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
|