59 lines
803 B
Plaintext
59 lines
803 B
Plaintext
Magnifier::init:
|
|
lap param[$1]
|
|
aTop client
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0075
|
|
lap param[$2]
|
|
aTop view
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_0075
|
|
lap param[$3]
|
|
aTop loop
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_0075
|
|
lap param[$4]
|
|
aTop cel
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_0075
|
|
lap param[$5]
|
|
aTop power
|
|
lsp param[$0]
|
|
ldi $5 ; scaleY
|
|
gt?
|
|
bnt code_0075
|
|
lap param[$6]
|
|
aTop skip
|
|
code_0075: push1
|
|
pushSelf
|
|
callk kernel_24, $2
|
|
bnot
|
|
ret
|
|
|
|
Magnifier::dispose:
|
|
push1
|
|
pushSelf
|
|
callk kernel_25, $2
|
|
bnot
|
|
pushi $81 ; 129, magnifier
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop client
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|