Subversion Repositories pentevo

Rev

Rev 1026 | Go to most recent revision | 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
  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. ; инфа для создания 9 сектора нового диска
  61. DSKINFO         DB 0                    ; + 0xE1 - НОМЕР ПЕРВОГО СВОБОДНОГО СЕКТОРА
  62.                 DB 1                    ; + 0xE2 - НОМЕР ПЕРВОГО СВОБОДНОГО ТРЕКА
  63.                 DB 0x16                 ; + 0xE3 - ТИП ДИСКЕТЫ
  64.                 DB 0                    ; + 0xE4 - КОЛИЧЕСТВО ФАЙЛОВ НА ДИСКЕТЕ
  65. SECFREE         DW 2544                 ; + 0xE5 - КОЛИЧЕСТВО СВОБОДНЫХ СЕКТОРОВ
  66.                 DB 0x10                 ; + 0xE7 - ИДЕНТИФИКАЦИОННЫЙ КОД TRDOS
  67.                 DW 0                    ; + 0xE8 - 2 БАЙТА 0
  68.                 DUPL 9,0x20             ; + 0xEA - 9 БАЙТ 0x20
  69.                 DB 0                    ; + 0xF3 - 1 БАЙТ 0
  70.                 DB 0                    ; + 0xF4 - КОЛИЧЕСТВО УДАЛЕННЫХ ФАЙЛОВ
  71.                 DB "RAMDISKO"           ; + 0xF5 - ИМЯ ДИСКЕТЫ
  72. DSK_END
  73.  
  74. ;===============меню дисковой ошибки=======================
  75. DSK_ERR
  76.  WINHDR 0x08,0x08,LOW ((D_ERR2-D_ERR1)/2)+2,0x11,0x17,0x3A,%00100000,0, \
  77.         0,((D_ERR2-D_ERR1)/2),DSKERRTXT,D_ERR1,0,DSK_ERR_KEY
  78. DSKERRTXT       DB "\x17\xFFDOS MEDITATE!"
  79.                 DB "\r R.Retry:  "
  80. NUM_TRK_TXT     DB "  /"
  81. NUM_SEC_TXT     DB "  /"
  82. SIDE_DISK       DB " "                          ;r
  83.                 DB "\r I.Ignore sector"         ;i
  84.                 DB "\r B.Break",0               ;b
  85. DSK_ERR_KEY     DB LOW (D_ERR1-$-1),"rib"
  86.  
  87. D_ERR1          DW _RETRY
  88.                 DW _IGNORE
  89.                 DW _STUPID
  90. D_ERR2
  91. ;===============меню дисковой ошибки=======================
  92.  
  93. ;===============сервисное меню=============================
  94. MKILLS
  95.  WINHDR 0x0A,0x07,LOW ((KILL2-KILL1)/2)+2,0x12,0x0F,0x1F,%00100000,0, \
  96.         0,((KILL2-KILL1)/2),MKILLSTXT,KILL1,0,MKILLS_KEY
  97. MKILLSTXT       DB "\x17\xFFServices"
  98.                 DB "\r R.Reset NeoGS"                   ;r
  99.                 DB "\r E.Reset CMOS"                    ;e
  100.                 DB "\r K.Format ramdisk 640k"           ;k
  101.                 DB "\r V.Basic 48 standart"             ;v
  102.                 DB "\r B.Basic 128 standart"            ;b
  103.                 DB "\r M.Edit CMOS"                     ;m
  104.                 DB "\r S.Test PC keyboard"              ;s
  105.                 DB "\r D.HDD detector"                  ;d
  106.                 DB "\r C.ATM CP/M"                      ;c
  107.                 DB "\r T.IS-DOS boot"                   ;t
  108.                 DB "\r F.Fast update ROM"               ;f
  109.                 DB "\r U.Update custom ROM"             ;u
  110.                 DB "\r N.Dismount image"                ;n
  111.                 DB "\r X.Exit",0                        ;x
  112. MKILLS_KEY      DB LOW (KILL1-$-1),"rekvbmsdctfunx"
  113.  
  114. KILL1           DW RESETNGS                     ;r
  115.                 DW RESET_CMOS                   ;e
  116.                 DW RAM_640                      ;k
  117.                 DW BAS48STD                     ;v
  118.                 DW BAS128STD                    ;b
  119.                 DW EDIT_CMOS                    ;m
  120.                 DW PC_KEYS_TEST                 ;s
  121.                 DW HDD_DETECTOR                 ;d
  122.                 DW ATM_CPM                      ;c
  123.                 DW ISDOS_BOOT                   ;t
  124.                 DW LOAD4FLASH_FULL              ;f
  125.                 DW LOAD4FLASH_CUST              ;u
  126.                 DW UMOUNTIMAGE                  ;n
  127.                 DW RESTART                      ;x
  128. KILL2
  129. ;===============сервисное меню=============================
  130.  
  131. ;===============демонтирование образов=====================
  132. WDISMOUNT
  133.  WINHDR 0x0F,0x08,LOW ((WDISM2-WDISM1)/2)+2,0x0C,0x07,0x1F,%00100000,0, \
  134.         0,((WDISM2-WDISM1)/2),WDISMTXT,WDISM1,0,WDISMKEY
  135. WDISMTXT        DB "\x17\xFFDismount"
  136.                 DB "\r 1.Dismount A:"           ;1
  137.                 DB "\r 2.Dismount B:"           ;2
  138.                 DB "\r 3.Dismount C:"           ;3
  139.                 DB "\r 4.Dismount D:"           ;4
  140.                 DB "\r X.Exit",0                ;x
  141.  
  142. WDISMKEY        DB LOW (WDISM1-$-1),"1234x"
  143.  
  144. WDISM1          DW DISMOUNT_A                   ;1
  145.                 DW DISMOUNT_B                   ;2
  146.                 DW DISMOUNT_C                   ;3
  147.                 DW DISMOUNT_D                   ;4
  148.                 DW RESTART                      ;x
  149. WDISM2
  150. ;===============демонтирование образов=====================
  151.  
  152. ;===============меню установок=============================
  153. SETUPER
  154.  WINHDR 0x07,0x07,LOW ((SETUPER2-SETUPER1)/2)+2,0x15,0x0F,0x1F,%00100000,0, \
  155.         0,((SETUPER2-SETUPER1)/2),SETUPERTXT,SETUPER1,0,SETUPERKEY
  156. SETUPERTXT      DB "\x01\x17\xFFSetup"
  157.                 DB "\r S.Sound on keys:      off"
  158. SNDKEYS_STAT    EQU $-2
  159.                 DB "\r G.Access SD NeoGS:    ofN"
  160. ACCSSDG_STAT    EQU $-2
  161.                 DB "\r K.DRV AY printer:     off"
  162. ETXT_AYPRINTER  EQU $-2
  163. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  164.                 DB "\r R.Resident Honey Cmd: off"
  165. TXT_REZIDENT    EQU $-2
  166.                 DB "\r E.Kill rezident:      off"
  167. TXT_KILLREZID   EQU $-2
  168.                 DB "\r T.Autostart tape:     off"
  169. TXT_AUTOTAPE    EQU $-2
  170.                 DB "\r H.Delay for HDD, secs  5"
  171. TXT_HDDTIMEOUT  EQU $-1
  172.                 DB "\r L.Screensaver, minute: 5"
  173. TXT_SCRSAVDELAY EQU $-1
  174.                 DZ "\r X.Exit"
  175. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  176. SETUPERKEY      DB LOW (SETUPER1-$-1),"sgkrethlx"
  177.  
  178. SETUPER1        DW SOUND_KEYS                   ;s
  179.                 DW ACS_SDNGS                    ;g
  180.                 DW AYPRN_SETUP                  ;k
  181. ;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
  182.                 DW REZID_SETUP                  ;r
  183.                 DW KILL_REZID                   ;e
  184.                 DW AUTO_TAPE                    ;t
  185.                 DW HDDTIMEOUT                   ;h
  186.                 DW SCRSAVTIMEOUT                ;l
  187.                 DW RESTART                      ;x
  188. SETUPER2
  189. ;===============меню установок=============================
  190.  
  191. ;===============выбор FAT устройства=======================
  192. SEL_FAT_DEV
  193.  WINHDR 0x03,0x04,0x00,0x16,0x07,0x1F,%00100000,0, \
  194.         0,0,SEL_FAT_DRV,0,0,0
  195. SELFATDEVEXE    EQU $-6
  196. TXT_FAT_SEL     DB "\x17\xFFDrive select"
  197. ETXT_FAT_SEL
  198. ;===============выбор FAT устройства=======================
  199.  
  200. ;===============главное меню===============================
  201. MAINMENU
  202.  WINHDR 0x11,0x06,LOW ((MAIN2-MAIN1)/2)+2,0x0C,0x0F,0x1F,%00100000,0, \
  203.         0,((MAIN2-MAIN1)/2),MAINTXT,MAIN1,MAIN_ZONE,MAINMENU_KEY
  204. MAINTXT         DB "\x17\xFFMain menu"
  205.                 DB "\r Z.TR-DOS boot"           ;z
  206.                 DB "\r F.File browse"           ;f
  207.                 DB "\r T.Tape load"             ;t
  208.                 DB "\r B.HDD boot"              ;b
  209.                 DB "\r D.CD boot"               ;d
  210.                 DB "\r 5.SDcard boot"           ;5
  211.                 DB "\r X.Perfect Cmd"           ;x
  212.                 DB "\r S.TR-DOS"                ;s
  213.                 DB "\r I.48k basic"             ;i
  214.                 DB "\r U.128k basic"            ;u
  215.                 DB "\r C.Setup"                 ;c
  216.                 DB "\r R.Service"               ;r
  217.                 DB 0
  218. MAINMENU_KEY    DB LOW (MAIN1-$-1),"zftbd5xsiucrwmlg123489vyhejn"
  219.  
  220. MAIN1           DW GLUBOOT                      ;z ДИСКЕТОЗАГРУЗЧИК
  221.                 DW FILES_BROWSE                 ;f ЗАГРУЗЧИК С ФАТА
  222.                 DW TAPELOAD                     ;t ЗАГРУЗКА С ЛЕНТЫ
  223.                 DW HDD_BOOT                     ;b СТАРЫЙ ЗАГРУЗЧИК С ВИНТА
  224.                 DW CDBOOT                       ;d СТАРЫЙ ЗАГРУЗЧИК С СИДЮКА
  225.                 DW SDCARDBOOT                   ;5 ЗАГРУЗЧИК С SD КАРТЫ
  226.                 DW PERFECT                      ;x PERFECT COMANDER
  227.                 DW DOS128                       ;s ПЕРЕХОД В TR-DOS
  228.                 DW BAS48                        ;i ПЕРЕХОД В БЕЙСИК 48
  229.                 DW BAS128                       ;u ПЕРЕХОД В БЕЙСИК 128
  230.                 DW SETUPM                       ;c УСТАНОВКИ
  231.                 DW _KILLS                       ;r СЕРВИС МЕНЮ
  232. MAIN2           DW CHNGTURBO                    ;w ИЗМЕНЕНИЕ ТУРБО
  233.                 DW CHNGMODE                     ;m ИЗМЕНЕНИЕ РЕЖИМА ПАМЯТИ
  234.                 DW CHNGTAPMODE                  ;l ПЕРЕКЛЮЧЕНИЕ ЭМУЛЯЦИИ ЛЕНТЫ
  235.                 DW CHNGGLUKMOD                  ;g РАЗРЕШЕНИЕ СБРОСА В ГЛЮК
  236.                 DW SELDRV                       ;1 ВЫБОР ДИСКОВОДА A
  237.                 DW SELDRV                       ;2 ВЫБОР ДИСКОВОДА B
  238.                 DW SELDRV                       ;3 ВЫБОР ДИСКОВОДА C
  239.                 DW SELDRV                       ;4 ВЫБОР ДИСКОВОДА D
  240.                 DW MOUSE_ONOFF                  ;8 ВКЛ/ВЫКЛ КУРСОРА МЫШИ
  241.                 DW CMOS_ONOFF                   ;9 ВКЛ/ВЫКЛ ОТОБРАЖЕНИЯ ЧАСОВ
  242.                 DW NEXTDRIVE                    ;v ПЕРЕБОР РЕАЛЬНЫХ ДИСКОВОДОВ
  243.                 DW NEXTVIRT                     ;y ПЕРЕБОР ВИРТУАЛЬНЫХ ДИСКОВОДОВ
  244.                 DW VIEW_HELP                    ;h ВЫВОД ХЕЛПА
  245.                 DW EN_LOADFONT                  ;e РАЗРЕШЕНИЕ ПЕРЕЗАГРУЗКИ ШРИФТА ПО СБРОСУ
  246.                 DW SET_TYPEFONT                 ;j ВЫБОР ТИПА ШРИФТА
  247.                 DW EN_AUTOMNT                   ;n ВКЛ/ВЫКЛ АВТОМОНТИРОВАНИЯ ИЗ ФАЙЛА
  248. ;===============главное меню===============================
  249.  
  250. ;===============для загрузки с ленты=======================
  251. BAS4TAPE        binclude "bas4tape.bin"
  252. EBAS4TAPE
  253.  
  254. ;===============для загрузки с ленты=======================
  255. TAPE_LDT
  256.  WINHDR 0x06,0x08,0x04,0x14,0x0E,0x0F,%00000000,0, \
  257.         0,0,TAPELDTTXT,0,0,0
  258. TAPELDTTXT      DB "\x17\xFF\r\x03Tape loading..."
  259.                 DZ "\r\x03Press PLAY on tape"
  260. ;===============для загрузки с ленты=======================
  261.  
  262. ;===============не TR-DOS диск=============================
  263. NONETRDOS
  264.  WINHDR 0x06,0x08,0x03,0x16,0x16,0x0F,%00000000,0, \
  265.         0,0,TXT_NONETRDOS,0,0,0
  266. TXT_NONETRDOS   DB "\x17\xFF\r\x03Not TR-DOS disk",0
  267. ;===============не TR-DOS диск=============================
  268.  
  269. ;===============загрузка SCL образа========================
  270. LOAD_SCL
  271.  WINHDR 0x07,0x07,LOW ((.SELMOUNT2-.SELMOUNT1)/2)+2,0x0C,0x07,0x1F,%00100000,0, \
  272.         0,((.SELMOUNT2-.SELMOUNT1)/2),.SELMOUNTTXT,.SELMOUNT1,0,.SELMOUNTKEYS
  273. .SELMOUNTTXT    DB "\x17\xFFSCL to:\r"
  274.                 DB " 0.Only load\r"
  275.                 DB " 1.Ramdisk A:\r"
  276.                 DB " 2.Ramdisk B:\r"
  277.                 DB " 3.Ramdisk C:\r"
  278.                 DB " 4.Ramdisk D:\r"
  279.                 DZ " X.Exit"
  280.  
  281. .SELMOUNTKEYS   DB LOW (.SELMOUNT1-$-1),"01234x"
  282.  
  283. .SELMOUNT1      DW LOADIMAGE
  284.                 DW SCL_A
  285.                 DW SCL_B
  286.                 DW SCL_C
  287.                 DW SCL_D
  288.                 DW RESTART
  289. .SELMOUNT2
  290. ;===============загрузка SCL образа========================
  291.  
  292. ;===============запуск из TRD образа=======================
  293. RUN_IMAGE
  294.  WINHDR 0x07,0x03,LOW ((.SELMOUNT2-.SELMOUNT1)/2)+2,0x0C,0x07,0x1F,%00100000,0, \
  295.         0,((.SELMOUNT2-.SELMOUNT1)/2),.SELMOUNTTXT,.SELMOUNT1,0,.SELMOUNTKEYS
  296. .SELMOUNTTXT    DB "\x17\xFFTRD to:\r"
  297.                 DB " 0.Only load\r"
  298.                 DB " 1.Ramdisk A:\r"
  299.                 DB " 2.Ramdisk B:\r"
  300.                 DB " 3.Ramdisk C:\r"
  301.                 DB " 4.Ramdisk D:\r"
  302.                 DB " 5.Mount A:\r"
  303.                 DB " 6.Mount B:\r"
  304.                 DB " 7.Mount C:\r"
  305.                 DB " 8.Mount D:\r"
  306.                 DB " W.Copy to A:\r"
  307.                 DB " E.Copy to B:\r"
  308.                 DB " R.Copy to C:\r"
  309.                 DB " T.Copy to D:\r"
  310.                 DZ " X.Exit"
  311.  
  312. .SELMOUNTKEYS   DB LOW (.SELMOUNT1-$-1),"012345678wertx"
  313.  
  314. .SELMOUNT1      DW LOADIMAGE
  315.                 DW RUNIMG_A
  316.                 DW RUNIMG_B
  317.                 DW RUNIMG_C
  318.                 DW RUNIMG_D
  319.                 DW MOUNT_A
  320.                 DW MOUNT_B
  321.                 DW MOUNT_C
  322.                 DW MOUNT_D
  323.                 DW SEL4COPY_A
  324.                 DW SEL4COPY_B
  325.                 DW SEL4COPY_C
  326.                 DW SEL4COPY_D
  327.                 DW RESTART
  328. .SELMOUNT2
  329. ;===============запуск из образа===========================
  330.  
  331. ;===============окно вывода найденных файлов TR-DOS========
  332. WIN_FILES
  333.  WINHDR 0x00,0x00,0x00,0x0C,0x0F,0x1F,%00010010,0, \
  334.         0,0,SEL_FAT_DRV,WFILES1,0,WFILESKEYS
  335.  
  336. WFILESKEYS      DB LOW (WFILES1-$-1)
  337.                 REPT FH_FILE-2
  338.                 DB 0
  339.                 ENDM
  340.                 DB "x"
  341.  
  342. WFILES1         REPT FH_FILE-2
  343.                 DW RUNFILE
  344.                 ENDM
  345.                 DW SEL_FILES_WIN
  346. ;===============окно вывода найденных файлов TR-DOS========
  347.  
  348. ;===============окно вывода найденных файлов FAT===========
  349. FAT_FILES
  350.  WINHDR 0x00,0x00,0x00,0x0C,0x0F,0x1F,%10100010,0, \
  351.         0,0,FATFILESTXT,FATFILES1,FB_ZONE,FATFILESKEYS
  352. FATFILESTXT     DB "\x17\xFFFile browser"
  353.                 DZ "\x16\x17\x08D.Drive ENTER.Run/Load V.View"
  354.  
  355. FATFILESKEYS    DB LOW (FATFILES1-$-1)
  356.                 REPT FH_FILE
  357.                 DB 0x0D
  358.                 ENDM
  359.                 DB "dvx"
  360.  
  361. FATFILES1       REPT FH_FILE
  362.                 DW RUN_HOB
  363.                 ENDM
  364.                 DW SELECT_DEVICE
  365.                 DW VIEW_IMAGE
  366.                 DW RESTART
  367.  
  368. FB_ZONE         DB 0,0x00,FH_FILE-1,0x01,0x07,"d"
  369.                 DB 0,0x07,FH_FILE-1,0x01,0x0C,0x0D
  370.                 DB 0,0x13,FH_FILE-1,0x01,0x07,"v"
  371.                 DB 0xFF
  372. ;===============окно вывода найденных файлов FAT===========
  373.  
  374. ;===============нет бейсик файлов==========================
  375. NOBASIC
  376.  WINHDR 0x00,0x00,0x03,0x0C,0x0F,0x27,%00000000,0, \
  377.         0,0,TXTNOBASIC,ADRNOBAS,0,0
  378. TXTNOBASIC      DZ "\x17\xFF\r\x03No Progs"
  379. ADRNOBAS        DW RESTART
  380. ;===============нет бейсик файлов==========================
  381.  
  382. ;===============HDD не найден==============================
  383. HDDBOOT_ERROR
  384.  WINHDR 0x08,0x08,0x04,0x10,0x17,0x00,%00000000,0, \
  385.         0,0,TXT_HDDBOOTERR,0,0,0
  386. TXT_HDDBOOTERR  DZ "\x17\xFF\r\x03HDD not found\r\x03Press any key"
  387. ;===============HDD не найден==============================
  388.  
  389. ;===============image FDI error============================
  390. LDFDIERROR
  391.  WINHDR 0x08,0x08,0x04,0x10,0x17,0x00,%00000000,0, \
  392.         0,0,TXT_LDFDIERR,0,0,0
  393. TXT_LDFDIERR    DZ "\x17\xFF\r\x03FDI image error\r\x03Press any key"
  394. ;===============image FDI error============================
  395.  
  396. ;===============file not found=============================
  397. FILENONE
  398.  WINHDR 0x08,0x08,0x04,0x10,0x17,0x00,%00000000,0, \
  399.         0,0,TXT_FILENONE,0,0,0
  400. TXT_FILENONE    DZ "\x17\xFF\r\x03File not found\r\x03Press any key"
  401. ;===============file not found=============================
  402.  
  403. ;===============virtual error==============================
  404. ERR_VIRTUAL
  405.  WINHDR 0x05,0x08,0x04,0x18,0x17,0x00,%00000000,0, \
  406.         0,0,TXT_ERRVIRTUAL,0,0,0
  407. TXT_ERRVIRTUAL  DB "\x17\xFF\r\x03Virtual drive not formatted"
  408.                 DZ "\r\x03or image not loaded"
  409. ;===============virtual error==============================
  410.  
  411. ;===============update ROM=================================
  412. UPDATE_WIN
  413.  WINHDR 0x09,0x08,0x0B,0x12,0x17,0x00,%00100000,0, \
  414.         0,0,TXT_UPDATEWIN,0,0,0
  415. TXT_UPDATEWIN   DB "\x17\xFFUpdate FLASH ROM\r"
  416.                 DB "\r\x03Page 0"
  417.                 DB "\r\x03Page 1"
  418.                 DB "\r\x03Page 2"
  419.                 DB "\r\x03Page 3"
  420.                 DB "\r\x03Page 4"
  421.                 DB "\r\x03Page 5"
  422.                 DB "\r\x03Page 6"
  423.                 DZ "\r\x03Page 7"
  424. ;===============update ROM=================================
  425.  
  426. ;===============update custom ROM==========================
  427. UPDATE_CUSTOM
  428.  WINHDR 0x09,0x08,0x04,0x12,0x17,0x00,%00100000,0, \
  429.         0,0,TXT_UPDATECUST,0,0,0
  430. TXT_UPDATECUST  DZ "\x17\xFFUpdate custom ROM"
  431. ;===============update custom ROM==========================
  432.  
  433. ;===============erase ROM==================================
  434. ERASE_ROM
  435.  WINHDR 0x0D,0x03,0x05,0x0A,%00010111,%00000000,%00000000,0, \
  436.         0,0,TXT_ERASEROM,0,0,0
  437. TXT_ERASEROM    DZ "\x17\xFF\r\x03Erase FLASH"
  438. ;===============erase ROM==================================
  439.  
  440. ;===============копирование образа на TR-DOS диск==========
  441. WINCOPY_IMAGE
  442.  WINHDR 0x04,0x05,0x05,0x12,%00010111,%00000000,%00000000,0, \
  443.         0,0,.TXT,0,0,0
  444. .TXT            DZ "\x17\xFF\r\x03Copy image"
  445. ;===============копирование образа на TR-DOS диск==========
  446.  
  447. ;===============страница помощи============================
  448. WIN_HELP
  449.  WINHDR 0x01,0x03,0x14,0x1A,0x0F,0x00,%00100000,0, \
  450.         0,0,TXT_WINHELP,0,0,0
  451. TXT_WINHELP     DB "\x17\xFFHelp"
  452.                 DB "\r Key+RESET:"
  453.                 DB "\r Space=TRDOS"
  454.                 DB "\r CS=Basic128"
  455.                 DB "\r SS=Basic48"
  456.                 DB "\r D=Grass!512b(PSB^Halloween CC04)"
  457.                 DB "\r C=ColorTable+border keys+COVOX"
  458.                 DB "\r S=old CMOS SetUp"
  459.                 DB "\r 0=return to EVO Reset Service"
  460.                 DB "\r----------------------------------"
  461.                 DB "\r In main menu:"
  462.                 DB "\r 1-4=TR-DOS drive"
  463.                 DB "\r V=TR-DOS drive"
  464.                 DB "\r Y=Virtual drive"
  465.                 DB "\r M=memory mode"
  466.                 DB "\r W=turbo 3,5-7-14 MHz"
  467.                 DB "\r 8=on/off mouse"
  468.                 DB "\r 9=on/off time"
  469.                 DZ "\r & uppercased option keys."
  470. ;===============страница помощи============================
  471.  
  472. ;===============SD карта удалена===========================
  473. SDCARD_LOST
  474.  WINHDR 0x08,0x08,0x04,0x10,0x17,0,%00000000,0, \
  475.         0,0,TXT_SDLOST,0,0,0
  476. TXT_SDLOST      DZ "\x17\xFF\r\x03SD card lost\r\x03Press RESET"
  477. ;===============SD карта удалена===========================
  478.  
  479. ;===============тексты и прочая фигня======================
  480. TXTFULLSCR      DB "\x16\x00\x00\x17",GREEN,"EVO Reset Service v",VERSBIOS
  481.                 DB "\x16\x01\x00\x17",YELLOW,"ZX-Evolution 4096 Kb "
  482.                 DB "\x16\x02\x00\x17",CYAN+BR_INK,"www.nedopc.com "
  483.                 DB "\x16\x03\x00\x17",CYAN,"Baseconf: \x17\xFF"
  484. VERS_CONF       DB "NONE                            "
  485.                 DB "\x16\x04\x00\x17",CYAN,"AVR Boot: \x17\xFF"
  486.                 ;   12345678901234567890123456789012
  487. VERS_BOOT       DB "NONE                            "
  488. ; распечатка времени и даты сборки ERS
  489.         IF BUILD_DEBUG=1
  490.                 DB "\x16\x05\x00\x17",BLUE,"Build ERS:  "
  491.                 TEXTTIME
  492.                 DB "  "
  493.                 TEXTDATE
  494.                 DB "  "
  495.         ENDIF
  496.                 DB "\x16\x17\x00\x17",MAGENTA+BR_INK,"H.Help \x17\xFF",0
  497.  
  498. ;===============текст смонтированных дисков=============
  499. MOUNTED_DRV     DB 0x16,0x12,0x00,0x17,GREEN,"Mount A: ",0x17,YELLOW
  500. MNT_DRV_A       DB "NONE        "
  501.                 DB 0x16,0x13,0x00,0x17,GREEN,"Mount B: ",0x17,YELLOW
  502. MNT_DRV_B       DB "NONE        "
  503.                 DB 0x16,0x14,0x00,0x17,GREEN,"Mount C: ",0x17,YELLOW
  504. MNT_DRV_C       DB "NONE        "
  505.                 DB 0x16,0x15,0x00,0x17,GREEN,"Mount D: ",0x17,YELLOW
  506. MNT_DRV_D       DB "NONE        "
  507.                 DB 0x16,0x11,0x00,0x17,GREEN,"Ramdisk: ",0x17,YELLOW
  508. IN_RAMDISK      DB "NONE        "
  509.                 DB 0x17,0xFF,0
  510. ;===============текст смонтированных дисков=============
  511.  
  512. ;===============текст настроек главного меню============
  513. TRDDRV_MODE     DB "\x16\x06\x00\x17",MAGENTA,"1-4.TR-DOS Drive:  \x17\xFFA",0
  514. TXT_DRIVE       EQU $-2
  515. SPEED_MODE      DB "\x16\x09\x00\x17",MAGENTA,"W.CPU frequency: \x17\xFF14.0",0
  516. TXT_SPEED       EQU $-5
  517. MEM_MODE        DB "\x16\x08\x00\x17",MAGENTA,"M.Memory Lock:    \x17\xFF"
  518. TXT_MEM         DB "128",0
  519. VIRTUAL_DRV     DB "\x16\x07\x00\x17",MAGENTA,"Y.Virtual Drive:  \x17\xFF A ",0
  520. VIRT_DRIVE      EQU $-4
  521. EMUTAPLOAD      DB "\x16\x0A\x00\x17",MAGENTA,"L.Emu tape load:  \x17\xFFoff",0
  522. EMTAPLOAD       EQU $-3
  523. SET_RESET       DB "\x16\x0B\x00\x17",MAGENTA,"G.RESET=>\x17",YELLOW+BR_INK,"            \x17\xFF",0
  524. TXT_RESET       EQU $-0x0F
  525. ROMLOADFONT     DB "\x16\x0C\x00\x17",MAGENTA,"E.Reload FONT:    \x17\xFFoff",0
  526. EROMLOADFONT    EQU $-3
  527. TYPESFONT       DB "\x16\x0D\x00\x17",MAGENTA,"J.Type FONT:    \x17\xFF  ATM",0
  528. ETYPESFONT      EQU $-6
  529. TXT_AUTOMOUNT   DB "\x16\x0E\x00\x17",MAGENTA,"N.Automount TRD:  \x17\xFFoff",0
  530. ETXT_AUTOMOUNT  EQU $-3
  531. ;===============текст настроек главного меню============
  532.  
  533. ;===============текст не соответствия прошики FPGA======
  534. INCORRECTFPGA   DB 0x16,0x16,0x00,0x17,RED << 3 + WHITE," Incorrect FPGA zxevo_fw.bin ",0
  535. ;===============текст не соответствия прошики FPGA======
  536.  
  537. ;===============СПИСОК КЛАВИШ ПРОВЕРЯЕМЫХ ВСЕГДА========
  538. MAIN_KEYS       DB LOW (EMAIN_KEYS-$-1),"qaop ",0x07,0x08,0x09,0x0A,0x0B,0x0D
  539. EMAIN_KEYS
  540.  
  541. ADREXEKEYS      DW UP                                   ; q
  542.                 DW DOWN                                 ; a
  543.                 DW LEFT                                 ; o
  544.                 DW RIGHT                                ; p
  545.                 DW ENTER                                ; SPACE
  546.                 DW RESTART                              ; EDIT
  547.                 DW LEFT                                 ; 0x08
  548.                 DW RIGHT                                ; 0x09
  549.                 DW DOWN                                 ; 0x0A
  550.                 DW UP                                   ; 0x0B
  551.                 DW ENTER                                ; 0x0D
  552. EADREXEKEYS
  553.  
  554. ;===============ПРОВЕРЯЕМЫЕ ЗОНЫ МЫШИ===================
  555. ; F,X,Y,V,H,SYM
  556. MAIN_ZONE       DB 0,0x00,0x06,0x01,0x10,"v"            ; перебор дисководов
  557.                 DB 0,0x00,0x07,0x01,0x10,"y"            ; перебор виртуальных дисководов
  558.                 DB 0,0x00,0x08,0x01,0x10,"m"            ; перебор режимов памяти
  559.                 DB 0,0x00,0x09,0x01,0x10,"w"            ; перебор турбо
  560.                 DB 0,0x00,0x0A,0x01,0x10,"l"            ; перебор эмуляции ленты
  561.                 DB 0,0x00,0x0B,0x01,0x10,"g"            ; перебор разрешения глюка
  562.                 DB 0,0x00,0x0C,0x01,0x10,"e"            ; перебор разрешения перезагрузки фонта
  563.                 DB 0,0x00,0x0D,0x01,0x10,"j"            ; перебор типа шрифта
  564. ;               DB 0,0X00,0X0E,0X01,0X10,"k"            ; перебор драйвера принтера
  565. ;               DB 0,0x00,0x17,0x01,0x05,"h"            ; вызов помощи
  566.                 DB 0,0x00,0x0E,0x01,0x10,"n"            ; вкл/выкл автомонтирования из файла
  567. ;               DB 0,0x1D,0x15,0x03,0x03,0xAC
  568.                 DB 0xFF
  569.  
  570. BUFF_TIME       DB 0x16,0x00,0xD0,0x17,BLUE << 3 + YELLOW + BR_INK
  571. TXT_TIME        DB "00:00:00",0x16,0x01,0xD0
  572. TXT_DATA        DB "00.00.00",0x17,0xFF
  573.  
  574. ; 000   PENT    TV      71680
  575. ; 001   PENT    VGA     71680
  576. ; 010   60Hz    TV      58688
  577. ; 011   60Hz    VGA     58688
  578. ; 100   48K     TV      69888
  579. ; 101   48K     VGA     69888
  580. ; 110   128K    TV      70908
  581. ; 111   128K    VGA     70908
  582. TXT_VMODE       DB 0x16,2,0xD0,0x17,GREEN+BR_INK
  583.                 DB "        ",0
  584. TV_VGA          EQU $-9
  585.  
  586. TXT_TVVGA       DB "TV VGA"
  587. TXT_HZ          DB "PENT60Hz 48K128K"
  588.  
  589. TIME_OFF        DB "\x16\x00\xD0\x17",WHITE,"        \x16\x01\xD0        \x17\xFF",0
  590.  
  591. TXT_RESETTO     DB " EVO Service"
  592.                 DB "GLUK Service"
  593.                 DB " EVO ProfROM"
  594.                 DB "  Custom ROM"
  595.  
  596. TXT_SELDOS      DB "EVO-DOS"
  597.                 DB " TR-DOS"
  598.  
  599. TXTMODTYPE      DB "  ATMCP866"
  600. TXTTURBOMODE    DB " 3,5 7,014,0"
  601.  
  602. ;===============ПОДДЕРЖИВАЕМЫЕ РАСШИРЕНИЯ==================
  603. SUPPORT_EXT     DB "TRD"        ; 1
  604.                 DB "SCL"        ; 2
  605.                 DB "FDI"        ; 3
  606.                 DB "TAP"        ; 4
  607.                 DB "SPG"        ; 5
  608.                 DB "$C "        ; 6
  609.                 DB "BMP"        ; 7
  610.                 DB "SNA"        ; 8
  611.                 DB 0
  612.  
  613. ;===============НОМЕРА ПОДДЕРЖИВАЕМЫХ РАСШИРЕНИЙ===========
  614. NUM_SUP_EXT     DUPL 17,0
  615.  
  616. TYPE_FILE       DB 0
  617.  
  618. SIGN_SCL        DB "SINCLAIR"
  619. IMAGES          DB "FDIBMP"
  620. VIEW_IMAGES     DB "TRDSCL",0
  621. TAPES           DB "TAP",0
  622. HOBETA          DB "$C SPGSNA",0
  623. ROMS            DB "ROM",0
  624. FONTS           DB "FNT",0
  625.  
  626. ; текст для отображения найденных разделов, по 16 байт строка
  627. TXT4MENU_DEVICE    ;12345678901234567890
  628.                 DB ".HDDNemo     MASTER:"
  629.                 DB ".HDDNemo      SLAVE:"
  630.                 DB ".HDDSmuc     MASTER:"
  631.                 DB ".HDDSmuc      SLAVE:"
  632.                 DB ".HDDDIVIDE   MASTER:"
  633.                 DB ".HDDDIVIDE    SLAVE:"
  634.                 DB ".HDDProfi    MASTER:"
  635.                 DB ".HDDProfi     SLAVE:"
  636.                 DB ".HDDTURBO2   MASTER:"
  637.                 DB ".HDDTURBO2    SLAVE:"
  638.                 DB ".NeoGS       SDCard:"
  639.                 DB ".ZContr      SDCard:"
  640.  
  641. ;ТИП РАЗДЕЛА
  642. TXT4MENU_TYPE   DB "FAT12"
  643.                 DB "FAT16"
  644.                 DB "FAT32"
  645.  
  646. TXT_EDITCMOS1   DB "Press cursor keys, 0..9, A..F for edit,  X.Exit",0
  647. TXT_EDITCMOS2   DB "CMOS Editor",0
  648.  
  649. ;                   0    1    2    3    4    5    6    7    8    9    A    B    C    D    E    F
  650. ;80                 А    Б    В    Г    Д    Е    Ж    З    И    Й    К    Л    М    Н    О    П
  651. CONV_CP866_ATM  DB 0xC1,0xC2,0xD7,0xC7,0xC4,0xC5,0xD6,0xDA,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0
  652. ;90                 Р    С    Т    У    Ф    Х    Ц    Ч    Ш    Щ    Ъ    Ы    Ь    Э    Ю    Я
  653.                 DB 0xD2,0xD3,0xD4,0xD5,0xC6,0xC8,0xC3,0xDE,0xDB,0xDD,0xDF,0xD9,0xD8,0xDC,0xC0,0xD1
  654. ;A0                 а    б    в    г    д    е    ж    з    и    й    к    л    м    н    о    п
  655.                 DB 0xE1,0xE2,0xF7,0xE7,0xE4,0xE5,0xF6,0xFA,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0
  656. ;B0                 ░    ▒    ▓    │    ┤    ╡    ╢    ╖    ╕    ╣    ║    ╗    ╝    ╜    ╛    ┐
  657.                 DB 0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F
  658. ;C0                 └    ┴    ┬    ├    ─    ┼    ╞    ╟    ╚    ╔    ╩    ╦    ╠    ═    ╬    ╧
  659.                 DB 0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F
  660. ;D0                 ╨    ╤    ╥    ╙    ╘    ╒    ╓    ╫    ╪    ┘    ┌    █    ▄    ▌    ▐    ▀
  661.                 DB 0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF
  662. ;E0                 р    с    т    у    ф    х    ц    ч    ш    щ    ъ    ы    ь    э    ю    я
  663.                 DB 0xF2,0xF3,0xF4,0xF5,0xE6,0xE8,0xE3,0xFE,0xFB,0xFD,0xFF,0xF9,0xF8,0xFC,0xE0,0xF1
  664. ;F0                 Ё    ё    Є    є    Ї    ї    Ў    ў    °    ∙    ·    √    №    ¤    ■
  665.                 DB 0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF
  666.  
  667.         if 0
  668. ;                   0    1    2    3    4    5    6    7    8    9    A    B    C    D    E    F
  669. ;80                 ░    ▒    ▓    │    ┤    ╡    ╢    ╖    ╕    ╣    ║    ╗    ╝    ╜    ╛    ┐
  670. CONV_ATM_CP866  DB 0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF
  671. ;90                 └    ┴    ┬    ├    ─    ┼    ╞    ╟    ╚    ╔    ╩    ╦    ╠    ═    ╬    ╧
  672.                 DB 0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF
  673. ;A0                 ╨    ╤    ╥    ╙    ╘    ╒    ╓    ╫    ╪    ┘    ┌    █    ▄    ▌    ▐    ▀
  674.                 DB 0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF
  675. ;B0                 Ё    ё    Є    є    Ї    ї    Ў    ў    °    ∙    ·    √    №    ¤    ■     
  676.                 DB 0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF
  677. ;C0                 Ю    А    Б    Ц    Д    Е    Ф    Г    Х    И    Й    К    Л    М    Н    О
  678.                 DB 0x9E,0x80,0x81,0x96,0x84,0x85,0x94,0x83,0x95,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E
  679. ;D0                 П    Я    Р    С    Т    У    Ж    В    Ь    Ы    З    Ш    Э    Щ    Ч    Ъ
  680.                 DB 0x8F,0x9F,0x90,0x91,0x92,0x93,0x86,0x82,0x9C,0x9B,0x87,0x98,0x9D,0x99,0x97,0x9A
  681. ;E0                 ю    а    б    ц    д    е    ф    г    х    и    й    к    л    м    н    о
  682.                 DB 0xEE,0xA0,0xA1,0xE6,0xA4,0xA5,0xE4,0xA3,0xE5,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE
  683. ;F0                 п    я    р    с    т    у    ж    в    ь    ы    з    ш    э    щ    ч    ъ
  684.                 DB 0xAF,0xEF,0xE0,0xE1,0xE2,0xE3,0xA6,0xA2,0xEC,0xEB,0xA7,0xE8,0xED,0xE9,0xE7,0xEC
  685.         endif
  686.  
  687. ;===============TXT_HELP========================================
  688. ;                   0123456789ABCDEF0123456789ABCDEF
  689. TXT_HELPREG     DB "SECOND                         ",0          ; 00
  690.                 DB "SECOND ALARM                   ",0          ; 01
  691.                 DB "MINUTE                         ",0          ; 02
  692.                 DB "MINUTE ALARM                   ",0          ; 03
  693.                 DB "HOUR                           ",0          ; 04
  694.                 DB "HOUR ALARM                     ",0          ; 05
  695.                 DB "DAY OF WEEK                    ",0          ; 06
  696.                 DB "DAY                            ",0          ; 07
  697.                 DB "MONTH                          ",0          ; 08
  698.                 DB "YEAR                           ",0          ; 09
  699.                 DB "#20                            ",0          ; 0A
  700.                 DB "#02                            ",0          ; 0B
  701.                 DB "#00                            ",0          ; 0C
  702.                 DB "#80                            ",0          ; 0D
  703.                 DB "BIT 7=TURBO,BIT 2-0=MEMORY MODE",0          ; 0E
  704.                 DB "                               ",0          ; 0F
  705.                 DB "NUMBER TR-DOS DRIVE            ",0          ; 10
  706.                 DB "#AA OR #55                     ",0          ; 11
  707. EMPTY_STROKA    DB "                               ",0
  708.  
  709.                 DUPL 0x10,0
  710. DSTUPID         DW _STUPID
  711.  
  712. MSTUPID         DB 3,8,3,26,0xEA
  713.                 DC "GO SLEEP,STUPID USER!!!"
  714.                 DB 0xFF
  715.  
  716. TXT_BETA        DB " beta"
  717. TXT_NONE        DB "NONE        "
  718. ETXT_NONE
  719.  
  720. T_ALL           DB "off"        ; 0
  721. T_128           DB "128"        ; 2
  722. T_48            DB " 48"        ; 1
  723.  
  724. SCRSAV
  725. .START          DD 0
  726. .CURR           DD 0
  727. .TIMEOUT        DB 0
  728.  
  729. ; переменные при обращении к TR-DOS
  730. DOSVARS
  731. .CURR_IX        DW 0
  732. .COPY_1F        DB 0
  733. .DSKERR         DB 0
  734. .TMP_ERR_SP     DW 0
  735. .CNT_COPY       DB 0
  736.  
  737. TXT_DOSTYPES0   DB "EVO-DOS"
  738. TXT_DOSTYPES1   DB " TR-DOS"
  739. ETXT_DOSTYPES
  740.  
  741. NUMFAT_SELECT   DW 0    ; номер выбранного файла
  742. FILESIZE_BLOCKS DW 0    ; размер файла в блоках по 16К
  743. DRV_SYM         DB 0    ; номер выбранного дисковода
  744. MEMMODE         DB 0    ; режим памяти
  745. SYSREG1         DB 0    ; копия для вывода в порт EFF7
  746. TURBO_NUM       DB 0    ; номер турборежима
  747. ERS_FLAGS       DB 0
  748.  
  749.  BITMASK LOAD_IMG,      6       ; =1-загрузка образа в рамдиск
  750.  BITMASK VIEW_IMG,      5       ; =1-показ содержимого образа (SCL TRD ONLY),=0-обычная работа
  751.  BITMASK EMU_TAPE,      4       ; =1-эмуляция загрузки с ленты, =0-загрузка через магнитофонный вход
  752.  BITMASK RUN_FAT,       3       ; =1-запуск с фата, =0-запуск с дискеты
  753.  BITMASK CLOCK_ON,      2       ; =1-часы найдены, =0-нет
  754.  BITMASK MOUSE_ON,      1       ; =1-мышь есть, =0-нет
  755.  BITMASK NUM_CURSOR,    0       ; =какой курсор рисовать, для мигания
  756.  
  757. ;===============RUN_BASIC==================================
  758. RUN_BASIC       DW 0x100                                ; номер строки бейсик проги
  759.                 DW ERUN_BASIC-RUN_BASIC-5               ; длина бейсик строки
  760.                 DB __CLEAR,__VAL,"\"65368\":"
  761.                 DB __RANDOMIZE,__USR,__VAL,"\"15619\":",__REM,":",__RUN,"\""
  762. RUNNAM          DUPL 8,0                                ; место под 8 символов имени для запуска файла
  763.                 DB 0x22,0x0D,0x80
  764. ERUN_BASIC
  765.  
  766. ; RUN_CODE
  767. RUN_CODE        DW 0x100
  768.                 DW ERUN_CODE-RUN_CODE-5
  769.                 DB __RANDOMIZE,__USR,"0",0x0E,0,0,0,0,0,0x0D,0x80
  770. ERUN_CODE
  771.  
  772. OUT_NAME_FILE   DB 0x16,0,0,0x17,0xFF
  773. OUT_NAME_FILET  DUPL 0x100,0
  774.  
  775. TRSTPAL         DB 0x00,0x21,0x42,0x63,0x90,0xB1,0xD2,0xF3
  776.                 DB 0xE0,0xE1,0xE2,0xE3,0xF0,0xF1,0xF2,0xF3
  777.  
  778. ;===============бумкалка в AY==============================
  779. DIN             DW 0x10
  780.                 DUPL 4,0
  781.                 DB 0x0F,0x36,0xF0,0,0
  782.                 dw 0x100
  783. gFenv           EQU $-1
  784.                 DB 9
  785. ;===============бумкалка в AY==============================
  786.  
  787. ;===============переменные для кошака======================
  788. WAITINGH        DW 0            ; счетчик ожидания нажатых клавиш или движения мыши
  789. WAITINGL        DB 0            ; счетчик паузы перерисовки фазы кошака
  790. NUMKOSHAK       DB 0            ; номер выводимого спрайта кошака
  791. ZEVOK           DB 0            ; количество зеваний кошака
  792. ;===============переменные для кошака======================
  793.