Upload files to "Script"
This commit is contained in:
parent
df1435a304
commit
73b4c4e783
|
|
@ -0,0 +1,20 @@
|
|||
BTrade::buildVerbList:
|
||||
link $2
|
||||
class VerbList
|
||||
sat temp[$0]
|
||||
pushi $97 ; 151, isKindOf
|
||||
push1
|
||||
class WorldEgo
|
||||
push
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_004c
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $89 ; 137, top
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
code_004c: ret
|
||||
|
||||
|
|
@ -0,0 +1,814 @@
|
|||
gDialogList::add:
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
super Set, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
gDialogList::dispose:
|
||||
link $3
|
||||
push1
|
||||
pushi $c ; 12, inBottom
|
||||
callk kernel_118, $2
|
||||
bnot
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_015e: lst temp[$0]
|
||||
lat temp[$1]
|
||||
lt?
|
||||
bnt code_0195
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$0]
|
||||
self $6
|
||||
bnot
|
||||
sat temp[$2]
|
||||
push1
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_0191
|
||||
pushi $97 ; 151, isKindOf
|
||||
push1
|
||||
class Dialog
|
||||
push
|
||||
lat temp[$2]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0191
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
code_0191: +at temp[$0]
|
||||
jmp code_015e
|
||||
|
||||
code_0195: pushi $a6 ; 166, release
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop size
|
||||
ret
|
||||
|
||||
VerbDialog::new:
|
||||
pushi $4 ; scaleX
|
||||
pushi $9 ; inLeft
|
||||
push0
|
||||
pushi $24 ; 36, '$', elements
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lsp param[$2]
|
||||
callk kernel_118, $8
|
||||
bnot
|
||||
lap param[$2]
|
||||
aTop pObject
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushSelf
|
||||
class gDialogList
|
||||
send $6
|
||||
bnot
|
||||
selfID
|
||||
ret
|
||||
|
||||
VerbDialog::dispose:
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
class gDialogList
|
||||
send $6
|
||||
bnot
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
push1
|
||||
callk kernel_118, $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super FancyDialog, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
GetAmount::new:
|
||||
lap param[$0]
|
||||
not
|
||||
bnt code_01ee
|
||||
lag global[$1]
|
||||
aTop pDirectObject
|
||||
jmp code_01f2
|
||||
|
||||
code_01ee: lap param[$1]
|
||||
aTop pDirectObject
|
||||
code_01f2: pushi $8d ; 141, new
|
||||
push0
|
||||
&rest $2
|
||||
super Script, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
GetAmount::changeState:
|
||||
link $6
|
||||
lap param[$1]
|
||||
aTop state
|
||||
push
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0258
|
||||
pushi $337 ; 823, pValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bt code_0227
|
||||
pushi $127 ; 295, equal
|
||||
push1
|
||||
push0
|
||||
pushi $337 ; 823, pValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
code_0227: bnt code_0251
|
||||
pushi $a ; 10, inTop
|
||||
lofsa string_0117 ; "You don't have any gold!"
|
||||
push
|
||||
pushi $fdf5 ; -523
|
||||
lsg global[$55]
|
||||
pushi $8b ; 139, numLines
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0130 ; "Okay"
|
||||
push
|
||||
push0
|
||||
pushi $91 ; 145, bitPutIndex
|
||||
push2
|
||||
calle export60029_0, $14
|
||||
bnot
|
||||
pTos state
|
||||
ldi $2
|
||||
add
|
||||
aTop state
|
||||
code_0251: ldi $1
|
||||
aTop cycles
|
||||
jmp code_0316
|
||||
|
||||
code_0258: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0309
|
||||
pushi $10f ; 271, setLong
|
||||
push1
|
||||
pushi $337 ; 823, pValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class LongInt
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
send $6
|
||||
bnot
|
||||
pushi $f5 ; 245, format
|
||||
push2
|
||||
lofsa string_0135 ; "You have %s gold coins available to transfer.\n"
|
||||
push
|
||||
pushi $131 ; 305, asStr
|
||||
push0
|
||||
pushi $337 ; 823, pValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$5]
|
||||
push
|
||||
class Str
|
||||
send $8
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
pushi $15 ; 21, nsBottom
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_02b3
|
||||
lap param[$2]
|
||||
jmp code_02b5
|
||||
|
||||
code_02b3: lat temp[$0]
|
||||
code_02b5: push
|
||||
pushi $81 ; 129, magnifier
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class SetMoneyEditItem
|
||||
send $4
|
||||
bnot
|
||||
aTop scratch
|
||||
push
|
||||
pushi $fdf5 ; -523
|
||||
lsg global[$55]
|
||||
pushi $8b ; 139, numLines
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_016c ; "ALL"
|
||||
push
|
||||
push2
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0170 ; " OK "
|
||||
push
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0175 ; "Cancel"
|
||||
push
|
||||
push0
|
||||
pushi $93 ; 147, pLine
|
||||
pushSelf
|
||||
pushi $c8 ; 200, handleEvent
|
||||
pushi $91 ; 145, bitPutIndex
|
||||
push2
|
||||
calle export60029_0, $2a
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0316
|
||||
|
||||
code_0309: dup
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0316
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0316: toss
|
||||
ret
|
||||
|
||||
GetAmount::handleEvent:
|
||||
link $1
|
||||
lap param[$0]
|
||||
bnt code_040d
|
||||
lsp param[$1]
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0334
|
||||
pushi $b5 ; 181, set
|
||||
push1
|
||||
push0
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0405
|
||||
|
||||
code_0334: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_03cc
|
||||
push1
|
||||
class SetMoneyEditItem
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_03c0
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
pushi $23 ; 35, '#', text
|
||||
push0
|
||||
pToa scratch
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $0
|
||||
gt?
|
||||
bnt code_03c0
|
||||
pushi $132 ; 306, fromStr
|
||||
push1
|
||||
pushi $23 ; 35, '#', text
|
||||
push0
|
||||
pToa scratch
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
pushi $10f ; 271, setLong
|
||||
push1
|
||||
pTos register
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class LongInt
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
pushi $12e ; 302, greaterLong
|
||||
push1
|
||||
pushi $337 ; 823, pValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_03b5
|
||||
pushi $3 ; z
|
||||
lofsa string_017c ; "Transaction Failed!\n"
|
||||
push
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0130 ; "Okay"
|
||||
push
|
||||
calle export60029_0, $6
|
||||
bnot
|
||||
pushi $b5 ; 181, set
|
||||
push1
|
||||
push0
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
code_03b5: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0405
|
||||
|
||||
code_03c0: pushi $b5 ; 181, set
|
||||
push1
|
||||
push0
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0405
|
||||
|
||||
code_03cc: dup
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_03e7
|
||||
pushi $10f ; 271, setLong
|
||||
push1
|
||||
pushi $337 ; 823, pValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0405
|
||||
|
||||
code_03e7: pushi $3 ; z
|
||||
lofsa string_01aa ; "Transaction Failed!\n"
|
||||
push
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0130 ; "Okay"
|
||||
push
|
||||
calle export60029_0, $6
|
||||
bnot
|
||||
pushi $b5 ; 181, set
|
||||
push2
|
||||
push0
|
||||
push0
|
||||
pToa register
|
||||
send $8
|
||||
bnot
|
||||
code_0405: toss
|
||||
ldi $1
|
||||
aTop cycles
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_040d: ret
|
||||
|
||||
GetManaAmount::new:
|
||||
lap param[$0]
|
||||
not
|
||||
bnt code_0419
|
||||
lag global[$1]
|
||||
aTop pDirectObject
|
||||
jmp code_041d
|
||||
|
||||
code_0419: lap param[$1]
|
||||
aTop pDirectObject
|
||||
code_041d: pushi $8d ; 141, new
|
||||
push0
|
||||
&rest $2
|
||||
super Script, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
GetManaAmount::changeState:
|
||||
link $5
|
||||
lap param[$1]
|
||||
aTop state
|
||||
push
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_0483
|
||||
pushi $338 ; 824, pManaValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bt code_0452
|
||||
pushi $127 ; 295, equal
|
||||
push1
|
||||
push0
|
||||
pushi $338 ; 824, pManaValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
code_0452: bnt code_047c
|
||||
pushi $a ; 10, inTop
|
||||
lofsa string_01dd ; "You don't have any mana crystals!"
|
||||
push
|
||||
pushi $fdf5 ; -523
|
||||
lsg global[$55]
|
||||
pushi $8b ; 139, numLines
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0130 ; "Okay"
|
||||
push
|
||||
push0
|
||||
pushi $91 ; 145, bitPutIndex
|
||||
push2
|
||||
calle export60029_0, $14
|
||||
bnot
|
||||
pTos state
|
||||
ldi $2
|
||||
add
|
||||
aTop state
|
||||
code_047c: ldi $1
|
||||
aTop cycles
|
||||
jmp code_0541
|
||||
|
||||
code_0483: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0534
|
||||
pushi $10f ; 271, setLong
|
||||
push1
|
||||
pushi $338 ; 824, pManaValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class LongInt
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
send $6
|
||||
bnot
|
||||
pushi $f5 ; 245, format
|
||||
push2
|
||||
lofsa string_01ff ; "You have %s mana crystals available to transfer.\n"
|
||||
push
|
||||
pushi $131 ; 305, asStr
|
||||
push0
|
||||
pushi $338 ; 824, pManaValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$4]
|
||||
push
|
||||
class Str
|
||||
send $8
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
pushi $15 ; 21, nsBottom
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_04de
|
||||
lap param[$2]
|
||||
jmp code_04e0
|
||||
|
||||
code_04de: lat temp[$0]
|
||||
code_04e0: push
|
||||
pushi $81 ; 129, magnifier
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class SetManaEditItem
|
||||
send $4
|
||||
bnot
|
||||
aTop scratch
|
||||
push
|
||||
pushi $fdf5 ; -523
|
||||
lsg global[$55]
|
||||
pushi $8b ; 139, numLines
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_016c ; "ALL"
|
||||
push
|
||||
push2
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0170 ; " OK "
|
||||
push
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0175 ; "Cancel"
|
||||
push
|
||||
push0
|
||||
pushi $93 ; 147, pLine
|
||||
pushSelf
|
||||
pushi $c8 ; 200, handleEvent
|
||||
pushi $91 ; 145, bitPutIndex
|
||||
push2
|
||||
calle export60029_0, $2a
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$2]
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0541
|
||||
|
||||
code_0534: dup
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0541
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0541: toss
|
||||
ret
|
||||
|
||||
GetManaAmount::handleEvent:
|
||||
link $1
|
||||
lap param[$0]
|
||||
bnt code_0639
|
||||
lsp param[$1]
|
||||
dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_055f
|
||||
pushi $b5 ; 181, set
|
||||
push1
|
||||
push0
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0631
|
||||
|
||||
code_055f: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_05f8
|
||||
push1
|
||||
class SetMoneyEditItem
|
||||
push
|
||||
calle export60000_0, $2
|
||||
bnot
|
||||
bnt code_05ec
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
pushi $23 ; 35, '#', text
|
||||
push0
|
||||
pToa scratch
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $0
|
||||
gt?
|
||||
bnt code_05ec
|
||||
pushi $132 ; 306, fromStr
|
||||
push1
|
||||
pushi $23 ; 35, '#', text
|
||||
push0
|
||||
pToa scratch
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
pushi $10f ; 271, setLong
|
||||
push1
|
||||
pTos register
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class LongInt
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
pushi $12e ; 302, greaterLong
|
||||
push1
|
||||
pushi $338 ; 824, pManaValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$0]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_05e1
|
||||
pushi $3 ; z
|
||||
lofsa string_017c ; "Transaction Failed!\n"
|
||||
push
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0130 ; "Okay"
|
||||
push
|
||||
calle export60029_0, $6
|
||||
bnot
|
||||
pushi $b5 ; 181, set
|
||||
push1
|
||||
push0
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
code_05e1: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$0]
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0631
|
||||
|
||||
code_05ec: pushi $b5 ; 181, set
|
||||
push1
|
||||
push0
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0631
|
||||
|
||||
code_05f8: dup
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0613
|
||||
pushi $10f ; 271, setLong
|
||||
push1
|
||||
pushi $338 ; 824, pManaValue
|
||||
push0
|
||||
pToa pDirectObject
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa register
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0631
|
||||
|
||||
code_0613: pushi $3 ; z
|
||||
lofsa string_01aa ; "Transaction Failed!\n"
|
||||
push
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0130 ; "Okay"
|
||||
push
|
||||
calle export60029_0, $6
|
||||
bnot
|
||||
pushi $b5 ; 181, set
|
||||
push2
|
||||
push0
|
||||
push0
|
||||
pToa register
|
||||
send $8
|
||||
bnot
|
||||
code_0631: toss
|
||||
ldi $1
|
||||
aTop cycles
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_0639: ret
|
||||
|
||||
ScriptPrompt::doit:
|
||||
lap param[$0]
|
||||
bnt code_0661
|
||||
lap param[$1]
|
||||
bnt code_064d
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
pToa pClient
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0658
|
||||
|
||||
code_064d: pushi $9f ; 159, add
|
||||
push1
|
||||
pTos pClient
|
||||
class DeadObjects
|
||||
send $6
|
||||
bnot
|
||||
code_0658: pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_06a7
|
||||
|
||||
code_0661: pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $15 ; 21, nsBottom
|
||||
pTos pPrompt
|
||||
pushi $76 ; 118, 'v', textLeft
|
||||
pTos pStr
|
||||
pTos pMax
|
||||
pushi $fdf5 ; -523
|
||||
lsg global[$55]
|
||||
pushi $fdf4 ; -524
|
||||
lsg global[$3a]
|
||||
pushi $8b ; 139, numLines
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0170 ; " OK "
|
||||
push
|
||||
push1
|
||||
pushi $77 ; 119, 'w', textTop
|
||||
lofsa string_0175 ; "Cancel"
|
||||
push
|
||||
push0
|
||||
pushi $91 ; 145, bitPutIndex
|
||||
push2
|
||||
pushi $93 ; 147, pLine
|
||||
pushSelf
|
||||
pushi $45 ; 69, 'E', doit
|
||||
&rest $2
|
||||
calle export60029_0, $2a
|
||||
bnot
|
||||
aTop pPrint
|
||||
push
|
||||
class gDialogList
|
||||
send $6
|
||||
bnot
|
||||
code_06a7: ret
|
||||
|
||||
ScriptPrompt::dispose:
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pTos pPrint
|
||||
class gDialogList
|
||||
send $6
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super Code, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,88 @@
|
|||
FormattedFile::writeString:
|
||||
link $2
|
||||
pToa pTabs
|
||||
bnt code_00a4
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Str
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0049: lst temp[$0]
|
||||
pToa pTabs
|
||||
lt?
|
||||
bnt code_0074
|
||||
pToa pUseTabs
|
||||
bnt code_0063
|
||||
pushi $f7 ; 247, cat
|
||||
push1
|
||||
lofsa string_0024 ; " "
|
||||
push
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0070
|
||||
|
||||
code_0063: pushi $f7 ; 247, cat
|
||||
push1
|
||||
lofsa string_0026 ; " "
|
||||
push
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
code_0070: +at temp[$0]
|
||||
jmp code_0049
|
||||
|
||||
code_0074: pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
pTos pTabs
|
||||
pToa pUseTabs
|
||||
bnt code_0081
|
||||
ldi $1
|
||||
jmp code_0083
|
||||
|
||||
code_0081: ldi $3 ; z
|
||||
code_0083: mul
|
||||
push
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $8
|
||||
bnot
|
||||
pushi $27b ; 635, writeString
|
||||
push2
|
||||
lst temp[$1]
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
super File, $8
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$1]
|
||||
send $4
|
||||
bnot
|
||||
jmp code_00b0
|
||||
|
||||
code_00a4: pushi $27b ; 635, writeString
|
||||
push1
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
super File, $6
|
||||
bnot
|
||||
code_00b0: ret
|
||||
|
||||
FormattedFile::incTabs:
|
||||
ipToa pTabs
|
||||
ret
|
||||
|
||||
FormattedFile::decTabs:
|
||||
dpToa pTabs
|
||||
push
|
||||
ldi $0
|
||||
lt?
|
||||
bnt code_00c0
|
||||
ldi $0
|
||||
aTop pTabs
|
||||
code_00c0: ret
|
||||
|
||||
Loading…
Reference in New Issue