AppleIIAsm-Collection/source/disk19_demo_builds_1/T.MIN.SUB.RAND8

20 lines
317 B
Plaintext
Raw Normal View History

RAND8
LDX #8
LDA RNDL+0
:A
ASL ;SHIFT THE REG
ROL RNDL+1
BCC :B
EOR #$2D
:B
DEX
BNE :A
STA RNDL+0
STA RETURN
LDY #1
STY RETLEN
CMP #0
RTS