54 lines
777 B
Plaintext
54 lines
777 B
Plaintext
export40206_0 = $0
|
|
|
|
SetScale::doit:
|
|
link $2
|
|
lsp param[$2]
|
|
ldi $2
|
|
mul
|
|
sat temp[$0]
|
|
ldi $0
|
|
sat temp[$1]
|
|
code_0085: lst temp[$0]
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bnt code_00ce
|
|
lst temp[$0]
|
|
ldi $1
|
|
add
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bnt code_00ce
|
|
lst temp[$0]
|
|
ldi $28 ; 40, '(', style
|
|
lt?
|
|
bnt code_00ce
|
|
lat temp[$0]
|
|
lsli local[$c78]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_00ce
|
|
+at temp[$1]
|
|
push
|
|
ldi $2
|
|
lt?
|
|
bnt code_00ce
|
|
pushi $152 ; 338, xScaleAdj
|
|
push1
|
|
lat temp[$0]
|
|
lsli local[$c78]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $153 ; 339, yScaleAdj
|
|
push1
|
|
+at temp[$0]
|
|
lsli local[$c78]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0085
|
|
|
|
code_00ce: ret
|
|
|