71 lines
968 B
Plaintext
71 lines
968 B
Plaintext
Event::new:
|
|
link $1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
sat temp[$0]
|
|
push2
|
|
lap param[$0]
|
|
bnt code_0059
|
|
lap param[$1]
|
|
jmp code_005c
|
|
|
|
code_0059: ldi $7fff ; 32767
|
|
code_005c: push
|
|
lst temp[$0]
|
|
callk kernel_80, $4
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
Event::localize:
|
|
pTos plane
|
|
lap param[$1]
|
|
ne?
|
|
bnt code_0090
|
|
pToa plane
|
|
bnt code_0085
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
push
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
bnt code_0085
|
|
push2
|
|
pushSelf
|
|
pTos plane
|
|
callk kernel_82, $4
|
|
bnot
|
|
code_0085: push2
|
|
pushSelf
|
|
lap param[$1]
|
|
aTop plane
|
|
push
|
|
callk kernel_81, $4
|
|
bnot
|
|
code_0090: selfID
|
|
ret
|
|
|
|
Event::globalize:
|
|
pToa plane
|
|
bnt code_00aa
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
push
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
bnt code_00aa
|
|
push2
|
|
pushSelf
|
|
pTos plane
|
|
callk kernel_82, $4
|
|
bnot
|
|
code_00aa: ldi $0
|
|
aTop plane
|
|
selfID
|
|
ret
|
|
|