59 lines
786 B
Plaintext
59 lines
786 B
Plaintext
MoveFwd::init:
|
|
lap param[$0]
|
|
bnt code_00a0
|
|
pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
pushi $43 ; 67, 'C', heading
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lsp param[$2]
|
|
callk kernel_66, $4
|
|
bnot
|
|
add
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
pushi $43 ; 67, 'C', heading
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lsp param[$2]
|
|
callk kernel_67, $4
|
|
bnot
|
|
sub
|
|
push
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
ge?
|
|
bnt code_0099
|
|
lap param[$3]
|
|
code_0099: push
|
|
super PolyPath, $c
|
|
bnot
|
|
jmp code_00a8
|
|
|
|
code_00a0: pushi $94 ; 148, init
|
|
push0
|
|
super PolyPath, $4
|
|
bnot
|
|
code_00a8: ret
|
|
|