wcom:  mov r22,ra
        add r5,r0,r0
        addi r5,r0,0x1
        movia r10,0x40000
        call delay
        movia r6,rs
        stbio r0,0(r6)          /* rs=0*/
        movia r6,rw
        stbio r0,0(r6)          /* rw=0*/
        movia r6,dat            /*dat=r1*/
        stbio r7,0(r6)
        movia r6,en
        stbio r5,0(r6)          /* en=1*/
        movia r10,0x40000
        call delay
        stbio r0,0(r6)          /* en=0*/
        movia r10,0x40000
        call delay
        mov ra,r22
        ret