40 lines
502 B
Plaintext
40 lines
502 B
Plaintext
Rev::doit:
|
|
link $1
|
|
pushi $15f ; 351, nextCel
|
|
push0
|
|
self $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $0
|
|
lt?
|
|
bnt code_0050
|
|
pushi $160 ; 352, cycleDone
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_005a
|
|
|
|
code_0050: pushi $10 ; 16, cel
|
|
push1
|
|
lst temp[$0]
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_005a: ret
|
|
|
|
Rev::cycleDone:
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
pushi $161 ; 353, lastCel
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
ret
|
|
|