487 lines
7.7 KiB
Plaintext
487 lines
7.7 KiB
Plaintext
export60026_0 = code_0010
|
|
export60026_1 = code_0104
|
|
export60026_2 = code_022e
|
|
|
|
; export60026_0
|
|
code_0010: pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $1a ; 26, signal
|
|
dup
|
|
pushi $97 ; 151, isKindOf
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$56]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $1a ; 26, signal
|
|
pushi $97 ; 151, isKindOf
|
|
pushi $1a ; 26, signal
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$57]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $1a ; 26, signal
|
|
pushi $97 ; 151, isKindOf
|
|
dup
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$58]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $97 ; 151, isKindOf
|
|
pushi $1a ; 26, signal
|
|
dup
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$59]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $97 ; 151, isKindOf
|
|
pushi $1a ; 26, signal
|
|
pushi $97 ; 151, isKindOf
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$5a]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $97 ; 151, isKindOf
|
|
pushi $59 ; 89, 'Y', printLang
|
|
pushi $1a ; 26, signal
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$5b]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $9f ; 159, add
|
|
dup
|
|
dup
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$5c]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $3f ; 63, '?', xStep
|
|
dup
|
|
dup
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$5d]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $46 ; 70, 'F', isBlocked
|
|
dup
|
|
pushi $de ; 222, centerIn
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$5e]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $46 ; 70, 'F', isBlocked
|
|
pushi $de ; 222, centerIn
|
|
pushi $46 ; 70, 'F', isBlocked
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$5f]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $46 ; 70, 'F', isBlocked
|
|
pushi $de ; 222, centerIn
|
|
dup
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$60]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $de ; 222, centerIn
|
|
pushi $46 ; 70, 'F', isBlocked
|
|
dup
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$61]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $de ; 222, centerIn
|
|
pushi $46 ; 70, 'F', isBlocked
|
|
pushi $de ; 222, centerIn
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$62]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $d8 ; 216, callKernel
|
|
dup
|
|
pushi $26 ; 38, '&', back
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$63]
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
pushi $df ; 223, centerOn
|
|
dup
|
|
dup
|
|
callk kernel_107, $8
|
|
bnot
|
|
sag global[$55]
|
|
ret
|
|
|
|
; export60026_1
|
|
code_0104: link $3
|
|
pushi $e ; 14, view
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0149
|
|
pushi $8 ; fixPriority
|
|
pushi $9 ; inLeft
|
|
pushi $e ; 14, view
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
push1
|
|
pushi $17a ; 378, clut
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_35, $10
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_01a4
|
|
|
|
code_0149: push0
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_015b
|
|
push0
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_0162
|
|
|
|
code_015b: push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
code_0162: sat temp[$1]
|
|
pushi $7 ; priority
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $72 ; 114, 'r', skip
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $26 ; 38, '&', back
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $6e ; 110, 'n', resX
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $6f ; 111, 'o', resY
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_35, $e
|
|
bnot
|
|
sat temp[$0]
|
|
code_01a4: pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $23 ; 35, '#', text
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_022b
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_022b
|
|
pushi $f ; 15, loop
|
|
pushi $4 ; scaleX
|
|
lst temp[$0]
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pushi $23 ; 35, '#', text
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
push0
|
|
push0
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $25 ; 37, '%', fore
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $26 ; 38, '&', back
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $72 ; 114, 'r', skip
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2a ; 42, '*', font
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $27 ; 39, ''', mode
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $7a ; 122, 'z', borderColor
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $7e ; 126, '~', dimmed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push0
|
|
callk kernel_35, $1e
|
|
bnot
|
|
code_022b: lat temp[$0]
|
|
ret
|
|
|
|
; export60026_2
|
|
code_022e: link $2
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lofsa DispTextArray
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0250
|
|
pushi $71 ; 113, 'q', data
|
|
push1
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $32 ; 50, '2', edit
|
|
push0
|
|
callk kernel_91, $6
|
|
bnot
|
|
push
|
|
lofsa DispTextArray
|
|
send $6
|
|
bnot
|
|
code_0250: lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0293
|
|
ldi $0
|
|
sat temp[$1]
|
|
code_025b: lst temp[$1]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lofsa DispTextArray
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0342
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$1]
|
|
lofsa DispTextArray
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_028c
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$1]
|
|
push0
|
|
lofsa DispTextArray
|
|
send $8
|
|
bnot
|
|
code_028c: +at temp[$1]
|
|
jmp code_025b
|
|
|
|
jmp code_0342
|
|
|
|
code_0293: pushi $4b ; 75, 'K', at
|
|
push1
|
|
lsp param[$1]
|
|
lofsa DispTextArray
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_02b5
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lsp param[$1]
|
|
push0
|
|
lofsa DispTextArray
|
|
send $8
|
|
bnot
|
|
code_02b5: lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0342
|
|
lap param[$2]
|
|
bnt code_0342
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lsp param[$1]
|
|
pushi $23 ; 35, '#', text
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lsp param[$2]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $db ; 219, moveTo
|
|
push2
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_02e5
|
|
lap param[$3]
|
|
jmp code_02e7
|
|
|
|
code_02e5: ldi $a ; 10, inTop
|
|
code_02e7: push
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_02f3
|
|
lap param[$4]
|
|
jmp code_02fc
|
|
|
|
code_02f3: lsp param[$1]
|
|
ldi $10 ; 16, cel
|
|
mod
|
|
push
|
|
ldi $c ; 12, inBottom
|
|
mul
|
|
code_02fc: push
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_030b
|
|
lap param[$5]
|
|
jmp code_030d
|
|
|
|
code_030b: lag global[$55]
|
|
code_030d: push
|
|
pushi $2a ; 42, '*', font
|
|
push1
|
|
lsp param[$0]
|
|
ldi $5 ; scaleY
|
|
gt?
|
|
bnt code_031c
|
|
lap param[$6]
|
|
jmp code_031e
|
|
|
|
code_031c: lag global[$3a]
|
|
code_031e: push
|
|
pushi $29 ; 41, ')', state
|
|
push1
|
|
push0
|
|
pushi $1be ; 446, setSize
|
|
push0
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class TextItem
|
|
send $4
|
|
bnot
|
|
send $2c
|
|
bnot
|
|
push
|
|
lofsa DispTextArray
|
|
send $8
|
|
bnot
|
|
code_0342: ret
|
|
|