Subversion Repositories pentevo

Rev

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

  1.  
  2. ; LAST UPDATE: 22.10.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.         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 FILES================
  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 FILES================
  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.