479 lines
6.7 KiB
Plaintext
479 lines
6.7 KiB
Plaintext
BitMap::init:
|
|
pTos signal
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop signal
|
|
pushi $17b ; 379, addToCast
|
|
push1
|
|
lap param[$0]
|
|
bnt code_009d
|
|
lap param[$1]
|
|
jmp code_009f
|
|
|
|
code_009d: ldi $0
|
|
code_009f: push
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
BitMap::dispose:
|
|
link $1
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
pToa plane
|
|
bnt code_00d3
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
push
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
bnt code_00d3
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $58 ; 88, 'X', delete
|
|
pushSelf
|
|
pushi $cf ; 207, casts
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
aTop plane
|
|
code_00d3: pToa seenRect
|
|
bnt code_00e2
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop seenRect
|
|
code_00e2: pToa bitmap
|
|
sat temp[$0]
|
|
ldi $0
|
|
aTop bitmap
|
|
lat temp[$0]
|
|
bnt code_00f8
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_00f8: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Rect, $4
|
|
bnot
|
|
ret
|
|
|
|
BitMap::addToCast:
|
|
link $1
|
|
lap param[$0]
|
|
bnt code_0111
|
|
lap param[$1]
|
|
bnt code_0111
|
|
lap param[$1]
|
|
jmp code_0126
|
|
|
|
code_0111: pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
pushi $cf ; 207, casts
|
|
push0
|
|
push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_0126: sat temp[$0]
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
aTop client
|
|
send $6
|
|
bnot
|
|
push0
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
aTop plane
|
|
bnt code_0170
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
pTos plane
|
|
lag global[$25]
|
|
send $6
|
|
bnot
|
|
bnt code_0170
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_015b
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos view
|
|
callk kernel_5, $4
|
|
bnot
|
|
code_015b: bt code_015f
|
|
pToa bitmap
|
|
code_015f: bnt code_0170
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0170
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
code_0170: ret
|
|
|
|
BitMap::handleEvent:
|
|
ldi $0
|
|
ret
|
|
|
|
BitMap::isNotHidden:
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
and
|
|
not
|
|
ret
|
|
|
|
BitMap::addItem:
|
|
link $4
|
|
pToa bitmap
|
|
not
|
|
bnt code_019f
|
|
pushi $5 ; scaleY
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $fe ; 254, strIndex
|
|
lsg global[$54]
|
|
callk kernel_35, $a
|
|
bnot
|
|
aTop bitmap
|
|
code_019f: lap param[$0]
|
|
bnt code_029e
|
|
lsp param[$1]
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_01b9
|
|
push2
|
|
push2
|
|
pTos bitmap
|
|
&rest $2
|
|
callk kernel_35, $4
|
|
bnot
|
|
jmp code_029d
|
|
|
|
code_01b9: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_01cd
|
|
push2
|
|
pushi $3 ; z
|
|
pTos bitmap
|
|
&rest $2
|
|
callk kernel_35, $4
|
|
bnot
|
|
jmp code_029d
|
|
|
|
code_01cd: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_0279
|
|
lsp param[$0]
|
|
ldi $6 ; maxScale
|
|
gt?
|
|
bnt code_01e1
|
|
ldi $5 ; scaleY
|
|
lapi param[$2]
|
|
jmp code_01e3
|
|
|
|
code_01e1: lag global[$3a]
|
|
code_01e3: sat temp[$1]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
push2
|
|
pushi $9 ; inLeft
|
|
ldi $0
|
|
lspi param[$2]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
pushi $ff ; 255, asInteger
|
|
lat temp[$0]
|
|
send $a
|
|
bnot
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $e ; 14, view
|
|
pushi $4 ; scaleX
|
|
pTos bitmap
|
|
push2
|
|
pushi $9 ; inLeft
|
|
ldi $0
|
|
lspi param[$2]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
lspi param[$2]
|
|
ldi $2
|
|
lspi param[$2]
|
|
ldi $1
|
|
lspi param[$2]
|
|
lat temp[$2]
|
|
add
|
|
push
|
|
ldi $2
|
|
lspi param[$2]
|
|
lat temp[$3]
|
|
add
|
|
push
|
|
ldi $3 ; z
|
|
lspi param[$2]
|
|
ldi $4 ; scaleX
|
|
lspi param[$2]
|
|
pushi $fe ; 254, strIndex
|
|
lst temp[$1]
|
|
lsp param[$0]
|
|
ldi $7 ; priority
|
|
gt?
|
|
bnt code_026d
|
|
ldi $6 ; maxScale
|
|
lapi param[$2]
|
|
jmp code_026f
|
|
|
|
code_026d: ldi $0
|
|
code_026f: push
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
callk kernel_35, $1c
|
|
bnot
|
|
jmp code_029d
|
|
|
|
code_0279: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_028c
|
|
push2
|
|
pushi $5 ; scaleY
|
|
pTos bitmap
|
|
&rest $2
|
|
callk kernel_35, $4
|
|
bnot
|
|
jmp code_029d
|
|
|
|
code_028c: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_029d
|
|
push2
|
|
pushi $6 ; maxScale
|
|
pTos bitmap
|
|
&rest $2
|
|
callk kernel_35, $4
|
|
bnot
|
|
code_029d: toss
|
|
code_029e: ret
|
|
|
|
BitMap::show:
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
not
|
|
bnt code_02b6
|
|
pTos signal
|
|
ldi $f7 ; 247, cat
|
|
and
|
|
aTop signal
|
|
push1
|
|
pushSelf
|
|
callk kernel_30, $2
|
|
bnot
|
|
code_02b6: ret
|
|
|
|
BitMap::hide:
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_02e9
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
or
|
|
aTop signal
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
pToa bitmap
|
|
bnt code_02e9
|
|
lap param[$0]
|
|
not
|
|
bt code_02d8
|
|
lap param[$1]
|
|
code_02d8: bnt code_02e9
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pTos bitmap
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop bitmap
|
|
code_02e9: ret
|
|
|
|
BitMap::moveTo:
|
|
pTos right
|
|
lsp param[$1]
|
|
pToa left
|
|
sub
|
|
add
|
|
aTop right
|
|
pTos bottom
|
|
lsp param[$2]
|
|
pToa top
|
|
sub
|
|
add
|
|
aTop bottom
|
|
lap param[$2]
|
|
aTop top
|
|
aTop y
|
|
lap param[$1]
|
|
aTop left
|
|
aTop x
|
|
pTos -info-
|
|
ldi $8 ; fixPriority
|
|
or
|
|
aTop -info-
|
|
ret
|
|
|
|
BitMap::width:
|
|
lap param[$0]
|
|
bt code_031f
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_031f
|
|
pToa right
|
|
code_031f: bnt code_032d
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
&rest $1
|
|
super Rect, $4
|
|
bnot
|
|
ret
|
|
|
|
jmp code_033a
|
|
|
|
code_032d: pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_28, $6
|
|
bnot
|
|
ret
|
|
|
|
code_033a: ret
|
|
|
|
BitMap::height:
|
|
link $1
|
|
lap param[$0]
|
|
bt code_034a
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_034a
|
|
pToa bottom
|
|
code_034a: bnt code_0359
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
&rest $1
|
|
super Rect, $4
|
|
bnot
|
|
ret
|
|
|
|
jmp code_0366
|
|
|
|
code_0359: pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_29, $6
|
|
bnot
|
|
ret
|
|
|
|
code_0366: ret
|
|
|
|
BitMap::setPri:
|
|
lsp param[$0]
|
|
ldi $0
|
|
eq?
|
|
bnt code_0374
|
|
ldi $1
|
|
aTop fixPriority
|
|
jmp code_0389
|
|
|
|
code_0374: lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0381
|
|
ldi $0
|
|
aTop fixPriority
|
|
jmp code_0389
|
|
|
|
code_0381: lap param[$1]
|
|
aTop priority
|
|
ldi $1
|
|
aTop fixPriority
|
|
code_0389: ret
|
|
|
|
BitMap::draw:
|
|
ret
|
|
|