Advertisement
Guest User

Untitled

a guest
Apr 23rd, 2014
42
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.66 KB | None | 0 0
  1. TITLE PGM16_3B: BALL MOVEMENT
  2. EXTRN DISPLAY_BALL: NEAR, BEEP:NEAR
  3. EXTRN TIMER_FLAG:BYTE, VEL_X: WORD, VEL_Y: WORD
  4. PUBLIC MOVE_BALL_A
  5. .MODEL SMALL
  6. .CODE
  7. MOVE_BALL_A PROC
  8.  
  9. MOV AL,0
  10. CALL DISPLAY_BALL
  11.  
  12. ADD CX,VEL_X
  13. ADD DX,VEL_Y
  14.  
  15. CALL CHECK_BOUNDARY_A
  16.  
  17. TEST_TIMER_1:
  18. CMP TIMER_FLAG,1
  19. JNE TEST_TIMER_1
  20. MOV TIMER_FLAG,0
  21. MOV AL,3
  22. CALL DISPLAY_BALL
  23. RET
  24. MOVE_BALL_A ENDP
  25.  
  26. CHECK_BOUNDARY_A PROC
  27.  
  28. CMP CX,11
  29. JG L1
  30. MOV CX,11
  31. NEG VEL_X
  32. CALL BEEP
  33. JMP L2
  34. L1: CMP CX,299
  35. JL L2
  36. MOV CX,298
  37. NEG VEL_X
  38. CALL BEEP
  39.  
  40. L2: CMP DX,11
  41. JG L3
  42. MOV DX,11
  43. NEG VEL_Y
  44. CALL BEEP
  45. JMP DONE
  46. L3: CMP DX,188
  47. JL DONE
  48. MOV DX,187
  49. NEG VEL_Y
  50. CALL BEEP
  51. ENDP
  52.  
  53. DONE:
  54. RET
  55. CHECK_BOUNDARY_A
  56. ENDP
  57. ;
  58. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement