Advertisement
Guest User

Untitled

a guest
May 19th, 2017
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $ADR 0000h;
  2. LDA 0AF1h;
  3. RRC;
  4. RRC;
  5. PUSH PSW;
  6. RRC;
  7. ANI 00000111b;
  8. ADD A;
  9. LXI H, 0b00h;
  10. MOV L, A; в HL регистр с адресом операнда или смещением
  11. MOV E, M;
  12. INX H
  13. MOV D, M; в DE адрес операнда или смещение
  14. ;MOV A, B;
  15. POP PSW;
  16. ;RRC;
  17. ;CPI 0
  18. JNC AUTO_DEC
  19. LXI B, 0B0Ah; тут лежит база
  20. LDAX B;
  21. MOV  L, A;
  22. INX B;
  23. LDAX B;
  24.  
  25. MOV H, A; в HL База
  26. mov A, L;
  27. ADD E;
  28. MOV E,A;
  29. JNC notOver
  30. inr D;
  31. notOver:
  32. MOV A, H;
  33. ADD D;
  34. MOV D, A; теперь в DC адр операнда;
  35. LDAX D;
  36. DCR A;
  37. PUSH PSW
  38. STAX D;
  39. POP PSW
  40. JP myOut
  41. INX D;
  42. LDAX D;
  43. DCR A;
  44. STAX D;
  45. JMP myOut
  46. AUTO_DEC:
  47. LDAX D;
  48. DCR A;
  49. PUSH PSW
  50. STAX D;
  51. POP PSW
  52. JP no_z
  53. INX D;
  54. LDAX D;
  55. DCR A;
  56. STAX D;
  57. no_z:
  58. DCX H;
  59. MOV A, M;
  60. DCR A;
  61. MOV M, A;
  62. JP myOut
  63. INX H;
  64. MOV A, M;
  65. DCR A;
  66. MOV M, A;
  67. JMP myOut
  68. myOut:
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement