mirror of
https://github.com/callapple/Twilight_II.git
synced 2026-03-11 06:41:51 +00:00
28 lines
415 B
NASM
28 lines
415 B
NASM
|
|
case on
|
|
keep random2.c
|
|
mcopy random2.mac
|
|
copy 22:t2common.equ
|
|
copy 2:ainclude:e16.locator
|
|
|
|
init_random Start
|
|
PushWord #t2PrivGetProcs
|
|
PushWord #stopAfterOne+sendToName
|
|
PushLong #toT2String
|
|
PushLong #8
|
|
PushLong #dataOut
|
|
_SendRequest
|
|
jsl set_random_seed
|
|
rtl
|
|
|
|
toT2String entry
|
|
str 'DYA~Twilight II~'
|
|
|
|
dataOut anop
|
|
ds 2
|
|
set_random_seed entry
|
|
ds 4
|
|
random entry
|
|
ds 4
|
|
|
|
End |