cms.s 309 B

123456789101112131415161718192021222324
  1. .define cms
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. cms:
  8. popl saveret, *RR14
  9. ldm savereg, R4, $10
  10. ldl RR2, RR14
  11. add R3, R0
  12. ldl RR4, RR2
  13. add R5, R0
  14. sra R0
  15. 2: pop R1, *RR14
  16. cp R1, *RR2
  17. jr NE, 1f
  18. inc R3, $2
  19. djnz R0, 2b
  20. 1: ld R15, R5
  21. ldm R4, savereg, $10
  22. pushl *RR14, saveret
  23. ret