351 lines
4.7 KiB
Plaintext
351 lines
4.7 KiB
Plaintext
File::open:
|
|
lsp param[$0]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0078
|
|
pushi $3 ; z
|
|
push0
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos name
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
push0
|
|
callk kernel_93, $6
|
|
bnot
|
|
jmp code_0095
|
|
|
|
code_0078: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0093
|
|
pushi $3 ; z
|
|
push0
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos name
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lsp param[$1]
|
|
callk kernel_93, $6
|
|
bnot
|
|
jmp code_0095
|
|
|
|
code_0093: ldi $0
|
|
code_0095: toss
|
|
aTop handle
|
|
pTos handle
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_00a3
|
|
ldi $0
|
|
aTop handle
|
|
code_00a3: pToa handle
|
|
bnt code_00aa
|
|
selfID
|
|
jmp code_00ac
|
|
|
|
code_00aa: ldi $0
|
|
code_00ac: ret
|
|
|
|
File::write:
|
|
link $1
|
|
pToa handle
|
|
not
|
|
bnt code_00bb
|
|
pushi $248 ; 584, open
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_00bb: pToa handle
|
|
bnt code_00d6
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
push
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lsp param[$2]
|
|
callk kernel_93, $8
|
|
bnot
|
|
jmp code_00d8
|
|
|
|
code_00d6: ldi $0
|
|
code_00d8: ret
|
|
|
|
File::writeString:
|
|
link $1
|
|
pToa handle
|
|
not
|
|
bnt code_00e7
|
|
pushi $248 ; 584, open
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_00e7: pToa handle
|
|
bnt code_0116
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_00ef: lst temp[$0]
|
|
lap param[$0]
|
|
lt?
|
|
bnt code_0116
|
|
pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
pTos handle
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lat temp[$0]
|
|
lspi param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_93, $6
|
|
bnot
|
|
not
|
|
bnt code_0112
|
|
ldi $0
|
|
ret
|
|
|
|
code_0112: +at temp[$0]
|
|
jmp code_00ef
|
|
|
|
code_0116: ldi $1
|
|
ret
|
|
|
|
File::read:
|
|
lsp param[$0]
|
|
ldi $2
|
|
ne?
|
|
bnt code_0123
|
|
ldi $0
|
|
ret
|
|
|
|
code_0123: pToa handle
|
|
not
|
|
bnt code_0130
|
|
pushi $248 ; 584, open
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_0130: pToa handle
|
|
bnt code_014a
|
|
pushi $4 ; scaleX
|
|
push2
|
|
push
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lsp param[$2]
|
|
callk kernel_93, $8
|
|
bnot
|
|
jmp code_014c
|
|
|
|
code_014a: ldi $0
|
|
code_014c: ret
|
|
|
|
File::readString:
|
|
link $1
|
|
lsp param[$0]
|
|
ldi $2
|
|
ne?
|
|
bnt code_0159
|
|
ldi $0
|
|
ret
|
|
|
|
code_0159: pToa handle
|
|
not
|
|
bnt code_0166
|
|
pushi $248 ; 584, open
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_0166: push2
|
|
lsp param[$2]
|
|
push2
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
calle export60025_2, $4
|
|
bnot
|
|
sat temp[$0]
|
|
pToa handle
|
|
bnt code_019f
|
|
pushi $4 ; scaleX
|
|
pushi $5 ; scaleY
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
lst temp[$0]
|
|
pTos handle
|
|
callk kernel_93, $8
|
|
bnot
|
|
jmp code_01a1
|
|
|
|
code_019f: ldi $0
|
|
code_01a1: ret
|
|
|
|
File::getByte:
|
|
push2
|
|
pushi $d ; 13, seenRect
|
|
pTos handle
|
|
callk kernel_93, $4
|
|
bnot
|
|
ret
|
|
|
|
File::putByte:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_01b2: lst temp[$0]
|
|
lap param[$0]
|
|
lt?
|
|
bnt code_01cb
|
|
pushi $3 ; z
|
|
pushi $e ; 14, view
|
|
pTos handle
|
|
lat temp[$0]
|
|
lspi param[$1]
|
|
callk kernel_93, $6
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_01b2
|
|
|
|
code_01cb: ret
|
|
|
|
File::getWord:
|
|
push2
|
|
pushi $f ; 15, loop
|
|
pTos handle
|
|
callk kernel_93, $4
|
|
bnot
|
|
ret
|
|
|
|
File::putWord:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_01dc: lst temp[$0]
|
|
lap param[$0]
|
|
lt?
|
|
bnt code_01f5
|
|
pushi $3 ; z
|
|
pushi $10 ; 16, cel
|
|
pTos handle
|
|
lat temp[$0]
|
|
lspi param[$1]
|
|
callk kernel_93, $6
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_01dc
|
|
|
|
code_01f5: ret
|
|
|
|
File::rename:
|
|
link $1
|
|
pushi $3 ; z
|
|
pushi $b ; 11, inRight
|
|
pTos name
|
|
lsp param[$1]
|
|
callk kernel_93, $6
|
|
bnot
|
|
sat temp[$0]
|
|
not
|
|
bnt code_020d
|
|
lap param[$1]
|
|
aTop name
|
|
code_020d: lat temp[$0]
|
|
ret
|
|
|
|
File::seek:
|
|
link $1
|
|
lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_021d
|
|
lap param[$2]
|
|
jmp code_021f
|
|
|
|
code_021d: ldi $0
|
|
code_021f: sat temp[$0]
|
|
pToa handle
|
|
not
|
|
bnt code_022e
|
|
pushi $248 ; 584, open
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_022e: pToa handle
|
|
bnt code_0241
|
|
pushi $4 ; scaleX
|
|
pushi $7 ; priority
|
|
push
|
|
lsp param[$1]
|
|
lst temp[$0]
|
|
callk kernel_93, $8
|
|
bnot
|
|
jmp code_0243
|
|
|
|
code_0241: ldi $0
|
|
code_0243: ret
|
|
|
|
File::close:
|
|
pToa handle
|
|
bnt code_0253
|
|
push2
|
|
push1
|
|
push
|
|
callk kernel_93, $4
|
|
bnot
|
|
ldi $0
|
|
aTop handle
|
|
code_0253: ret
|
|
|
|
File::delete:
|
|
pToa handle
|
|
bnt code_025f
|
|
pushi $253 ; 595, close
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_025f: push2
|
|
pushi $4 ; scaleX
|
|
pTos name
|
|
callk kernel_93, $4
|
|
bnot
|
|
ret
|
|
|
|
File::dispose:
|
|
pushi $253 ; 595, close
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|