89 lines
1.2 KiB
Plaintext
89 lines
1.2 KiB
Plaintext
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
|
|
|