Subversion Repositories pentevo

Rev

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

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