Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 06.03.2020 savelij
  3.  
  4.                 TITLE "addon1.a80 ROM_RST81"
  5.  
  6.                 PHASE CPU0
  7.                 JP $
  8.  
  9.                 DUPL 0X0008-$,0XFF
  10.                 JP $
  11.  
  12.                 DUPL 0X0010-$,0XFF
  13.                 JP $
  14.  
  15.                 DUPL ADR_SEL_ROM-$,0XFF
  16.                 OUT (C),A                       ;0014
  17.                 NOP
  18.                 RET
  19.  
  20.                 DUPL 0X0018-$,0XFF
  21.                 JP $
  22.  
  23.                 DUPL 0X0020-$,0XFF
  24.                 JP $
  25.  
  26.                 DUPL 0X0028-$,0XFF
  27.                 JP $
  28.  
  29.                 DUPL 0X0030-$,0XFF
  30.                 JP CALL2PAGE
  31.  
  32.                 DUPL ADR_PERFECT-$,0XFF
  33.                 DW PERFECTCOM
  34.  
  35.                 DUPL 0X0038-$,0XFF              ;0038
  36.                 EI
  37.                 RET
  38.  
  39.                 DUPL 0X003E-$,0XFF
  40.                 EI
  41.                 RET
  42.  
  43.                 DUPL 0X0040-$,0XFF
  44.                 JP INSTALL_NMIRST               ;УСТАНОВКА ОБРАБОТЧИКОВ NMI И RST
  45.  
  46.                 DUPL 0X0080-$,0XFF
  47.                 binclude ../../dec40.bin
  48.  
  49.                 DUPL 0X00FF-$,0XFF
  50.                 DW 0X0038
  51.  
  52.                 PHASE $+0X4000
  53.                 include rst8_data.a80
  54.  
  55.                 PHASE $ & 0X3FFF
  56.  
  57.                 DUPL (HIGH ($)+1)*0X100-$,0XFF
  58. BUF_CRC16_TABL  DB 0X00,0X10,0X20,0X30,0X40,0X50,0X60,0X70,0X81,0X91,0XA1,0XB1,0XC1,0XD1,0XE1,0XF1
  59.                 DB 0X12,0X02,0X32,0X22,0X52,0X42,0X72,0X62,0X93,0X83,0XB3,0XA3,0XD3,0XC3,0XF3,0XE3
  60.                 DB 0X24,0X34,0X04,0X14,0X64,0X74,0X44,0X54,0XA5,0XB5,0X85,0X95,0XE5,0XF5,0XC5,0XD5
  61.                 DB 0X36,0X26,0X16,0X06,0X76,0X66,0X56,0X46,0XB7,0XA7,0X97,0X87,0XF7,0XE7,0XD7,0XC7
  62.                 DB 0X48,0X58,0X68,0X78,0X08,0X18,0X28,0X38,0XC9,0XD9,0XE9,0XF9,0X89,0X99,0XA9,0XB9
  63.                 DB 0X5A,0X4A,0X7A,0X6A,0X1A,0X0A,0X3A,0X2A,0XDB,0XCB,0XFB,0XEB,0X9B,0X8B,0XBB,0XAB
  64.                 DB 0X6C,0X7C,0X4C,0X5C,0X2C,0X3C,0X0C,0X1C,0XED,0XFD,0XCD,0XDD,0XAD,0XBD,0X8D,0X9D
  65.                 DB 0X7E,0X6E,0X5E,0X4E,0X3E,0X2E,0X1E,0X0E,0XFF,0XEF,0XDF,0XCF,0XBF,0XAF,0X9F,0X8F
  66.                 DB 0X91,0X81,0XB1,0XA1,0XD1,0XC1,0XF1,0XE1,0X10,0X00,0X30,0X20,0X50,0X40,0X70,0X60
  67.                 DB 0X83,0X93,0XA3,0XB3,0XC3,0XD3,0XE3,0XF3,0X02,0X12,0X22,0X32,0X42,0X52,0X62,0X72
  68.                 DB 0XB5,0XA5,0X95,0X85,0XF5,0XE5,0XD5,0XC5,0X34,0X24,0X14,0X04,0X74,0X64,0X54,0X44
  69.                 DB 0XA7,0XB7,0X87,0X97,0XE7,0XF7,0XC7,0XD7,0X26,0X36,0X06,0X16,0X66,0X76,0X46,0X56
  70.                 DB 0XD9,0XC9,0XF9,0XE9,0X99,0X89,0XB9,0XA9,0X58,0X48,0X78,0X68,0X18,0X08,0X38,0X28
  71.                 DB 0XCB,0XDB,0XEB,0XFB,0X8B,0X9B,0XAB,0XBB,0X4A,0X5A,0X6A,0X7A,0X0A,0X1A,0X2A,0X3A
  72.                 DB 0XFD,0XED,0XDD,0XCD,0XBD,0XAD,0X9D,0X8D,0X7C,0X6C,0X5C,0X4C,0X3C,0X2C,0X1C,0X0C
  73.                 DB 0XEF,0XFF,0XCF,0XDF,0XAF,0XBF,0X8F,0X9F,0X6E,0X7E,0X4E,0X5E,0X2E,0X3E,0X0E,0X1E
  74.                 DB 0X00,0X21,0X42,0X63,0X84,0XA5,0XC6,0XE7,0X08,0X29,0X4A,0X6B,0X8C,0XAD,0XCE,0XEF
  75.                 DB 0X31,0X10,0X73,0X52,0XB5,0X94,0XF7,0XD6,0X39,0X18,0X7B,0X5A,0XBD,0X9C,0XFF,0XDE
  76.                 DB 0X62,0X43,0X20,0X01,0XE6,0XC7,0XA4,0X85,0X6A,0X4B,0X28,0X09,0XEE,0XCF,0XAC,0X8D
  77.                 DB 0X53,0X72,0X11,0X30,0XD7,0XF6,0X95,0XB4,0X5B,0X7A,0X19,0X38,0XDF,0XFE,0X9D,0XBC
  78.                 DB 0XC4,0XE5,0X86,0XA7,0X40,0X61,0X02,0X23,0XCC,0XED,0X8E,0XAF,0X48,0X69,0X0A,0X2B
  79.                 DB 0XF5,0XD4,0XB7,0X96,0X71,0X50,0X33,0X12,0XFD,0XDC,0XBF,0X9E,0X79,0X58,0X3B,0X1A
  80.                 DB 0XA6,0X87,0XE4,0XC5,0X22,0X03,0X60,0X41,0XAE,0X8F,0XEC,0XCD,0X2A,0X0B,0X68,0X49
  81.                 DB 0X97,0XB6,0XD5,0XF4,0X13,0X32,0X51,0X70,0X9F,0XBE,0XDD,0XFC,0X1B,0X3A,0X59,0X78
  82.                 DB 0X88,0XA9,0XCA,0XEB,0X0C,0X2D,0X4E,0X6F,0X80,0XA1,0XC2,0XE3,0X04,0X25,0X46,0X67
  83.                 DB 0XB9,0X98,0XFB,0XDA,0X3D,0X1C,0X7F,0X5E,0XB1,0X90,0XF3,0XD2,0X35,0X14,0X77,0X56
  84.                 DB 0XEA,0XCB,0XA8,0X89,0X6E,0X4F,0X2C,0X0D,0XE2,0XC3,0XA0,0X81,0X66,0X47,0X24,0X05
  85.                 DB 0XDB,0XFA,0X99,0XB8,0X5F,0X7E,0X1D,0X3C,0XD3,0XF2,0X91,0XB0,0X57,0X76,0X15,0X34
  86.                 DB 0X4C,0X6D,0X0E,0X2F,0XC8,0XE9,0X8A,0XAB,0X44,0X65,0X06,0X27,0XC0,0XE1,0X82,0XA3
  87.                 DB 0X7D,0X5C,0X3F,0X1E,0XF9,0XD8,0XBB,0X9A,0X75,0X54,0X37,0X16,0XF1,0XD0,0XB3,0X92
  88.                 DB 0X2E,0X0F,0X6C,0X4D,0XAA,0X8B,0XE8,0XC9,0X26,0X07,0X64,0X45,0XA2,0X83,0XE0,0XC1
  89.                 DB 0X1F,0X3E,0X5D,0X7C,0X9B,0XBA,0XD9,0XF8,0X17,0X36,0X55,0X74,0X93,0XB2,0XD1,0XF0
  90.  
  91. ; БЫСТРАЯ (ТАБЛИЧНАЯ) ФУНКЦИЯ ПОДСЧЁТА CRC-16,
  92. ; IX=*DATA, HL=SIZE
  93. ; НА ВЫХОДЕ -> HL=ПОДСЧИТАННОЕ ЗНАЧЕНИЕ
  94. CRC16_FAST      LD B,H
  95.                 LD C,L
  96.                 LD HL,0XFFFF
  97.                 EXX
  98.                 PUSH HL
  99.                 LD DE,BUF_CRC16_TABL
  100.                 LD C,0
  101.                 EXX
  102. CRC16F0         LD A,(IX)
  103.                 XOR H
  104.                 INC IX
  105.                 EXX
  106.                 LD L,A
  107.                 LD H,C
  108.                 ADD HL,DE
  109.                 LD A,(HL)
  110.                 INC H
  111.                 EXX
  112.                 XOR L
  113.                 LD H,A
  114.                 EXX
  115.                 LD A,(HL)
  116.                 EXX
  117.                 LD L,A
  118.                 DEC BC
  119.                 LD A,B
  120.                 OR C
  121.                 JP NZ,CRC16F0
  122.                 EXX
  123.                 POP HL
  124.                 EXX
  125.                 RET
  126.  
  127. ;УСТАНОВКА ОБРАБОТЧИКОВ RST 8 И NMI, ИНИЦИАЛИЗАЦИЯ ПЕРЕМЕННЫХ
  128. INSTALL_NMIRST  ATMPORT WIN_A3,0X40             ;СНЯЛИ ЗАВИСИМОСТЬ ОТ ПОРТА 7FFD
  129.                 EVOPORT WIN_P6,0                ;ВКЛЮЧИЛИ СТРАНИЦУ ПЕРЕМЕННЫХ
  130.                 LD A,0XEF
  131.                 IN A,(0XFE)
  132.                 RRCA
  133.                 JR NC,INSTALLNMIRST2
  134.                 LD IX,CPU2+STACK_NMI
  135.                 LD HL,0X40
  136.                 CALL CRC16_FAST                 ;СЧИТАЕМ CRC НА МЕСТЕ ОБРАБОТЧИКА
  137.                 PUSH HL                         ;СОХРАНИЛИ CRC
  138.                 LD IX,CODE_NMIRST+STACK_NMI
  139.                 LD HL,0X40
  140.                 CALL CRC16_FAST
  141.                 POP BC                          ;ВЕРНУЛИ РАНЕЕ ПОСЧИТАННОЕ CRC
  142.                 XOR A
  143.                 SBC HL,BC                       ;СРАВНИЛИ
  144.                 JR Z,INSTALLNMIRST1             ;ЕСЛИ СОВПАЛО БОЛЬШЕ НИЧЕГО НЕ ДЕЛАЕМ
  145.                 EVOPORT WIN_P3,RAM_PROFROM
  146.                 LD HL,CPU0
  147.                 CALL FILL_MEM                   ;ОЧИСТКА СТРАНИЦЫ ОЗУ PROFROM
  148.         IFDEF DOS_FE
  149. ; сброс виртуальных дисководов после включиения и при полном ините
  150.                 LD BC,FDD_EMU_PORT
  151.                 XOR A
  152.                 OUT (C),A
  153.         ENDIF
  154. ;НЕ СОВПАЛО, ПЕРВЫЙ ЗАПУСК ПОСЛЕ ВКЛЮЧЕНИЯ ПИТАНИЯ ИЛИ ОБРАБОТЧИКИ БЫЛИ ИСПОРЧЕНЫ
  155. INSTALLNMIRST2  LD HL,CPU3
  156.                 CALL FILL_MEM                   ;ОЧИСТКА ПОСЛЕДНЕЙ СТРАНИЦЫ RAM
  157.                 LD HL,CODE_NMIRST
  158.                 LD DE,CPU6
  159.                 LD BC,ENMI_SERVICE-ADR_SEL_ROM-CPU6
  160.                 LDIR                            ;УСТАНОВИЛИ ОБРАБОТЧИКИ
  161.                 LD (BUF_TABLVOL+0XFE),BC        ;СБРОС CRC ТАБЛИЦЫ НАЙДЕННЫХ РАЗДЕЛОВ
  162.                 EVOPORT WIN_P3,RAM_MOUNTER      ;ВКЛЮЧИЛИ СТРАНИЦУ МОНТИРОВЩИКА ОБРАЗОВ
  163.                 LD HL,CPU0
  164.                 CALL FILL_MEM                   ;ОЧИСТКА СТРАНИЦЫ МОНТИРОВЩИКА ОБРАЗОВ
  165.                 XOR A
  166.                 LD (CPU6+DEBUG_ONOFF),A         ;0-DEBUGGER OFF
  167.                 LD (FLAGS_DRV),A                ;СБРОС ФЛАГОВ ДРАЙВЕРОВ
  168. ;       IF BUILD_DEBUG=1
  169. ;               ROMCALL UNPACK_STS,ROM_RST80
  170. ;       ENDIF
  171.                 LD A,CMOS_BYTE_00
  172.                 LD BC,CMOSD_SET_ADR
  173.                 OUT (C),A
  174.                 LD BC,CMOSD_RD_WR
  175.                 IN A,(C)
  176.                 CALL LD_SET_FONT
  177.                 LD A,VIRT_REAL_DRIVE
  178.                 LD BC,CMOSD_SET_ADR
  179.                 OUT (C),A
  180.                 LD BC,CMOSD_RD_WR
  181.                 IN A,(C)
  182.                 LD (CPU2+VIRT_BITS),A           ;ПРИ ИНИТЕ МОНТИРУЕМ ТОЛЬКО РАМДИСК
  183. INSTALLNMIRST1  ROMCALL INIT_CMOS,ROM_RST82     ;ПРОВЕРКА И ИНИЦИАЛИЗАЦИЯ CMOS ПРИ ОШИБКЕ CRC
  184.                 CALL SET4RESETFONT
  185.         IF 0;USB_ENABLE
  186.                 EVOPORT WIN_P3,RAM_SCR_FONT     ;СТРАНИЦЫ ДЛЯ ДРАЙВЕРА
  187.                 EVOPORT WIN_A2,ROM_RST83
  188.                 LD HL,USB_DRV+CPU2              ;АДРЕС ДРАЙВЕР
  189.                 LD DE,OFFSET_USBDRV+CPU3        ;АДРЕС РАБОТЫ
  190.                 LD BC,ECOMUSBF-COMUSBF
  191.                 LDIR
  192.                 EVOPORT WIN_P6,0
  193.         ENDIF
  194.                 LD BC,0XFF<<8+PN_1F7
  195.                 IN A,(C)
  196.                 CP 0X50
  197.                 LD A,1
  198.                 JR Z,INSTALLNMIRST3
  199.                 LD H,HDD_TIMEOUT
  200.                 ROMCALL READCMOS,ROM_RST82
  201.                 AND A
  202.                 LD A,1
  203.                 JR Z,INSTALLNMIRST3
  204.                 XOR A
  205. INSTALLNMIRST4  ADD A,25
  206.                 DEC L
  207.                 JR NZ,INSTALLNMIRST4
  208. INSTALLNMIRST3  LD (HDDTIMEOUT),A
  209.                 LD HL,STEK_PAGES
  210.                 LD (TEKPAGE),HL
  211.                 LD HL,READ_KEYS
  212.                 LD (ADR_INT),HL
  213.                 LD BC,WIN_A0
  214.                 XOR A
  215.                 LD (CPU6+FOR_RET),A
  216.                 JP ADR_SEL_ROM
  217.  
  218. FILL_MEM        EX DE,HL
  219.                 LD HL,0
  220.                 ADD HL,SP
  221.                 EX DE,HL
  222.                 LD SP,HL
  223.                 LD HL,0
  224.                 LD B,L
  225. FILL_MEM1       REPT 0X20
  226.                 PUSH HL
  227.                 ENDM
  228.                 DJNZ FILL_MEM1
  229.                 EX DE,HL
  230.                 LD SP,HL
  231.                 RET
  232.  
  233. SETUP_FONT      LD A,(RREG_A)
  234.                 AND A
  235.                 LD HL,ATM_FONT
  236.                 JR Z,SET_FONT1
  237.                 DEC A
  238.                 LD HL,CP866_FONT
  239.                 JR Z,SET_FONT1
  240.                 DEC A
  241.                 RET NZ
  242.                 LD HL,(RREG_L)
  243.                 JR SET_FONT1
  244.  
  245. SET4RESETFONT   LD A,CMOS_BYTE_00
  246.                 LD BC,CMOSD_SET_ADR
  247.                 OUT (C),A
  248.                 LD BC,CMOSD_RD_WR
  249.                 IN A,(C)
  250.                 LD L,A
  251.                 AND M_RELOAD_FONT
  252.                 RET NZ                          ;ЕСЛИ 1, ТО ШРИФТ НЕ ПЕРЕЗАГРУЖАЕМ
  253.                 LD A,L
  254. LD_SET_FONT     AND M_TYPE_FONT                 ;ОПРЕДЕЛЕНИЕ ВЫБРАННОГО ШРИФТА
  255.                 LD HL,ATM_FONT                  ;0=ШРИФТ ATM
  256.                 JR Z,SET_FONT1
  257.                 LD HL,CP866_FONT                ;1=ШРИФТ CP866
  258. SET_FONT1       LD DE,CPU3+OFFSET_BUFSYM
  259.                 EVOPORT WIN_P3,RAM_SCR_FONT
  260.                 PUSH DE
  261.                 ROMCALL UNPACK,ROM_RST80
  262.                 POP HL
  263.                 LD BC,0X0800
  264.                 LD D,C
  265.                 LD E,C
  266.                 PEC_ON M_SHADOW_BF+M_FONT_BF
  267.                 LDIR
  268.                 PEC_OFF M_FONT_BF
  269.                 RET
  270.  
  271. CurrAdr := $
  272.  
  273.                 include nmi_service.a80
  274.  
  275.                 PHASE $ + CurrAdr
  276. PERFECTCOM      binclude perfpack_pack.bin
  277.  
  278. FREE_ADDON1     EQU 0X3FF6-$
  279.  
  280.                 DUPL FREE_ADDON1,0XFF
  281.                 DW FREE_ADDON1                  ;РАЗМЕР СВОБОДНОГО МЕСТА
  282.                 DB "ADDON1"
  283.                 DW DATA_VERS
  284.