Guest User

Untitled

a guest
Jun 19th, 2018
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.18 KB | None | 0 0
  1. 2DCA 1.02 2DCA 2.01
  2. ;-----------------------------------------------------
  3. firstiter: ;
  4. ld d,(ix-12) ; ld h,quadLUTB
  5. ld e,(ix+12) ; pop de
  6. ld c,(ix+00) ; ld a,e
  7. ld a,(ix-13) ; ex af,af'
  8. rrca ; ld a,e
  9. ld a,d ; and %01000010
  10. rra ; ld L,a
  11. and 11101110b ; inc h
  12. ld l,a ; ld a,(hl)
  13. ld b,(hl) ; dec h
  14. ld a,(ix+11) ; ld L,c
  15. rrca ; add a,(hl)
  16. ld a,e ; inc h
  17. rra ; ld L,d
  18. and 11101110b ; add a,(hl)
  19. ld l,a ; ld b,(ix+63)
  20. ld a,(hl) ; ld L,b
  21. ex af,af' ; add a,(hl)
  22. ld a,(ix-01) ; exx
  23. rrca ; ld L,a
  24. ld a,c ; ex af,af'
  25. rra ; ld b,a
  26. and 10101010b ; and (hl)
  27. ld l,a ; dec h
  28. ld a,c ; or (hl)
  29. ex af,af' ; inc h
  30. add a,(hl) ; and %10000001
  31. add a,b ; ld c,a
  32. exx ; exx
  33. ld l,a ; ;centeriter 2:
  34. ex af,af' ; ld a,e
  35. ld b,a ; and %01011010
  36. and (hl) \ dec h ; ld L,a
  37. or (hl) \ inc h ; inc h
  38. and 10001000b ; ld a,(hl)
  39. ld c,a ; ld L,d
  40. exx ; add a,(hl)
  41. centeriter: ; ld L,b
  42. ld a,d ; add a,(hl)
  43. and 11101110b ; exx
  44. ld l,a ; ld l,a
  45. ld b,(hl) ; ld a,b
  46. ld a,e ; and (hl)
  47. and 11101110b ; dec h
  48. ld l,a ; or (hl)
  49. ld a,(hl) ; inc h
  50. ex af,af' ; and %00100100
  51. ld a,c ; or c
  52. and 10101010b ; ld c,a
  53. ld l,a ; exx
  54. ex af,af' ; ;center-left 3:
  55. add a,(hl) ; ld a,e
  56. add a,b ; and %10110100
  57. exx ; ld L,a
  58. ld l,a ; inc h
  59. ld a,b ; ld a,(hl)
  60. and (hl) \ dec h ; ld L,d
  61. or (hl) \ inc h ; add a,(hl)
  62. and 01000100b ; ld L,b
  63. or c ; add a,(hl)
  64. ld c,a ; exx
  65. exx ; ld l,a
  66. ld a,d ; ld a,b
  67. and 01110111b ; and (hl)
  68. ld l,a ; dec h
  69. ld b,(hl) ; or (hl)
  70. ld a,e ; inc h
  71. and 01110111b ; and %01001000
  72. ld l,a ; or c
  73. ld a,(hl) ; ld c,a
  74. ex af,af' ; exx
  75. ld a,c ; ;center-right 4
  76. and 01010101b ; ld a,e
  77. ld l,a ; and %00101101
  78. ex af,af' ; ld L,a
  79. add a,(hl) ; inc h
  80. add a,b ; ld a,(hl)
  81. exx ; ld L,d
  82. ld l,a ; add a,(hl)
  83. ld a,b ; ld L,b
  84. and (hl) \ dec h ; add a,(hl)
  85. or (hl) \ inc h ; exx
  86. and 00100010b ; ld l,a
  87. or c ; ld a,b
  88. ld c,a ; and (hl)
  89. exx ; dec h
  90. fourthiter: ; or (hl)
  91. ld a,(ix-11) ; inc h
  92. rlca ; and %00010010
  93. ld a,d ; or c
  94. rla ; ld (de),a
  95. and 01110111b ; inc de
  96. ld l,a ; exx
  97. ld d,(hl) ; inc ix
  98. ld a,(ix+13) ;
  99. rlca ;
  100. ld a,e ;
  101. rla ;
  102. and 01110111b ;
  103. ld l,a ;
  104. ld e,(hl) ;
  105. ld a,(ix+01) ;
  106. rlca ;
  107. ld a,c ;
  108. rla ;
  109. and 01010101b ;
  110. ld l,a ;
  111. ld a,(hl) ;
  112. add a,e ;
  113. add a,d ;
  114. exx ;
  115. ld l,a ;
  116. ld a,b ;
  117. and (hl) \ dec h ;
  118. or (hl) \ inc h ;
  119. and 00010001b ;
  120. or c ;
  121. ld (iy+0),a ;
  122. exx ;
  123. inc ix ;
  124. inc iy ;
Add Comment
Please, Sign In to add comment