*================================================================
* FILE:        io.asm
* DESCRIPTION: Short test program for the URISC processor model.
*              Load word from iport and output to oport
*================================================================

            .global _EXIT
            .text
L00:        URISC r[2], r[2],   @1   * r[2]=0
            URISC r[2], r[0],   @2   * r[2]=-iport
            URISC r[15], r[15], @3   * oport=r[15]=0
            URISC r[15], r[2],  @4   * oport=r[15]=-(-iport)=iport
            URISC r[2], r[2],   @5   * r[2]=0
            URISC r[2], r[1],   @0   * 0-1<0 always branch
           .end