help_code.s 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163
  1. **************************************
  2. *** MAIN HELP MENU ****
  3. **************************************
  4. main_help_menu
  5. move.b #1,help_on
  6. move.l #help_window,a0
  7. jsr create_window
  8. move.l #help_window,a0
  9. move.l #main_help_options,a1
  10. move.w #5,d0
  11. move.w #0,d1
  12. move.w #2,d2
  13. move.w #1,d3
  14. jsr write_text
  15. move.l #main_help_button_list,a0
  16. jsr display_button_list
  17. rts
  18. **************************************
  19. *** EDITOR HELP MENU ****
  20. **************************************
  21. editor_help_menu
  22. rts
  23. **************************************
  24. *** SCANNER HELP MENU ****
  25. **************************************
  26. scanner_help_menu
  27. rts
  28. **************************************
  29. *** RECOGNISE HELP MENU ****
  30. **************************************
  31. recognise_help_menu
  32. rts
  33. **************************************
  34. *** MISC HELP MENU ****
  35. **************************************
  36. misc_help_menu
  37. rts
  38. **************************************
  39. *** EXIT MAIN MENU ****
  40. **************************************
  41. exit_main_menu
  42. move.l #main_help_button_list,a0
  43. jsr remove_button_list
  44. jsr destroy_window
  45. move.b #0,help_on
  46. rts
  47. help_on
  48. dc.b 0
  49. EVEN
  50. main_help_options
  51. dc.b $a
  52. dc.b " MAIN HELP MENU ",$a,$a,$a,$a
  53. dc.b " EDITOR ",$a
  54. dc.b " SCANNER ",$a
  55. dc.b " RECOGNISE ",$a
  56. dc.b " MISC ",$a,-2,13
  57. dc.b " EXIT ",$a
  58. dc.b $a,$a,$a,-2,2
  59. dc.b " CLICK ON RELEVANT SUBJECT TITLE USING MOUSE ",0
  60. EVEN
  61. help_window
  62. dc.w 630
  63. dc.w 180
  64. dc.w 5
  65. dc.w 0
  66. dc.l 0
  67. dc.l 0
  68. dc.b "HELP WINDOW",0
  69. EVEN
  70. main_help_button_list
  71. dc.l editor_click,scanner_click,recognise_click,misc_click
  72. dc.l exit_click
  73. dc.l -1
  74. editor_click
  75. dc.w 21*10
  76. dc.w 5*11
  77. dc.w WINDOW ;frame type
  78. dc.b CUSTOM_BUTTON ;standard
  79. dc.b NOT_DEPRESSED
  80. dc.b 0
  81. dc.b 0 ;not used
  82. dc.l help_click ;not used
  83. dc.l 0 ;not used
  84. dc.l editor_help_menu
  85. dc.b 0
  86. EVEN
  87. scanner_click
  88. dc.w 21*10
  89. dc.w 6*11
  90. dc.w WINDOW ;frame type
  91. dc.b CUSTOM_BUTTON ;standard
  92. dc.b NOT_DEPRESSED
  93. dc.b 0
  94. dc.b 0 ;not used
  95. dc.l help_click ;not used
  96. dc.l 0 ;not used
  97. dc.l scanner_help_menu
  98. dc.b 0
  99. EVEN
  100. recognise_click
  101. dc.w 21*10
  102. dc.w 7*11
  103. dc.w WINDOW ;frame type
  104. dc.b CUSTOM_BUTTON ;standard
  105. dc.b NOT_DEPRESSED
  106. dc.b 0
  107. dc.b 0 ;not used
  108. dc.l help_click ;not used
  109. dc.l 0 ;not used
  110. dc.l recognise_help_menu
  111. dc.b 0
  112. EVEN
  113. misc_click
  114. dc.w 21*10
  115. dc.w 8*11
  116. dc.w WINDOW ;frame type
  117. dc.b CUSTOM_BUTTON ;standard
  118. dc.b NOT_DEPRESSED
  119. dc.b 0
  120. dc.b 0 ;not used
  121. dc.l help_click ;not used
  122. dc.l 0 ;not used
  123. dc.l misc_help_menu
  124. dc.b 0
  125. EVEN
  126. exit_click
  127. dc.w 21*10
  128. dc.w 9*11
  129. dc.w WINDOW ;frame type
  130. dc.b CUSTOM_BUTTON ;standard
  131. dc.b NOT_DEPRESSED
  132. dc.b 0
  133. dc.b 0 ;not used
  134. dc.l help_click ;not used
  135. dc.l 0 ;not used
  136. dc.l exit_main_menu
  137. dc.b 0
  138. EVEN