Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 224.11.2018 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. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  100.         IFDEF REZIDENT
  101.                 DB "\r R.Resident Honey Cmd \x2"
  102.                 DW REZIDENT_MODE
  103.         ENDIF;REZIDENT
  104.                 DB 0
  105.  
  106. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  107.         IFDEF REZIDENT
  108. SETUPKEYS       DB LOW (SETUPMENU1-$-1),"0wmr"
  109.         ELSE
  110. SETUPKEYS       DB LOW(SETUPMENU1-$-1),"0wm"
  111.         ENDIF
  112.  
  113. SETUPMENU1      DW RESTART_MAIN
  114.                 DW SET_TURBO
  115.                 DW SET_MEMORY
  116. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  117.         IFDEF REZIDENT
  118.                 DW SET_REZIDENT
  119.         ENDIF;REZIDENT
  120. ESETUPMENU1
  121.  
  122. MOUSE_SETUPMENU DB 0XFF
  123. ;==================SETUP MENU===================
  124.  
  125. ;================DEVICE NOT FOUND===============
  126. DEV_NOTFOUND    DB 0X15,0X08,0X05,0X18,0X17,0X1F,%00000000,0X00
  127.                 DW 0,0
  128.                 DW TXT_DEVNOTFOUND,0,0,0
  129.  
  130. TXT_DEVNOTFOUND DB 0X0D,"   Device not found"
  131.                 DB 0X0D,0X0D,"   Press any key ...",0
  132. ;================DEVICE NOT FOUND===============
  133.  
  134. ;====================NO FILES===================
  135. NOFILES         DB 0X00,0X00,0X03,0X1A,0X17,0X1F,%00000000,0X00
  136.                 DW 0,0
  137.                 DW TXT_NOFILES,0,0,0
  138.  
  139. TXT_NOFILES     DB 0X0D," Files or DIR not found",0
  140. ;====================NO FILES===================
  141.  
  142. ;==================SELECT DRIVE=================
  143. SEL_DRIVE       DB 0X010,0X08,0X00,0X1A,BLACK<<3+WHITE,MAGENTA<<3+WHITE,%00100000
  144. ESEL_DRIVE
  145.  
  146. TXT_SELDRIVES   DB 0X17,0XFF,"Select drives"
  147. ETXT_SELDRIVES
  148. ;==================SELECT DRIVE=================
  149.  
  150. ;==================FILE BROWSER=================
  151. FILESBROWSER    DB 0X00,0X00,V_FILES,H_FILES,BLUE<<3+WHITE,BLUE<<3+BR_PAPER,%10101000,0XC0
  152.                 DW DAT_FILEBROWS,0
  153.                 DW TXT_FILEBROWS,SEL_FILEBROWS,MOUS_FILEBROWS,KEYS_FILEBROWS
  154.  
  155. TXT_FILEBROWS   DB 0X17,0XFF,"File browser"
  156.                 DB 0X16,V_FILES-1,2,"D.Drive select  ENTER.Select",0;  V.SCL/TRD view",0
  157.  
  158. KEYS_FILEBROWS  DB LOW (SEL_FILEBROWS-$-1)
  159.                 REPT V_FILES-2
  160.                 DB 0X0D
  161.                 ENDM
  162.                 DB "dv"
  163.  
  164. SEL_FILEBROWS   REPT V_FILES-2
  165.                 DW SELECT_FILE
  166.                 ENDM
  167.                 DW SELECT_DRIVE
  168.                 DW SCLTRD_VIEW
  169.  
  170. MOUS_FILEBROWS  DB 0,0X00,V_FILES-1,0X01,H_FILES/2-1,"d"
  171.                 DB 0,H_FILES/2-1,V_FILES-1,0X01,H_FILES/2,0X0D
  172.                 DB 0XFF
  173. ;==================FILE BROWSER=================
  174.  
  175. ;=========================IMAGE FDI ERROR================================
  176. LDFDIERROR      DB (H_FILES-0X14)/2,0X08,0X04,0X14,0X17,0X00,%00000000,0
  177.                 DW 0,0
  178.                 DW TXT_LDFDIERR,0,0,0
  179.  
  180. TXT_LDFDIERR    DB 0X17,0XFF,0X0D," FDI image error",0X0D," Press any key",0
  181. ;=========================IMAGE FDI ERROR================================
  182.  
  183. ;================COLOR EXT FLIES================
  184. LEGEND_EXT      DB 0X3E,0X06,0X08,0X09,BLACK<<3+WHITE,0,0,0
  185.                 DW 0,0
  186.                 DW TXT_LEGENDEXT,0,0,0
  187.  
  188. TXT_LEGENDEXT   DB 0X0D,0X17,BR_INK+BLACK<<3+WHITE,"  DIR"
  189.                 DB 0X0D,0X17,BR_INK+BLACK<<3+GREEN,"  TRD"
  190.                 DB 0X0D,0X17,BR_INK+BLACK<<3+YELLOW,"  SCL"
  191.                 DB 0X0D,0X17,BR_INK+BLACK<<3+YELLOW,"  FDI"
  192.                 DB 0X0D,0X17,BR_INK+BLACK<<3+RED,"  TAP"
  193.                 DB 0X0D,0X17,BR_INK+BLACK<<3+CYAN,"Unknown",0
  194. ;================COLOR EXT FLIES================
  195.  
  196. ;==================МОНТИРОВАТЬ ИЛИ ЗАГРУЖАТЬ В РАМДИСК===================
  197. SEL_MOUNT       DB (H_FILES-0X0E)/2,0X07,LOW ((SELMOUNT2-SELMOUNT1)/2)+2,0X0E,BLACK<<3+WHITE,BLUE<<3+BR_PAPER,%00100000,0X80
  198.                 DW DAT_MOUNT,((SELMOUNT2-SELMOUNT1)/2)
  199.                 DW SELMOUNTTXT,SELMOUNT1,0,SELMOUNTKEYS
  200. SELMOUNTTXT     DB 0X17,0XFF,"Mounter"
  201.                 DB 0X0D," L.Ramdisk"
  202.                 DB 0X0D," 1.Mount A:"
  203.                 DB 0X0D," 2.Mount B:"
  204.                 DB 0X0D," 3.Mount C:"
  205.                 DB 0X0D," 4.Mount D:",0
  206.  
  207. SELMOUNTKEYS    DB LOW (SELMOUNT1-$-1),"l1234"
  208.  
  209. SELMOUNT1       DW LOADIMAGES
  210.                 DW MOUNT_A
  211.                 DW MOUNT_B
  212.                 DW MOUNT_C
  213.                 DW MOUNT_D
  214. SELMOUNT2
  215. ;==================МОНТИРОВАТЬ ИЛИ ЗАГРУЖАТЬ В РАМДИСК===================
  216.  
  217. ;                    1  2  3  4
  218. FILES_EXT       DB "TRDSCLFDITAP",0
  219. FILES_EXT_ALL   EQU $-1
  220. EFILES_EXT
  221.  
  222. COLOR_EXT       DB CYAN,GREEN,YELLOW,YELLOW,RED,MAGENTA
  223.  
  224. TXT_TURBO       DB " 7.0 3.514.0"
  225. TXT_ONOFF       DB "on "
  226. TXT_MEMORY      DB "off 48128"
  227.  
  228. ;СПИСОК КЛАВИШ ПРОВЕРЯЕМЫХ ВСЕГДА
  229. MAIN_KEYS       DB LOW (EMAIN_KEYS-$-1)," ",0X07,0X08,0X09,0X0A,0X0B,0X0D
  230. EMAIN_KEYS
  231.  
  232. ADREXEKEYS      DW ENTER                        ;SPACE
  233.                 DW RESTART                      ;EDIT
  234.                 DW PAGEUP                       ;0X08
  235.                 DW PAGEDN                       ;0X09
  236.                 DW CURSOR_DOWN                  ;0X0A
  237.                 DW CURSOR_UP                    ;0X0B
  238.                 DW ENTER                        ;0X0D
  239. EADREXEKEYS
  240.  
  241. ;ТЕКСТ ДЛЯ ОТОБРАЖЕНИЯ НАЙДЕННЫХ РАЗДЕЛОВ, ПО 16 БАЙТ СТРОКА
  242. TXT4MENU_DEVICE    ;1234567890123456
  243.                 DB ".ZContr  SDCard:"           ;4
  244.                 DB ".NeoGS   SDCard:"           ;5
  245.                 DB ".HDDNemo MASTER:"           ;6-MASTER
  246.                 DB ".HDDSmuc MASTER:"           ;7-SLAVE
  247.                 DB ".HDDNemo  SLAVE:"           ;6-MASTER
  248.                 DB ".HDDSmuc  SLAVE:"           ;7-SLAVE
  249.  
  250. ;ТИП РАЗДЕЛА
  251. TXT4MENU_TYPE   DB "FAT12"
  252.                 DB "FAT16"
  253.                 DB "FAT32"
  254.