170 lines
2.3 KiB
Plaintext
170 lines
2.3 KiB
Plaintext
ActiveCursorList::addToFront:
|
|
pushi $aa ; 170, addToFront
|
|
push0
|
|
&rest $1
|
|
super Set, $4
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
ActiveCursorList::delete:
|
|
pushi $58 ; 88, 'X', delete
|
|
push0
|
|
&rest $1
|
|
super Set, $4
|
|
bnot
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
ActiveCursorList::doit:
|
|
lsg global[$b]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
ne?
|
|
bnt code_00aa
|
|
pushi $57 ; 87, 'W', draw
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
sag global[$b]
|
|
send $4
|
|
bnot
|
|
code_00aa: ret
|
|
|
|
Cursor::init:
|
|
lap param[$0]
|
|
bnt code_00b5
|
|
lap param[$1]
|
|
aTop client
|
|
jmp code_00ba
|
|
|
|
code_00b5: lofsa ActiveCursorList
|
|
aTop client
|
|
code_00ba: ret
|
|
|
|
Cursor::dispose:
|
|
pushi $1b5 ; 437, disable
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Rect, $4
|
|
bnot
|
|
ret
|
|
|
|
Cursor::draw:
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_85, $6
|
|
bnot
|
|
ret
|
|
|
|
Cursor::posn:
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
callk kernel_85, $4
|
|
bnot
|
|
ret
|
|
|
|
Cursor::show:
|
|
push1
|
|
lap param[$0]
|
|
bnt code_00eb
|
|
lap param[$1]
|
|
jmp code_00ed
|
|
|
|
code_00eb: ldi $1
|
|
code_00ed: push
|
|
callk kernel_85, $2
|
|
bnot
|
|
ret
|
|
|
|
Cursor::setCursor:
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0108
|
|
lap param[$1]
|
|
aTop view
|
|
lap param[$2]
|
|
aTop loop
|
|
lap param[$3]
|
|
aTop cel
|
|
jmp code_0126
|
|
|
|
code_0108: pushi $e ; 14, view
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop view
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop loop
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop cel
|
|
code_0126: pTos loop
|
|
ldi $0
|
|
lt?
|
|
bnt code_0138
|
|
push2
|
|
lofsa string_006b ; "setCursor called with loop of %d"
|
|
push
|
|
pTos loop
|
|
callk kernel_132, $4
|
|
bnot
|
|
code_0138: ret
|
|
|
|
Cursor::enable:
|
|
pToa client
|
|
bnt code_0145
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_0145: ret
|
|
|
|
Cursor::disable:
|
|
pToa client
|
|
bnt code_015f
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
gt?
|
|
bnt code_015f
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_015f: ret
|
|
|