check_routines.s 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495
  1. ***************************************
  2. ****** CHECK KILL ******
  3. ***************************************
  4. check_kill
  5. bsr set_original_colours
  6. move.l #check_window,a0
  7. bsr create_window
  8. move.l #check_button_list,a0
  9. bsr display_button_list
  10. move.l #check_window,a0
  11. move.l #check_text,a1
  12. moveq #50,d0
  13. moveq #20,d1
  14. moveq #2,d2
  15. move.w #1,d3
  16. bsr write_text
  17. rts
  18. ***************************************
  19. ****** REMOVE CHECK KILL ******
  20. ***************************************
  21. remove_check_kill
  22. move.l #check_button_list,a0
  23. bsr remove_button_list
  24. move.l #check_window,a0
  25. bsr destroy_window
  26. bsr set_current_page_colours
  27. rts
  28. ***************************************
  29. ****** KILL WINDOW AND SYSTEM ******
  30. ***************************************
  31. kill_window_and_system
  32. bsr remove_check_kill
  33. bsr kill_system
  34. rts
  35. check_window
  36. dc.w 240
  37. dc.w 44+32
  38. dc.w 40
  39. dc.w 80
  40. dc.l 0
  41. dc.l 0
  42. dc.b "CHECK",0
  43. EVEN
  44. check_text
  45. dc.b "Are you sure?",0
  46. EVEN
  47. check_button_list
  48. dc.l check_ok_button,check_cancel_button,-1
  49. check_ok_button
  50. dc.w 40-16
  51. dc.w THIRD_ROW+10
  52. dc.w WINDOW ;frame type
  53. dc.b CUSTOM_BUTTON ;standard
  54. dc.b NOT_DEPRESSED
  55. dc.b 0
  56. dc.b 0 ;not used
  57. dc.l ok_custom_button
  58. dc.l 0 ;not used
  59. dc.l kill_window_and_system
  60. dc.b 0
  61. EVEN
  62. check_cancel_button
  63. dc.w 160-32
  64. dc.w THIRD_ROW+10
  65. dc.w WINDOW ;frame type
  66. dc.b CUSTOM_BUTTON ;standard
  67. dc.b NOT_DEPRESSED
  68. dc.b 0
  69. dc.b 0 ;not used
  70. dc.l cancel_custom_button
  71. dc.l 0 ;not used
  72. dc.l remove_check_kill
  73. dc.b 0
  74. EVEN