532 lines
7.1 KiB
Plaintext
532 lines
7.1 KiB
Plaintext
LongInt::new:
|
|
link $1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
sat temp[$0]
|
|
lap param[$0]
|
|
bnt code_00df
|
|
pushi $b5 ; 181, set
|
|
push0
|
|
&rest $1
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_00e9
|
|
|
|
code_00df: pushi $b5 ; 181, set
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_00e9: lat temp[$0]
|
|
ret
|
|
|
|
LongInt::set:
|
|
push2
|
|
push0
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::setLong:
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::add:
|
|
push2
|
|
push1
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::addLong:
|
|
pushi $4 ; scaleX
|
|
push1
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::sub:
|
|
push2
|
|
push2
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::subLong:
|
|
pushi $4 ; scaleX
|
|
push2
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::mul:
|
|
push2
|
|
pushi $3 ; z
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::mulLong:
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::div:
|
|
push2
|
|
pushi $4 ; scaleX
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::divLong:
|
|
pushi $4 ; scaleX
|
|
dup
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitAND:
|
|
push2
|
|
pushi $5 ; scaleY
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitANDLong:
|
|
pushi $4 ; scaleX
|
|
pushi $5 ; scaleY
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitOR:
|
|
push2
|
|
pushi $6 ; maxScale
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitORLong:
|
|
pushi $4 ; scaleX
|
|
pushi $6 ; maxScale
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitXOR:
|
|
push2
|
|
pushi $7 ; priority
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitXORLong:
|
|
pushi $4 ; scaleX
|
|
pushi $7 ; priority
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitNOT:
|
|
push2
|
|
pushi $d ; 13, seenRect
|
|
pushSelf
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::setBit:
|
|
pushi $3 ; z
|
|
pushi $e ; 14, view
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_154, $6
|
|
bnot
|
|
ret
|
|
|
|
LongInt::resetBit:
|
|
pushi $3 ; z
|
|
pushi $f ; 15, loop
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_154, $6
|
|
bnot
|
|
ret
|
|
|
|
LongInt::toggleBit:
|
|
pushi $3 ; z
|
|
pushi $10 ; 16, cel
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_154, $6
|
|
bnot
|
|
ret
|
|
|
|
LongInt::getBit:
|
|
pushi $3 ; z
|
|
pushi $11 ; 17, bitmap
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_154, $6
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitSHL:
|
|
pushi $3 ; z
|
|
pushi $12 ; 18, nsLeft
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_154, $6
|
|
bnot
|
|
ret
|
|
|
|
LongInt::bitSHR:
|
|
pushi $3 ; z
|
|
pushi $13 ; 19, nsTop
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_154, $6
|
|
bnot
|
|
ret
|
|
|
|
LongInt::swap:
|
|
push2
|
|
pushi $14 ; 20, nsRight
|
|
pushSelf
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::negate:
|
|
push2
|
|
pushi $15 ; 21, nsBottom
|
|
pushSelf
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::abs:
|
|
push2
|
|
pushi $16 ; 22, lsLeft
|
|
pushSelf
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::equal:
|
|
push2
|
|
pushi $8 ; fixPriority
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::equalLong:
|
|
pushi $4 ; scaleX
|
|
pushi $8 ; fixPriority
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::less:
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::lessLong:
|
|
pushi $4 ; scaleX
|
|
pushi $9 ; inLeft
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::lessEqual:
|
|
push2
|
|
pushi $a ; 10, inTop
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::lessEqualLong:
|
|
pushi $4 ; scaleX
|
|
pushi $a ; 10, inTop
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::greater:
|
|
push2
|
|
pushi $b ; 11, inRight
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::greaterLong:
|
|
pushi $4 ; scaleX
|
|
pushi $b ; 11, inRight
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::greaterEqual:
|
|
push2
|
|
pushi $c ; 12, inBottom
|
|
pushSelf
|
|
&rest $1
|
|
callk kernel_154, $4
|
|
bnot
|
|
ret
|
|
|
|
LongInt::greaterEqualLong:
|
|
pushi $4 ; scaleX
|
|
pushi $c ; 12, inBottom
|
|
pushSelf
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $8
|
|
bnot
|
|
ret
|
|
|
|
LongInt::asStr:
|
|
link $1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $4 ; scaleX
|
|
pushi $17 ; 23, lsTop
|
|
pushSelf
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$0]
|
|
bnt code_0387
|
|
lap param[$1]
|
|
jmp code_0389
|
|
|
|
code_0387: ldi $1
|
|
code_0389: push
|
|
callk kernel_154, $8
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
LongInt::fromStr:
|
|
pushi $3 ; z
|
|
pushi $18 ; 24, lsRight
|
|
pushSelf
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_154, $6
|
|
bnot
|
|
ret
|
|
|