Advertisement
PT_

Untitled

PT_
Sep 22nd, 2017
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.27 KB | None | 0 0
  1. CursorHook_start:
  2. .db 83h
  3. cp a, 24h
  4. jr nz, +_
  5. inc a
  6. ld a, (curUnder)
  7. ret
  8. _: cp a, 22h
  9. ret nz
  10. ld a, (cxCurApp)
  11. cp a, cxPrgmEdit
  12. ret nz
  13. ld hl, (editCursor)
  14. ld a, (hl)
  15. cp a, tSum
  16. jr z, DrawDetText
  17. cp a, tDet
  18. ret nz
  19. DrawDetText:
  20. bit 0, (iy-41h)
  21. ret nz
  22. ld iyl, a
  23. ld hl, (editTail)
  24. inc hl
  25. ld a, (hl)
  26. sub a, t0
  27. ret c
  28. cp a, t9-t0+1
  29. ld bc, (editBtm)
  30. ld de, 0
  31. ld e, a
  32. jr c, GetDetValueLoop
  33. WrongDetValue:
  34. or a, 1
  35. ret
  36. GetDetValueLoop:
  37. inc hl
  38. or a, a
  39. sbc hl, bc
  40. jr z, GetDetValueStop
  41. add hl, bc
  42. ld a, (hl)
  43. sub a, t0
  44. jr c, GetDetValueStop
  45. cp a, t9-t0+1
  46. jr nc, GetDetValueStop
  47. push hl
  48. ex de, hl
  49. add hl, hl
  50. push hl
  51. pop de
  52. add hl, hl
  53. add hl, hl
  54. add hl, de
  55. ld de, 0
  56. ld e, a
  57. add hl, de
  58. ex de, hl
  59. pop hl
  60. jr GetDetValueLoop
  61. GetDetValueStop:
  62. ex de, hl
  63. ld a, iyl
  64. ld iy, flags
  65. cp a, tDet
  66. jr z, +_
  67. ld de, AMOUNT_OF_FILEIOC_FUNCTIONS
  68. ld bc, CData4
  69. jr ++_
  70. _: ld de, AMOUNT_OF_GRAPHX_FUNCTIONS
  71. ld bc, CData5
  72. _: or a, a
  73. sbc hl, de
  74. jr nc, WrongDetValue
  75. add hl, de
  76. ld h, 3
  77. mlt hl
  78. add hl, bc
  79. push hl
  80. scf
  81. sbc hl, hl
  82. ld (hl), 2
  83. ;call _os_ClearStatusBarLow
  84. pop hl
  85. ld de, (rawKeyHookPtr)
  86. add hl, de
  87. ld hl, (hl)
  88. add hl, de
  89. ld de, 000E71Ch
  90. ld.sis (drawFGColor & 0FFFFh), de
  91. ld.sis de, (statusBarBGColor & 0FFFFh)
  92. ld.sis (drawBGColor & 0FFFFh), de
  93. ld a, 14
  94. ld (penRow),a
  95. ld de, 2
  96. ld.sis (penCol & 0FFFFh), de
  97. call _VPutS
  98. ld de, 0FFFFh
  99. ld.sis (drawBGColor & 0FFFFh), de
  100. set 0, (iy-41h)
  101. ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement