170 lines
2.2 KiB
Plaintext
170 lines
2.2 KiB
Plaintext
Flags::init:
|
|
pToa size
|
|
bnt code_0050
|
|
pToa array
|
|
not
|
|
bnt code_0050
|
|
pushi $1be ; 446, setSize
|
|
push1
|
|
pTos size
|
|
self $6
|
|
bnot
|
|
code_0050: ret
|
|
|
|
Flags::setSize:
|
|
link $2
|
|
lsp param[$1]
|
|
ldi $10 ; 16, cel
|
|
div
|
|
sat temp[$0]
|
|
lsp param[$1]
|
|
ldi $10 ; 16, cel
|
|
mod
|
|
bnt code_0063
|
|
+at temp[$0]
|
|
code_0063: lst temp[$0]
|
|
ldi $10 ; 16, cel
|
|
mul
|
|
aTop size
|
|
pushi $8d ; 141, new
|
|
push1
|
|
lst temp[$0]
|
|
ldi $2
|
|
mul
|
|
push
|
|
class IntArray
|
|
send $6
|
|
bnot
|
|
aTop array
|
|
pushi $d6 ; 214, fill
|
|
push2
|
|
push0
|
|
lst temp[$0]
|
|
ldi $2
|
|
mul
|
|
push
|
|
pToa array
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
Flags::dispose:
|
|
pToa array
|
|
bnt code_009b
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop array
|
|
code_009b: pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Flags::set:
|
|
link $2
|
|
code_00a6: lap param[$0]
|
|
bnt code_00de
|
|
-ap param[$0]
|
|
lspi param[$1]
|
|
ldi $10 ; 16, cel
|
|
div
|
|
push
|
|
ldi $2
|
|
mul
|
|
sat temp[$1]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push
|
|
pToa array
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
pushi $8000 ; -32768
|
|
lap param[$0]
|
|
lspi param[$1]
|
|
ldi $10 ; 16, cel
|
|
mod
|
|
shr
|
|
or
|
|
sat temp[$0]
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$1]
|
|
push
|
|
pToa array
|
|
send $8
|
|
bnot
|
|
jmp code_00a6
|
|
|
|
code_00de: ret
|
|
|
|
Flags::clear:
|
|
link $2
|
|
code_00e1: lap param[$0]
|
|
bnt code_011a
|
|
-ap param[$0]
|
|
lspi param[$1]
|
|
ldi $10 ; 16, cel
|
|
div
|
|
push
|
|
ldi $2
|
|
mul
|
|
sat temp[$1]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push
|
|
pToa array
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
pushi $8000 ; -32768
|
|
lap param[$0]
|
|
lspi param[$1]
|
|
ldi $10 ; 16, cel
|
|
mod
|
|
shr
|
|
bnot
|
|
and
|
|
sat temp[$0]
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$1]
|
|
push
|
|
pToa array
|
|
send $8
|
|
bnot
|
|
jmp code_00e1
|
|
|
|
code_011a: ret
|
|
|
|
Flags::test:
|
|
link $2
|
|
lsp param[$1]
|
|
ldi $10 ; 16, cel
|
|
div
|
|
push
|
|
ldi $2
|
|
mul
|
|
sat temp[$1]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push
|
|
pToa array
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
pushi $8000 ; -32768
|
|
lsp param[$1]
|
|
ldi $10 ; 16, cel
|
|
mod
|
|
shr
|
|
and
|
|
ret
|
|
|