; atoi: translate the first argument as a decimal number
;	written by Brian Raiter, 1996

:set ArgRow = 8
:set MaxArgs = 16
:set aY = ArgRow
:set iX = 2
:set iY = 0

[0,0]
0   L   00  @   aY  ~   =   @   ?   J   $   $   d   0   c   0   ret
    -				    nop
    '0'				    ~
    +				    1
    K   *   10  ~   #   iX  iY  +   H