multiply.asm

这是一篇关于8位RISC CPU设计的文章

 ;---------------------------
 ; Test for uumul
 ;---------------------------

 org 0x0000

 ldi r0 0xaa
 ldi r1 0x55
 pmov a1 0x3872 
 umul r1
 cmp r2
 jmpa ne error
 mov r0 r1
 cmp r3
 jmpa ne error

 ldi r0 0x55
 ldi r7 0xaa
 pmov a1 0x3872
 umul r7
 cmp r2
 jmpa ne error
 mov r0 r7
 cmp r3
 jmpa ne error

 ldi r0 0xaa
 ldi r1 0x00
 pmov a1 0x0000 
 umul r1
 cmp r2
 jmpa ne error
 mov r0 r1
 cmp r3
 jmpa ne error

 ldi r0 0x00
 ldi r1 0xaa
 pmov a1 0x0000
 umul r1
 cmp r2
 jmpa ne error
 mov r0 r1
 cmp r3
 jmpa ne error

 ldi r0 0xff
 ldi r1 0x01
 pmov a1 0x00ff 
 umul r1
 cmp r2
 jmpa ne error
 mov r0 r1
 cmp r3
 jmpa ne error

 ldi r0 0xff
 ldi r1 0x11
 pmov a1 0x10ef 
 umul r1
 cmp r2
 jmpa ne error
 mov r0 r1
 cmp r3
 jmpa ne error

 ldi r0 0x11
 ldi r6 0xff
 pmov a1 0x10ef
 umul r6
 cmp r2
 jmpa ne error
 mov r0 r6
 cmp r3
 jmpa ne error

 ldi r0 0x67
 ldi r1 0x78
 pmov a1 0x3048 
 umul r1
 cmp r2
 jmpa ne error
 mov r0 r1
 cmp r3
 jmpa ne error

 ldi r0 0x78
 ldi r5 0x67
 pmov a1 0x3048
 umul r5
 cmp r2
 jmpa ne error
 mov r0 r5
 cmp r3
 jmpa ne error

 ldi r0 0xff
 ldi r1 0xff
 pmov a1 0xfe01 
 umul r1
 cmp r2
 jmpa ne error
 mov r0 r1
 cmp r3
 jmpa ne error

 jmpa al finish
error:
  ldi r0 0xa2
  sta r0 0x1234
  jmpr al skip

finish:
  ldi r0 0x55
  sta r0 0xffff

skip:
  nop
  nop
  end