Advertisement
Guest User

Untitled

a guest
Apr 21st, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.45 KB | None | 0 0
  1. stdcall Draw.VertLine,10,10,150,4
  2. stdcall Draw.HorLine,10,10,150,4
  3. stdcall Draw.RLine,160,10,150,4
  4. stdcall Draw.LLine,160,10,150,4
  5.  
  6.  
  7. proc Draw.VertLine uses di, x0,y0,length,color:BYTE
  8. mov di, [y0]
  9. imul di, 320
  10. add di, [x0]
  11. mov cx, [length]
  12. mov al, [color]
  13. .drawLoop:
  14. mov [es:di], al
  15. add di, 320
  16. loop .drawLoop
  17. ret
  18. endp
  19.  
  20. proc Draw.HorLine uses di, x0,y0,length,color:BYTE
  21. mov di, [y0]
  22. imul di, 320
  23. add di, [x0]
  24. mov cx, [length]
  25. mov al, [color]
  26. .drawLoop:
  27. mov [es:di], al
  28. ; add di, 320
  29. ; loop .drawLoop
  30. rep stosb
  31. ret
  32. endp
  33.  
  34. proc Draw.RLine uses di, x0,y0,length,color:BYTE
  35. mov di, [y0]
  36. imul di, 320
  37. add di, [x0]
  38. mov cx, [length]
  39. mov al, [color]
  40. .drawLoop:
  41. mov [es:di], al
  42. add di, 320
  43. inc di
  44. loop .drawLoop
  45. ret
  46. endp
  47.  
  48. proc Draw.LLine uses di, x0,y0,length,color:BYTE
  49. mov di, [y0]
  50. imul di, 320
  51. add di, [x0]
  52. mov cx, [length]
  53. mov al, [color]
  54. .drawLoop:
  55. mov [es:di], al
  56. add di, 320
  57. dec di
  58. loop .drawLoop
  59. ret
  60. endp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement