Subversion Repositories pentevo

Rev

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

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