249 lines
3.9 KiB
Plaintext
249 lines
3.9 KiB
Plaintext
export60025_0 = code_0018
|
|
export60025_1 = code_0029
|
|
export60025_2 = code_0046
|
|
export60025_3 = code_0064
|
|
export60025_4 = code_0082
|
|
export60025_5 = code_00a9
|
|
export60025_6 = code_00d3
|
|
export60025_7 = code_016b
|
|
|
|
; export60025_0
|
|
code_0018: lsp param[$1]
|
|
ldi $0
|
|
lt?
|
|
bnt code_0023
|
|
ldi $ff ; 255, asInteger
|
|
jmp code_0028
|
|
|
|
code_0023: lsp param[$1]
|
|
ldi $0
|
|
gt?
|
|
code_0028: ret
|
|
|
|
; export60025_1
|
|
code_0029: lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$1]
|
|
lap param[$2]
|
|
div
|
|
mul
|
|
sub
|
|
sap param[$1]
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_0043
|
|
lsp param[$1]
|
|
lap param[$2]
|
|
add
|
|
sap param[$1]
|
|
code_0043: lap param[$1]
|
|
code_0045: ret
|
|
|
|
; export60025_2
|
|
code_0046: link $1
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bt code_005b
|
|
lsp param[$1]
|
|
push0
|
|
&rest $2
|
|
call code_0045, $0
|
|
bnot
|
|
sat temp[$0]
|
|
lt?
|
|
code_005b: bnt code_0061
|
|
lap param[$1]
|
|
jmp code_0063
|
|
|
|
code_0061: lat temp[$0]
|
|
code_0063: ret
|
|
|
|
; export60025_3
|
|
code_0064: link $1
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bt code_0079
|
|
lsp param[$1]
|
|
push0
|
|
&rest $2
|
|
call code_0063, $0
|
|
bnot
|
|
sat temp[$0]
|
|
gt?
|
|
code_0079: bnt code_007f
|
|
lap param[$1]
|
|
jmp code_0081
|
|
|
|
code_007f: lat temp[$0]
|
|
code_0081: ret
|
|
|
|
; export60025_4
|
|
code_0082: link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0088: lst temp[$0]
|
|
lsp param[$0]
|
|
ldi $1
|
|
sub
|
|
lt?
|
|
bnt code_00a6
|
|
lsp param[$1]
|
|
lat temp[$0]
|
|
lapi param[$2]
|
|
eq?
|
|
bnt code_00a2
|
|
lap param[$1]
|
|
bt code_00a1
|
|
ldi $1
|
|
code_00a1: ret
|
|
|
|
code_00a2: +at temp[$0]
|
|
jmp code_0088
|
|
|
|
code_00a6: ldi $0
|
|
ret
|
|
|
|
; export60025_5
|
|
code_00a9: push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_00cf
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
lsp param[$2]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_00cf
|
|
lsp param[$2]
|
|
push0
|
|
&rest $3 ; z
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
jmp code_00d2
|
|
|
|
code_00cf: ldi $0
|
|
ret
|
|
|
|
code_00d2: ret
|
|
|
|
; export60025_6
|
|
code_00d3: link $2
|
|
ldi $0
|
|
sat temp[$1]
|
|
lag global[$11]
|
|
not
|
|
bnt code_011f
|
|
pushi $d0 ; 208, with
|
|
pushi $1a ; 26, signal
|
|
pushi $1e ; 30, brRight
|
|
pushi $30 ; 48, '0', who
|
|
pushi $2e ; 46, '.', max
|
|
pushi $20 ; 32, ' ', name
|
|
pushi $12 ; 18, nsLeft
|
|
pushi $21 ; 33, '!', key
|
|
pushi $22 ; 34, '"', time
|
|
pushi $23 ; 35, '#', text
|
|
pushi $17 ; 23, lsTop
|
|
pushi $24 ; 36, '$', elements
|
|
pushi $25 ; 37, '%', fore
|
|
pushi $26 ; 38, '&', back
|
|
pushi $32 ; 50, '2', edit
|
|
pushi $31 ; 49, '1', message
|
|
pushi $18 ; 24, lsRight
|
|
pushi $19 ; 25, lsBottom
|
|
pushi $10 ; 16, cel
|
|
pushi $13 ; 19, nsTop
|
|
pushi $1f ; 31, brBottom
|
|
pushi $14 ; 20, nsRight
|
|
pushi $16 ; 22, lsLeft
|
|
pushi $2f ; 47, '/', mark
|
|
pushi $11 ; 17, bitmap
|
|
pushi $2d ; 45, '-', cursor
|
|
pushi $15 ; 21, nsBottom
|
|
pushi $2c ; 44, ',', window
|
|
class ByteArray
|
|
send $38
|
|
bnot
|
|
sag global[$11]
|
|
code_011f: ldi $0
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
lt?
|
|
bnt code_014a
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push1
|
|
lsp param[$1]
|
|
calle export60027_0, $2
|
|
bnot
|
|
push
|
|
ldi $41 ; 65, 'A', moveSpeed
|
|
sub
|
|
push
|
|
lag global[$11]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $8 ; fixPriority
|
|
shl
|
|
sat temp[$1]
|
|
jmp code_0168
|
|
|
|
code_014a: pushi $ae ; 174, indexOf
|
|
push1
|
|
lsp param[$1]
|
|
ldi $8 ; fixPriority
|
|
shr
|
|
push
|
|
lag global[$11]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0168
|
|
pushi $41 ; 65, 'A', moveSpeed
|
|
lat temp[$0]
|
|
add
|
|
sat temp[$1]
|
|
code_0168: lat temp[$1]
|
|
ret
|
|
|
|
; export60025_7
|
|
code_016b: link $2
|
|
ldi $0
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_0175: lst temp[$0]
|
|
ldi $10 ; 16, cel
|
|
lt?
|
|
bnt code_0190
|
|
lst temp[$1]
|
|
lsp param[$1]
|
|
push1
|
|
lat temp[$0]
|
|
shl
|
|
and
|
|
push
|
|
ldi $0
|
|
gt?
|
|
add
|
|
sat temp[$1]
|
|
+at temp[$0]
|
|
jmp code_0175
|
|
|
|
code_0190: lat temp[$1]
|
|
ret
|
|
|