Subversion Repositories pentevo

Rev

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

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