Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 18.08.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
  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. ;[МЫШИНЫЙ КУРСОР В ДВУХ ВИДАХ]
  56. SPRAR           DB 0X3F,0X00,0X1F,0X40,0X0F,0X60,0X07,0X50,0X03,0X48,0X01,0X4C,0X01,0X70,0X07,0X00
  57. SPRAR2          DB 0X3F,0X00,0X1F,0X40,0X0F,0X60,0X07,0X70,0X03,0X78,0X01,0X7C,0X01,0X70,0X07,0X00
  58. ;===============МЫШИНЫЙ КУРСОР В ДВУХ ВИДАХ================
  59.        
  60. ;[МЕНЮ ДИСКОВОЙ ОШИБКИ]
  61. DSK_ERR         DB 0X08,0X08,LOW ((D_ERR2-D_ERR1)/2)+2,0X11,0X17,0X3A,%00100000,0
  62.                 DW 0,((D_ERR2-D_ERR1)/2)
  63.                 DW DSKERRTXT,D_ERR1,0,DSK_ERR_KEY
  64. DSKERRTXT       DB 0X17,0XFF,"DOS MEDITATE!"
  65.                 DB 0X0D," R.Retry:  "
  66. NUM_TRK_TXT     DB "  /"
  67. NUM_SEC_TXT     DB "  /"
  68. SIDE_DISK       DB " "                          ;r
  69.                 DB 0X0D," I.Ignore sector"      ;i
  70.                 DB 0X0D," B.Break",0            ;b
  71. DSK_ERR_KEY     DB LOW (D_ERR1-$-1),"rib"
  72.  
  73. D_ERR1          DW _RETRY
  74.                 DW _IGNORE
  75.                 DW _STUPID
  76. D_ERR2
  77. ;===============МЕНЮ ДИСКОВОЙ ОШИБКИ=======================
  78.  
  79. ;[СЕРВИСНОЕ МЕНЮ]
  80. MKILLS          DB 0X0A,0X07,LOW ((KILL2-KILL1)/2)+2,0X12,0X0F,0X1F,%00100000,0
  81.                 DW 0,((KILL2-KILL1)/2)
  82.                 DW MKILLSTXT,KILL1,0,MKILLS_KEY
  83. MKILLSTXT       DB 0X17,0XFF,"Services"
  84.                 DB 0X0D," R.Reset NeoGS"                ;r
  85.                 DB 0X0D," E.Reset CMOS"                 ;e
  86.                 DB 0X0D," K.Format ramdisk 640k"        ;k
  87.                 DB 0X0D," V.Basic 48 standart"          ;v
  88.                 DB 0X0D," B.Basic 128 standart"         ;b
  89.                 DB 0X0D," M.Edit CMOS"                  ;m
  90.                 DB 0X0D," S.Test PC keyboard"           ;s
  91.                 DB 0X0D," D.HDD detector"               ;d
  92.                 DB 0X0D," C.ATM CP/M"                   ;c
  93.                 DB 0X0D," T.IS-DOS boot"                ;t
  94.                 DB 0X0D," F.Fast update ROM"            ;f
  95.                 DB 0X0D," U.Update custom ROM"          ;u
  96.                 DB 0X0D," N.Dismount image"             ;n
  97.                 DB 0X0D," X.Exit",0                     ;x
  98. MKILLS_KEY      DB LOW (KILL1-$-1),"rekvbmsdctfunx"
  99.  
  100. KILL1           DW RESETNGS                     ;r
  101.                 DW RESET_CMOS                   ;e
  102.                 DW RAM_640                      ;k
  103.                 DW BAS48STD                     ;v
  104.                 DW BAS128STD                    ;b
  105.                 DW EDIT_CMOS                    ;m
  106.                 DW PC_KEYS_TEST                 ;s
  107.                 DW HDD_DETECTOR                 ;d
  108.                 DW ATM_CPM                      ;c
  109.                 DW ISDOS_BOOT                   ;t
  110.                 DW LOAD4FLASH_FULL              ;f
  111.                 DW LOAD4FLASH_CUST              ;u
  112.                 DW UMOUNTIMAGE                  ;n
  113.                 DW RESTART                      ;x
  114. KILL2
  115. ;===============СЕРВИСНОЕ МЕНЮ=============================
  116.  
  117. ;[ДЕМОНТИРОВАНИЕ ОБРАЗОВ]
  118. WDISMOUNT       DB 0X0F,0X08,LOW ((WDISM2-WDISM1)/2)+2,0X0C,0X07,0X1F,%00100000,0
  119.                 DW 0,((WDISM2-WDISM1)/2)
  120.                 DW WDISMTXT,WDISM1,0,WDISMKEY
  121. WDISMTXT        DB 0X17,0XFF,"Dismount"
  122.                 DB 0X0D," 1.Dismount A:"        ;1
  123.                 DB 0X0D," 2.Dismount B:"        ;2
  124.                 DB 0X0D," 3.Dismount C:"        ;3
  125.                 DB 0X0D," 4.Dismount D:"        ;4
  126.                 DB 0X0D," X.Exit",0             ;x
  127.  
  128. WDISMKEY        DB LOW (WDISM1-$-1),"1234x"
  129.  
  130. WDISM1          DW DISMOUNT_A                   ;1
  131.                 DW DISMOUNT_B                   ;2
  132.                 DW DISMOUNT_C                   ;3
  133.                 DW DISMOUNT_D                   ;4
  134.                 DW RESTART                      ;x
  135. WDISM2
  136. ;===============ДЕМОНТИРОВАНИЕ ОБРАЗОВ=====================
  137.  
  138. ;[МЕНЮ УСТАНОВОК]
  139. SETUPER         DB 0X07,0X07,LOW ((SETUPER2-SETUPER1)/2)+2,0X15,0X0F,0X1F,%00100000,0
  140.                 DW 0,((SETUPER2-SETUPER1)/2)
  141.                 DW SETUPERTXT,SETUPER1,0,SETUPERKEY
  142. SETUPERTXT      DB 1,0X17,0XFF,"Setup"
  143.                 DB "\r S.Sound on keys:      off"
  144. SNDKEYS_STAT    EQU $-2
  145.                 DB "\r G.Access SD NeoGS:    ofN"
  146. ACCSSDG_STAT    EQU $-2
  147.                 DB "\r K.DRV AY printer:     off"
  148. ETXT_AYPRINTER  EQU $-2
  149. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  150.         IFDEF REZIDENT
  151.                 DB "\r R.Resident Honey Cmd: off"
  152. TXT_REZIDENT    EQU $-2
  153.                 DB "\r E.Kill rezident:      off"
  154. TXT_KILLREZID   EQU $-2
  155.         ENDIF;REZIDENT
  156.                 DB "\r T.Autostart tape:     off"
  157. TXT_AUTOTAPE    EQU $-2
  158.                 DB "\r H.Delay for HDD, secs  5"
  159. TXT_HDDTIMEOUT  EQU $-1
  160.                 DB "\r X.Exit"
  161.                 DB 0
  162. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  163.         IFDEF REZIDENT
  164. SETUPERKEY      DB LOW (SETUPER1-$-1),"sgkrethx"
  165.         ELSE
  166. SETUPERKEY      DB LOW (SETUPER1-$-1),"sgkthx"
  167.         ENDIF;REZIDENT
  168.  
  169. SETUPER1        DW SOUND_KEYS                   ;s
  170.                 DW ACS_SDNGS                    ;g
  171.                 DW AYPRN_SETUP                  ;k
  172. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  173.         IFDEF REZIDENT
  174.                 DW REZID_SETUP                  ;r
  175.                 DW KILL_REZID                   ;e
  176.         ENDIF;REZIDENT
  177.                 DW AUTO_TAPE                    ;t
  178.                 DW HDDTIMEOUT                   ;h
  179.                 DW RESTART                      ;x
  180. SETUPER2
  181. ;===============МЕНЮ УСТАНОВОК=============================
  182.  
  183. ;[ВЫБОР FAT УСТРОЙСТВА]
  184. SEL_FAT_DEV     DB 0X03,0X04,0X00,0X16,0X07,0X1F,%00100000,0
  185.                 DW 0,0
  186.                 DW SEL_FAT_DRV,0,0,0
  187. SELFATDEVEXE    EQU $-6
  188. TXT_FAT_SEL     DB 0X17,0XFF,"Drive select"
  189. ETXT_FAT_SEL
  190. ;===============ВЫБОР FAT УСТРОЙСТВА=======================
  191.  
  192. ;[ГЛАВНОЕ МЕНЮ]
  193. MAINMENU        DB 0X11,0X06,LOW ((MAIN2-MAIN1)/2)+2,0X0C,0X0F,0X1F,%00100000,0
  194.                 DW 0,((MAIN2-MAIN1)/2)
  195.                 DW MAINTXT,MAIN1,MAIN_ZONE,MAINMENU_KEY
  196. MAINTXT         DB 0X17,0XFF,"Main menu"
  197.                 DB 0X0D," Z.TR-DOS boot"        ;z
  198.                 DB 0X0D," F.File browse"        ;f
  199.                 DB 0X0D," T.Tape load"          ;t
  200.                 DB 0X0D," B.HDD boot"           ;b
  201.                 DB 0X0D," D.CD boot"            ;d
  202.                 DB 0X0D," X.Perfect Cmd"        ;x
  203.                 DB 0X0D," S.TR-DOS"             ;s
  204.                 DB 0X0D," I.48k basic"          ;i
  205.                 DB 0X0D," U.128k basic"         ;u
  206.                 DB 0X0D," C.Setup"              ;c
  207.                 DB 0X0D," R.Service"            ;r
  208.                 DB 0
  209. MAINMENU_KEY    DB LOW (MAIN1-$-1),"zftbdxsiucrwmlg123489vyhejn";,0XAC
  210.  
  211. MAIN1           DW GLUBOOT                      ;z ДИСКЕТОЗАГРУЗЧИК
  212.                 DW FILES_BROWSE                 ;f ЗАГРУЗЧИК С ФАТА
  213.                 DW TAPELOAD                     ;t ЗАГРУЗКА С ЛЕНТЫ
  214.                 DW HDD_BOOT                     ;b СТАРЫЙ ЗАГРУЗЧИК С ВИНТА
  215.                 DW CDBOOT                       ;d СТАРЫЙ ЗАГРУЗЧИК С СИДЮКА
  216.                 DW PERFECT                      ;x PERFECT COMANDER
  217.                 DW DOS128                       ;s ПЕРЕХОД В TR-DOS
  218.                 DW BAS48                        ;i ПЕРЕХОД В БЕЙСИК 48
  219.                 DW BAS128                       ;u ПЕРЕХОД В БЕЙСИК 128
  220.                 DW SETUPM                       ;c УСТАНОВКИ
  221.                 DW _KILLS                       ;r СЕРВИС МЕНЮ
  222. MAIN2           DW CHNGTURBO                    ;w ИЗМЕНЕНИЕ ТУРБО
  223.                 DW CHNGMODE                     ;m ИЗМЕНЕНИЕ РЕЖИМА ПАМЯТИ
  224.                 DW CHNGTAPMODE                  ;l ПЕРЕКЛЮЧЕНИЕ ЭМУЛЯЦИИ ЛЕНТЫ
  225.                 DW CHNGGLUKMOD                  ;g РАЗРЕШЕНИЕ СБРОСА В ГЛЮК
  226.                 DW SELDRV                       ;1 ВЫБОР ДИСКОВОДА A
  227.                 DW SELDRV                       ;2 ВЫБОР ДИСКОВОДА B
  228.                 DW SELDRV                       ;3 ВЫБОР ДИСКОВОДА C
  229.                 DW SELDRV                       ;4 ВЫБОР ДИСКОВОДА D
  230.                 DW MOUSE_ONOFF                  ;8 ВКЛ/ВЫКЛ КУРСОРА МЫШИ
  231.                 DW CMOS_ONOFF                   ;9 ВКЛ/ВЫКЛ ОТОБРАЖЕНИЯ ЧАСОВ
  232.                 DW NEXTDRIVE                    ;v ПЕРЕБОР РЕАЛЬНЫХ ДИСКОВОДОВ
  233.                 DW NEXTVIRT                     ;y ПЕРЕБОР ВИРТУАЛЬНЫХ ДИСКОВОДОВ
  234.                 DW VIEW_HELP                    ;h ВЫВОД ХЕЛПА
  235.                 DW EN_LOADFONT                  ;e РАЗРЕШЕНИЕ ПЕРЕЗАГРУЗКИ ШРИФТА ПО СБРОСУ
  236.                 DW SET_TYPEFONT                 ;j ВЫБОР ТИПА ШРИФТА
  237.                 DW EN_AUTOMNT                   ;n ВКЛ/ВЫКЛ АВТОМОНТИРОВАНИЯ ИЗ ФАЙЛА
  238. ;===============ГЛАВНОЕ МЕНЮ===============================
  239.  
  240. ;[ДЛЯ ЗАГРУЗКИ С ЛЕНТЫ]
  241. BAS4TAPE        binclude "BAS4TAPE.BIN"
  242. EBAS4TAPE
  243.  
  244. ;ДЛЯ ЗАГРУЗКИ С ЛЕНТЫ
  245. TAPE_LDT        DB 0X06,0X08,0X04,0X14,0X0E,0X0F,%00000000,0
  246.                 DW 0,0
  247.                 DW TAPELDTTXT,0,0,0
  248. TAPELDTTXT      DB 0X17,0XFF,0X0D,3,"Tape loading..."
  249.                 DB 0X0D,3,"Press PLAY on tape",0
  250. ;===============ДЛЯ ЗАГРУЗКИ С ЛЕНТЫ=======================
  251.  
  252. ;[НЕ TR-DOS ДИСК]
  253. NONETRDOS       DB 0X06,0X08,0X03,0X16,0X16,0X0F,%00000000,0
  254.                 DW 0,0
  255.                 DW TXT_NONETRDOS,0,0,0
  256. TXT_NONETRDOS   DB 0X17,0XFF,0X0D,3,"Not TR-DOS disk",0
  257. ;===============НЕ TR-DOS ДИСК=============================
  258.  
  259. ;[МОНТИРОВАТЬ ИЛИ ЗАГРУЖАТЬ В РАМДИСК]
  260. SEL_MOUNT       DB 0X07,0X07,LOW ((SELMOUNT2-SELMOUNT1)/2)+2,0X0B,0X07,0X1F,%00100000,0
  261.                 DW 0,((SELMOUNT2-SELMOUNT1)/2)
  262.                 DW SELMOUNTTXT,SELMOUNT1,0,SELMOUNTKEYS
  263. SELMOUNTTXT     DB 0X17,0XFF,"Mounter"
  264.                 DB 0X0D," L.Ramdisk"
  265.                 DB 0X0D," 1.Mount A:"
  266.                 DB 0X0D," 2.Mount B:"
  267.                 DB 0X0D," 3.Mount C:"
  268.                 DB 0X0D," 4.Mount D:"
  269.                 DB 0X0D," X.Exit",0
  270.  
  271. SELMOUNTKEYS    DB LOW (SELMOUNT1-$-1),"l1234x"
  272.  
  273. SELMOUNT1       DW LOADIMAGE
  274.                 DW MOUNT_A
  275.                 DW MOUNT_B
  276.                 DW MOUNT_C
  277.                 DW MOUNT_D
  278.                 DW RESTART
  279. SELMOUNT2
  280. ;===============МОНТИРОВАТЬ ИЛИ ЗАГРУЖАТЬ В РАМДИСК========
  281.  
  282. ;[ОКНО ВЫВОДА НАЙДЕННЫХ ФАЙЛОВ TR-DOS]
  283. WIN_FILES       DB 0X00,0X00,0X00,0X0C,0X0F,0X1F,%00010010,0
  284.                 DW 0,0
  285.                 DW SEL_FAT_DRV,WFILES1,0,WFILESKEYS
  286.  
  287. WFILESKEYS      DB LOW (WFILES1-$-1)
  288.                 REPT FH_FILE-2
  289.                 DB 0
  290.                 ENDM
  291.                 DB "x"
  292.  
  293. WFILES1         REPT FH_FILE-2
  294.                 DW RUNFILE
  295.                 ENDM
  296.                 DW SEL_FILES_WIN
  297. ;===============ОКНО ВЫВОДА НАЙДЕННЫХ ФАЙЛОВ TR-DOS========
  298.  
  299. ;[ОКНО ВЫВОДА НАЙДЕННЫХ ФАЙЛОВ FAT]
  300. FAT_FILES       DB 0X00,0X00,0X00,0X0C,0X0F,0X1F,%10100010,0
  301.                 DW 0,0
  302.                 DW FATFILESTXT,FATFILES1,FB_ZONE,FATFILESKEYS
  303. FATFILESTXT     DB 0X17,0XFF,"File browser"
  304.                 DB 0X16,0X17,8,"D.Drive  ENTER.Run/Load  V.View",0
  305.  
  306. FATFILESKEYS    DB LOW (FATFILES1-$-1)
  307.                 REPT FH_FILE
  308.                 DB 0X0D
  309.                 ENDM
  310.                 DB "dvx"
  311.  
  312. FATFILES1       REPT FH_FILE
  313.                 DW RUN_HOB
  314.                 ENDM
  315.                 DW SELECT_DEVICE
  316.                 DW VIEW_IMAGE
  317.                 DW RESTART
  318.  
  319. FB_ZONE         DB 0,0X00,FH_FILE-1,0X01,0X07,"d"
  320.                 DB 0,0X07,FH_FILE-1,0X01,0X0C,0X0D
  321.                 DB 0,0X13,FH_FILE-1,0X01,0X07,"v"
  322.                 DB 0XFF
  323. ;===============ОКНО ВЫВОДА НАЙДЕННЫХ ФАЙЛОВ FAT===========
  324.  
  325. ;[ОКНО ПОДСКАЗКИ ДЛЯ ФАЙЛОВ FAT]
  326. ;===============ОКНО ПОДСКАЗКИ ДЛЯ ФАЙЛОВ FAT==============
  327.  
  328. ;[НЕТ БЕЙСИК ФАЙЛОВ]
  329. NOBASIC         DB 0X00,0X00,0X03,0X0C,0X0F,0X27,%00000000,0
  330.                 DW 0,0
  331.                 DW TXTNOBASIC,ADRNOBAS,0,0
  332. TXTNOBASIC      DB 0X17,0XFF,0X0D,3,"No Progs",0
  333. ADRNOBAS        DW RESTART
  334. ;===============НЕТ БЕЙСИК ФАЙЛОВ==========================
  335.  
  336. ;[HDD НЕ НАЙДЕН]
  337. HDDBOOT_ERROR   DB 0X08,0X08,0X04,0X10,0X17,0X00,%00000000,0
  338.                 DW 0,0
  339.                 DW TXT_HDDBOOTERR,0,0,0
  340. TXT_HDDBOOTERR  DB 0X17,0XFF,0X0D,3,"HDD not found",0X0D,3,"Press any key",0
  341. ;===============HDD НЕ НАЙДЕН==============================
  342.  
  343. ;[IMAGE FDI ERROR]
  344. LDFDIERROR      DB  0X08,0X08,0X04,0X10,0X17,0X00,%00000000,0
  345.                 DW 0,0
  346.                 DW TXT_LDFDIERR,0,0,0
  347. TXT_LDFDIERR    DB 0X17,0XFF,0X0D,3,"FDI image error",0X0D,3,"Press any key",0
  348. ;===============IMAGE FDI ERROR============================
  349.  
  350. ;[FILE NOT FOUND]
  351. FILENONE        DB 0X08,0X08,0X04,0X10,0X17,0X00,%00000000,0
  352.                 DW 0,0
  353.                 DW TXT_FILENONE,0,0,0
  354. TXT_FILENONE    DB 0X17,0XFF,0X0D,3,"File not found",0X0D,3,"Press any key",0
  355. ;===============FILE NOT FOUND=============================
  356.  
  357. ;[VIRTUAL ERROR]
  358. ERR_VIRTUAL     DB 0X05,0X08,0X04,0X18,0X17,0X00,%00000000,0
  359.                 DW 0,0
  360.                 DW TXT_ERRVIRTUAL,0,0,0
  361. TXT_ERRVIRTUAL  DB 0X17,0XFF,0X0D,3,"Virtual drive not formatted"
  362.                 DB 0X0D,3,"or image not loaded",0
  363. ;===============VIRTUAL ERROR==============================
  364.  
  365. ;[UPDATE ROM]
  366. UPDATE_WIN      DB 0X09,0X08,0X0B,0X12,0X17,0X00,%00100000,0
  367.                 DW 0,0
  368.                 DW TXT_UPDATEWIN,0,0,0
  369. TXT_UPDATEWIN   DB 0X17,0XFF,"Update FLASH ROM",0X0D
  370.                 DB 0X0D,3,"Page 0"
  371.                 DB 0X0D,3,"Page 1"
  372.                 DB 0X0D,3,"Page 2"
  373.                 DB 0X0D,3,"Page 3"
  374.                 DB 0X0D,3,"Page 4"
  375.                 DB 0X0D,3,"Page 5"
  376.                 DB 0X0D,3,"Page 6"
  377.                 DB 0X0D,3,"Page 7",0
  378. ;===============UPDATE ROM=================================
  379.  
  380. ;[UPDATE CUSTOM ROM]
  381. UPDATE_CUSTOM   DB 0X09,0X08,0X04,0X12,0X17,0X00,%00100000,0
  382.                 DW 0,0
  383.                 DW TXT_UPDATECUST,0,0,0
  384. TXT_UPDATECUST  DB 0X17,0XFF,"Update custom ROM",0
  385. ;===============UPDATE CUSTOM ROM==========================
  386.  
  387. ;[ERASE ROM]
  388. ERASE_ROM       DB 0X0D,0X03,0X05,0X0A,0X17,0X00,%00000000,0
  389.                 DW 0,0
  390.                 DW TXT_ERASEROM,0,0,0
  391. TXT_ERASEROM    DB 0X17,0XFF,0X0D,3,"Erase FLASH",0
  392. ;===============ERASE ROM==================================
  393.  
  394. ;[СТРАНИЦА ПОМОЩИ]
  395. WIN_HELP        DB 0X01,0X03,0X14,0X1A,0X0F,0X00,%00100000,0
  396.                 DW 0,0
  397.                 DW TXT_WINHELP,0,0,0
  398. TXT_WINHELP     DB 0X17,0XFF,"Help"
  399.                 DB 0X0D," Key+RESET:"
  400.                 DB 0X0D," Space=TRDOS"
  401.                 DB 0X0D," CS=Basic128"
  402.                 DB 0X0D," SS=Basic48"
  403.                 DB 0X0D," D=Grass!512b(PSB^Halloween CC04)"
  404.                 DB 0X0D," C=ColorTable+border keys+COVOX"
  405.                 DB 0X0D," S=old CMOS SetUp"
  406.                 DB 0X0D," 0=return to EVO Reset Service"
  407.                 DB 0X0D,"----------------------------------"
  408.                 DB 0X0D," In main menu:"
  409.                 DB 0X0D," 1-4=TR-DOS drive"
  410.                 DB 0X0D," V=TR-DOS drive"
  411.                 DB 0X0D," Y=Virtual drive"
  412.                 DB 0X0D," M=memory mode"
  413.                 DB 0X0D," W=turbo 3,5-7-14 MHz"
  414.                 DB 0X0D," 8=on/off mouse"
  415.                 DB 0X0D," 9=on/off time"
  416.                 DB 0X0D," & uppercased option keys.",0
  417. ;===============СТРАНИЦА ПОМОЩИ============================
  418.  
  419. ;[SD КАРТА УДАЛЕНА]
  420. SDCARD_LOST     DB 0X08,0X08,0X04,0X10,0X17,0,%00000000,0
  421.                 DW 0,0
  422.                 DW TXT_SDLOST,0,0,0
  423. TXT_SDLOST      DB 0X17,0XFF,0X0D,3,"SD card lost",0X0D,3,"Press RESET",0
  424. ;===============SD КАРТА УДАЛЕНА===========================
  425.  
  426. ;[ТЕКСТЫ И ПРОЧАЯ ФИГНЯ]
  427. TXTFULLSCR      DB 0X16,0X00,0X00,0X17,GREEN,"EVO Reset Service v",VERSBIOS
  428.                 DB 0X16,0X01,0X00,0X17,YELLOW,"ZX-Evolution 4096 Kb "
  429.                 DB 0X16,0X02,0X00,0X17,CYAN+BR_INK,"www.nedopc.com "
  430.                 DB 0X16,0X03,0X00,0X17,CYAN,"Baseconf: ",0X17,0XFF
  431. VERS_CONF       DB "NONE                            "
  432.                 DB 0X16,0X04,0X00,0X17,CYAN,"AVR Boot: ",0X17,0XFF
  433.                 ;   12345678901234567890123456789012
  434. VERS_BOOT       DB "NONE                            "
  435. ;РАСПЕЧАТКА ВРЕМЕНИ И ДАТЫ СБОРКИ ERS
  436.         IF BUILD_DEBUG=1
  437.                 DB 0X16,0X05,0X00,0X17,BLUE,"Build ERS:  ",TIME,"  "
  438.                 TEXTDATE
  439.                 DB "  "
  440.         ENDIF
  441.                 DB 0X16,0X17,0X00,0X17,MAGENTA+BR_INK,"H.Help ",0X17,0XFF,0
  442.  
  443. ;[ТЕКСТ СМОНТИРОВАННЫХ ДИСКОВ]
  444. MOUNTED_DRV     DB 0X16,0X12,0X00,0X17,GREEN,"Mount A: ",0X17,YELLOW
  445. MNT_DRV_A       DB "NONE        "
  446.                 DB 0X16,0X13,0X00,0X17,GREEN,"Mount B: ",0X17,YELLOW
  447. MNT_DRV_B       DB "NONE        "
  448.                 DB 0X16,0X14,0X00,0X17,GREEN,"Mount C: ",0X17,YELLOW
  449. MNT_DRV_C       DB "NONE        "
  450.                 DB 0X16,0X15,0X00,0X17,GREEN,"Mount D: ",0X17,YELLOW
  451. MNT_DRV_D       DB "NONE        "
  452.                 DB 0X16,0X11,0X00,0X17,GREEN,"Ramdisk: ",0X17,YELLOW
  453. IN_RAMDISK      DB "NONE        "
  454.                 DB 0X17,0XFF,0
  455.  
  456. ;[ТЕКСТ НАСТРОЕК ГЛАВНОГО МЕНЮ]
  457. TRDDRV_MODE     DB 0X16,0X06,0X00,0X17,MAGENTA,"1-4.TR-DOS Drive:  ",0X17,0XFF,"A",0
  458. TXT_DRIVE       EQU $-2
  459. SPEED_MODE      DB 0X16,0X09,0X00,0X17,MAGENTA,"W.CPU frequency: ",0X17,0XFF,"14.0",0
  460. TXT_SPEED       EQU $-5
  461. MEM_MODE        DB 0X16,0X08,0X00,0X17,MAGENTA,"M.Memory Lock:    ",0X17,0XFF
  462. TXT_MEM         DB "128",0
  463. VIRTUAL_DRV     DB 0X16,0X07,0X00,0X17,MAGENTA,"Y.Virtual Drive:  ",0X17,0XFF," A ",0
  464. VIRT_DRIVE      EQU $-4
  465. EMUTAPLOAD      DB 0X16,0X0A,0X00,0X17,MAGENTA,"L.Emu tape load:  ",0X17,0XFF,"off",0
  466. EMTAPLOAD       EQU $-3
  467. SET_RESET       DB 0X16,0X0B,0X00,0X17,MAGENTA,"G.RESET=>",0X17,0X46,"            ",0X17,0XFF,0
  468. TXT_RESET       EQU $-0X0F
  469. ROMLOADFONT     DB 0X16,0X0C,0X00,0X17,MAGENTA,"E.Reload FONT:    ",0X17,0XFF,"off",0
  470. EROMLOADFONT    EQU $-3
  471. TYPESFONT       DB 0X16,0X0D,0X00,0X17,MAGENTA,"J.Type FONT:    ",0X17,0XFF,"  ATM",0
  472. ETYPESFONT      EQU $-6
  473. TXT_AUTOMOUNT   DB 0X16,0X0E,0X00,0X17,MAGENTA,"N.Automount TRD:  ",0X17,0XFF,"off",0
  474. ETXT_AUTOMOUNT  EQU $-3
  475.  
  476. ;[СПИСОК КЛАВИШ ПРОВЕРЯЕМЫХ ВСЕГДА]
  477. MAIN_KEYS       DB LOW (EMAIN_KEYS-$-1),"qaop ",0X07,0X08,0X09,0X0A,0X0B,0X0D
  478. EMAIN_KEYS
  479.  
  480. ADREXEKEYS      DW UP                                   ;q
  481.                 DW DOWN                                 ;a
  482.                 DW LEFT                                 ;o
  483.                 DW RIGHT                                ;p
  484.                 DW ENTER                                ;SPACE
  485.                 DW RESTART                              ;EDIT
  486.                 DW LEFT                                 ;0X08
  487.                 DW RIGHT                                ;0X09
  488.                 DW DOWN                                 ;0X0A
  489.                 DW UP                                   ;0X0B
  490.                 DW ENTER                                ;0X0D
  491. EADREXEKEYS
  492.  
  493. ;[ПРОВЕРЯЕМЫЕ ЗОНЫ МЫШИ]
  494. ;F,X,Y,V,H,SYM
  495. MAIN_ZONE       DB 0,0X00,0X06,0X01,0X10,"v"            ;ПЕРЕБОР ДИСКОВОДОВ
  496.                 DB 0,0X00,0X07,0X01,0X10,"y"            ;ПЕРЕБОР ВИРТУАЛЬНЫХ ДИСКОВОДОВ
  497.                 DB 0,0X00,0X08,0X01,0X10,"m"            ;ПЕРЕБОР РЕЖИМОВ ПАМЯТИ
  498.                 DB 0,0X00,0X09,0X01,0X10,"w"            ;ПЕРЕБОР ТУРБО
  499.                 DB 0,0X00,0X0A,0X01,0X10,"l"            ;ПЕРЕБОР ЭМУЛЯЦИИ ЛЕНТЫ
  500.                 DB 0,0X00,0X0B,0X01,0X10,"g"            ;ПЕРЕБОР РАЗРЕШЕНИЯ ГЛЮКА
  501.                 DB 0,0X00,0X0C,0X01,0X10,"e"            ;ПЕРЕБОР РАЗРЕШЕНИЯ ПЕРЕЗАГРУЗКИ ФОНТА
  502.                 DB 0,0X00,0X0D,0X01,0X10,"j"            ;ПЕРЕБОР ТИПА ШРИФТА
  503. ;               DB 0,0X00,0X0E,0X01,0X10,"k"            ;ПЕРЕБОР ДРАЙВЕРА ПРИНТЕРА
  504. ;               DB 0,0X00,0X17,0X01,0X05,"h"            ;ВЫЗОВ ПОМОЩИ
  505.                 DB 0,0X00,0X0E,0X01,0X10,"n"            ;ВКЛ/ВЫКЛ АВТОМОНТИРОВАНИЯ ИЗ ФАЙЛА
  506. ;               DB 0,0X1D,0X15,0X03,0X03,0XAC
  507.                 DB 0XFF
  508.  
  509. BUFF_TIME       DB 0X16,0X00,0XD0,0X17,BLUE<<3+YELLOW+BR_INK
  510. TXT_TIME        DB "00:00:00",0X16,0X01,0XD0
  511. TXT_DATA        DB "00.00.00",0X17,0XFF
  512.  
  513. ;000    PENT    TV      71680
  514. ;001    PENT    VGA     71680
  515. ;010    60Hz    TV      58688
  516. ;011    60Hz    VGA     58688
  517. ;100    48K     TV      69888
  518. ;101    48K     VGA     69888
  519. ;110    128K    TV      70908
  520. ;111    128K    VGA     70908
  521. TXT_VMODE       DB 0X16,2,0XD0,0X17,GREEN+BR_INK
  522.                 DB "        ",0
  523. TV_VGA          EQU $-9
  524.  
  525. TXT_TVVGA       DB "TV VGA"
  526. TXT_HZ          DB "PENT60Hz 48K128K"
  527.  
  528. TIME_OFF        DB 0X16,0X00,0XD0,0X17,WHITE,"        ",0X16,0X01,0XD0,"        ",0X17,0XFF,0
  529.  
  530. TXT_RESETTO     DB " EVO Service"
  531.                 DB "GLUK Service"
  532.                 DB " EVO ProfROM"
  533.                 DB "  Custom ROM"
  534.  
  535. TXT_SELDOS      DB "EVO-DOS"
  536.                 DB " TR-DOS"
  537.  
  538. TXTMODTYPE      DB "  ATMCP866"
  539. TXTTURBOMODE    DB " 3,5 7,014,0"
  540.  
  541. ;[ПОДДЕРЖИВАЕМЫЕ РАСШИРЕНИЯ]
  542. SUPPORT_EXT     DB "TRDSCLFDITAPSPG$C BMPSNA",0
  543.  
  544. ;[НОМЕРА ПОДДЕРЖИВАЕМЫХ РАСШИРЕНИЙ]
  545. NUM_SUP_EXT     DUPL 17,0
  546.  
  547. TYPE_FILE       DB 0
  548.  
  549. SIGN_SCL        DB "SINCLAIR"
  550. IMAGES          DB "FDIBMP"
  551. VIEW_IMAGES     DB "TRDSCL",0
  552. TAPES           DB "TAP",0
  553. HOBETA          DB "$C SPGSNA",0
  554. ROMS            DB "ROM",0
  555. FONTS           DB "FNT",0
  556.  
  557. ;ТЕКСТ ДЛЯ ОТОБРАЖЕНИЯ НАЙДЕННЫХ РАЗДЕЛОВ, ПО 16 БАЙТ СТРОКА
  558. TXT4MENU_DEVICE    ;12345678901234567890
  559.                 DB ".HDDNemo     MASTER:"
  560.                 DB ".HDDNemo      SLAVE:"
  561.                 DB ".HDDSmuc     MASTER:"
  562.                 DB ".HDDSmuc      SLAVE:"
  563.                 DB ".HDDDIVIDE   MASTER:"
  564.                 DB ".HDDDIVIDE    SLAVE:"
  565.                 DB ".HDDProfi    MASTER:"
  566.                 DB ".HDDProfi     SLAVE:"
  567.                 DB ".HDDTURBO2   MASTER:"
  568.                 DB ".HDDTURBO2    SLAVE:"
  569.                 DB ".NeoGS       SDCard:"
  570.                 DB ".ZContr      SDCard:"
  571.  
  572. ;ТИП РАЗДЕЛА
  573. TXT4MENU_TYPE   DB "FAT12"
  574.                 DB "FAT16"
  575.                 DB "FAT32"
  576.  
  577. ;ИНФА ДЛЯ СОЗДАНИЯ 9 СЕКТОРА НОВОГО ДИСКА
  578. DSKINFO         DB 0                    ;+0XE1-НОМЕР ПЕРВОГО СВОБОДНОГО СЕКТОРА
  579.                 DB 1                    ;+0XE2-НОМЕР ПЕРВОГО СВОБОДНОГО ТРЕКА
  580.                 DB 0X16                 ;+0XE3-ТИП ДИСКЕТЫ
  581.                 DB 0                    ;+0XE4-КОЛИЧЕСТВО ФАЙЛОВ НА ДИСКЕТЕ
  582. SECFREE         DW 2544                 ;+0XE5-КОЛИЧЕСТВО СВОБОДНЫХ СЕКТОРОВ
  583.                 DB 0X10                 ;+0XE7-ИДЕНТИФИКАЦИОННЫЙ КОД TRDOS
  584.                 DW 0                    ;+0XE8-2 БАЙТА 0
  585.                 DUPL 9,0X20             ;+0XEA-9 БАЙТ 0X20
  586.                 DB 0                    ;+0XF3-1 БАЙТ 0
  587.                 DB 0                    ;+0XF4-КОЛИЧЕСТВО УДАЛЕННЫХ ФАЙЛОВ
  588.                 DB "RAMDISKO"           ;+0XF5-ИМЯ ДИСКЕТЫ
  589. DSK_END
  590.  
  591. TXT_EDITCMOS1   DB "Press cursor keys, 0..9, A..F for edit,  X.Exit",0
  592. TXT_EDITCMOS2   DB "CMOS Editor",0
  593.  
  594. ;                   0    1    2    3    4    5    6    7    8    9    A    B    C    D    E    F
  595. ;80                 А    Б    В    Г    Д    Е    Ж    З    И    Й    К    Л    М    Н    О    П
  596. CONV_CP866_ATM  DB 0XC1,0XC2,0XD7,0XC7,0XC4,0XC5,0XD6,0XDA,0XC9,0XCA,0XCB,0XCC,0XCD,0XCE,0XCF,0XD0
  597. ;90                 Р    С    Т    У    Ф    Х    Ц    Ч    Ш    Щ    Ъ    Ы    Ь    Э    Ю    Я
  598.                 DB 0XD2,0XD3,0XD4,0XD5,0XC6,0XC8,0XC3,0XDE,0XDB,0XDD,0XDF,0XD9,0XD8,0XDC,0XC0,0XD1
  599. ;A0                 а    б    в    г    д    е    ж    з    и    й    к    л    м    н    о    п
  600.                 DB 0XE1,0XE2,0XF7,0XE7,0XE4,0XE5,0XF6,0XFA,0XE9,0XEA,0XEB,0XEC,0XED,0XEE,0XEF,0XF0
  601. ;B0                 ░    ▒    ▓    │    ┤    ╡    ╢    ╖    ╕    ╣    ║    ╗    ╝    ╜    ╛    ┐
  602.                 DB 0X80,0X81,0X82,0X83,0X84,0X85,0X86,0X87,0X88,0X89,0X8A,0X8B,0X8C,0X8D,0X8E,0X8F
  603. ;C0                 └    ┴    ┬    ├    ─    ┼    ╞    ╟    ╚    ╔    ╩    ╦    ╠    ═    ╬    ╧
  604.                 DB 0X90,0X91,0X92,0X93,0X94,0X95,0X96,0X97,0X98,0X99,0X9A,0X9B,0X9C,0X9D,0X9E,0X9F
  605. ;D0                 ╨    ╤    ╥    ╙    ╘    ╒    ╓    ╫    ╪    ┘    ┌    █    ▄    ▌    ▐    ▀
  606.                 DB 0XA0,0XA1,0XA2,0XA3,0XA4,0XA5,0XA6,0XA7,0XA8,0XA9,0XAA,0XAB,0XAC,0XAD,0XAE,0XAF
  607. ;E0                 р    с    т    у    ф    х    ц    ч    ш    щ    ъ    ы    ь    э    ю    я
  608.                 DB 0XF2,0XF3,0XF4,0XF5,0XE6,0XE8,0XE3,0XFE,0XFB,0XFD,0XFF,0XF9,0XF8,0XFC,0XE0,0XF1
  609. ;F0                 Ё    ё    Є    є    Ї    ї    Ў    ў    °    ∙    ·    √    №    ¤    ■
  610.                 DB 0XB0,0XB1,0XB2,0XB3,0XB4,0XB5,0XB6,0XB7,0XB8,0XB9,0XBA,0XBB,0XBC,0XBD,0XBE,0XBF
  611.  
  612.         if 0
  613. ;                   0    1    2    3    4    5    6    7    8    9    A    B    C    D    E    F
  614. ;80                 ░    ▒    ▓    │    ┤    ╡    ╢    ╖    ╕    ╣    ║    ╗    ╝    ╜    ╛    ┐
  615. CONV_ATM_CP866  DB 0XB0,0XB1,0XB2,0XB3,0XB4,0XB5,0XB6,0XB7,0XB8,0XB9,0XBA,0XBB,0XBC,0XBD,0XBE,0XBF
  616. ;90                 └    ┴    ┬    ├    ─    ┼    ╞    ╟    ╚    ╔    ╩    ╦    ╠    ═    ╬    ╧
  617.                 DB 0XC0,0XC1,0XC2,0XC3,0XC4,0XC5,0XC6,0XC7,0XC8,0XC9,0XCA,0XCB,0XCC,0XCD,0XCE,0XCF
  618. ;A0                 ╨    ╤    ╥    ╙    ╘    ╒    ╓    ╫    ╪    ┘    ┌    █    ▄    ▌    ▐    ▀
  619.                 DB 0XD0,0XD1,0XD2,0XD3,0XD4,0XD5,0XD6,0XD7,0XD8,0XD9,0XDA,0XDB,0XDC,0XDD,0XDE,0XDF
  620. ;B0                 Ё    ё    Є    є    Ї    ї    Ў    ў    °    ∙    ·    √    №    ¤    ■     
  621.                 DB 0XF0,0XF1,0XF2,0XF3,0XF4,0XF5,0XF6,0XF7,0XF8,0XF9,0XFA,0XFB,0XFC,0XFD,0XFE,0XFF
  622. ;C0                 Ю    А    Б    Ц    Д    Е    Ф    Г    Х    И    Й    К    Л    М    Н    О
  623.                 DB 0X9E,0X80,0X81,0X96,0X84,0X85,0X94,0X83,0X95,0X88,0X89,0X8A,0X8B,0X8C,0X8D,0X8E
  624. ;D0                 П    Я    Р    С    Т    У    Ж    В    Ь    Ы    З    Ш    Э    Щ    Ч    Ъ
  625.                 DB 0X8F,0X9F,0X90,0X91,0X92,0X93,0X86,0X82,0X9C,0X9B,0X87,0X98,0X9D,0X99,0X97,0X9A
  626. ;E0                 ю    а    б    ц    д    е    ф    г    х    и    й    к    л    м    н    о
  627.                 DB 0XEE,0XA0,0XA1,0XE6,0XA4,0XA5,0XE4,0XA3,0XE5,0XA8,0XA9,0XAA,0XAB,0XAC,0XAD,0XAE
  628. ;F0                 п    я    р    с    т    у    ж    в    ь    ы    з    ш    э    щ    ч    ъ
  629.                 DB 0XAF,0XEF,0XE0,0XE1,0XE2,0XE3,0XA6,0XA2,0XEC,0XEB,0XA7,0XE8,0XED,0XE9,0XE7,0XEC
  630.         endif
  631.  
  632. ;[TXT_HELP]
  633. ;                   0123456789ABCDEF0123456789ABCDEF
  634. TXT_HELPREG     DB "SECOND                         ",0          ;00
  635.                 DB "SECOND ALARM                   ",0          ;01
  636.                 DB "MINUTE                         ",0          ;02
  637.                 DB "MINUTE ALARM                   ",0          ;03
  638.                 DB "HOUR                           ",0          ;04
  639.                 DB "HOUR ALARM                     ",0          ;05
  640.                 DB "DAY OF WEEK                    ",0          ;06
  641.                 DB "DAY                            ",0          ;07
  642.                 DB "MONTH                          ",0          ;08
  643.                 DB "YEAR                           ",0          ;09
  644.                 DB "#20                            ",0          ;0A
  645.                 DB "#02                            ",0          ;0B
  646.                 DB "#00                            ",0          ;0C
  647.                 DB "#80                            ",0          ;0D
  648.                 DB "BIT 7=TURBO,BIT 2-0=MEMORY MODE",0          ;0E
  649.                 DB "                               ",0          ;0F
  650.                 DB "NUMBER TR-DOS DRIVE            ",0          ;10
  651.                 DB "#AA OR #55                     ",0          ;11
  652. EMPTY_STROKA    DB "                               ",0
  653.  
  654.                 DUPL 0X10,0
  655. DSTUPID         DW _STUPID
  656.  
  657. MSTUPID         DB 3,8,3,26,0XEA
  658.                 DC "GO SLEEP,STUPID USER!!!"
  659.                 DB 0XFF
  660.  
  661. TXT_BETA        DB " beta"
  662. TXT_NONE        DB "NONE        "
  663. ETXT_NONE
  664.  
  665. T_ALL           DB "off"        ;0
  666. T_128           DB "128"        ;2
  667. T_48            DB " 48"        ;1
  668.  
  669. TXT_DOSTYPES0   DB "EVO-DOS"
  670. TXT_DOSTYPES1   DB " TR-DOS"
  671. ETXT_DOSTYPES
  672.  
  673. DRV_SYM         DB 0    ;НОМЕР ВЫБРАННОГО ДИСКОВОДА
  674. MEMMODE         DB 0    ;РЕЖИМ ПАМЯТИ
  675. SYSREG1         DB 0    ;КОПИЯ ДЛЯ ВЫВОДА В ПОРТ EFF7
  676. TURBO_NUM       DB 0    ;НОМЕР ТУРБОРЕЖИМА
  677. ERS_FLAGS       DB 0
  678.                         ;BIT 7
  679.  BITMASK LOAD_IMG,6     ;BIT 6-=1-ЗАГРУЗКА ОБРАЗА В РАМДИСК
  680.  BITMASK VIEW_IMG,5     ;BIT 5-=1-ПОКАЗ СОДЕРЖИМОГО ОБРАЗА (SCL TRD ONLY),=0-ОБЫЧНАЯ РАБОТА
  681.  BITMASK EMU_TAPE,4     ;BIT 4-=1-ЭМУЛЯЦИЯ ЗАГРУЗКИ С ЛЕНТЫ, =0-ЗАГРУЗКА ЧЕРЕЗ МАГНИТОФОННЫЙ ВХОД
  682.  BITMASK RUN_FAT,3      ;BIT 3-=1-ЗАПУСК С ФАТА, =0-ЗАПУСК С ДИСКЕТЫ
  683.  BITMASK CLOCK_ON,2     ;BIT 2-=1-ЧАСЫ НАЙДЕНЫ, =0-НЕТ
  684.  BITMASK MOUSE_ON,1     ;BIT 1-=1-МЫШЬ ЕСТЬ, =0-НЕТ
  685.  BITMASK NUM_CURSOR,0   ;BIT 0-=КАКОЙ КУРСОР РИСОВАТЬ, ДЛЯ МИГАНИЯ
  686.  
  687. ;[RUN_BASIC]
  688. RUN_BASIC       DW 1                                    ;НОМЕР СТРОКИ БЕЙСИК ПРОГИ
  689.                 DW ERUN_BASIC-RUN_BASIC-5               ;ДЛИНА БЕЙСИК СТРОКИ
  690.                 DB __CLEAR,__VAL,"\"65368\":"
  691.                 DB __RANDOMIZE,__USR,__VAL,"\"15619\":"
  692.                 DB __REM,":",__RUN,"\""
  693. RUNNAM          DUPL 8,0                                ;МЕСТО ПОД 8 СИМВОЛОВ ИМЕНИ ДЛЯ ЗАПУСКА ФАЙЛА
  694.                 DB 0X22,0X0D,0X80
  695. ERUN_BASIC
  696.  
  697. ;[RUN_CODE]
  698. RUN_CODE        DW 0X100
  699.                 DW ERUN_CODE-RUN_CODE-5
  700.                 DB __RANDOMIZE,__USR,"0",0X0E,0,0,0,0,0,0X0D,0X80
  701. ERUN_CODE
  702.  
  703. OUT_NAME_FILE   DB 0X16,0,0,0X17,0XFF
  704. OUT_NAME_FILET  DUPL 0X100,0
  705.  
  706. TRSTPAL         DB 0X00,0X21,0X42,0X63,0X90,0XB1,0XD2,0XF3
  707.                 DB 0XE0,0XE1,0XE2,0XE3,0XF0,0XF1,0XF2,0XF3
  708.  
  709. ;[БУМКАЛКА В AY]
  710. DIN             DW 0X10
  711.                 DUPL 4,0
  712.                 DB 0X0F,0X36,0XF0,0,0
  713.                 DW 0X100
  714. gFenv           EQU $-1
  715.                 DB 9
  716.  
  717. ;***********************************
  718.  
  719. ;[ПЕРЕМЕННЫЕ ДЛЯ КОШАКА]
  720. WAITINGH        DW 0            ;СЧЕТЧИК ОЖИДАНИЯ НАЖАТЫХ КЛАВИШ ИЛИ ДВИЖЕНИЯ МЫШИ
  721. WAITINGL        DB 0            ;СЧЕТЧИК ПАУЗЫ ПЕРЕРИСОВКИ ФАЗЫ КОШАКА
  722. NUMKOSHAK       DB 0            ;НОМЕР ВЫВОДИМОГО СПРАЙТА КОШАКА
  723. ZEVOK           DB 0            ;КОЛИЧЕСТВО ЗЕВАНИЙ КОШАКА
  724.  
  725. KOSHAK          binclude kot_anim.bin,9
  726. ICON            binclude icon.bin,9
  727.                        
  728. BAS_VAR         binclude bas_var.bin
  729. EBAS_VAR
  730.