mirror of
https://github.com/callapple/Twilight_II.git
synced 2026-03-11 06:41:51 +00:00
43 lines
515 B
NASM
43 lines
515 B
NASM
|
|
case on
|
|
keep random3.c
|
|
mcopy random2.mac
|
|
copy 22:t2common.equ
|
|
copy 2:ainclude:e16.locator
|
|
|
|
init_random Start
|
|
|
|
rtlAddr equ 1
|
|
targetStr equ rtlAddr+3
|
|
|
|
lda targetStr+2,s
|
|
tax
|
|
lda targetStr,s
|
|
|
|
PushWord #t2PrivGetProcs
|
|
PushWord #stopAfterOne+sendToName
|
|
phx
|
|
pha
|
|
PushLong #8
|
|
PushLong #dataOut
|
|
_SendRequest
|
|
jsl set_random_seed
|
|
|
|
lda 1,s
|
|
sta 1+4,s
|
|
lda 2,s
|
|
sta 2+4,s
|
|
plx
|
|
plx
|
|
rtl
|
|
|
|
dataOut anop
|
|
ds 2
|
|
set_random_seed entry
|
|
rtl
|
|
ds 3
|
|
random entry
|
|
rtl
|
|
ds 3
|
|
|
|
End |