usr/src/lib/libc/vax/net/htonl.s

/*
 * Copyright (c) 1983 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
_sccsid:.asciz  "@(#)htonl.s    5.2 (Berkeley) %G%"
#endif not lint

/* netorder = htonl(hostorder) */

#include "DEFS.h"

ENTRY(htonl)
        rotl    $-8,4(ap),r0
        insv    r0,$16,$8,r0
        movb    7(ap),r0
        ret