114 lines
1.4 KiB
Plaintext
114 lines
1.4 KiB
Plaintext
export60000_0 = code_00e6
|
|
|
|
Obj::new:
|
|
push1
|
|
pushSelf
|
|
callk kernel_10, $2
|
|
bnot
|
|
ret
|
|
|
|
Obj::init:
|
|
ret
|
|
|
|
Obj::doit:
|
|
selfID
|
|
ret
|
|
|
|
Obj::dispose:
|
|
lag global[$65]
|
|
bnt code_008b
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $9c ; 156, handleError
|
|
pushSelf
|
|
send $8
|
|
bnot
|
|
code_008b: push1
|
|
pushSelf
|
|
callk kernel_11, $2
|
|
bnot
|
|
ret
|
|
|
|
Obj::perform:
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
Obj::respondsTo:
|
|
push2
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_12, $4
|
|
bnot
|
|
ret
|
|
|
|
Obj::isClass:
|
|
pTos -info-
|
|
ldi $8000 ; -32768
|
|
and
|
|
ret
|
|
|
|
Obj::isMemberOf:
|
|
pushi $1007 ; 4103, -info-
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8000 ; -32768
|
|
and
|
|
bnt code_00d3
|
|
pTos -info-
|
|
ldi $8000 ; -32768
|
|
and
|
|
not
|
|
bnt code_00d3
|
|
pTos -propDict-
|
|
pushi $1002 ; 4098, -propDict-
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
eq?
|
|
code_00d3: ret
|
|
|
|
Obj::isKindOf:
|
|
link $1
|
|
push2
|
|
lsp param[$1]
|
|
pushSelf
|
|
callk kernel_155, $4
|
|
bnot
|
|
ret
|
|
|
|
Obj::yourself:
|
|
selfID
|
|
ret
|
|
|
|
Obj::handleMsg:
|
|
ldi $0
|
|
ret
|
|
|
|
Obj::handleError:
|
|
ret
|
|
|
|
Code::doit:
|
|
ret
|
|
|
|
; export60000_0
|
|
code_00e6: push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_105, $4
|
|
bnot
|
|
push
|
|
ldi $34 ; 52, '4', number
|
|
eq?
|
|
ret
|
|
|