* This routine may be added to your rexxglue.asm
* file that you received with your Arexx distribution disk.
* For those that cannot, for one reason or another,
* assemble a new rexxglue.o, a modified one has been
* provided.


        ; structure = StcToken( stringptr, bufferptr )

        ;buffer ;struct Token = {
                ;char *Current
                ;char *NextToken
                ;int  Length
                ;char Quote
                ;}


        XDEF _StcToken
_StcToken
        move.l  4(sp),a0                ;get stringptr
        move.l   a6,-(sp)               ;save current lib pointer
        movea.l  _RexxSysBase,a6        ;point to rexxlib
        jsr     _LVOStcToken(a6)        ;do it
        move.l  12(sp),a6               ;get buffer pointer

        move.l  a1,(a6)         ;fill in structure
        move.l  a0,4(a6)
        move.l  d1,8(a6)
        move.b  d0,12(a6)
        move.l  (sp)+,a6                ;restore lib pointer
        move.l  d1,d0           ;return length of token
        rts                             ;done (I hope)

         END