cuu.s 297 B

1234567891011121314151617181920212223242526
  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.l (sp)+,d0 ! destination size
  14. sub.l (sp)+,d0
  15. bgt 1f
  16. sub.l d0,sp
  17. jmp (a0)
  18. 1:
  19. asr.l #2,d0
  20. 2:
  21. clr.l -(sp)
  22. dbf d0,2b
  23. jmp (a0)
  24. .align 2