mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-02-07 21:30:32 +00:00
9b12b6fd9b
- getting ready for major changes for 0.6.0. - be sure to download the 0.5.0 release to ensure proper functionality, as these rountines will not work together in the SRC or BIN folder during the transition - Beginning to significantly alter documentation
37 lines
760 B
NASM
37 lines
760 B
NASM
]SEED EQU WPAR1
|
|
RAND16
|
|
LDA RNDL
|
|
STA ]SEED
|
|
LDA RNDH
|
|
STA ]SEED+1
|
|
LDA ]SEED
|
|
BEQ :LOW0
|
|
ASL ]SEED
|
|
LDA ]SEED+1
|
|
ROL
|
|
BCC :NOEOR
|
|
:DOEOR
|
|
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
|
|
TYA
|
|
RTS
|