nop.s 512 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. .define .nop
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! NOP
  8. ! changed into output routine to print linenumber
  9. ! in octal (6 digits)
  10. .nop:
  11. push iy
  12. ld iy,1f+5
  13. ld hl,(hol0)
  14. call outdec
  15. ld iy,1f+18
  16. ld hl,0
  17. add hl,sp
  18. call octnr
  19. ld de,20
  20. push de
  21. ld de,1f
  22. push de
  23. ld de,1
  24. push de
  25. call WRITE
  26. pop de
  27. pop de
  28. pop de
  29. pop iy
  30. ret
  31. 1: .asciz 'test xxxxx 0xxxxxx\r\n'
  32. octnr:
  33. ld b,6
  34. 1: ld a,7
  35. and l
  36. add a,'0'
  37. dec iy
  38. ld (iy+0),a
  39. srl h
  40. rr l
  41. srl h
  42. rr l
  43. srl h
  44. rr l
  45. djnz 1b
  46. ret