cuu.s 285 B

12345678910111213141516171819202122232425
  1. .define .ciu
  2. .define .cui
  3. .define .cuu
  4. .sect .text
  5. .sect .rom
  6. .sect .data
  7. .sect .bss
  8. .sect .text
  9. .ciu:
  10. .cui:
  11. .cuu:
  12. move.l (sp)+,a0 ! return address
  13. move (sp)+,d0 ! destination size
  14. sub (sp)+,d0
  15. bgt 1f
  16. sub d0,sp
  17. jmp (a0)
  18. 1:
  19. asr #1,d0
  20. 2:
  21. clr -(sp)
  22. sub #1,d0
  23. bgt 2b
  24. jmp (a0)