Subversion Repositories pentevo

Rev

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

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