Guest User

Untitled

a guest
Aug 1st, 2018
103
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;;;;;;;;;;;;;;;;;Molnar Daniel YNV3MS;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  5. ;     Digitális techinka II. házifeladat, 2. feladat.                 ;
  6. ;Processzor: 8085i                          ;
  7. ;Szubrutin : ELLENOR                            ;
  8. ;Bemenő paraméterek: -HL: kezdőcím                  ;
  9. ;            -DE: hosszérték                  ;
  10. ;feladat:HL kezdőcímtől kezdődően, DE mennyiségű, a kezdő       ;
  11. ;cím alsó nyolc bitjének egyel balra forgatott értékű adat        ;
  12. ;memóriába írása, majd ezen folyamat helyes végbemenetelé         ;
  13. ;nek ellenőrzése.                         ;
  14. ;Kimenő paraméterek:                          ;
  15. ;amennyiben nem találtunk hibát:                  ;
  16. ;               -HL kezdőcím -DE hosszérték -BC=00      ;
  17. ;amennyiben találtunk hibát:                      ;
  18. ;               -HL első hiba címe -DE hossz-BC=hibaszám ;
  19. ;a működéshez előírt regisztereken kívül más regiszterek értéke marad ua;
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21.  
  22.  
  23. MVI D,00000000b
  24. MVI E,00000010b
  25. MVI H,00000000b
  26. MVI L,00001000b
  27. PUSH PSW
  28. PUSH D
  29. PUSH H
  30. MOV B,D
  31. MOV C,E
  32. rotate: MOV A,L
  33. RLC
  34. MOV M,A
  35. MOV A,C
  36. CPI 00h
  37. JNZ     decrease
  38. MOV A,B
  39. CPI 00h
  40. JNZ decrease
  41. JMP check
  42. decrease: DCX B
  43. INX H
  44. MOV A,C
  45. CPI 00h
  46. JNZ rotate
  47. MOV A,B
  48. CPI 00h
  49. JNZ rotate
  50. POP H
  51. PUSH H
  52. check:MOV A,L
  53. ;RLC
  54. CMP M
  55. JZ next
  56. MOV A,C
  57. CPI 00h
  58. JNZ bad
  59. MOV A,B
  60. CPI 00h
  61. JNZ bad
  62. XTHL
  63. POP H
  64. PUSH H
  65. bad: INX B
  66. next:INX H
  67. DCX D
  68. MOV A,E
  69. CPI 00h
  70. JNZ check
  71. MOV A,D
  72. CPI 00h
  73. JNZ check
  74. POP H
  75. POP D
  76. XTHL
  77. MOV A,C
  78. CPI 00h
  79. JNZ error
  80. MOV A,B
  81. CPI 00h
  82. JNZ error
  83. noerror: MOV A,L
  84. ORI 00000001b
  85. MOV L,A
  86. XTHL
  87. POP PSW
  88. RET
  89. error: MOV A,L
  90. ANI 11111110b
  91. MOV L,A
  92. XTHL
  93. POP PSW
  94. RET
Add Comment
Please, Sign In to add comment