Subversion Repositories pentevo

Rev

Rev 1031 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ; LAST UPDATE: 09.11.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," D.Debugger STS"
  65.                 DB 0x0D," F.File browser"
  66.         ENDIF
  67.                 DB 0
  68.  
  69.         IF BUILD_DEBUG=1
  70. MAINMKEYS       DB LOW (MAINMENU1-$-1),"0sdf"
  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 DEBUGGER
  79.                 DW FILE_BROWSER
  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.                 DB "\r R.Resident Honey Cmd  \x2"
  99.                 DW REZIDENT_MODE
  100.                 DB "\r K.Kill rezident       \x2"
  101.                 DW TXT_KILLREZID
  102.                 DB 0
  103.  
  104. ; для резидента HONEY COMANDER
  105. SETUPKEYS       DB LOW (SETUPMENU1-$-1),"0wmrk"
  106.  
  107. SETUPMENU1      DW RESTART_MAIN
  108.                 DW SET_TURBO
  109.                 DW SET_MEMORY
  110. ; для резидента HONEY COMANDER
  111.                 DW SET_REZIDENT
  112.                 DW KILL_REZID
  113. ESETUPMENU1
  114.  
  115. MOUSE_SETUPMENU DB 0xFF
  116. ;==================SETUP MENU===================
  117.  
  118. ;================DEVICE NOT FOUND===============
  119. DEV_NOTFOUND    DB 0x15,0x08,0x05,0x18,0x17,0x1F,%00000000,0x00
  120.                 DW 0,0
  121.                 DW TXT_DEVNOTFOUND,0,0,0
  122.  
  123. TXT_DEVNOTFOUND DB 0x0D,"   Device not found"
  124.                 DB 0x0D,0x0D,"   Press any key ...",0
  125. ;================DEVICE NOT FOUND===============
  126.  
  127. ;====================NO FILES===================
  128. NOFILES         DB 0x00,0x00,0x03,0x1A,0x17,0x1F,%00000000,0x00
  129.                 DW 0,0
  130.                 DW TXT_NOFILES,0,0,0
  131.  
  132. TXT_NOFILES     DB 0x0D," Files or DIR not found",0
  133. ;====================NO FILES===================
  134.  
  135. ;==================SELECT DRIVE=================
  136. SEL_DRIVE       DB 0x010,0x08,0x00,0x1A,BLACK<<3+WHITE,MAGENTA<<3+WHITE,%00100000
  137. ESEL_DRIVE
  138.  
  139. TXT_SELDRIVES   DB 0x17,0xFF,"Select drives"
  140. ETXT_SELDRIVES
  141. ;==================SELECT DRIVE=================
  142.  
  143. ;==================FILE BROWSER=================
  144. FILESBROWSER    DB 0x00,0x00,V_FILES,H_FILES,BLUE<<3+WHITE,BLUE<<3+BR_PAPER,%10101000,0xC0
  145.                 DW DAT_FILEBROWS,0
  146.                 DW TXT_FILEBROWS,SEL_FILEBROWS,MOUS_FILEBROWS,KEYS_FILEBROWS
  147.  
  148. TXT_FILEBROWS   DB 0x17,0xFF,"File browser"
  149.                 DB 0x16,V_FILES-1,2,"D.Drive select  ENTER.Select",0;  V.SCL/TRD view",0
  150.  
  151. KEYS_FILEBROWS  DB LOW (SEL_FILEBROWS-$-1)
  152.                 REPT V_FILES-2
  153.                 DB 0x0D
  154.                 ENDM
  155.                 DB "dv"
  156.  
  157. SEL_FILEBROWS   REPT V_FILES-2
  158.                 DW SELECT_FILE
  159.                 ENDM
  160.                 DW SELECT_DRIVE
  161.                 DW SCLTRD_VIEW
  162.  
  163. MOUS_FILEBROWS  DB 0,0x00,V_FILES-1,0x01,H_FILES/2-1,"d"
  164.                 DB 0,H_FILES/2-1,V_FILES-1,0x01,H_FILES/2,0x0D
  165.                 DB 0xFF
  166. ;==================FILE BROWSER=================
  167.  
  168. ;=========================IMAGE FDI ERROR================================
  169. LDFDIERROR      DB (H_FILES-0x14)/2,0x08,0x04,0x14,0x17,0x00,%00000000,0
  170.                 DW 0,0
  171.                 DW TXT_LDFDIERR,0,0,0
  172.  
  173. TXT_LDFDIERR    DB 0x17,0xFF,0x0D," FDI image error",0x0D," Press any key",0
  174. ;=========================IMAGE FDI ERROR================================
  175.  
  176. ;================COLOR EXT FILES================
  177. LEGEND_EXT      DB 0x3E,0x06,0x08,0x09,BLACK<<3+WHITE,0,0,0
  178.                 DW 0,0
  179.                 DW TXT_LEGENDEXT,0,0,0
  180.  
  181. TXT_LEGENDEXT   DB 0x0D,0x17,BR_INK+BLACK<<3+WHITE,"  DIR"
  182.                 DB 0x0D,0x17,BR_INK+BLACK<<3+GREEN,"  TRD"
  183.                 DB 0x0D,0x17,BR_INK+BLACK<<3+YELLOW,"  SCL"
  184.                 DB 0x0D,0x17,BR_INK+BLACK<<3+YELLOW,"  FDI"
  185.                 DB 0x0D,0x17,BR_INK+BLACK<<3+RED,"  TAP"
  186.                 DB 0x0D,0x17,BR_INK+BLACK<<3+CYAN,"Unknown",0
  187. ;================COLOR EXT FILES================
  188.  
  189. ;==================монтировать или загружать в рамдиск===================
  190. SEL_MOUNT       DB (H_FILES-0x0E)/2,0x07,LOW ((SELMOUNT2-SELMOUNT1)/2)+2,0x0E,BLACK<<3+WHITE,BLUE<<3+BR_PAPER,%00100000,0x80
  191.                 DW DAT_MOUNT,((SELMOUNT2-SELMOUNT1)/2)
  192.                 DW SELMOUNTTXT,SELMOUNT1,0,SELMOUNTKEYS
  193. SELMOUNTTXT     DB 0x17,0xFF,"Mounter"
  194.                 DB 0x0D," L.Ramdisk"
  195.                 DB 0x0D," 1.Mount A:"
  196.                 DB 0x0D," 2.Mount B:"
  197.                 DB 0x0D," 3.Mount C:"
  198.                 DB 0x0D," 4.Mount D:",0
  199.  
  200. SELMOUNTKEYS    DB LOW (SELMOUNT1-$-1),"l1234"
  201.  
  202. SELMOUNT1       DW LOADIMAGES
  203.                 DW MOUNT_A
  204.                 DW MOUNT_B
  205.                 DW MOUNT_C
  206.                 DW MOUNT_D
  207. SELMOUNT2
  208. ;==================монтировать или загружать в рамдиск===================
  209.  
  210. ;                    1  2  3  4
  211. FILES_EXT       DB "TRDSCLFDITAP",0
  212. FILES_EXT_ALL   EQU $-1
  213. EFILES_EXT
  214.  
  215. COLOR_EXT       DB CYAN,GREEN,YELLOW,YELLOW,RED,MAGENTA
  216.  
  217. TXT_TURBO       DB " 7.0 3.514.0"
  218. TXT_ONOFF       DB "on "
  219. TXT_MEMORY      DB "off 48128"
  220.  
  221. ; список клавиш проверяемых всегда
  222. MAIN_KEYS       DB LOW (EMAIN_KEYS-$-1)," ",0x07,0x08,0x09,0x0A,0x0B,0x0D
  223. EMAIN_KEYS
  224.  
  225. ADREXEKEYS      DW ENTER                        ;SPACE
  226.                 DW RESTART                      ;EDIT
  227.                 DW PAGEUP                       ;0x08
  228.                 DW PAGEDN                       ;0x09
  229.                 DW CURSOR_DOWN                  ;0x0A
  230.                 DW CURSOR_UP                    ;0x0B
  231.                 DW ENTER                        ;0x0D
  232. EADREXEKEYS
  233.  
  234. ; текст для отображения найденных разделов, по 16 байт строка
  235. TXT4MENU_DEVICE    ;1234567890123456
  236.                 DB ".ZContr  SDCard:"           ;4
  237.                 DB ".NeoGS   SDCard:"           ;5
  238.                 DB ".HDDNemo MASTER:"           ;6-MASTER
  239.                 DB ".HDDSmuc MASTER:"           ;7-SLAVE
  240.                 DB ".HDDNemo  SLAVE:"           ;6-MASTER
  241.                 DB ".HDDSmuc  SLAVE:"           ;7-SLAVE
  242.  
  243. ; тип раздела
  244. TXT4MENU_TYPE   DB "FAT12"
  245.                 DB "FAT16"
  246.                 DB "FAT32"
  247.