Subversion Repositories pentevo

Rev

Rev 678 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ;LAST UPDATE: 17.03.2019 savelij
  3.  
  4. RST8_CMP        EX (SP),HL              ;HL
  5.                 PUSH AF                 ;AF
  6.                 LD A,(HL)
  7.                 CP _AY_PRN_INIT
  8.                 JR NC,RST8_YES
  9. RST8_NO         POP AF
  10.                 EX (SP),HL
  11.                 LD HL,($5C5D)
  12.                 LD ($5C5F),HL
  13.                 JP L0053
  14.  
  15. RST8_YES        CP _AY_PRN_INIT+0X30
  16.                 JR NC,RST8_NO
  17.                 PUSH BC                 ;BC
  18.                 LD A,R
  19.                 JP PE,RST8YES1
  20.                 LD A,R
  21. RST8YES1        DI
  22.                 PUSH AF                 ;RF
  23.                 PUSH HL                 ;ADR_RET
  24.                 PUSH DE                 ;RAMNROM+DOS7FFD
  25.                 LD BC,RD_7FFD
  26.                 IN A,(C)
  27.                 AND 0X10                ;ПРОВЕРКА МАППЕРА ДЛЯ ЧТЕНИЯ НОМЕРА СТРАНИЦЫ В 0 ОКНЕ
  28.                 LD B,HIGH (RD_1WINA0)   ;АДРЕС ЧТЕНИЯ 0 ОКНА 0 МАППЕРА
  29.                 JR NZ,RST8YES2
  30.                 LD B,HIGH (RD_0WINA0)   ;АДРЕС ЧТЕНИЯ 0 ОКНА 1 МАППЕРА
  31. RST8YES2        IN H,(C)
  32.                 IN A,(PEVO_CONF)
  33.                 LD L,A
  34.                 OR 1
  35.                 OUT (PEVO_CONF),A
  36.                 LD B,HIGH (RD_DOS7FFD)
  37.                 IN E,(C)
  38.                 DEC B
  39.                 IN D,(C)
  40.                 LD BC,WIN_A0
  41.                 LD A,3
  42.                 OUT (C),A
  43.                 LD B,HIGH (WIN_P0)
  44.                 XOR A
  45.                 JP ADR_SEL_ROM
  46.  
  47.                 DUPL ADR_RST8END-$,0
  48. RST8_END        LD A,L
  49.                 OUT (PEVO_CONF),A
  50.                 POP DE
  51.                 POP HL
  52.                 POP AF
  53.                 JP PO,RST8END1
  54.                 EI
  55. RST8END1        POP BC
  56.                 POP AF
  57.                 EX (SP),HL
  58.                 RET
  59.