cms.s 359 B

123456789101112131415161718192021222324252627282930
  1. .define .cms
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .sect .text
  8. .cms: movd tos, r3 !return addres
  9. addr 4(sp), r1
  10. movd r1, r2
  11. addd 0(sp), r2
  12. movd 0(sp), r0
  13. muld -2, r0
  14. subd 4, r0
  15. 3:
  16. cmpd 0(r2), 0(r1)
  17. bne 2f
  18. addr 4(r1), r1
  19. addr 4(r2), r2
  20. acbd -4, 0(sp), 3b
  21. xord r1, r1
  22. 4:
  23. adjspd r0
  24. movd r3, tos
  25. ret 0
  26. 2:
  27. movd 1, r1
  28. br 4b