sts2.s 295 B

123456789101112131415161718192021
  1. .define sts2
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. sts2:
  8. popl saveret, *RR14
  9. pop R0, *RR14 !object size
  10. ldk R2, $0
  11. pop R3, *RR14 !address of object
  12. cp R0, $1
  13. jr NE, 1f
  14. pop R0, *RR14
  15. ldb *RR2, RL0
  16. jr 2f
  17. 1: sra R0
  18. ldir *RR2, *RR14, R0
  19. 2: pushl *RR14, saveret
  20. ret