Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 22.08.2019 savelij
  3.  
  4. loc_3C47        LD BC,WIN_A3
  5.                 LD A,0XFF
  6.                 OUT (C),A               ;возврат привязки к порту 7FDD
  7. ;               xor     a
  8. ;               call    SET_PAGE
  9. LOC_3C4B        LD DE,0XFFFF
  10.                 ld      a, 7
  11.                 jp      loc_9
  12.  
  13. loc_3C50        ld      sp, 0X5BFF
  14.                 LD BC,WIN_A3
  15.                 LD A,0X40
  16.                 OUT (C),A               ;разблокировка привязки к порту 7FFD
  17.                 ld      a, 1Fh ! 0XFF
  18. ;               call    SET_PAGE
  19.                 LD BC,WIN_P3
  20.                 OUT (C),A
  21.                 ld      hl, 0C000h
  22.                 ld      a, (hl)
  23.                 cp      0C3h
  24.                 jr      nz, loc_3C47
  25.                 LD A,MEMORY_128 | TURBO_3
  26.                 RST8D _SET_MODE         ;установка 3,5Мгц и память 128К
  27.                 xor     a
  28. loc_3C61        add     a, (hl)
  29.                 adc     a, 0
  30.                 inc     hl
  31.                 bit     7, h
  32.                 jr      nz, loc_3C61
  33.                 dec     a
  34.                 jr      nz, loc_3C47
  35.                 ld      a, 0AAh
  36.                 dec     hl
  37.                 cp      (hl)
  38.                 jr      nz, loc_3C47
  39.                 cpl
  40.                 dec     hl
  41.                 cp      (hl)
  42.                 jr      nz, loc_3C47
  43.                 LD H,CMOS_BYTE_03
  44.                 CALL READCMOS
  45.                 AND M_KILL_REZIDENT
  46.                 JR Z,.L1
  47.                 LD (0XC000),A           ;портим резидент
  48. .L1             ld      hl, 0D000h
  49.                 ld      de, 5B00h
  50.                 ld      bc, 2500h
  51.                 ldir
  52. ;               ld      sp, TRD_5F00
  53.                 LD BC,WIN_P3            ;порт установки номера страницы
  54.                 ld      a, 1Eh ! 0XFF
  55. ;               call    SET_PAGE
  56. ;               call    LDIR_HL_DE
  57.                 LD HL,LDIR_HL_DE
  58.                 LD DE,.E1
  59.                 JP (HL)
  60.  
  61. .E1             ld      a, 3 ! 0XFF
  62. ;               call    SET_PAGE
  63. ;               call    LDIR_DE_HL
  64.                 LD HL,LDIR_DE_HL
  65.                 LD DE,.E2
  66.                 JP (HL)
  67.  
  68. .E2             ld      a, 1Dh ! 0XFF
  69. ;               call    SET_PAGE
  70. ;               call    LDIR_HL_DE
  71.                 LD HL,LDIR_HL_DE
  72.                 LD DE,.E3
  73.                 JP (HL)
  74.  
  75. .E3             ld      a, 1 ! 0XFF
  76. ;               call    SET_PAGE
  77. ;               call    LDIR_DE_HL
  78.                 LD HL,LDIR_DE_HL
  79.                 LD DE,.E4
  80.                 JP (HL)
  81.  
  82. .E4             ld      a, 1Ch ! 0XFF
  83. ;               call    SET_PAGE
  84. ;               call    LDIR_HL_DE
  85.                 LD HL,LDIR_HL_DE
  86.                 LD DE,.E5
  87.                 JP (HL)
  88.  
  89. .E5
  90. ;               xor     a
  91. ;               call    SET_PAGE
  92.                 LD A, 0 ! 0XFF
  93. ;               call    LDIR_DE_HL
  94.                 LD HL,LDIR_DE_HL
  95.                 LD DE,.E6
  96.                 JP (HL)
  97.  
  98. .E6             ld      a, 1Bh ! 0XFF
  99. ;               call    SET_PAGE
  100. ;               call    LDIR_HL_DE
  101.                 LD HL,LDIR_HL_DE
  102.                 LD DE,.E7
  103.                 JP (HL)
  104.  
  105. .E7
  106. ;               xor     a
  107. ;               call    SET_PAGE
  108.                 LD A,0 ! 0XFF
  109.                 OUT (C),A               ;вернули страницу
  110.                 LD BC,WIN_A3
  111.                 LD A,0XFF
  112.                 OUT (C),A               ;возврат привязки к порту 7FDD
  113.                 ld      sp, (0X5B73)
  114.                 ret
  115.  
  116. ;SET_PAGE
  117. ;               push    af
  118. ;               and     7
  119. ;               or      10h
  120. ;               ld      bc, 7FFDh
  121. ;               out     (c), a
  122. ;               pop     af
  123. ;               and     18h
  124. ;               cpl
  125. ;               ld      bc, 0FFF7h
  126. ;               out     (c), a
  127. ;               ret
  128. ;               LD BC,WIN_P3
  129. ;               CPL
  130. ;               OUT (C),A
  131. ;               RET
  132.  
  133. LDIR_DE_HL      OUT (C),A
  134.                 ld      a, 0FFh
  135.                 or      a
  136.                 jr      loc_3CE0
  137.  
  138. LDIR_HL_DE      OUT (C),A
  139.                 xor     a
  140. loc_3CE0        EXX
  141.                 ld      hl, 0C000h
  142.                 ld      de, 8000h
  143.                 ld      bc, 4000h
  144.                 jr      z, loc_3CEC
  145.                 ex      de, hl
  146. loc_3CEC        ldir
  147.                 EXX
  148.                 EX DE,HL
  149.                 JP (HL)
  150.