dvu2.s 238 B

1234567891011121314151617
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define dvu2~
  4. ! $Id$
  5. dvu2~:
  6. clr r0
  7. mov 04(sp),r1
  8. tst 02(sp)
  9. blt 1f
  10. div 02(sp),r0
  11. 2: mov (sp)+,r1
  12. add $04,sp
  13. jmp (r1)
  14. 1: cmp 02(sp),r1
  15. bhi 2b
  16. inc r0
  17. br 2b