nop.s 344 B

123456789101112131415161718192021222324252627282930
  1. .define .nop
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. .nop: push b
  8. lhld hol0+4
  9. mov d,h
  10. mov e,l
  11. call prstring
  12. lxi d,lin
  13. call prstring
  14. lhld hol0
  15. call prdec
  16. lxi d,stpr
  17. call prstring
  18. lxi h,0
  19. dad sp
  20. call prdec
  21. lxi d,newline
  22. call prstring
  23. pop b
  24. ret
  25. lin: .asciz " lin:"
  26. stpr: .asciz " sp:"
  27. newline:.asciz "\n"