605 lines
8.9 KiB
Plaintext
605 lines
8.9 KiB
Plaintext
export60027_0 = code_0028
|
|
export60027_1 = code_003f
|
|
export60027_2 = code_0056
|
|
export60027_3 = code_008a
|
|
export60027_4 = code_0096
|
|
export60027_5 = code_00af
|
|
export60027_6 = code_007e
|
|
export60027_7 = code_00c0
|
|
export60027_8 = code_0071
|
|
export60027_9 = code_00d9
|
|
export60027_10 = code_00fb
|
|
export60027_11 = code_0107
|
|
export60027_12 = code_017d
|
|
export60027_13 = code_01c1
|
|
export60027_14 = code_0272
|
|
export60027_15 = code_0315
|
|
|
|
; export60027_0
|
|
code_0028: pushi $61 ; 97, 'a', frame
|
|
lap param[$1]
|
|
le?
|
|
bnt code_003c
|
|
pprev
|
|
ldi $7a ; 122, 'z', borderColor
|
|
le?
|
|
bnt code_003c
|
|
lsp param[$1]
|
|
ldi $20 ; 32, ' ', name
|
|
sub
|
|
jmp code_003e
|
|
|
|
code_003c: lap param[$1]
|
|
code_003e: ret
|
|
|
|
; export60027_1
|
|
code_003f: pushi $41 ; 65, 'A', moveSpeed
|
|
lap param[$1]
|
|
le?
|
|
bnt code_0053
|
|
pprev
|
|
ldi $5a ; 90, 'Z', size
|
|
le?
|
|
bnt code_0053
|
|
lsp param[$1]
|
|
ldi $20 ; 32, ' ', name
|
|
add
|
|
jmp code_0055
|
|
|
|
code_0053: lap param[$1]
|
|
code_0055: ret
|
|
|
|
; export60027_2
|
|
code_0056: lsp param[$1]
|
|
ldi $20 ; 32, ' ', name
|
|
eq?
|
|
bt code_0070
|
|
lsp param[$1]
|
|
ldi $d ; 13, seenRect
|
|
eq?
|
|
bt code_0070
|
|
lsp param[$1]
|
|
ldi $a ; 10, inTop
|
|
eq?
|
|
bt code_0070
|
|
lsp param[$1]
|
|
ldi $9 ; inLeft
|
|
eq?
|
|
code_0070: ret
|
|
|
|
; export60027_8
|
|
code_0071: lsp param[$1]
|
|
ldi $20 ; 32, ' ', name
|
|
lt?
|
|
bt code_007d
|
|
lsp param[$1]
|
|
ldi $7f ; 127, frameOut
|
|
gt?
|
|
code_007d: ret
|
|
|
|
; export60027_6
|
|
code_007e: pushi $20 ; 32, ' ', name
|
|
lap param[$1]
|
|
le?
|
|
bnt code_0089
|
|
pprev
|
|
ldi $7e ; 126, '~', dimmed
|
|
le?
|
|
code_0089: ret
|
|
|
|
; export60027_3
|
|
code_008a: pushi $30 ; 48, '0', who
|
|
lap param[$1]
|
|
le?
|
|
bnt code_0095
|
|
pprev
|
|
ldi $39 ; 57, '9', b_moveCnt
|
|
le?
|
|
code_0095: ret
|
|
|
|
; export60027_4
|
|
code_0096: pushi $41 ; 65, 'A', moveSpeed
|
|
lap param[$1]
|
|
le?
|
|
bnt code_00a1
|
|
pprev
|
|
ldi $5a ; 90, 'Z', size
|
|
le?
|
|
code_00a1: bt code_00ae
|
|
pushi $61 ; 97, 'a', frame
|
|
lap param[$1]
|
|
le?
|
|
bnt code_00ae
|
|
pprev
|
|
ldi $7a ; 122, 'z', borderColor
|
|
le?
|
|
code_00ae: ret
|
|
|
|
; export60027_5
|
|
code_00af: push1
|
|
lsp param[$1]
|
|
call code_0089, $2
|
|
bnot
|
|
bt code_00bf
|
|
push1
|
|
lsp param[$1]
|
|
call code_0095, $2
|
|
bnot
|
|
code_00bf: ret
|
|
|
|
; export60027_7
|
|
code_00c0: lsp param[$1]
|
|
ldi $20 ; 32, ' ', name
|
|
ne?
|
|
bnt code_00d8
|
|
push1
|
|
lsp param[$1]
|
|
call code_007d, $2
|
|
bnot
|
|
bnt code_00d8
|
|
push1
|
|
lsp param[$1]
|
|
call code_00ae, $2
|
|
bnot
|
|
not
|
|
code_00d8: ret
|
|
|
|
; export60027_9
|
|
code_00d9: push1
|
|
lsp param[$1]
|
|
call code_0089, $2
|
|
bnot
|
|
bt code_00fa
|
|
pushi $61 ; 97, 'a', frame
|
|
lap param[$1]
|
|
le?
|
|
bnt code_00ed
|
|
pprev
|
|
ldi $66 ; 102, 'f', flags
|
|
le?
|
|
code_00ed: bt code_00fa
|
|
pushi $41 ; 65, 'A', moveSpeed
|
|
lap param[$1]
|
|
le?
|
|
bnt code_00fa
|
|
pprev
|
|
ldi $46 ; 70, 'F', isBlocked
|
|
le?
|
|
code_00fa: ret
|
|
|
|
; export60027_10
|
|
code_00fb: pushi $16 ; 22, lsLeft
|
|
lap param[$1]
|
|
le?
|
|
bnt code_0106
|
|
pprev
|
|
ldi $1f ; 31, brBottom
|
|
le?
|
|
code_0106: ret
|
|
|
|
; export60027_11
|
|
code_0107: link $3
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_0116
|
|
lap param[$3]
|
|
sat temp[$1]
|
|
jmp code_011a
|
|
|
|
code_0116: ldi $0
|
|
sat temp[$1]
|
|
code_011a: lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_0127
|
|
lap param[$4]
|
|
sat temp[$2]
|
|
jmp code_0142
|
|
|
|
code_0127: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
push
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
ne?
|
|
bnt code_0140
|
|
ldi $0
|
|
ret
|
|
|
|
code_0140: -at temp[$2]
|
|
code_0142: lat temp[$1]
|
|
sat temp[$0]
|
|
code_0146: lst temp[$0]
|
|
lat temp[$2]
|
|
le?
|
|
bnt code_017a
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
call code_0027, $2
|
|
bnot
|
|
push
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
push
|
|
call code_0027, $2
|
|
bnot
|
|
ne?
|
|
bnt code_0176
|
|
ldi $0
|
|
ret
|
|
|
|
code_0176: +at temp[$0]
|
|
jmp code_0146
|
|
|
|
code_017a: ldi $1
|
|
ret
|
|
|
|
; export60027_12
|
|
code_017d: link $3
|
|
lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bnt code_018a
|
|
ldi $1
|
|
jmp code_018c
|
|
|
|
code_018a: lap param[$2]
|
|
code_018c: sat temp[$0]
|
|
pushi $d1 ; 209, newWith
|
|
push1
|
|
push
|
|
push2
|
|
push1
|
|
lsp param[$1]
|
|
callk kernel_92, $4
|
|
bnot
|
|
mul
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_01a8: lst temp[$2]
|
|
lat temp[$0]
|
|
lt?
|
|
bnt code_01be
|
|
pushi $f7 ; 247, cat
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
+at temp[$2]
|
|
jmp code_01a8
|
|
|
|
code_01be: lat temp[$1]
|
|
ret
|
|
|
|
; export60027_13
|
|
code_01c1: link $7
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_01ce
|
|
lap param[$3]
|
|
jmp code_01d0
|
|
|
|
code_01ce: lag global[$3a]
|
|
code_01d0: sat temp[$3]
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Rect
|
|
push
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_01e4
|
|
lap param[$2]
|
|
jmp code_0202
|
|
|
|
code_01e4: pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
lofsa string_0006 ; "w"
|
|
push
|
|
lst temp[$3]
|
|
lsp param[$2]
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
send $e
|
|
bnot
|
|
code_0202: sat temp[$0]
|
|
pushi $4e ; 78, 'N', width
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
sat temp[$5]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
code_0230: pushi $e5 ; 229, sizeToStr
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
lst temp[$3]
|
|
lst temp[$1]
|
|
lat temp[$4]
|
|
send $a
|
|
bnot
|
|
lst temp[$5]
|
|
ldi $0
|
|
lt?
|
|
bt code_0266
|
|
pushi $e1 ; 225, height
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$2]
|
|
le?
|
|
bt code_0266
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$5]
|
|
push0
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
-at temp[$5]
|
|
jmp code_0230
|
|
|
|
code_0266: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$4]
|
|
send $4
|
|
bnot
|
|
lat temp[$5]
|
|
ret
|
|
|
|
; export60027_14
|
|
code_0272: link $3
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0287
|
|
lsp param[$2]
|
|
ldi $1
|
|
eq?
|
|
not
|
|
bnt code_0287
|
|
ldi $0
|
|
sap param[$2]
|
|
code_0287: lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_02a2
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$3]
|
|
ge?
|
|
bnt code_02a2
|
|
lap param[$3]
|
|
sat temp[$1]
|
|
jmp code_02a6
|
|
|
|
code_02a2: ldi $0
|
|
sat temp[$1]
|
|
code_02a6: lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_02c1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$4]
|
|
ge?
|
|
bnt code_02c1
|
|
lap param[$4]
|
|
sat temp[$2]
|
|
jmp code_02c5
|
|
|
|
code_02c1: lat temp[$1]
|
|
sat temp[$2]
|
|
code_02c5: lat temp[$1]
|
|
sat temp[$0]
|
|
code_02c9: lst temp[$0]
|
|
lat temp[$2]
|
|
le?
|
|
bnt code_0312
|
|
lap param[$2]
|
|
bnt code_02f2
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$0]
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
call code_003e, $2
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
jmp code_030e
|
|
|
|
code_02f2: pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$0]
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
call code_0027, $2
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
code_030e: +at temp[$0]
|
|
jmp code_02c9
|
|
|
|
code_0312: lap param[$1]
|
|
ret
|
|
|
|
; export60027_15
|
|
code_0315: link $1
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bt code_0330
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_105, $4
|
|
bnot
|
|
push
|
|
ldi $33 ; 51, '3', play
|
|
eq?
|
|
code_0330: bnt code_03b7
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sap param[$1]
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
pushi $88 ; 136, right
|
|
push1
|
|
push2
|
|
send $6
|
|
bnot
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $4 ; scaleX
|
|
push0
|
|
lofsa string_0008 ; "ss"
|
|
push
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lst temp[$0]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
push2
|
|
callk kernel_92, $8
|
|
bnot
|
|
bnt code_039f
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $73 ; 115, 's', center
|
|
eq?
|
|
bnt code_039f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
lofsa string_000b ; "are"
|
|
ret
|
|
|
|
jmp code_03bb
|
|
|
|
code_039f: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
lofsa string_000f ; "is"
|
|
ret
|
|
|
|
jmp code_03bb
|
|
|
|
code_03b7: lofsa string_0012 ; "Unknown item is"
|
|
ret
|
|
|
|
code_03bb: ret
|
|
|