1167 lines
16 KiB
Plaintext
1167 lines
16 KiB
Plaintext
Str::format:
|
|
link $1
|
|
pTos -info-
|
|
ldi $8000 ; -32768
|
|
and
|
|
bnt code_00b2
|
|
push1
|
|
pushSelf
|
|
callk kernel_10, $2
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $71 ; 113, 'q', data
|
|
push1
|
|
push1
|
|
push2
|
|
&rest $1
|
|
callk kernel_92, $2
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
jmp code_00bf
|
|
|
|
code_00b2: push2
|
|
pushi $3 ; z
|
|
pTos data
|
|
&rest $1
|
|
callk kernel_92, $4
|
|
bnot
|
|
selfID
|
|
ret
|
|
|
|
code_00bf: ret
|
|
|
|
Str::with:
|
|
link $1
|
|
push1
|
|
pushSelf
|
|
callk kernel_10, $2
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $71 ; 113, 'q', data
|
|
push1
|
|
push2
|
|
pushi $8 ; fixPriority
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
Str::newWith:
|
|
link $1
|
|
pushi $8d ; 141, new
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
lap param[$2]
|
|
bnt code_0104
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0104: lat temp[$0]
|
|
ret
|
|
|
|
Str::newCopies:
|
|
link $3
|
|
lsp param[$0]
|
|
ldi $1
|
|
lt?
|
|
bnt code_011a
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
code_011a: lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bnt code_0127
|
|
ldi $1
|
|
sat temp[$1]
|
|
jmp code_012b
|
|
|
|
code_0127: lap param[$2]
|
|
sat temp[$1]
|
|
code_012b: lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_0153
|
|
lap param[$3]
|
|
bnt code_0153
|
|
pushi $8d ; 141, new
|
|
push1
|
|
lst temp[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $d6 ; 214, fill
|
|
pushi $3 ; z
|
|
push0
|
|
lst temp[$1]
|
|
lsp param[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_018a
|
|
|
|
code_0153: pushi $d1 ; 209, newWith
|
|
push1
|
|
lst temp[$1]
|
|
push1
|
|
lsp param[$1]
|
|
call code_07bc, $2
|
|
bnot
|
|
mul
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
sat temp[$2]
|
|
code_0175: -at temp[$1]
|
|
push
|
|
ldi $0
|
|
ge?
|
|
bnt code_018a
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lst temp[$2]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_0175
|
|
|
|
code_018a: lat temp[$0]
|
|
ret
|
|
|
|
Str::at:
|
|
link $3
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_01a2
|
|
pushi $3 ; z
|
|
push2
|
|
pTos data
|
|
lsp param[$1]
|
|
callk kernel_91, $6
|
|
bnot
|
|
ret
|
|
|
|
code_01a2: lsp param[$1]
|
|
lap param[$0]
|
|
add
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
add
|
|
sat temp[$1]
|
|
push
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$2]
|
|
gt?
|
|
bnt code_01e0
|
|
lsp param[$1]
|
|
lat temp[$2]
|
|
gt?
|
|
bnt code_01d3
|
|
pushi $5 ; scaleY
|
|
dup
|
|
pTos data
|
|
lst temp[$2]
|
|
lsp param[$1]
|
|
lat temp[$2]
|
|
sub
|
|
push
|
|
pushi $20 ; 32, ' ', name
|
|
callk kernel_91, $a
|
|
bnot
|
|
code_01d3: pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pTos data
|
|
lst temp[$1]
|
|
push0
|
|
callk kernel_91, $8
|
|
bnot
|
|
code_01e0: pushi $3 ; z
|
|
dup
|
|
pTos data
|
|
lsp param[$1]
|
|
&rest $2
|
|
callk kernel_91, $6
|
|
bnot
|
|
selfID
|
|
ret
|
|
|
|
Str::cat:
|
|
pushi $d2 ; 210, copyToFrom
|
|
pushi $4 ; scaleX
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
lsp param[$1]
|
|
push0
|
|
push1
|
|
lsp param[$1]
|
|
call code_07bc, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
push
|
|
self $c
|
|
bnot
|
|
ret
|
|
|
|
Str::translate:
|
|
lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bnt code_021a
|
|
ldi $0
|
|
ret
|
|
|
|
code_021a: pushi $5 ; scaleY
|
|
pushi $8 ; fixPriority
|
|
pTos data
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
pTos data
|
|
callk kernel_92, $a
|
|
bnot
|
|
ldi $1
|
|
ret
|
|
|
|
Str::all:
|
|
link $7
|
|
lsp param[$0]
|
|
ldi $1
|
|
lt?
|
|
bnt code_0239
|
|
ldi $0
|
|
ret
|
|
|
|
code_0239: ldi $0
|
|
sat temp[$2]
|
|
ldi $0
|
|
sat temp[$1]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$3]
|
|
push1
|
|
lsp param[$1]
|
|
call code_07bc, $2
|
|
bnot
|
|
sat temp[$4]
|
|
push1
|
|
lsp param[$2]
|
|
call code_07bc, $2
|
|
bnot
|
|
sat temp[$5]
|
|
pushi $8d ; 141, new
|
|
push1
|
|
lst temp[$3]
|
|
ldi $2
|
|
div
|
|
push
|
|
ldi $1
|
|
add
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$6]
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0276: lst temp[$0]
|
|
lst temp[$3]
|
|
lat temp[$4]
|
|
sub
|
|
le?
|
|
bnt code_02f2
|
|
pushi $d4 ; 212, compToFrom
|
|
pushi $4 ; scaleX
|
|
lst temp[$0]
|
|
lsp param[$1]
|
|
push0
|
|
lst temp[$4]
|
|
self $c
|
|
bnot
|
|
push
|
|
ldi $0
|
|
gt?
|
|
bnt code_02ee
|
|
lsp param[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_02c6
|
|
lat temp[$5]
|
|
bnt code_02ec
|
|
pushi $d2 ; 210, copyToFrom
|
|
pushi $4 ; scaleX
|
|
lst temp[$1]
|
|
lsp param[$2]
|
|
push0
|
|
push
|
|
lat temp[$6]
|
|
send $c
|
|
bnot
|
|
lst temp[$0]
|
|
lst temp[$5]
|
|
ldi $1
|
|
sub
|
|
add
|
|
sat temp[$0]
|
|
lst temp[$1]
|
|
lat temp[$5]
|
|
add
|
|
sat temp[$1]
|
|
jmp code_02ec
|
|
|
|
code_02c6: lat temp[$4]
|
|
bnt code_02ec
|
|
pushi $d2 ; 210, copyToFrom
|
|
pushi $4 ; scaleX
|
|
lst temp[$1]
|
|
lsp param[$1]
|
|
push0
|
|
push
|
|
lat temp[$6]
|
|
send $c
|
|
bnot
|
|
lst temp[$0]
|
|
lst temp[$4]
|
|
ldi $1
|
|
sub
|
|
add
|
|
sat temp[$0]
|
|
lst temp[$1]
|
|
lat temp[$4]
|
|
add
|
|
sat temp[$1]
|
|
code_02ec: +at temp[$2]
|
|
code_02ee: +at temp[$0]
|
|
jmp code_0276
|
|
|
|
code_02f2: pushi $d2 ; 210, copyToFrom
|
|
pushi $4 ; scaleX
|
|
push0
|
|
lst temp[$6]
|
|
push0
|
|
lst temp[$1]
|
|
self $c
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$1]
|
|
push0
|
|
self $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
lat temp[$2]
|
|
ret
|
|
|
|
Str::upper:
|
|
link $3
|
|
push2
|
|
pushi $6 ; maxScale
|
|
pTos data
|
|
callk kernel_92, $4
|
|
bnot
|
|
ret
|
|
|
|
Str::lower:
|
|
link $3
|
|
push2
|
|
pushi $7 ; priority
|
|
pTos data
|
|
callk kernel_92, $4
|
|
bnot
|
|
ret
|
|
|
|
Str::subStr:
|
|
link $1
|
|
lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0343
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
sub
|
|
jmp code_0345
|
|
|
|
code_0343: lap param[$2]
|
|
code_0345: sat temp[$0]
|
|
pushi $d2 ; 210, copyToFrom
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pushSelf
|
|
lsp param[$1]
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
push
|
|
push0
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push1
|
|
push
|
|
ldi $1
|
|
add
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
send $18
|
|
bnot
|
|
ret
|
|
|
|
Str::left:
|
|
link $4
|
|
lsp param[$0]
|
|
ldi $1
|
|
lt?
|
|
bnt code_0380
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
code_0380: lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bnt code_038d
|
|
ldi $20 ; 32, ' ', name
|
|
sat temp[$0]
|
|
jmp code_0391
|
|
|
|
code_038d: lap param[$2]
|
|
sat temp[$0]
|
|
code_0391: lsp param[$1]
|
|
ldi $1
|
|
lt?
|
|
bnt code_03a2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
code_03a2: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $fb ; 251, subStr
|
|
push2
|
|
push0
|
|
lsp param[$1]
|
|
gt?
|
|
bnt code_03b8
|
|
lat temp[$2]
|
|
jmp code_03ba
|
|
|
|
code_03b8: lap param[$1]
|
|
code_03ba: push
|
|
self $8
|
|
bnot
|
|
sat temp[$1]
|
|
lsp param[$1]
|
|
lat temp[$2]
|
|
gt?
|
|
bnt code_03f1
|
|
lat temp[$0]
|
|
bnt code_03f1
|
|
pushi $f6 ; 246, newCopies
|
|
push2
|
|
lst temp[$0]
|
|
lsp param[$1]
|
|
lat temp[$2]
|
|
sub
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
code_03f1: lat temp[$1]
|
|
ret
|
|
|
|
Str::right:
|
|
link $4
|
|
lsp param[$0]
|
|
ldi $1
|
|
lt?
|
|
bnt code_0407
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
code_0407: lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bnt code_0414
|
|
ldi $20 ; 32, ' ', name
|
|
sat temp[$0]
|
|
jmp code_0418
|
|
|
|
code_0414: lap param[$2]
|
|
sat temp[$0]
|
|
code_0418: lsp param[$1]
|
|
ldi $1
|
|
lt?
|
|
bnt code_0429
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
code_0429: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $fb ; 251, subStr
|
|
push2
|
|
lsp param[$1]
|
|
gt?
|
|
bnt code_043e
|
|
ldi $0
|
|
jmp code_0443
|
|
|
|
code_043e: lst temp[$2]
|
|
lap param[$1]
|
|
sub
|
|
code_0443: push
|
|
lsp param[$1]
|
|
lat temp[$2]
|
|
gt?
|
|
bnt code_044f
|
|
lat temp[$2]
|
|
jmp code_0451
|
|
|
|
code_044f: lap param[$1]
|
|
code_0451: push
|
|
self $8
|
|
bnot
|
|
sat temp[$1]
|
|
lsp param[$1]
|
|
lat temp[$2]
|
|
gt?
|
|
bnt code_048b
|
|
lat temp[$0]
|
|
bnt code_048b
|
|
pushi $f6 ; 246, newCopies
|
|
push2
|
|
lst temp[$0]
|
|
lsp param[$1]
|
|
lat temp[$2]
|
|
sub
|
|
push
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lst temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
lat temp[$3]
|
|
sat temp[$1]
|
|
code_048b: lat temp[$1]
|
|
ret
|
|
|
|
Str::indexOf:
|
|
link $2
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$1]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_04c5
|
|
lap param[$2]
|
|
bnt code_04c5
|
|
-at temp[$1]
|
|
sat temp[$0]
|
|
code_04a7: lst temp[$0]
|
|
ldi $0
|
|
ge?
|
|
bnt code_04e5
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
eq?
|
|
bnt code_04bf
|
|
lat temp[$0]
|
|
ret
|
|
|
|
code_04bf: -at temp[$0]
|
|
jmp code_04a7
|
|
|
|
jmp code_04e5
|
|
|
|
code_04c5: ldi $0
|
|
sat temp[$0]
|
|
code_04c9: lst temp[$0]
|
|
lat temp[$1]
|
|
lt?
|
|
bnt code_04e5
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
eq?
|
|
bnt code_04e1
|
|
lat temp[$0]
|
|
ret
|
|
|
|
code_04e1: +at temp[$0]
|
|
jmp code_04c9
|
|
|
|
code_04e5: ldi $ff ; 255, asInteger
|
|
ret
|
|
|
|
Str::strIndex:
|
|
link $5
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$0]
|
|
push1
|
|
lsp param[$1]
|
|
call code_07bc, $2
|
|
bnot
|
|
sat temp[$1]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0535
|
|
lap param[$2]
|
|
bnt code_0535
|
|
lst temp[$0]
|
|
lat temp[$1]
|
|
sub
|
|
push
|
|
ldi $1
|
|
sub
|
|
sat temp[$2]
|
|
code_0512: lst temp[$2]
|
|
ldi $0
|
|
ge?
|
|
bnt code_056b
|
|
pushi $d4 ; 212, compToFrom
|
|
pushi $4 ; scaleX
|
|
lst temp[$2]
|
|
lsp param[$1]
|
|
push0
|
|
lst temp[$1]
|
|
self $c
|
|
bnot
|
|
bnt code_052f
|
|
lat temp[$2]
|
|
ret
|
|
|
|
code_052f: -at temp[$2]
|
|
jmp code_0512
|
|
|
|
jmp code_056b
|
|
|
|
code_0535: push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
sat temp[$4]
|
|
pToa data
|
|
sat temp[$3]
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_0548: lst temp[$2]
|
|
lst temp[$0]
|
|
lat temp[$1]
|
|
sub
|
|
le?
|
|
bnt code_056b
|
|
pushi $5 ; scaleY
|
|
push0
|
|
lst temp[$3]
|
|
lst temp[$4]
|
|
lst temp[$1]
|
|
lst temp[$2]
|
|
callk kernel_92, $a
|
|
bnot
|
|
not
|
|
bnt code_0567
|
|
lat temp[$2]
|
|
ret
|
|
|
|
code_0567: +at temp[$2]
|
|
jmp code_0548
|
|
|
|
code_056b: ldi $ff ; 255, asInteger
|
|
ret
|
|
|
|
Str::asInteger:
|
|
push2
|
|
pushi $4 ; scaleX
|
|
pTos data
|
|
callk kernel_92, $4
|
|
bnot
|
|
ret
|
|
|
|
Str::size:
|
|
push2
|
|
push1
|
|
pTos data
|
|
callk kernel_92, $4
|
|
bnot
|
|
ret
|
|
|
|
Str::init:
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
push0
|
|
push0
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
Str::strMax:
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
super ByteArray, $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
ret
|
|
|
|
Str::compare:
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push1
|
|
lsp param[$1]
|
|
call code_07bc, $2
|
|
bnot
|
|
ne?
|
|
bnt code_05ac
|
|
ldi $0
|
|
jmp code_05c8
|
|
|
|
code_05ac: pushi $d4 ; 212, compToFrom
|
|
pushi $4 ; scaleX
|
|
push0
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
push0
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
self $c
|
|
bnot
|
|
code_05c8: ret
|
|
|
|
Str::compToFrom:
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pTos data
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$2]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lsp param[$4]
|
|
callk kernel_92, $8
|
|
bnot
|
|
not
|
|
ret
|
|
|
|
Str::getToken:
|
|
link $b
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
sat temp[$5]
|
|
ldi $0
|
|
sat temp[$4]
|
|
ldi $ff ; 255, asInteger
|
|
sat temp[$7]
|
|
ldi $ff ; 255, asInteger
|
|
sat temp[$8]
|
|
pToa data
|
|
sat temp[$a]
|
|
push2
|
|
push1
|
|
push
|
|
callk kernel_92, $4
|
|
bnot
|
|
sat temp[$9]
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0611: lst temp[$0]
|
|
lat temp[$9]
|
|
lt?
|
|
bnt code_067c
|
|
pushi $3 ; z
|
|
push2
|
|
lst temp[$a]
|
|
lst temp[$0]
|
|
callk kernel_91, $6
|
|
bnot
|
|
sat temp[$6]
|
|
ldi $0
|
|
sat temp[$4]
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_062e: lst temp[$3]
|
|
push2
|
|
push1
|
|
lst temp[$5]
|
|
callk kernel_92, $4
|
|
bnot
|
|
lt?
|
|
bnt code_0655
|
|
lst temp[$6]
|
|
pushi $3 ; z
|
|
push2
|
|
lst temp[$5]
|
|
lst temp[$3]
|
|
callk kernel_91, $6
|
|
bnot
|
|
eq?
|
|
bnt code_0651
|
|
ldi $1
|
|
sat temp[$4]
|
|
jmp code_0655
|
|
|
|
code_0651: +at temp[$3]
|
|
jmp code_062e
|
|
|
|
code_0655: lst temp[$7]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0667
|
|
lat temp[$4]
|
|
not
|
|
bnt code_0667
|
|
lat temp[$0]
|
|
sat temp[$7]
|
|
jmp code_0678
|
|
|
|
code_0667: lst temp[$7]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0678
|
|
lat temp[$4]
|
|
bnt code_0678
|
|
lat temp[$0]
|
|
sat temp[$8]
|
|
jmp code_067c
|
|
|
|
code_0678: +at temp[$0]
|
|
jmp code_0611
|
|
|
|
code_067c: lst temp[$8]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_068b
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$8]
|
|
code_068b: lst temp[$7]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_06f8
|
|
lsp param[$0]
|
|
ldi $2
|
|
eq?
|
|
bnt code_069e
|
|
lap param[$2]
|
|
jmp code_06ad
|
|
|
|
code_069e: pushi $8d ; 141, new
|
|
push1
|
|
lst temp[$8]
|
|
lat temp[$7]
|
|
sub
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
code_06ad: sat temp[$2]
|
|
lat temp[$8]
|
|
bnt code_06e8
|
|
pushi $6 ; maxScale
|
|
dup
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lst temp[$2]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
push0
|
|
pTos data
|
|
lst temp[$7]
|
|
lst temp[$8]
|
|
lat temp[$7]
|
|
sub
|
|
push
|
|
callk kernel_91, $c
|
|
bnot
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lst temp[$2]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lst temp[$8]
|
|
lat temp[$7]
|
|
sub
|
|
push
|
|
push0
|
|
callk kernel_91, $8
|
|
bnot
|
|
code_06e8: pushi $d7 ; 215, move
|
|
pushi $3 ; z
|
|
push0
|
|
lst temp[$8]
|
|
pushi $ff ; 255, asInteger
|
|
self $a
|
|
bnot
|
|
jmp code_06fc
|
|
|
|
code_06f8: ldi $0
|
|
sat temp[$2]
|
|
code_06fc: lat temp[$2]
|
|
ret
|
|
|
|
Str::strip:
|
|
link $5
|
|
lap param[$1]
|
|
sap param[$1]
|
|
ldi $0
|
|
sat temp[$2]
|
|
ldi $0
|
|
sat temp[$3]
|
|
lsp param[$0]
|
|
ldi $1
|
|
lt?
|
|
bnt code_071b
|
|
ldi $5 ; scaleY
|
|
sat temp[$3]
|
|
jmp code_077d
|
|
|
|
code_071b: ldi $0
|
|
sat temp[$4]
|
|
code_071f: lst temp[$4]
|
|
lap param[$0]
|
|
lt?
|
|
bnt code_077d
|
|
lat temp[$4]
|
|
lspi param[$1]
|
|
dup
|
|
ldi $87 ; 135, left
|
|
eq?
|
|
bnt code_073c
|
|
lst temp[$3]
|
|
ldi $4 ; scaleX
|
|
or
|
|
sat temp[$3]
|
|
jmp code_0778
|
|
|
|
code_073c: dup
|
|
ldi $88 ; 136, right
|
|
eq?
|
|
bnt code_074c
|
|
lst temp[$3]
|
|
ldi $1
|
|
or
|
|
sat temp[$3]
|
|
jmp code_0778
|
|
|
|
code_074c: dup
|
|
ldi $73 ; 115, 's', center
|
|
eq?
|
|
bnt code_075b
|
|
lst temp[$3]
|
|
ldi $2
|
|
or
|
|
sat temp[$3]
|
|
jmp code_0778
|
|
|
|
code_075b: dup
|
|
ldi $74 ; 116, 't', all
|
|
eq?
|
|
bnt code_0767
|
|
ldi $7 ; priority
|
|
sat temp[$3]
|
|
jmp code_0778
|
|
|
|
code_0767: dup
|
|
ldi $75 ; 117, 'u', show
|
|
eq?
|
|
bnt code_0778
|
|
lst temp[$4]
|
|
ldi $1
|
|
add
|
|
lapi param[$1]
|
|
sat temp[$2]
|
|
+at temp[$4]
|
|
code_0778: toss
|
|
+at temp[$4]
|
|
jmp code_071f
|
|
|
|
code_077d: lat temp[$2]
|
|
bnt code_0790
|
|
pushi $4 ; scaleX
|
|
pushi $5 ; scaleY
|
|
pTos data
|
|
lst temp[$3]
|
|
push
|
|
callk kernel_92, $8
|
|
bnot
|
|
jmp code_079c
|
|
|
|
code_0790: pushi $3 ; z
|
|
pushi $5 ; scaleY
|
|
pTos data
|
|
lst temp[$3]
|
|
callk kernel_92, $6
|
|
bnot
|
|
code_079c: ret
|
|
|
|
Str::weigh:
|
|
link $6
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pTos data
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
callk kernel_92, $8
|
|
bnot
|
|
ret
|
|
|
|
Str::callKernel:
|
|
push0
|
|
&rest $1
|
|
callk kernel_92, $0
|
|
bnot
|
|
code_07bc: ret
|
|
|
|
push2
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_92, $4
|
|
bnot
|
|
ret
|
|
|