Subversion Repositories pentevo

Rev

Rev 646 | Rev 801 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ;LAST UPDATE: 27.08.2017 savelij
  3.  
  4. ;ОПИСАТЕЛЬ ОКНА (АДРЕС В IX)
  5. ;+00 X КООРДИНАТА
  6. ;+01 Y КООРДИНАТА
  7. ;+02 V ВЫСОТА
  8. ;+03 H ШИРИНА
  9. ;+04 C ЦВЕТ
  10. ;+05 C ЦВЕТ КУРСОРА
  11. ;+06 F ФЛАГОВЫЙ
  12. ;+07 N НОМЕР ПУНКТА В ОКНЕ
  13. ;  БИТ 7-0=БАЙТЫ 8-9 ТЕКУЩИЙ ПУНКТ МЕНЮ,
  14. ;        1=БАЙТЫ 8-9 АДРЕС ХРАНЕНИЯ
  15. ;+08 | ТЕКУЩИЙ
  16. ;+09 | ПУНКТ МЕНЮ
  17. ;+0A : КОЛИЧЕСТВО  
  18. ;+0B : ПУНКТОВ МЕНЮ
  19. ;+0C | АДРЕС
  20. ;+0D | ТЕКСТА
  21. ;+0E : СПИСОК АДРЕСОВ
  22. ;+0F : ПОДПРОГРАММ
  23. ;+10 | АДРЕС СПИСКА АКТИВНЫХ
  24. ;+11 | ЗОН ДЛЯ МЫШИ        
  25. ;+12 : АДРЕС СПИСКА
  26. ;+13 : ГОРЯЧИХ КЛАВИШ
  27.  
  28. ;ФОРМАТ ФЛАГОВОГО БАЙТА ОКНА
  29. ;IX+6
  30. ;7-0-НЕТ, 1-ЕСТЬ НИЖНИЙ ЗАГОЛОВОК
  31. ;6-0-С РАМКОЙ,1-БЕЗ РАМКИ
  32. ;5-0-НЕТ, 1-ЕСТЬ ВЕРХНИЙ ЗАГОЛОВОК
  33. ;4-0-НЕТ, 1-ЕСТЬ ТЕКСТ
  34. ;3-0-МЕНЮ, 1-ПОКАЗ ФАЙЛОВ
  35. ;2-
  36. ;1-
  37. ;0-
  38.  
  39. ;РАСКЛАДКА БАЙТ ВЫДЕЛЕНИЙ
  40. ;+0 ФЛАГОВЫЙ
  41. ;    7 ПРИ АКТИВНОСТИ УСТАНОВЛЕН
  42. ;    6 УСТАНОВЛЕН, НЕ ВЫДЕЛЯЕТСЯ
  43. ;    5 УСТАНОВЛЕН, ВЫЗОВ ВЕКТОРА
  44. ;    4
  45. ;    3 \
  46. ;    2  } ФОРМА КУРСОРА
  47. ;    1  } ПРИ ПОПАДАНИИ
  48. ;    0 /
  49. ;+1 X КООРДИНАТА
  50. ;+2 Y КООРДИНАТА
  51. ;+3 V ВЫСОТА
  52. ;+4 H ШИРИНА
  53. ;+5 K КОД КЛАВИШИ
  54.  
  55. ;===================MAIN MENU===================
  56. MAIN_MENU       DB 0X04,0X04,LOW ((EMAINMENU1-MAINMENU1)/2)+2,0X20,0X0F,0X1F,%00100000,0X80
  57.                 DW DAT_MAIN_MENU,((EMAINMENU1-MAINMENU1)/2)
  58.                 DW TXT_MAINMENU,MAINMENU1,MOUSE_MAINMENU,MAINMKEYS
  59.  
  60. TXT_MAINMENU    DB 0X17,0XFF,"MAGIC Service"
  61.                 DB 0X0D," 0.Continue program"
  62.                 DB 0X0D," S.Setup"
  63.         IF BUILD_DEBUG=1
  64.                 DB 0X0D," C.Cash remember"
  65.                 DB 0X0D," F.File browser"
  66.                 DB 0X0D," D.Debugger STS"
  67.         ENDIF
  68.                 DB 0
  69.  
  70.         IF BUILD_DEBUG=1
  71. MAINMKEYS       DB LOW (MAINMENU1-$-1),"0scfd"
  72.         ELSE
  73. MAINMKEYS       DB LOW (MAINMENU1-$-1),"0s"
  74.         ENDIF
  75.  
  76. MAINMENU1       DW CONTINUE_PROG
  77.                 DW SETUP
  78.         IF BUILD_DEBUG=1
  79.                 DW CASHRM
  80.                 DW FILE_BROWSER
  81.                 DW DEBUGGER
  82.         ENDIF
  83. EMAINMENU1
  84.  
  85. MOUSE_MAINMENU  DB 0XFF
  86. ;===================MAIN MENU===================
  87.  
  88. ;==================SETUP MENU===================
  89. SETUP_MENU      DB 0X06,0X06,((ESETUPMENU1-SETUPMENU1)/2)+2,0X20,0X0F,0X1F,%00100000,0X80
  90.                 DW DAT_SETUP_MENU,((ESETUPMENU1-SETUPMENU1)/2)
  91.                 DW TXT_SETUPMENU,SETUPMENU1,MOUSE_SETUPMENU,SETUPKEYS
  92.  
  93. TXT_SETUPMENU   DB 1,0X17,0XFF,"Setup"
  94.                 DB 0X0D," 0.Main menu"
  95.                 DB 0X0D," W.Turbo ",2
  96.                 DW TURBO_MODE
  97.                 DB 0X0D," M.Memory ",2
  98.                 DW MEMORY_MODE
  99.                 DB 0
  100.  
  101. SETUPKEYS       DB LOW (SETUPMENU1-$-1),"0wm"
  102.  
  103. SETUPMENU1      DW RESTART_MAIN
  104.                 DW SET_TURBO
  105.                 DW SET_MEMORY
  106. ESETUPMENU1
  107.  
  108. MOUSE_SETUPMENU DB 0XFF
  109. ;==================SETUP MENU===================
  110.  
  111. ;================DEVICE NOT FOUND===============
  112. DEV_NOTFOUND    DB 0X15,0X08,0X05,0X18,0X17,0X1F,%00000000,0X00
  113.                 DW 0,0
  114.                 DW TXT_DEVNOTFOUND,0,0,0
  115.  
  116. TXT_DEVNOTFOUND DB 0X0D,"   Device not found"
  117.                 DB 0X0D,0X0D,"   Press any key ...",0
  118. ;================DEVICE NOT FOUND===============
  119.  
  120. ;====================NO FILES===================
  121. NOFILES         DB 0X00,0X00,0X03,0X1A,0X17,0X1F,%00000000,0X00
  122.                 DW 0,0
  123.                 DW TXT_NOFILES,0,0,0
  124.  
  125. TXT_NOFILES     DB 0X0D," Files or DIR not found",0
  126. ;====================NO FILES===================
  127.  
  128. ;==================SELECT DRIVE=================
  129. SEL_DRIVE       DB 0X010,0X08,0X00,0X1A,BLACK<<3+WHITE,MAGENTA<<3+WHITE,%00100000
  130. ESEL_DRIVE
  131.  
  132. TXT_SELDRIVES   DB 0X17,0XFF,"Select drives"
  133. ETXT_SELDRIVES
  134. ;==================SELECT DRIVE=================
  135.  
  136. ;==================FILE BROWSER=================
  137. FILESBROWSER    DB 0X00,0X00,V_FILES,H_FILES,BLUE<<3+WHITE,BLUE<<3+BR_PAPER,%10101000,0XC0
  138.                 DW DAT_FILEBROWS,0
  139.                 DW TXT_FILEBROWS,SEL_FILEBROWS,MOUS_FILEBROWS,KEYS_FILEBROWS
  140.  
  141. TXT_FILEBROWS   DB 0X17,0XFF,"File browser"
  142.                 DB 0X16,V_FILES-1,2,"D.Drive select  ENTER.Select",0;  V.SCL/TRD view",0
  143.  
  144. KEYS_FILEBROWS  DB LOW (SEL_FILEBROWS-$-1)
  145.                 REPT V_FILES-2
  146.                 DB 0X0D
  147.                 ENDM
  148.                 DB "dv"
  149.  
  150. SEL_FILEBROWS   REPT V_FILES-2
  151.                 DW SELECT_FILE
  152.                 ENDM
  153.                 DW SELECT_DRIVE
  154.                 DW SCLTRD_VIEW
  155.  
  156. MOUS_FILEBROWS  DB 0,0X00,V_FILES-1,0X01,H_FILES/2-1,"d"
  157.                 DB 0,H_FILES/2-1,V_FILES-1,0X01,H_FILES/2,0X0D
  158.                 DB 0XFF
  159. ;==================FILE BROWSER=================
  160.  
  161. ;=========================IMAGE FDI ERROR================================
  162. LDFDIERROR      DB (H_FILES-0X14)/2,0X08,0X04,0X14,0X17,0X00,%00000000,0
  163.                 DW 0,0
  164.                 DW TXT_LDFDIERR,0,0,0
  165.  
  166. TXT_LDFDIERR    DB 0X17,0XFF,0X0D," FDI image error",0X0D," Press any key",0
  167. ;=========================IMAGE FDI ERROR================================
  168.  
  169. ;================COLOR EXT FLIES================
  170. LEGEND_EXT      DB 0X3E,0X06,0X08,0X09,BLACK<<3+WHITE,0,0,0
  171.                 DW 0,0
  172.                 DW TXT_LEGENDEXT,0,0,0
  173.  
  174. TXT_LEGENDEXT   DB 0X0D,0X17,BR_INK+BLACK<<3+WHITE,"  DIR"
  175.                 DB 0X0D,0X17,BR_INK+BLACK<<3+GREEN,"  TRD"
  176.                 DB 0X0D,0X17,BR_INK+BLACK<<3+YELLOW,"  SCL"
  177.                 DB 0X0D,0X17,BR_INK+BLACK<<3+YELLOW,"  FDI"
  178.                 DB 0X0D,0X17,BR_INK+BLACK<<3+RED,"  TAP"
  179.                 DB 0X0D,0X17,BR_INK+BLACK<<3+CYAN,"Unknown",0
  180. ;================COLOR EXT FLIES================
  181.  
  182. ;==================МОНТИРОВАТЬ ИЛИ ЗАГРУЖАТЬ В РАМДИСК===================
  183. SEL_MOUNT       DB (H_FILES-0X0E)/2,0X07,LOW ((SELMOUNT2-SELMOUNT1)/2)+2,0X0E,BLACK<<3+WHITE,BLUE<<3+BR_PAPER,%00100000,0X80
  184.                 DW DAT_MOUNT,((SELMOUNT2-SELMOUNT1)/2)
  185.                 DW SELMOUNTTXT,SELMOUNT1,0,SELMOUNTKEYS
  186. SELMOUNTTXT     DB 0X17,0XFF,"Mounter"
  187.                 DB 0X0D," L.Ramdisk"
  188.                 DB 0X0D," 1.Mount A:"
  189.                 DB 0X0D," 2.Mount B:"
  190.                 DB 0X0D," 3.Mount C:"
  191.                 DB 0X0D," 4.Mount D:",0
  192.  
  193. SELMOUNTKEYS    DB LOW (SELMOUNT1-$-1),"l1234"
  194.  
  195. SELMOUNT1       DW LOADIMAGES
  196.                 DW MOUNT_A
  197.                 DW MOUNT_B
  198.                 DW MOUNT_C
  199.                 DW MOUNT_D
  200. SELMOUNT2
  201. ;==================МОНТИРОВАТЬ ИЛИ ЗАГРУЖАТЬ В РАМДИСК===================
  202.  
  203. ;                    1  2  3  4
  204. FILES_EXT       DB "TRDSCLFDITAP",0
  205. FILES_EXT_ALL   EQU $-1
  206. EFILES_EXT
  207.  
  208. COLOR_EXT       DB CYAN,GREEN,YELLOW,YELLOW,RED,MAGENTA
  209.  
  210. TXT_TURBO       DB " 7.0 3.514.0"
  211. TXT_MEMORY      DB "off 48128"
  212.  
  213. ;СПИСОК КЛАВИШ ПРОВЕРЯЕМЫХ ВСЕГДА
  214. MAIN_KEYS       DB LOW (EMAIN_KEYS-$-1)," ",0X07,0X08,0X09,0X0A,0X0B,0X0D
  215. EMAIN_KEYS
  216.  
  217. ADREXEKEYS      DW ENTER                        ;SPACE
  218.                 DW RESTART                      ;EDIT
  219.                 DW PAGEUP                       ;0X08
  220.                 DW PAGEDN                       ;0X09
  221.                 DW CURSOR_DOWN                  ;0X0A
  222.                 DW CURSOR_UP                    ;0X0B
  223.                 DW ENTER                        ;0X0D
  224. EADREXEKEYS
  225.  
  226. ;ТЕКСТ ДЛЯ ОТОБРАЖЕНИЯ НАЙДЕННЫХ РАЗДЕЛОВ, ПО 16 БАЙТ СТРОКА
  227. TXT4MENU_DEVICE    ;1234567890123456
  228.                 DB ".ZContr  SDCard:"           ;4
  229.                 DB ".NeoGS   SDCard:"           ;5
  230.                 DB ".HDDNemo MASTER:"           ;6-MASTER
  231.                 DB ".HDDSmuc MASTER:"           ;7-SLAVE
  232.                 DB ".HDDNemo  SLAVE:"           ;6-MASTER
  233.                 DB ".HDDSmuc  SLAVE:"           ;7-SLAVE
  234.  
  235. ;ТИП РАЗДЕЛА
  236. TXT4MENU_TYPE   DB "FAT12"
  237.                 DB "FAT16"
  238.                 DB "FAT32"
  239.